test/ssCommonEnviromentYy.y

Go to the documentation of this file.

/* $Id: ssCommonEnviromentYy.y,v 1.4 2005/03/31 12:00:06 pfb Exp $ */

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

  int yylex();
  int yyerror(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 *input;

int yylex()
  {
  int c;

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

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

    if (yydebug != 0)
      fprintf(stderr, "yylex(): c = %c\n", c);
    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, input);
      fscanf(input,
             "%lf",
             &yylval.val);
      if (yydebug != 0)
        fprintf(stderr, "yylex(): yylval.val = %lf\n", yylval.val);
      return NUM;
      }
  
    /* process names */
    if (isgraph(c))
      {
      ungetc(c, input);
      fscanf(input,
             "%[^; \t=#}\{]s",
             yylval.tstr);
      if (yydebug != 0)
        printf("yylex(): yylval.tstr = %s\n", yylval.tstr);
      return ALPHA;
      }

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

int yyerror(const char *s)
  {
  fprintf(stderr, "%s: %s\n", __FILE__, s);
  return 1;
  }

/*
 * $Log: ssCommonEnviromentYy.y,v $
 * Revision 1.4  2005/03/31 12:00:06  pfb
 * Fixed fscanf format warning.
 *
 * Revision 1.3  2004/07/19 12:18:38  pfb
 * Sorted out ALPHA fscanf().
 *
 * Revision 1.2  2004/07/19 10:11:12  pfb
 * Added some yydebug stuff.
 *
 * Revision 1.1  2004/07/19 04:19:06  pfb
 * Initial rev.
 *
 *
 */

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