lang/basic/src/yylexp.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5
   6 int toknum;
   7
   8 yylexp()
   9 {
  10 /* als toknum != 0 dan bevat toknum een door LLmessage back-ge-pushed token */
  11
  12 int t;
  13
  14         if ( toknum == 0 )
  15                 return(yylex());
  16         else {
  17                 t = toknum;
  18                 toknum = 0;
  19                 return(t);
  20         }
  21 }
  22