unifdef m17n out
[alioth/magicpoint.git] / scanner.l
1 %{
2 /*
3  * Copyright (C) 1997 and 1998 WIDE Project.  All rights reserved.
4  * 
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. Neither the name of the project nor the names of its contributors
14  *    may be used to endorse or promote products derived from this software
15  *    without specific prior written permission.
16  * 
17  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  */
29 /*
30  * $Id: scanner.l,v 1.29 2010/05/03 22:28:00 nishida Exp $
31  */
32 /*
33  * partly derived from lbl libpcap source code, which has the following
34  * copyright notice:
35  */
36 /*
37  * Copyright (c) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996
38  *      The Regents of the University of California.  All rights reserved.
39  *
40  * Redistribution and use in source and binary forms, with or without
41  * modification, are permitted provided that: (1) source code distributions
42  * retain the above copyright notice and this paragraph in its entirety, (2)
43  * distributions including binary code include the above copyright notice and
44  * this paragraph in its entirety in the documentation or other materials
45  * provided with the distribution, and (3) all advertising materials mentioning
46  * features or use of this software display the following acknowledgement:
47  * ``This product includes software developed by the University of California,
48  * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
49  * the University nor the names of its contributors may be used to endorse
50  * or promote products derived from this software without specific prior
51  * written permission.
52  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
53  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
54  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
55  *
56  */
57
58 #include "mgp.h"
59 #include "tokdefs.h"
60
61 static int stoi __P((char *));
62 static inline int xdtoi __P((int));
63
64 #ifdef FLEX_SCANNER
65 #define YY_NO_UNPUT
66 #undef YY_INPUT
67 #define YY_INPUT(buf, result, max)\
68  {\
69         char *src = in_buffer;\
70         int i;\
71 \
72         if (*src == 0)\
73                 result = YY_NULL;\
74         else {\
75                 for (i = 0; *src && i < max; ++i)\
76                         buf[i] = *src++;\
77                 in_buffer += i;\
78                 result = i;\
79         }\
80  }
81 #else
82 #undef getc
83 #define getc(fp)  (*in_buffer == 0 ? EOF : *in_buffer++)
84 #endif
85
86 /*#define yylval mgp_lval*/
87 extern YYSTYPE yylval;
88 extern int n_errors;
89 #ifdef HAVE_STDARG_H
90 /* GCC complains if we declare this function in traditional style */
91 extern void yyerror(char *, ...);
92 #else
93 extern void yyerror(char *);
94 #endif
95
96 static char *in_buffer;
97 %}
98
99 N       (-[0-9]+|[0-9]+|(0x|0X)[0-9A-Fa-f]+)
100 JISIN   (\033$B|\033$@)
101 ASCIIIN (\033\(B|\033\(J)
102 ASTR    [\040-\176]*
103 ASTRN   [\040\041\043-\176]*
104 JSTR    {JISIN}([\041-\176][\041-\176])*{ASCIIIN}
105 XSTR    [\240-\377]*
106
107 %a 6000
108 %p 4000
109 %o 8000
110
111 %%
112 (NOOP|noop)             return KW_NOOP;
113 (DEFAULT|default)       return KW_DEFAULT;
114 (TAB|tab)               return KW_TAB;
115 (SIZE|size)             return KW_SIZE;
116 (FORE|fore)             return KW_FORE;
117 (BACK|back)             return KW_BACK;
118 (LEFT|left)             return KW_LEFT;
119 (LEFTFILL|leftfill)     return KW_LEFTFILL;
120 (CENTER|center)         return KW_CENTER;
121 (RIGHT|right)           return KW_RIGHT;
122 (SHRINK|shrink)         return KW_SHRINK;
123 (LCUTIN|lcutin)         return KW_LCUTIN;
124 (RCUTIN|rcutin)         return KW_RCUTIN;
125 (CONT|cont)             return KW_CONT;
126 (NODEFAULT|nodefault)   return KW_NODEF;
127 (XFONT|xfont)           return KW_XFONT;
128 (VFONT|vfont)           return KW_VFONT;
129 (TFONT|tfont)           return KW_TFONT;
130 (TMFONT|tmfont)         return KW_TMFONT;
131 (IMAGE|image)           return KW_IMAGE;
132 (NEWIMAGE|newimage)     return KW_NEWIMAGE;
133 (BIMAGE|bimage)         return KW_BIMAGE;
134 (PAGE|page)             return KW_PAGE;
135 (HGAP|hgap)             return KW_HGAP;
136 (VGAP|vgap)             return KW_VGAP;
137 (GAP|gap)               return KW_GAP;
138 (PAUSE|pause)           return KW_PAUSE;
139 (PREFIX|prefix)         return KW_PREFIX;
140 (AGAIN|again)           return KW_AGAIN;
141 (CCOLOR|ccolor)         return KW_CCOLOR;
142 (BAR|bar)               return KW_BAR;
143 (INCLUDE|include)       return KW_INCLUDE;
144 (BGRAD|bgrad)           return KW_BGRAD;
145 (TEXT|text)             return KW_TEXT;
146 (LINESTART|linestart)   return KW_LINESTART;
147 (LINEEND|lineend)       return KW_LINEEND;
148 (MARK|mark)             return KW_MARK;
149 (SYSTEM|system)         return KW_SYSTEM;
150 (XSYSTEM|xsystem)       return KW_XSYSTEM;
151 (TSYSTEM|tsystem)       return KW_TSYSTEM;
152 (FILTER|filter)         return KW_FILTER;
153 (ENDFILTER|endfilter)   return KW_ENDFILTER;
154 (BQUALITY|bquality)     return KW_QUALITY;
155 (ICON|icon)             return KW_ICON;
156 (VFCAP|vfcap)           return KW_VFCAP;
157 (TFDIR|tfdir)           return KW_TFDIR;
158 (DEFFONT|deffont)       return KW_DEFFONT;
159 (TFONT0|tfont0)         return KW_TFONT0;
160 (TMFONT0|tmfont0)       return KW_TMFONT0;
161 (FONT|font)             return KW_FONT;
162 (EMBED|embed)           return KW_EMBED;
163 (ENDEMBED|endembed)     return KW_ENDEMBED;
164 (CHARSET|charset)       return KW_CHARSET;
165 (PCACHE|pcache) return KW_PCACHE;
166 (VALIGN|valign) return KW_VALIGN;
167 (AREA|area)     return KW_AREA;
168 (OPAQUE|opaque) return KW_OPAQUE;
169 (SUP|sup)       return KW_SUP;
170 (SUB|sub)       return KW_SUB;
171 (SETSUP|setsup) return KW_SETSUP;
172 (PSFONT|psfont) return KW_PSFONT;
173 (TITLE|title)           return KW_TITLE;
174
175 [ \n\t]         ;
176 ","             return COMMA;
177 [0-9][0-9]*x[0-9][0-9]* { yylval.s = strdup((char *)yytext); return WINSIZ; }
178 {N}             { yylval.i = stoi((char *)yytext); return NUM; }
179 [0-9][0-9]*\.[0-9][0-9]*        { yylval.d = atof((char *)yytext); return DOUBLE; }
180 [-_.A-Za-z][-_.<>A-Za-z0-9]*    { yylval.s = strdup((char *)yytext); return ID; }
181 \"({XSTR}|{ASTRN})({JSTR}{ASTRN}|{XSTR})*\" {
182                         yylval.s = strdup((char *)yytext) + 1;
183                         if (strlen(yylval.s))
184                                 yylval.s[strlen(yylval.s) - 1] = '\0';
185                         return STR;
186                 }
187 \"({XSTR}|{ASTRN})*\" {
188                         if (mgp_flag & FL_NOFORK) {
189                                 yyerror("invalid character <%c>", *(char *)yytext);
190                         } else {
191                                 yylval.s = strdup((char *)yytext) + 1;
192                                 if (strlen(yylval.s))
193                                         yylval.s[strlen(yylval.s) - 1] = '\0';
194                                 return STR;
195                         }       
196                 }
197 .               {
198                   yyerror("invalid character <%c>", *(char *)yytext);
199                 }
200 %%
201
202 void
203 lex_init(buf)
204         char *buf;
205 {
206         n_errors = 0;
207         in_buffer = buf;
208 }
209
210 /*
211  * Also define a yywrap.  Note that if we're using flex, it will
212  * define a macro to map this identifier to pcap_wrap.
213  */
214 int
215 yywrap()
216 {
217         return 1;
218 }
219
220 /* Hex digit to integer. */
221 static inline int
222 xdtoi(c)
223         register int c;
224 {
225         if (isdigit(c))
226                 return c - '0';
227         else if (islower(c))
228                 return c - 'a' + 10;
229         else
230                 return c - 'A' + 10;
231 }
232
233 /*
234  * Convert string to integer.  Just like atoi(), but checks for
235  * preceding 0x or 0 and uses hex or octal instead of decimal.
236  */
237 static int
238 stoi(s)
239         char *s;
240 {
241         int base = 10;
242         int n = 0;
243         int sign;
244
245         sign = 1;
246         if (*s == '0') {
247                 if (s[1] == 'x' || s[1] == 'X') {
248                         s += 2;
249                         base = 16;
250                 }
251                 else {
252                         base = 8;
253                         s += 1;
254                 }
255         } else if (*s == '-') {
256                 sign = -1;
257                 s++;
258         }
259         while (*s)
260                 n = n * base + xdtoi(*s++);
261
262         return n * sign;
263 }