Line data    Source code

       1             : %{
       2             : #include "lang.h"
       3             : #include "parser.h"
       4             : 
       5             : #define EXTRA ((struct lgfs2_lang_state *)yyextra)
       6             : 
       7             : #define P(token, type, text) do {\
       8             :         *(yylval) = ast_new(type, text);\
       9             :         if (*(yylval) == NULL) {\
      10             :                 EXTRA->ls_errnum = errno;\
      11             :                 return 1;\
      12             :         }\
      13             :         return (TOK_##token);\
      14             : } while(0)
      15             : 
      16             : #define COLNUM EXTRA->ls_colnum
      17             : #define YY_USER_ACTION COLNUM += yyleng;
      18             : 
      19             : %}
      20             : %option bison-bridge reentrant
      21             : %option warn debug
      22             : %option nounput noinput
      23             : %option noyywrap
      24             : %option extra-type="struct lgfs2_lang_state *"
      25             : 
      26             : letter                  [a-zA-Z_]
      27             : decdigit                [0-9]
      28             : decnumber               -?{decdigit}+
      29             : hexdigit                [0-9a-fA-F]
      30             : hexnumber               -?0x{hexdigit}+
      31             : number                  ({decnumber}|{hexnumber})
      32             : offset                  \+{number}
      33             : id                      {letter}({letter}|{decdigit}|\.)*
      34             : string                  \'([^\']|\\\')*\'
      35             : path                    \'\/([^\']|\\\')*\'
      36             : ccomment                \/\/.*\n
      37             : shcomment               \#.*\n
      38             : comment                 ({ccomment}|{shcomment})
      39             : whitespace              [ \t\r]+
      40             : 
      41             : %%
      42             : 
      43             : \{                      {
      44           8 :                         return TOK_LBRACE;
      45             :                         }
      46             : \}                      {
      47           8 :                         return TOK_RBRACE;
      48           8 :                         }
      49             : \[                      {
      50           0 :                         return TOK_LBRACKET;
      51           0 :                         }
      52             : \]                      {
      53           0 :                         P(RBRACKET, AST_EX_SUBSCRIPT, "[ ]");
      54           0 :                         }
      55             : \,                      {
      56           0 :                         return TOK_COMMA;
      57           0 :                         }
      58             : \:                      {
      59           8 :                         P(COLON, AST_EX_FIELDSPEC, yytext);
      60           8 :                         }
      61             : \;                      {
      62           0 :                         return TOK_SEMI;
      63           0 :                         }
      64             : set                     {
      65           8 :                         P(SET, AST_ST_SET, yytext);
      66           8 :                         }
      67             : get                     {
      68           0 :                         P(GET, AST_ST_GET, yytext);
      69           0 :                         }
      70             : state                   {
      71           0 :                         P(STATE, AST_KW_STATE, yytext);
      72           0 :                         }
      73             : {path}                  {
      74           1 :                         yytext[yyleng-1] = '\0';
      75           1 :                         P(PATH, AST_EX_PATH, yytext + 1);
      76           1 :                         }
      77             : {string}                {
      78           0 :                         yytext[yyleng-1] = '\0';
      79           0 :                         P(STRING, AST_EX_STRING, yytext + 1);
      80           0 :                         }
      81             : {offset}                {
      82           0 :                         P(OFFSET, AST_EX_OFFSET, yytext);
      83           0 :                         }
      84             : {number}                {
      85           8 :                         P(NUMBER, AST_EX_NUMBER, yytext);
      86           8 :                         }
      87             : {id}                    {
      88          15 :                         P(ID, AST_EX_ID, yytext);
      89          15 :                         }
      90             : {comment}               {
      91           0 :                         COLNUM = 0;
      92           0 :                         EXTRA->ls_linenum++;
      93           0 :                         }
      94           0 : <<EOF>>                     {
      95           8 :                         return 0;
      96             :                         }
      97             : \n                      {
      98           8 :                         COLNUM = 0;
      99           8 :                         EXTRA->ls_linenum++;
     100           8 :                         }
     101           8 : {whitespace}            ;
     102          40 : .                       {
     103          40 :                         printf("Unexpected character '%s' on line %d column %d\n",
     104           0 :                                yytext, yylineno, COLNUM);
     105           0 :                         return 1;
     106             :                         }
     107             : 
     108           0 : %%