File: fill.h

package info (click to toggle)
libperlio-eol-perl 0.19-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 148 kB
  • sloc: ansic: 169; perl: 41; makefile: 3
file content (46 lines) | stat: -rw-r--r-- 956 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#define FillCopyBuffer \
    Copy(start, ptr, i - start, STDCHAR); \
    ptr += i - start;

#define FillInitializeBufferCopy \
    if (buf == NULL) { \
        New('b', buf, (i - start) + ((end - i + 1) * 2), STDCHAR); \
        ptr = buf; \
    } \
    FillCopyBuffer;

#define FillInitializeBuffer \
    if (buf == NULL) { \
        ptr = buf = b->buf; \
    } \
    FillCopyBuffer;

#define FillCheckForCRLF \
    EOL_CheckForCRLF( s->read );

#define FillCheckForCRandCRLF \
    if (*i == EOL_CR) { FillCheckForCRLF };

#define FillInsertCR \
    *ptr++ = EOL_CR;

#define FillInsertLF \
    *ptr++ = EOL_LF;

#define FillWithCRLF \
    FillInitializeBufferCopy; \
    FillInsertCR; \
    FillInsertLF; \
    FillCheckForCRandCRLF;

#define FillWithLF \
    FillInitializeBuffer; \
    FillInsertLF; \
    FillCheckForCRLF;

#define FillWithCR \
    FillInitializeBuffer; \
    FillInsertCR; \
    FillCheckForCRandCRLF;

/* vim: set filetype=perl: */