Now that the base issue is fixed, enable -Wsign-compare again in scanners.
[dragonfly.git] / usr.sbin / config / lang.l
CommitLineData
984263bc
MD
1%{
2/*-
3 * Copyright (c) 1980, 1993
4 * The Regents of the University of California. All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 * 3. All advertising materials mentioning features or use of this software
15 * must display the following acknowledgement:
16 * This product includes software developed by the University of
17 * California, Berkeley and its contributors.
18 * 4. Neither the name of the University nor the names of its contributors
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 *
34 * @(#)lang.l 8.1 (Berkeley) 6/6/93
35 * $FreeBSD: src/usr.sbin/config/lang.l,v 1.27 1999/11/09 07:20:22 peter Exp $
36 */
37
38#include <ctype.h>
39#include <string.h>
40#include "y.tab.h"
41#include "config.h"
42
984263bc
MD
43/*
44 * Key word table
45 */
46
47struct kt {
67c34974 48 const char *kt_name;
984263bc
MD
49 int kt_val;
50} key_words[] = {
51 { "at", AT },
52 { "bus", BUS },
984263bc 53 { "config", CONFIG },
984263bc
MD
54 { "cpu", CPU },
55 { "device", DEVICE },
56 { "disable", DISABLE },
984263bc
MD
57 { "drive", DRIVE },
58 { "drq", DRQ },
59 { "flags", FLAGS },
60 { "ident", IDENT },
61 { "iomem", IOMEM },
62 { "iosiz", IOSIZ },
63 { "irq", IRQ },
e2ea6619
MD
64 { "machine", CONFIG_MACHINE },
65 { "machine_arch", CONFIG_MACHINE_ARCH },
984263bc
MD
66 { "makeoptions", MAKEOPTIONS },
67 { "maxusers", MAXUSERS },
68 { "nexus", NEXUS },
69 { "option", OPTIONS },
70 { "options", OPTIONS },
0955fd91 71 { "platform", CONFIG_PLATFORM },
984263bc
MD
72 { "port", PORT },
73 { "pseudo-device",PSEUDO_DEVICE },
984263bc
MD
74 { "target", TARGET },
75 { "unit", UNIT },
76 { 0, 0 },
77};
78
79
2d8a3be7
EN
80int kw_lookup(char *);
81int octal(char *);
82int hex(char *);
984263bc
MD
83
84%}
85WORD [A-Za-z_][-A-Za-z_]*
86ID [A-Za-z_][-A-Za-z_0-9]*
87%START NONUM TOEOL
eb74dec6
JM
88%option noinput
89%option nounput
984263bc
MD
90%%
91<NONUM>{WORD} {
92 int i;
93
94 BEGIN 0;
95 if ((i = kw_lookup(yytext)) == -1)
96 {
97 yylval.str = strdup(yytext);
1c5ef3d3 98 return(ID);
984263bc 99 }
52da1405 100 return(i);
984263bc
MD
101 }
102<INITIAL>{WORD}/[0-9]* {
103 int i;
104
105 if ((i = kw_lookup(yytext)) == -1)
106 REJECT;
7c34091c 107 if (i == DEVICE || i == PSEUDO_DEVICE || i == AT)
984263bc 108 BEGIN NONUM;
52da1405 109 return(i);
984263bc
MD
110 }
111<INITIAL>{ID} {
112 BEGIN 0;
113 yylval.str = strdup(yytext);
52da1405 114 return(ID);
984263bc
MD
115 }
116\\\"[^"]+\\\" {
117 BEGIN 0;
118 yytext[yyleng-2] = '"';
119 yytext[yyleng-1] = '\0';
120 yylval.str = strdup(yytext + 1);
52da1405 121 return(ID);
984263bc
MD
122 }
123\"[^"]+\" {
124 BEGIN 0;
125 yytext[yyleng-1] = '\0';
126 yylval.str = strdup(yytext + 1);
52da1405 127 return(ID);
984263bc
MD
128 }
129<TOEOL>[^# \t\n]* {
130 BEGIN 0;
131 yylval.str = strdup(yytext);
52da1405 132 return(ID);
984263bc
MD
133 }
1340[0-7]* {
135 yylval.val = octal(yytext);
52da1405 136 return(NUMBER);
984263bc
MD
137 }
1380x[0-9a-fA-F]+ {
139 yylval.val = hex(yytext);
52da1405 140 return(NUMBER);
984263bc
MD
141 }
142-?[1-9][0-9]* {
143 yylval.val = atoi(yytext);
52da1405 144 return(NUMBER);
984263bc
MD
145 }
146[0-9]"."[0-9]* {
52da1405
EN
147 yylval.val = (int)(60 * atof(yytext) + 0.5);
148 return(FPNUMBER);
984263bc
MD
149 }
150"?" {
151 yylval.val = -1;
52da1405 152 return(NUMBER);
984263bc
MD
153 }
154\n/[ \t] {
155 yyline++;
156 }
157\n {
158 yyline++;
52da1405 159 return(SEMICOLON);
984263bc
MD
160 }
161#.* { /* Ignored (comment) */; }
162[ \t\f]* { /* Ignored (white space) */; }
52da1405
EN
163";" { return(SEMICOLON); }
164"," { return(COMMA); }
165"=" { BEGIN TOEOL; return(EQUALS); }
166"@" { return(AT); }
167. { return(yytext[0]); }
984263bc
MD
168
169%%
170/*
171 * kw_lookup
172 * Look up a string in the keyword table. Returns a -1 if the
173 * string is not a keyword otherwise it returns the keyword number
174 */
175
176int
c0c7f013 177kw_lookup(char *word)
984263bc 178{
c0c7f013 179 struct kt *kp;
984263bc 180
52c13bff 181 for (kp = key_words; kp->kt_name != NULL; kp++)
227147e5 182 if (!strcmp(word, kp->kt_name))
52da1405
EN
183 return(kp->kt_val);
184 return(-1);
984263bc
MD
185}
186
187/*
188 * Number conversion routines
189 */
190
191int
c0c7f013 192octal(char *str)
984263bc
MD
193{
194 int num;
195
08fdb9c1 196 sscanf(str, "%o", &num);
52da1405 197 return(num);
984263bc
MD
198}
199
200int
c0c7f013 201hex(char *str)
984263bc
MD
202{
203 int num;
204
08fdb9c1 205 sscanf(str + 2, "%x", &num);
52da1405 206 return(num);
984263bc 207}