cpptolua.l

   1 %{
   2 #include "y.tab.h"
   3 #include <stdlib.h>
   4         void yyerror(char *);
   5         int idf(char *s);
   6 %}
   7
   8 %%
   9
  10 "class" { return CLASS; }
  11 [{};(),] {
  12         yylval.name = strdup(yytext);
  13 #ifdef DEBUG
  14         printf("read: %c\n", *yytext);
  15 #endif
  16         return *yytext;
  17 }
  18
  19
  20         /* identifiers */
  21 [a-zA-Z_0-9]+ {
  22         yylval.name = strdup(yytext);
  23 #ifdef DEBUG
  24         printf("read: %s\n", yytext);
  25         printf("idf: %i\n", idf(yytext));
  26 #endif
  27         return idf(yytext);
  28 }
  29
  30         /* skip whitespace */
  31 [ \t\n]+ ;
  32
  33         /* skip comments */
  34 \/\/.* ;
  35 \/\*([^*]|[\r\n]|(\*+([^*/]|[\r\n])))*\*+\/ ;
  36
  37         /* anything else is an error */
  38 . {
  39         printf("read: '%c'\n", *yytext);
  40         yyerror((char *)"invalid character");
  41 }
  42
  43 %%
  44
  45 int yywrap(void) {
  46         return 1;
  47 }
  48
  49 int idf(char *s)
  50 {
  51         char types[][99] = {"int", "float", ""};
  52         int i;
  53         for(i = 0; types[i][0]; i++) {
  54                 if(!strcmp(types[i], s)) {
  55                         return TYPE;
  56                 }
  57         }
  58         return IDF;
  59 }