src/common/parser.y

   1  %{
   2 #include "wx/setup.h"
   3 #include <string.h>
   4 #ifdef _MSC_VER
   5 #include <io.h>
   6 #endif
   7 #if defined(__GNUWIN32__) && !defined(__TWIN32__)
   8 #include <sys/unistd.h>
   9 #endif
  10
  11 #include "wx/expr.h"
  12
  13 #ifndef __EXTERN_C__
  14 #define __EXTERN_C__ 1
  15 #endif
  16
  17 #if defined(__cplusplus) || defined(__STDC__)
  18 #if defined(__cplusplus) && defined(__EXTERN_C__)
  19 extern "C" {
  20 #endif
  21 #endif
  22 int yylex(void);
  23 int yylook(void);
  24 int yywrap(void);
  25 int yyback(int *, int);
  26 void yyerror(char *);
  27
  28 /* You may need to put /DLEX_SCANNER in your makefile
  29  * if you're using LEX!
  30  */
  31 void yyoutput(int);
  32
  33 #if defined(__cplusplus) || defined(__STDC__)
  34 #if defined(__cplusplus) && defined(__EXTERN_C__)
  35 }
  36 #endif
  37 #endif
  38 %}
  39
  40 %union {
  41     char *s;
  42 /*    struct pexpr *expr; */
  43 }
  44
  45
  46 %start commands
  47
  48 %token <s> INTEGER 1
  49 %token <s> WORD 2
  50 %token <s> STRING 3
  51 %token <s> PERIOD 13
  52 %token OPEN 4
  53 %token CLOSE 5
  54 %token COMMA 6
  55 %token NEWLINE 7
  56 %token ERROR 8
  57 %token OPEN_SQUARE 9
  58 %token CLOSE_SQUARE 10
  59 %token EQUALS 11
  60 %token EXP 14
  61
  62 /* %type <expr> command expr arglist arg arg1 */
  63 %type <s> command expr arglist arg arg1
  64
  65 %%
  66
  67 commands :      /* empty */
  68         |       commands command
  69         ;
  70
  71 command :       WORD PERIOD
  72                         {process_command(proio_cons(wxmake_word($1), NULL)); free($1);}
  73         |       expr PERIOD
  74                         {process_command($1);}
  75         |       error PERIOD
  76                         {syntax_error("Unrecognized command.");}
  77         ;
  78
  79 expr    :       WORD OPEN arglist CLOSE
  80                         {$$ = proio_cons(wxmake_word($1), $3); free($1);}
  81         |       OPEN_SQUARE arglist CLOSE_SQUARE
  82                         {$$ = $2; }
  83         ;
  84
  85 arglist :
  86                         {$$ = proio_cons(NULL, NULL);}
  87         |       arg
  88                         {$$ = proio_cons($1, NULL);}
  89         |
  90                 arg COMMA arglist
  91                         {$$ = proio_cons($1, $3);}
  92         ;
  93
  94 arg     :       WORD EQUALS arg1
  95                         {$$ = proio_cons(wxmake_word("="), proio_cons(wxmake_word($1), proio_cons($3, NULL)));
  96                          free($1); }
  97         |       arg1
  98                         {$$ = $1; }
  99
 100 arg1    :       WORD
 101                         {$$ = wxmake_word($1); free($1);}
 102         |       STRING
 103                         {$$ = wxmake_string($1); free($1);}
 104         |       INTEGER
 105                         {$$ = wxmake_integer($1); free($1);}
 106         |       INTEGER PERIOD INTEGER
 107                         {$$ = wxmake_real($1, $3); free($1); free($3); }
 108         |       INTEGER EXP INTEGER
 109                          {$$ = wxmake_exp($1, $3); free($1); free($3); }
 110         |
 111               INTEGER PERIOD INTEGER EXP INTEGER
 112                          {$$ = wxmake_exp2($1, $3, $5); free($1); free($3);
 113                                                                   free($5); }
 114
 115         |       expr
 116                         {$$ = $1;}
 117         ;
 118
 119 %%
 120
 121 /* We include lexer.c if we are building for gtk, wine or motif
 122  * and also whenever we are using configure (marked by __WX_SETUP_H__) for,
 123  * for example, cross compilation. */
 124 #if (defined(__WXGTK__) || defined(__WXWINE__) || defined(__WXMOTIF__)) || defined(__WX_SETUP_H__) && !defined(NO_CONFIGURE)
 125 #include "lexer.c"
 126 #else
 127 #if (defined(__MWERKS__))
 128 #include "../common/cwlex_yy.c"
 129 #else
 130 #include "../common/lex_yy.c"
 131 #endif
 132 #endif
 133
 134 /*
 135 void yyerror(s)
 136 char *s;
 137 {
 138   syntax_error(s);
 139 }
 140 */
 141
 142 /* Ansi prototype. If this doesn't work for you... uncomment
 143    the above instead.
 144  */
 145
 146 void yyerror(char *s)
 147 {
 148   syntax_error(s);
 149 }
 150
 151 /*
 152  * Unfortunately, my DOS version of FLEX
 153  * requires yywrap to be #def'ed, whereas
 154  * the UNIX flex expects a proper function.
 155  */
 156
 157 /* At least on alphaev6-dec-osf4.0e yywrap() must be #define'd.
 158  * RL: ... but on Debian/Alpha(linux) it must not, so hopefully
 159  *     testing for __OSF__ here is what we really want.
 160  */
 161 #ifdef __OSF__
 162 #ifndef yywrap
 163 #define yywrap() 1
 164 #endif
 165 #else
 166 /* HH: Added test for __WX_SETUP_H__ for gnuwin builds
 167  * using configure */
 168 #if !defined(__SC__) && !defined(__GNUWIN32__)
 169 #ifdef USE_DEFINE
 170 #ifndef yywrap
 171 #define yywrap() 1
 172 #endif
 173 #elif !defined(__ultrix)
 174 int yywrap() { return 1; }
 175 #elif defined(__VMS__)
 176 int yywrap() { return 1; }
 177 #endif
 178 #elif defined(__WX_SETUP_H__)
 179 int yywrap() { return 1; }
 180 #endif
 181 #endif
 182