[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.35 and 1.38

version 1.35, 2005/10/19 04:51:15 version 1.38, 2006/02/08 02:11:19
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.34 2004/12/17 03:09:08 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.37 2005/12/10 14:14:16 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 319  int yylex()
Line 320  int yylex()
                 }                  }
                 yylvalp->p = (pointer)r;                  yylvalp->p = (pointer)r;
                 return ( FORMULA );                  return ( FORMULA );
         } else if ( isalpha(c) || c == ':' ) {          } else if ( isalpha(c) || c == ':' || c == '_' ) {
                 if ( c == ':' ) {                  if ( c == ':' ) {
                         c1 = Getc();                          c1 = Getc();
                         if ( c1 != ':' ) {                          if ( c1 != ':' ) {
Line 347  int yylex()
Line 348  int yylex()
                                 break;                                  break;
                 }                  }
                 REALLOC_TBUF tbuf[i] = 0; Ungetc(c);                  REALLOC_TBUF tbuf[i] = 0; Ungetc(c);
                 if ( isupper(tbuf[0]) ) {                  if ( isupper(tbuf[0]) || (tbuf[0] == '_' && isupper(tbuf[1])) ) {
                         cptr = (char *)MALLOC(strlen(tbuf)+1); strcpy(cptr,tbuf);                          cptr = (char *)MALLOC(strlen(tbuf)+1); strcpy(cptr,tbuf);
                         yylvalp->p = (pointer)cptr;                          yylvalp->p = (pointer)cptr;
                         return UCASE;                          return UCASE;
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 573  void yyerror(char *s)
Line 577  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 610  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 648  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.35  
changed lines
  Added in v.1.38
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>