[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.39 and 1.40

version 1.39, 2006/03/05 07:11:52 version 1.40, 2006/03/05 08:02:12
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.38 2006/02/08 02:11:19 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.39 2006/03/05 07:11:52 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 556  int myatoi(char *s)
Line 556  int myatoi(char *s)
 extern int ox_do_copy;  extern int ox_do_copy;
 extern int I_am_server;  extern int I_am_server;
 extern JMP_BUF main_env;  extern JMP_BUF main_env;
   extern int at_root;
   extern LIST LastStackTrace;
   
 void yyerror(char *s)  void yyerror(char *s)
 {  {
           STRING fname;
           Q q;
           NODE t;
           LIST l,l2;
   
         if ( main_parser ) {          if ( main_parser ) {
                 if ( ox_do_copy ) {                  if ( ox_do_copy ) {
                         /* push errors to DebugStack */                          /* push errors to DebugStack */
Line 569  void yyerror(char *s)
Line 576  void yyerror(char *s)
                                 fprintf(stderr,"\"%s\", near line %d: %s\n",asir_infile->name,asir_infile->ln,s);                                  fprintf(stderr,"\"%s\", near line %d: %s\n",asir_infile->name,asir_infile->ln,s);
                 }                  }
                 if ( I_am_server ) {                  if ( I_am_server ) {
                           if ( NEXT(asir_infile) ) {
                                   /* error in a file; record the position */
                                   MKSTR(fname,asir_infile->name); STOQ(asir_infile->ln,q);
                                   t = mknode(2,fname,q); MKLIST(l,t);
                                   /* line number at the toplevel */
                                   MKSTR(fname,"toplevel"); STOQ(at_root,q);
                                   t = mknode(2,fname,q); MKLIST(l2,t);
                                   t = mknode(2,l2,l);
                           } else {
                                   MKSTR(fname,"toplevel"); STOQ(asir_infile->ln,q);
                                   t = mknode(2,fname,q); MKLIST(l,t);
                                   t = mknode(1,l);
                           }
                           MKLIST(LastStackTrace,t);
                         set_lasterror(s);                          set_lasterror(s);
                         LONGJMP(main_env,1);                          LONGJMP(main_env,1);
                 }                  }
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>