contrib/com_err/parse.y

   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$ */
  35
  36 #include "compile_et.h"
  37 #include "lex.h"
  38 #if 0
  39 RCSID("$Id: parse.y,v 1.11 2000/06/22 00:42:52 assar Exp $");
  40 #endif
  41
  42 void yyerror (char *s);
  43 static long name2number(const char *str);
  44
  45 extern 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
  66 file            : /* */
  67                 | header statements
  68                 ;
  69
  70 header          : id et
  71                 | et
  72                 ;
  73
  74 id              : ID STRING
  75                 {
  76                     id_str = $2;
  77                 }
  78                 ;
  79
  80 et              : ET STRING
  81                 {
  82                     base = name2number($2);
  83                     strncpy(name, $2, sizeof(name));
  84                     name[sizeof(name) - 1] = '\0';
  85                     free($2);
  86                 }
  87                 | ET STRING STRING
  88                 {
  89                     base = name2number($2);
  90                     strncpy(name, $3, sizeof(name));
  91                     name[sizeof(name) - 1] = '\0';
  92                     free($2);
  93                     free($3);
  94                 }
  95                 ;
  96
  97 statements      : statement
  98                 | statements statement
  99                 ;
 100
 101 statement       : INDEX NUMBER
 102                 {
 103                         number = $2;
 104                 }
 105                 | PREFIX STRING
 106                 {
 107                     prefix = realloc(prefix, strlen($2) + 2);
 108                     strcpy(prefix, $2);
 109                     strcat(prefix, "_");
 110                     free($2);
 111                 }
 112                 | PREFIX
 113                 {
 114                     prefix = realloc(prefix, 1);
 115                     *prefix = '\0';
 116                 }
 117                 | EC STRING ',' STRING
 118                 {
 119                     struct error_code *ec = malloc(sizeof(*ec));
 120
 121                     ec->next = NULL;
 122                     ec->number = number;
 123                     if(prefix && *prefix != '\0') {
 124                         asprintf (&ec->name, "%s%s", prefix, $2);
 125                         free($2);
 126                     } else
 127                         ec->name = $2;
 128                     ec->string = $4;
 129                     APPEND(codes, ec);
 130                     number++;
 131                 }
 132                 | END
 133                 {
 134                         YYACCEPT;
 135                 }
 136                 ;
 137
 138 %%
 139
 140 static long
 141 name2number(const char *str)
 142 {
 143     const char *p;
 144     long base = 0;
 145     const char *x = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 146         "abcdefghijklmnopqrstuvwxyz0123456789_";
 147     if(strlen(str) > 4) {
 148         yyerror("table name too long");
 149         return 0;
 150     }
 151     for(p = str; *p; p++){
 152         char *q = strchr(x, *p);
 153         if(q == NULL) {
 154             yyerror("invalid character in table name");
 155             return 0;
 156         }
 157         base = (base << 6) + (q - x) + 1;
 158     }
 159     base <<= 8;
 160     if(base > 0x7fffffff)
 161         base = -(0xffffffff - base + 1);
 162     return base;
 163 }
 164
 165 void
 166 yyerror (char *s)
 167 {
 168      error_message ("%s\n", s);
 169 }