77 lines
1.6 KiB
Text
77 lines
1.6 KiB
Text
%{
|
|
#ifndef NORCSID
|
|
static char rcsid2[] = "$Header$";
|
|
#endif
|
|
|
|
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
* Author: Hans van Staveren
|
|
*/
|
|
|
|
extern long atol();
|
|
%}
|
|
%%
|
|
\"[^"]*\" { strncpy(patid,yytext,sizeof(patid)); return(STRING); }
|
|
notreg return(NOTREG);
|
|
sfit return(SFIT);
|
|
ufit return(UFIT);
|
|
rotate return(ROTATE);
|
|
p return(PSIZE);
|
|
w return(WSIZE);
|
|
defined return(DEFINED);
|
|
samesign return(SAMESIGN);
|
|
rom return(ROM);
|
|
[a-zA-Z]{3} {
|
|
int m;
|
|
m = mlookup(yytext);
|
|
if (m==0) {
|
|
REJECT;
|
|
} else {
|
|
yylval.y_int = m;
|
|
return(MNEM);
|
|
}
|
|
}
|
|
"&&" return(AND2);
|
|
"||" return(OR2);
|
|
"&" return(AND1);
|
|
"|" return(OR1);
|
|
"^" return(XOR1);
|
|
"+" return(ARPLUS);
|
|
"-" return(ARMINUS);
|
|
"*" return(ARTIMES);
|
|
"/" return(ARDIVIDE);
|
|
"%" return(ARMOD);
|
|
"==" return(CMPEQ);
|
|
"!=" return(CMPNE);
|
|
"<" return(CMPLT);
|
|
"<=" return(CMPLE);
|
|
">" return(CMPGT);
|
|
">=" return(CMPGE);
|
|
"!" return(NOT);
|
|
"~" return(COMP);
|
|
"<<" return(LSHIFT);
|
|
">>" return(RSHIFT);
|
|
[0-9]+ { long l= atol(yytext);
|
|
if (l>32767) yyerror("Number too big");
|
|
yylval.y_int= (int) l;
|
|
return(NUMBER);
|
|
}
|
|
[ \t] ;
|
|
. return(yytext[0]);
|
|
\n { lino++; return(yytext[0]); }
|
|
:[ \t]*\n[ \t]+ { lino++; return(':'); }
|
|
^"# "[0-9]+.*\n { lino=atoi(yytext+2); }
|
|
^\#.*\n { lino++; }
|