1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #pragma prototyped
23*b30d1939SAndy Fiddaman /*
24*b30d1939SAndy Fiddaman * Glenn Fowler
25*b30d1939SAndy Fiddaman * AT&T Research
26*b30d1939SAndy Fiddaman *
27*b30d1939SAndy Fiddaman * return an Sfio_t* to a file or string that
28*b30d1939SAndy Fiddaman *
29*b30d1939SAndy Fiddaman * splices \\n to single lines
30*b30d1939SAndy Fiddaman * checks for "..." and '...' spanning newlines
31*b30d1939SAndy Fiddaman * drops #...\n comments
32*b30d1939SAndy Fiddaman *
33*b30d1939SAndy Fiddaman * if <arg> is a file and first line matches
34*b30d1939SAndy Fiddaman * #!!! <level> <message> !!!
35*b30d1939SAndy Fiddaman * then error(<lev>,"%s: %s",<arg>,<msg>) called
36*b30d1939SAndy Fiddaman *
37*b30d1939SAndy Fiddaman * NOTE: seek disabled and string disciplines cannot be composed
38*b30d1939SAndy Fiddaman * quoted \n translated to \r
39*b30d1939SAndy Fiddaman */
40*b30d1939SAndy Fiddaman
41*b30d1939SAndy Fiddaman #include <ast.h>
42*b30d1939SAndy Fiddaman #include <error.h>
43*b30d1939SAndy Fiddaman #include <tok.h>
44*b30d1939SAndy Fiddaman
45*b30d1939SAndy Fiddaman typedef struct
46*b30d1939SAndy Fiddaman {
47*b30d1939SAndy Fiddaman Sfdisc_t disc;
48*b30d1939SAndy Fiddaman Sfio_t* sp;
49*b30d1939SAndy Fiddaman int quote;
50*b30d1939SAndy Fiddaman int* line;
51*b30d1939SAndy Fiddaman } Splice_t;
52*b30d1939SAndy Fiddaman
53*b30d1939SAndy Fiddaman /*
54*b30d1939SAndy Fiddaman * the splicer
55*b30d1939SAndy Fiddaman */
56*b30d1939SAndy Fiddaman
57*b30d1939SAndy Fiddaman static int
spliceline(Sfio_t * s,int op,void * val,Sfdisc_t * ad)58*b30d1939SAndy Fiddaman spliceline(Sfio_t* s, int op, void* val, Sfdisc_t* ad)
59*b30d1939SAndy Fiddaman {
60*b30d1939SAndy Fiddaman Splice_t* d = (Splice_t*)ad;
61*b30d1939SAndy Fiddaman register char* b;
62*b30d1939SAndy Fiddaman register int c;
63*b30d1939SAndy Fiddaman register int n;
64*b30d1939SAndy Fiddaman register int q;
65*b30d1939SAndy Fiddaman register int j;
66*b30d1939SAndy Fiddaman register char* e;
67*b30d1939SAndy Fiddaman char* buf;
68*b30d1939SAndy Fiddaman
69*b30d1939SAndy Fiddaman NoP(val);
70*b30d1939SAndy Fiddaman switch (op)
71*b30d1939SAndy Fiddaman {
72*b30d1939SAndy Fiddaman case SF_CLOSING:
73*b30d1939SAndy Fiddaman sfclose(d->sp);
74*b30d1939SAndy Fiddaman return 0;
75*b30d1939SAndy Fiddaman case SF_DPOP:
76*b30d1939SAndy Fiddaman free(d);
77*b30d1939SAndy Fiddaman return 0;
78*b30d1939SAndy Fiddaman case SF_READ:
79*b30d1939SAndy Fiddaman do
80*b30d1939SAndy Fiddaman {
81*b30d1939SAndy Fiddaman if (!(buf = sfgetr(d->sp, '\n', 0)) && !(buf = sfgetr(d->sp, '\n', -1)))
82*b30d1939SAndy Fiddaman return 0;
83*b30d1939SAndy Fiddaman n = sfvalue(d->sp);
84*b30d1939SAndy Fiddaman q = d->quote;
85*b30d1939SAndy Fiddaman j = 0;
86*b30d1939SAndy Fiddaman (*d->line)++;
87*b30d1939SAndy Fiddaman if (n > 1 && buf[n - 2] == '\\')
88*b30d1939SAndy Fiddaman {
89*b30d1939SAndy Fiddaman j = 1;
90*b30d1939SAndy Fiddaman n -= 2;
91*b30d1939SAndy Fiddaman if (q == '#')
92*b30d1939SAndy Fiddaman {
93*b30d1939SAndy Fiddaman n = 0;
94*b30d1939SAndy Fiddaman continue;
95*b30d1939SAndy Fiddaman }
96*b30d1939SAndy Fiddaman }
97*b30d1939SAndy Fiddaman else if (q == '#')
98*b30d1939SAndy Fiddaman {
99*b30d1939SAndy Fiddaman q = 0;
100*b30d1939SAndy Fiddaman n = 0;
101*b30d1939SAndy Fiddaman continue;
102*b30d1939SAndy Fiddaman }
103*b30d1939SAndy Fiddaman if (n > 0)
104*b30d1939SAndy Fiddaman {
105*b30d1939SAndy Fiddaman e = (b = buf) + n;
106*b30d1939SAndy Fiddaman while (b < e)
107*b30d1939SAndy Fiddaman {
108*b30d1939SAndy Fiddaman if ((c = *b++) == '\\')
109*b30d1939SAndy Fiddaman b++;
110*b30d1939SAndy Fiddaman else if (c == q)
111*b30d1939SAndy Fiddaman q = 0;
112*b30d1939SAndy Fiddaman else if (!q)
113*b30d1939SAndy Fiddaman {
114*b30d1939SAndy Fiddaman if (c == '\'' || c == '"')
115*b30d1939SAndy Fiddaman q = c;
116*b30d1939SAndy Fiddaman else if (c == '#' && (b == (buf + 1) || (c = *(b - 2)) == ' ' || c == '\t'))
117*b30d1939SAndy Fiddaman {
118*b30d1939SAndy Fiddaman if (buf[n - 1] != '\n')
119*b30d1939SAndy Fiddaman {
120*b30d1939SAndy Fiddaman q = '#';
121*b30d1939SAndy Fiddaman n = b - buf - 2;
122*b30d1939SAndy Fiddaman }
123*b30d1939SAndy Fiddaman else if (n = b - buf - 1)
124*b30d1939SAndy Fiddaman buf[n - 1] = '\n';
125*b30d1939SAndy Fiddaman break;
126*b30d1939SAndy Fiddaman }
127*b30d1939SAndy Fiddaman }
128*b30d1939SAndy Fiddaman }
129*b30d1939SAndy Fiddaman if (n > 0)
130*b30d1939SAndy Fiddaman {
131*b30d1939SAndy Fiddaman if (!j && buf[n - 1] != '\n' && (s->_flags & SF_STRING))
132*b30d1939SAndy Fiddaman buf[n++] = '\n';
133*b30d1939SAndy Fiddaman if (q && buf[n - 1] == '\n')
134*b30d1939SAndy Fiddaman buf[n - 1] = '\r';
135*b30d1939SAndy Fiddaman }
136*b30d1939SAndy Fiddaman }
137*b30d1939SAndy Fiddaman } while (n <= 0);
138*b30d1939SAndy Fiddaman sfsetbuf(s, buf, n);
139*b30d1939SAndy Fiddaman d->quote = q;
140*b30d1939SAndy Fiddaman return 1;
141*b30d1939SAndy Fiddaman default:
142*b30d1939SAndy Fiddaman return 0;
143*b30d1939SAndy Fiddaman }
144*b30d1939SAndy Fiddaman }
145*b30d1939SAndy Fiddaman
146*b30d1939SAndy Fiddaman /*
147*b30d1939SAndy Fiddaman * open a stream to parse lines
148*b30d1939SAndy Fiddaman *
149*b30d1939SAndy Fiddaman * flags: 0 arg: open Sfio_t*
150*b30d1939SAndy Fiddaman * flags: SF_READ arg: file name
151*b30d1939SAndy Fiddaman * flags: SF_STRING arg: null terminated char*
152*b30d1939SAndy Fiddaman *
153*b30d1939SAndy Fiddaman * if line!=0 then it points to a line count that starts at 0
154*b30d1939SAndy Fiddaman * and is incremented for each input line
155*b30d1939SAndy Fiddaman */
156*b30d1939SAndy Fiddaman
157*b30d1939SAndy Fiddaman Sfio_t*
tokline(const char * arg,int flags,int * line)158*b30d1939SAndy Fiddaman tokline(const char* arg, int flags, int* line)
159*b30d1939SAndy Fiddaman {
160*b30d1939SAndy Fiddaman Sfio_t* f;
161*b30d1939SAndy Fiddaman Sfio_t* s;
162*b30d1939SAndy Fiddaman Splice_t* d;
163*b30d1939SAndy Fiddaman char* p;
164*b30d1939SAndy Fiddaman char* e;
165*b30d1939SAndy Fiddaman
166*b30d1939SAndy Fiddaman static int hidden;
167*b30d1939SAndy Fiddaman
168*b30d1939SAndy Fiddaman if (!(d = newof(0, Splice_t, 1, 0)))
169*b30d1939SAndy Fiddaman return 0;
170*b30d1939SAndy Fiddaman if (!(s = sfopen(NiL, NiL, "s")))
171*b30d1939SAndy Fiddaman {
172*b30d1939SAndy Fiddaman free(d);
173*b30d1939SAndy Fiddaman return 0;
174*b30d1939SAndy Fiddaman }
175*b30d1939SAndy Fiddaman if (!(flags & (SF_STRING|SF_READ)))
176*b30d1939SAndy Fiddaman f = (Sfio_t*)arg;
177*b30d1939SAndy Fiddaman else if (!(f = sfopen(NiL, arg, (flags & SF_STRING) ? "s" : "r")))
178*b30d1939SAndy Fiddaman {
179*b30d1939SAndy Fiddaman free(d);
180*b30d1939SAndy Fiddaman sfclose(s);
181*b30d1939SAndy Fiddaman return 0;
182*b30d1939SAndy Fiddaman }
183*b30d1939SAndy Fiddaman else if ((p = sfreserve(f, 0, 0)) && sfvalue(f) > 11 && strmatch(p, "#!!! +([-0-9]) *([!\n]) !!!\n*") && (e = strchr(p, '\n')))
184*b30d1939SAndy Fiddaman {
185*b30d1939SAndy Fiddaman flags = strtol(p + 5, &p, 10);
186*b30d1939SAndy Fiddaman error(flags, "%s:%-.*s", arg, e - p - 4, p);
187*b30d1939SAndy Fiddaman }
188*b30d1939SAndy Fiddaman d->disc.exceptf = spliceline;
189*b30d1939SAndy Fiddaman d->sp = f;
190*b30d1939SAndy Fiddaman *(d->line = line ? line : &hidden) = 0;
191*b30d1939SAndy Fiddaman sfdisc(s, (Sfdisc_t*)d);
192*b30d1939SAndy Fiddaman return s;
193*b30d1939SAndy Fiddaman }
194