readcuiksystem.l

Go to the documentation of this file.

%{ 

#include <stdlib.h> 
#include <string.h>

#include "defines.h" 
#include "error.h"
#include "readcuiksystemtypes.h" 
#include "readcuiksystem.tab.h" 
int Readcuiksystemlex(void);

extern unsigned int RCSline;

%} 
 
%s IN_COMMENT

EMPTY                           [ \t]+ 
RETURN                          \n
DIGIT                           [0-9] 
LETTER                          [a-zA-Z] 
R_NUMBER                        (({DIGIT}+(\.{DIGIT}+)?)|(\.{DIGIT}+))((E|e)[+-]?{DIGIT}+)? 
I_NUMBER                        {DIGIT}+ 
IDENTIFIER                      {LETTER}({DIGIT}|{LETTER}|"_")* 
COMMENT                         \%[^{\n|\{}]*
COMMENT2                        \#[^{\n|\{}]*
COMMENT3                        \/\/[^{\n|\{}]*
 
%%
{COMMENT}                       { }  
{COMMENT2}                      { }   
{COMMENT3}                      { }   

<INITIAL>{
  "/*"              BEGIN(IN_COMMENT);
}
<IN_COMMENT>{
  "*/"      BEGIN(INITIAL);
  [^*\n]+   // eat comment in chunks
  "*"       // eat the lone star
  \n        RCSline++;
}

{EMPTY}                         { } 

{RETURN}                        { RCSline++; } 

"[CONSTANTS]"                   {
                                  return(_CONSTANTS);
                                }

"[SYSTEM VARS]"                 {
                                  return(_SYSTEM_VARS);
                                }

"[SECONDARY VARS]"              {
                                  return(_SECONDARY_VARS);
                                }

"[DUMMY VARS]"                  {
                                  return(_DUMMY_VARS);
                                }

"[CARTESIAN VARS]"              {
                                  return(_CARTESIAN_VARS);
                                }

"[SYSTEM EQS]"                  {
                                  return(_SYSTEM_EQS);
                                }

"[COORD EQS]"                   {
                                  return(_COORD_EQS);
                                }

"[DUMMY EQS]"                   {
                                  return(_DUMMY_EQS);
                                }

"[SEARCH]"                      {
                                  return(_SEARCH);
                                }

DEPTH                           {
                                  return(_DEPTH);
                                }

FIRST                           {
                                  return(_FIRST);
                                }

BREADTH                         {
                                  return(_BREADTH);
                                }

MIN                             { 
                                  return(_MIN);
                                }

INF                             { 
                                  return(_INF);
                                }

PI                              {
                                  return(_PI);
                                }

SIN                             {
                                  return(_SIN);
                                }

COS                             {
                                  return(_COS);
                                }

SQRT                            {
                                  return(_SQRT);
                                }

"="                             {
                                  return(_EQU); 
                                }

">="                            {
                                  return(_GEQ); 
                                }

"<="                            {
                                  return(_LEQ); 
                                }

":="                            {
                                  return(_ASSIGN); 
                                }

{I_NUMBER}                      { 
                                  char string_tmp[100];
                                  
                                  memcpy(string_tmp,Readcuiksystemtext,(unsigned int)Readcuiksystemleng);
                                  string_tmp[Readcuiksystemleng]=0;
                                  Readcuiksystemlval.int_number=atoi(string_tmp);
                                  return(_INTEGER); 
                                } 
 
{R_NUMBER}                      { 
                                  char string_tmp[100];
                                  
                                  memcpy(string_tmp,Readcuiksystemtext,(unsigned int)Readcuiksystemleng);
                                  string_tmp[Readcuiksystemleng]=0;
                                  Readcuiksystemlval.real_number=atof(string_tmp);
                                  
                                  return(_REAL);
                                } 
  
{IDENTIFIER}                    { 
                                  NEW(Readcuiksystemlval.id,Readcuiksystemleng+1,char);
                                  memcpy(Readcuiksystemlval.id,Readcuiksystemtext,(unsigned int)Readcuiksystemleng);
  
                                  Readcuiksystemlval.id[Readcuiksystemleng]=0;

                                  return(_IDENTIFIER);  
                                } 

\{                              {
                                   Readcuiksystemerror("The input file can not include the symbol '{'");
                                }

.                               { return(Readcuiksystemtext[0]); }
 
%%

int Readcuiksystemwrap()
{
  return(1);
}