4 * The Regents of the University of California. All rights reserved.
6 * This code is derived from software contributed to Berkeley by
7 * Paul Borman at Krystal Technologies.
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 static char sccsid[] = "@(#)lex.l 8.1 (Berkeley) 6/6/93";
40 #include <sys/cdefs.h>
41 __FBSDID("$FreeBSD$");
58 \'.\' { yylval.rune = (unsigned char)yytext[1];
61 '\\a' { yylval.rune = '\a';
63 '\\b' { yylval.rune = '\b';
65 '\\f' { yylval.rune = '\f';
67 '\\n' { yylval.rune = '\n';
69 '\\r' { yylval.rune = '\r';
71 '\\t' { yylval.rune = '\t';
73 '\\v' { yylval.rune = '\v';
76 0x{XDIGIT}+ { yylval.rune = strtol(yytext, 0, 16);
78 0{ODIGIT}+ { yylval.rune = strtol(yytext, 0, 8);
80 {DIGIT}+ { yylval.rune = strtol(yytext, 0, 10);
84 MAPLOWER { return(MAPLOWER); }
85 MAPUPPER { return(MAPUPPER); }
86 TODIGIT { return(DIGITMAP); }
87 INVALID { return(INVALID); }
89 ALPHA { yylval.i = _CTYPE_A|_CTYPE_R|_CTYPE_G;
91 CONTROL { yylval.i = _CTYPE_C;
93 DIGIT { yylval.i = _CTYPE_D|_CTYPE_R|_CTYPE_G;
95 GRAPH { yylval.i = _CTYPE_G|_CTYPE_R;
97 LOWER { yylval.i = _CTYPE_L|_CTYPE_R|_CTYPE_G;
99 PUNCT { yylval.i = _CTYPE_P|_CTYPE_R|_CTYPE_G;
101 SPACE { yylval.i = _CTYPE_S;
103 UPPER { yylval.i = _CTYPE_U|_CTYPE_R|_CTYPE_G;
105 XDIGIT { yylval.i = _CTYPE_X|_CTYPE_R|_CTYPE_G;
107 BLANK { yylval.i = _CTYPE_B;
109 PRINT { yylval.i = _CTYPE_R;
111 IDEOGRAM { yylval.i = _CTYPE_I|_CTYPE_R|_CTYPE_G;
113 SPECIAL { yylval.i = _CTYPE_T|_CTYPE_R|_CTYPE_G;
115 PHONOGRAM { yylval.i = _CTYPE_Q|_CTYPE_R|_CTYPE_G;
117 SWIDTH0 { yylval.i = _CTYPE_SW0; return(LIST); }
118 SWIDTH1 { yylval.i = _CTYPE_SW1; return(LIST); }
119 SWIDTH2 { yylval.i = _CTYPE_SW2; return(LIST); }
120 SWIDTH3 { yylval.i = _CTYPE_SW3; return(LIST); }
122 VARIABLE[\t ] { static char vbuf[1024];
124 while ((*v = input()) && *v != '\n')
134 ENCODING { return(ENCODING); }
136 \".*\" { char *e = yytext + 1;
138 while (*e && *e != '"')
143 \<|\(|\[ { return(LBRK); }
145 \>|\)|\] { return(RBRK); }
148 \.\.\. { return(THRU); }
158 if ((lc = input()) == 0)
160 } while((lc = input()) != '/');
164 . { printf("Lex is skipping '%s'\n", yytext); }