CommonEnviromentParser.y

Go to the documentation of this file.

/* $Id: CommonEnviromentParser.y,v 1.2 2001/04/05 08:27:10 pfb Exp $ */

%{
#include <stdio.h>
#define YYDEBUG 1
  int yydebug = 0;

  int Java_Common_Enviroment_CommonEnviromentParser_lex();
  int Java_Common_Enviroment_CommonEnviromentParser_error(const char *s);
  extern void pusha(const char *lvalue, const char *rvalue);
  extern void pushn(const char *lvalue, double);

  int in_comment = 0;
%}

%union {
  double val;
  char   tstr[128];
}

%token LBRACE RBRACE
%token EQUALS
%token POUND
%token EOS          /* Terminates a statement */
%token EOL          /* End of line */
%token LEXERROR     /* an error in yylex() */
%token <tstr> ALPHA
%token <val>  NUM

%%

file          :  /* empty */
              | file statement
              | file comment
              ;

statement     : lvalue EQUALS ALPHA EOS
                {
                strcpy($<tstr>$, $<tstr>3);
                pusha($<tstr>1, $<tstr>3);
                }
              | lvalue EQUALS NUM EOS  
                {
                $<val>$ = $<val>3;
                pushn($<tstr>1, $<val>3);
                }
              ;

comment       : POUND
                {
                in_comment = 1;
                }
                EOL
                {
                in_comment = 0;
                }
              ;  

lvalue        : ALPHA
                {
                strcpy($<tstr>$, $<tstr>1);
                }
              ;

%%

#include <ctype.h>
#include <stdio.h>

FILE *Java_Common_Enviroment_CommonEnviromentParser_input;

int Java_Common_Enviroment_CommonEnviromentParser_lex()
  {
  int c;

  if (in_comment == 0)
    {
    /* skip white space  */
    while ((c = getc(Java_Common_Enviroment_CommonEnviromentParser_input)) == ' ' ||
            c == '\t' ||
            c == '\n')
      ;

    /* return end-of-file  */
    if (c == EOF)                            
      return 0;

    if (c == '{')
      return LBRACE;
    if (c == '}')
      return RBRACE;
    if (c == '=')
      return EQUALS;
    if (c == ';')
      return EOS;
    if (c == '#')
      return POUND;

    /* process numbers   */
    if (isdigit(c))                
      {
        ungetc(c, Java_Common_Enviroment_CommonEnviromentParser_input);
        fscanf(Java_Common_Enviroment_CommonEnviromentParser_input,
               "%lf",
               &yylval.val);
        return NUM;
      }
  
    /* process names */
    if (isgraph(c))
      {
      ungetc(c, Java_Common_Enviroment_CommonEnviromentParser_input);
      fscanf(Java_Common_Enviroment_CommonEnviromentParser_input,
             "%[^; \t]s",
             yylval.tstr);
      return ALPHA;
      }

    /* return an error */
    return LEXERROR;
    }
  else
    {
    while((c = getc(Java_Common_Enviroment_CommonEnviromentParser_input)) != '\n')
      ;
    return EOL;
    }
  }

int Java_Common_Enviroment_CommonEnviromentParser_error(const char *s)
  {
  printf("%s: %s\n", __FILE__, s);
  return 1;
  }

/*
 * $Log: CommonEnviromentParser.y,v $
 * Revision 1.2  2001/04/05 08:27:10  pfb
 * Turned off yydebug.
 *
 * Revision 1.1  2001/04/05 08:22:57  pfb
 * Initial rev.
 *
 *
 */

Generated on Sat Nov 22 12:37:16 2008 for Swath Sonar by Doxygen 1.5.1