distrib/sources/tas/tut/libarea.l

   1 %{
   2 #include MUT_H
   3 #include <string.h>
   4 #include "libarea.tab.h"
   5
   6 #define YY_NO_UNPUT
   7
   8 int lib_flagcell=0;
   9 int lib_flagarea=0;
  10 extern ht  *tut_tablasharea;
  11 long lib_get;
  12 char *lib_name;
  13 %}
  14
  15
  16 cell          [cC][eE][lL][lL]
  17 area          [aA][rR][eE][aA]
  18 id            [^ ():;\t\n\r]*
  19 wsp           [ ():;\t\n\r]*
  20
  21
  22
  23 %%
  24
  25 {cell}        {  lib_flagcell=1 ;}
  26
  27 {area}        {  lib_flagarea=1 ;}
  28
  29 {id}          {
  30                   if(lib_flagcell) {
  31                       libarealval.text = namealloc (yytext) ;
  32                       lib_name=libarealval.text;
  33                       lib_flagcell=0;
  34                   }
  35                   if(lib_flagarea) {
  36                       libarealval.real = strtod (yytext, (char**)NULL);
  37                       lib_flagarea=0;
  38                       lib_get=addhtitem(tut_tablasharea,lib_name,(long)(libarealval.real*1000.0));
  39                   }
  40
  41               }
  42 {wsp}         {;}
  43
  44
  45 %%
  46
  47
  48
  49 int yywrap () { return 1 ; }