PageRenderTime 21ms CodeModel.GetById 13ms app.highlight 3ms RepoModel.GetById 2ms app.codeStats 0ms

/usr.bin/mklocale/lex.l

https://bitbucket.org/freebsd/freebsd-head/
LEX | 173 lines | 120 code | 22 blank | 31 comment | 0 complexity | 11d52a393536544ff7207e6dcff0db10 MD5 | raw file
  1%{
  2/*-
  3 * Copyright (c) 1993
  4 *	The Regents of the University of California.  All rights reserved.
  5 *
  6 * This code is derived from software contributed to Berkeley by
  7 * Paul Borman at Krystal Technologies.
  8 *
  9 * Redistribution and use in source and binary forms, with or without
 10 * modification, are permitted provided that the following conditions
 11 * are met:
 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.
 20 *
 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
 31 * SUCH DAMAGE.
 32 */
 33
 34#ifndef lint
 35#if 0
 36static char sccsid[] = "@(#)lex.l	8.1 (Berkeley) 6/6/93";
 37#endif
 38#endif /* not lint */
 39
 40#include <sys/cdefs.h>
 41__FBSDID("$FreeBSD$");
 42
 43#include <ctype.h>
 44#include <stdio.h>
 45#include <stdlib.h>
 46
 47#include "ldef.h"
 48#include "y.tab.h"
 49#include "extern.h"
 50%}
 51
 52ODIGIT	[0-7]
 53DIGIT	[0-9]
 54XDIGIT	[0-9a-fA-F]
 55W	[\t\n\r ]
 56
 57%%
 58\'.\'				{ yylval.rune = (unsigned char)yytext[1];
 59				  return(RUNE); }
 60
 61'\\a'				{ yylval.rune = '\a';
 62				  return(RUNE); }
 63'\\b'				{ yylval.rune = '\b';
 64				  return(RUNE); }
 65'\\f'				{ yylval.rune = '\f';
 66				  return(RUNE); }
 67'\\n'				{ yylval.rune = '\n';
 68				  return(RUNE); }
 69'\\r'				{ yylval.rune = '\r';
 70				  return(RUNE); }
 71'\\t'				{ yylval.rune = '\t';
 72				  return(RUNE); }
 73'\\v'				{ yylval.rune = '\v';
 74				  return(RUNE); }
 75
 760x{XDIGIT}+			{ yylval.rune = strtol(yytext, 0, 16);
 77				  return(RUNE); }
 780{ODIGIT}+			{ yylval.rune = strtol(yytext, 0, 8);
 79				  return(RUNE); }
 80{DIGIT}+			{ yylval.rune = strtol(yytext, 0, 10);
 81				  return(RUNE); }
 82
 83
 84MAPLOWER			{ return(MAPLOWER); }
 85MAPUPPER			{ return(MAPUPPER); }
 86TODIGIT				{ return(DIGITMAP); }
 87INVALID				{ return(INVALID); }
 88
 89ALPHA				{ yylval.i = _CTYPE_A|_CTYPE_R|_CTYPE_G;
 90				  return(LIST); }
 91CONTROL				{ yylval.i = _CTYPE_C;
 92				  return(LIST); }
 93DIGIT				{ yylval.i = _CTYPE_D|_CTYPE_R|_CTYPE_G;
 94				  return(LIST); }
 95GRAPH				{ yylval.i = _CTYPE_G|_CTYPE_R;
 96				  return(LIST); }
 97LOWER				{ yylval.i = _CTYPE_L|_CTYPE_R|_CTYPE_G;
 98				  return(LIST); }
 99PUNCT				{ yylval.i = _CTYPE_P|_CTYPE_R|_CTYPE_G;
100				  return(LIST); }
101SPACE				{ yylval.i = _CTYPE_S;
102				  return(LIST); }
103UPPER				{ yylval.i = _CTYPE_U|_CTYPE_R|_CTYPE_G;
104				  return(LIST); }
105XDIGIT				{ yylval.i = _CTYPE_X|_CTYPE_R|_CTYPE_G;
106				  return(LIST); }
107BLANK				{ yylval.i = _CTYPE_B;
108				  return(LIST); }
109PRINT				{ yylval.i = _CTYPE_R;
110				  return(LIST); }
111IDEOGRAM			{ yylval.i = _CTYPE_I|_CTYPE_R|_CTYPE_G;
112				  return(LIST); }
113SPECIAL				{ yylval.i = _CTYPE_T|_CTYPE_R|_CTYPE_G;
114				  return(LIST); }
115PHONOGRAM			{ yylval.i = _CTYPE_Q|_CTYPE_R|_CTYPE_G;
116				  return(LIST); }
117SWIDTH0				{ yylval.i = _CTYPE_SW0; return(LIST); }
118SWIDTH1				{ yylval.i = _CTYPE_SW1; return(LIST); }
119SWIDTH2				{ yylval.i = _CTYPE_SW2; return(LIST); }
120SWIDTH3				{ yylval.i = _CTYPE_SW3; return(LIST); }
121
122VARIABLE[\t ]			{ static char vbuf[1024];
123				  char *v = vbuf;
124				  while ((*v = input()) && *v != '\n')
125					++v;
126                                  if (*v) {
127					unput(*v);
128					*v = 0;
129				  }
130				  yylval.str = vbuf;
131				  return(VARIABLE);
132				}
133
134ENCODING			{ return(ENCODING); }
135
136\".*\"				{ char *e = yytext + 1;
137				  yylval.str = e;
138				  while (*e && *e != '"')
139					++e;
140				  *e = 0;
141				  return(STRING); }
142
143\<|\(|\[			{ return(LBRK); }
144
145\>|\)|\]			{ return(RBRK); }
146
147\-				{ return(THRU); }
148\.\.\.				{ return(THRU); }
149
150\:				{ return(':'); }
151
152{W}+				;
153
154^\#.*\n				;
155\/\*				{ char lc = 0;
156				  do {
157				    while ((lc) != '*')
158					if ((lc = input()) == 0)
159					    break;
160				  } while((lc = input()) != '/');
161				}
162
163\\$				;
164.				{ printf("Lex is skipping '%s'\n", yytext); }
165%%
166
167#if	!defined(yywrap)
168int
169yywrap(void)
170{
171	return(1);
172}
173#endif