parse.y revision 178846 
1%{
2/*
3 * Copyright (c) 1998 - 2000 Kungliga Tekniska H�gskolan
4 * (Royal Institute of Technology, Stockholm, Sweden).
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 *
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 *
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 *
18 * 3. Neither the name of the Institute 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 INSTITUTE 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 INSTITUTE 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/* $FreeBSD: head/contrib/com_err/parse.y 178846 2008-05-08 11:01:46Z dfr $ */
35
36#include "compile_et.h"
37#include "lex.h"
38#if 0
39RCSID("$Id: parse.y 15426 2005-06-16 19:21:42Z lha $");
40#endif
41
42void yyerror (char *s);
43static long name2number(const char *str);
44
45extern char *yytext;
46
47/* This is for bison */
48
49#if !defined(alloca) && !defined(HAVE_ALLOCA)
50#define alloca(x) malloc(x)
51#endif
52
53%}
54
55%union {
56  char *string;
57  int number;
58}
59
60%token ET INDEX PREFIX EC ID END
61%token <string> STRING
62%token <number> NUMBER
63
64%%
65
66file		: /* */
67		| header statements
68		;
69
70header		: id et
71		| et
72		;
73
74id		: ID STRING
75		{
76		    id_str = $2;
77		}
78		;
79
80et		: ET STRING
81		{
82		    base_id = name2number($2);
83		    strlcpy(name, $2, sizeof(name));
84		    free($2);
85		}
86		| ET STRING STRING
87		{
88		    base_id = name2number($2);
89		    strlcpy(name, $3, sizeof(name));
90		    free($2);
91		    free($3);
92		}
93		;
94
95statements	: statement
96		| statements statement
97		;
98
99statement	: INDEX NUMBER
100		{
101			number = $2;
102		}
103		| PREFIX STRING
104		{
105		    free(prefix);
106		    asprintf (&prefix, "%s_", $2);
107		    if (prefix == NULL)
108			errx(1, "malloc");
109		    free($2);
110		}
111		| PREFIX
112		{
113		    prefix = realloc(prefix, 1);
114		    if (prefix == NULL)
115			errx(1, "malloc");
116		    *prefix = '\0';
117		}
118		| EC STRING ',' STRING
119		{
120		    struct error_code *ec = malloc(sizeof(*ec));
121
122		    if (ec == NULL)
123			errx(1, "malloc");
124
125		    ec->next = NULL;
126		    ec->number = number;
127		    if(prefix && *prefix != '\0') {
128			asprintf (&ec->name, "%s%s", prefix, $2);
129			if (ec->name == NULL)
130			    errx(1, "malloc");
131			free($2);
132		    } else
133			ec->name = $2;
134		    ec->string = $4;
135		    APPEND(codes, ec);
136		    number++;
137		}
138		| END
139		{
140			YYACCEPT;
141		}
142		;
143
144%%
145
146static long
147name2number(const char *str)
148{
149    const char *p;
150    long num = 0;
151    const char *x = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
152	"abcdefghijklmnopqrstuvwxyz0123456789_";
153    if(strlen(str) > 4) {
154	yyerror("table name too long");
155	return 0;
156    }
157    for(p = str; *p; p++){
158	char *q = strchr(x, *p);
159	if(q == NULL) {
160	    yyerror("invalid character in table name");
161	    return 0;
162	}
163	num = (num << 6) + (q - x) + 1;
164    }
165    num <<= 8;
166    if(num > 0x7fffffff)
167	num = -(0xffffffff - num + 1);
168    return num;
169}
170
171void
172yyerror (char *s)
173{
174     error_message ("%s\n", s);
175}
176