Parser.y

Go to the documentation of this file.

/* $Id: Parser.y,v 1.1 2001/03/30 03:35:50 pfb Exp $ */

%{

  int Java_Common_Parser_Parser_lex();

%}

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

%token LBRACE RBRACE
%token EQUALS
%token <tstr> ALPHA
%token <val>  NUM
/* %type  <tstr> lvalue
%type  <val>  rvalue */

%%

file               :  /* empty */
                   | blocks
                   ;

blocks             : LBRACE blocks RBRACE
                   | LBRACE statements RBRACE
                   ;

statements         : lvalue EQUALS rvalue
                   ;

lvalue             : ALPHA
                       {
                       printf("lvalue = %s\n", $<tstr>1);
                       }
                   ;

rvalue             : ALPHA
                       {
                       printf("rvalue = %s\n", $<tstr>1);
                       }
                   | NUM
                       {
                       printf("rvalue = %f\n", $<val>1);
                       }
                   ;

%%

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

extern FILE *Java_Common_Parser_Parser_input;

int Java_Common_Parser_Parser_lex()
  {
  int c;

  /* skip white space  */
  while ((c = getc(Java_Common_Parser_Parser_input)) == ' ' ||
          c == '\t' ||
          c == '\n')  
    ;
  
  if (c == '{')
    return LBRACE;
  if (c == '}')
    return RBRACE;
  if (c == '=')
    return EQUALS;

  /* process numbers   */
  if (isdigit(c))                
    {
      ungetc(c, Java_Common_Parser_Parser_input);
      fscanf(Java_Common_Parser_Parser_input, "%lf", &yylval.val);
      return NUM;
    }
  
  /* process names */
  if (isalpha(c))
    {
    ungetc(c, Java_Common_Parser_Parser_input);
    fscanf(Java_Common_Parser_Parser_input, "%s", &yylval.tstr);
    return ALPHA;
    }

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

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

/*
 * $Log: Parser.y,v $
 * Revision 1.1  2001/03/30 03:35:50  pfb
 * Initial rev.
 *
 *
 */

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