version 1.41, 2006/03/05 08:21:59 |
version 1.42, 2006/09/29 08:58:22 |
|
|
* 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.40 2006/03/05 08:02:12 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.41 2006/03/05 08:21:59 noro Exp $ |
*/ |
*/ |
#include <ctype.h> |
#include <ctype.h> |
#include "ca.h" |
#include "ca.h" |
Line 563 extern char *CUR_FUNC; |
|
Line 563 extern char *CUR_FUNC; |
|
void yyerror(char *s) |
void yyerror(char *s) |
{ |
{ |
STRING fname,name,kwd; |
STRING fname,name,kwd; |
Q q; |
USINT u; |
NODE t; |
NODE t; |
LIST l,l2; |
LIST l,l2; |
|
|
Line 584 void yyerror(char *s) |
|
Line 584 void yyerror(char *s) |
|
MKSTR(name,""); |
MKSTR(name,""); |
else |
else |
MKSTR(name,CUR_FUNC); |
MKSTR(name,CUR_FUNC); |
STOQ(asir_infile->ln,q); |
MKUSINT(u,asir_infile->ln); |
t = mknode(3,fname,name,q); MKLIST(l,t); |
t = mknode(3,fname,name,u); MKLIST(l,t); |
/* line number at the toplevel */ |
/* line number at the toplevel */ |
MKSTR(fname,"toplevel"); STOQ(at_root,q); |
MKSTR(fname,"toplevel"); MKUSINT(u,at_root); |
t = mknode(2,fname,q); MKLIST(l2,t); |
t = mknode(2,fname,u); MKLIST(l2,t); |
t = mknode(2,l2,l); |
t = mknode(2,l2,l); |
} else { |
} else { |
MKSTR(fname,"toplevel"); STOQ(asir_infile->ln,q); |
MKSTR(fname,"toplevel"); MKUSINT(u,asir_infile->ln); |
t = mknode(2,fname,q); MKLIST(l,t); |
t = mknode(2,fname,u); MKLIST(l,t); |
t = mknode(1,l); |
t = mknode(1,l); |
} |
} |
MKLIST(l,t); |
MKLIST(l,t); |