[BACK]Return to lex.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/lex.c between version 1.36 and 1.39

version 1.36, 2005/10/26 07:33:03 version 1.39, 2006/03/05 07:11:52
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.35 2005/10/19 04:51:15 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.38 2006/02/08 02:11:19 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 67  static int skipspace();
Line 67  static int skipspace();
   
 extern INFILE asir_infile;  extern INFILE asir_infile;
 extern struct oTKWD kwd[];  extern struct oTKWD kwd[];
   extern Obj VOIDobj;
   
 extern int main_parser;  extern int main_parser;
 extern char *parse_strp;  extern char *parse_strp;
Line 418  int yylex()
Line 419  int yylex()
                                 return GFPNGEN;                                  return GFPNGEN;
                         else if ( !strcmp(tbuf,"@s") )                          else if ( !strcmp(tbuf,"@s") )
                                 return GFSNGEN;                                  return GFSNGEN;
                         else if ( !strcmp(tbuf,"@i") ) {                          else if ( !strcmp(tbuf,"@void") ) {
                                   yylvalp->p = VOIDobj;
                                   return FORMULA;
                           } else if ( !strcmp(tbuf,"@i") ) {
                                 extern pointer IU;                                  extern pointer IU;
   
                                 yylvalp->p = IU;                                  yylvalp->p = IU;
Line 533  int aftercomment() {
Line 537  int aftercomment() {
         int c,c1;          int c,c1;
   
         for ( c = Getc(); ; ) {          for ( c = Getc(); ; ) {
                   if ( c == '\n' ) asir_infile->ln++;
                 c1 = Getc();                  c1 = Getc();
                 if ( (c == '*') && (c1 == '/') )                  if ( (c == '*') && (c1 == '/') )
                         return Getc();                          return Getc();
Line 573  void yyerror(char *s)
Line 578  void yyerror(char *s)
   
 int echoback;  int echoback;
   
 extern int read_exec_file, do_fep, do_file;  extern int do_fep, do_file;
   
 unsigned char encrypt_char(unsigned char);  unsigned char encrypt_char(unsigned char);
 unsigned char decrypt_char(unsigned char);  unsigned char decrypt_char(unsigned char);
Line 606  int Egetc(FILE *fp)
Line 611  int Egetc(FILE *fp)
                 if ( asir_infile->encoded )                  if ( asir_infile->encoded )
                         c = decrypt_char((unsigned char)c);                          c = decrypt_char((unsigned char)c);
                 return c;                  return c;
         } else if ( read_exec_file )          } else {
                 return EOF;  
         else {  
                 c = *parse_strp++;                  c = *parse_strp++;
                 if ( !c )                  if ( !c )
                         return EOF;                          return EOF;
Line 646  static int Getc() {
Line 649  static int Getc() {
                                         else                                          else
                                                 c = Getc();                                                  c = Getc();
                                         break;                                          break;
                                 } else if ( read_exec_file || do_file )                                  } else if ( asir_infile->fp || do_file )
                                         asir_terminate(2);                                          asir_terminate(2);
                                 else {                                  else {
                                         if ( asir_infile->fp )                                          if ( asir_infile->fp )
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.39
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>