Initial revision
This commit is contained in:
sater
parent
d34532e79d
commit
2014f2854c
23
util/cgg/Makefile
Normal file
23
util/cgg/Makefile
Normal file
|
|
@ -0,0 +1,23 @@
|
||||||
|
PREFLAGS=-I../../h
|
||||||
|
CFLAGS=$(PREFLAGS)
|
||||||
|
LDFLAGS=-i
|
||||||
|
LINTOPTS=-hbxac $(PREFLAGS)
|
||||||
|
LIBS=../../lib/em_data.a
|
||||||
|
# LEXLIB is system dependent, try -ll or -lln first
|
||||||
|
LEXLIB=-lln
|
||||||
|
|
||||||
|
cgg: bootgram.o
|
||||||
|
cc $(LDFLAGS) bootgram.o $(LIBS) $(LEXLIB) -o cgg
|
||||||
|
|
||||||
|
install: cgg
|
||||||
|
cp cgg ../../lib/cgg
|
||||||
|
|
||||||
|
cmp: cgg
|
||||||
|
cmp cgg ../../lib/cgg
|
||||||
|
|
||||||
|
lint: bootgram.c
|
||||||
|
lint $(LINTOPTS) bootgram.c
|
||||||
|
clean:
|
||||||
|
rm -f bootgram.o bootgram.c bootlex.c cgg
|
||||||
|
bootgram.o: bootlex.c
|
||||||
|
bootgram.o: ../../h/cg_pattern.h
|
||||||
2297
util/cgg/bootgram.y
Normal file
2297
util/cgg/bootgram.y
Normal file
File diff suppressed because it is too large
Load diff
185
util/cgg/bootlex.l
Normal file
185
util/cgg/bootlex.l
Normal file
|
|
@ -0,0 +1,185 @@
|
||||||
|
%{
|
||||||
|
/*
|
||||||
|
* (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
|
||||||
|
*/
|
||||||
|
|
||||||
|
#undef input
|
||||||
|
#undef output
|
||||||
|
#undef unput
|
||||||
|
|
||||||
|
#define MAXBACKUP 50
|
||||||
|
%}
|
||||||
|
%%
|
||||||
|
"/*" { char c;
|
||||||
|
c = input();
|
||||||
|
do {
|
||||||
|
while (c!='*')
|
||||||
|
c = input();
|
||||||
|
c = input();
|
||||||
|
} while (c!='/');
|
||||||
|
}
|
||||||
|
"REGISTERS:" return(REGISTERHEAD);
|
||||||
|
"TOKENS:" return(TOKENHEAD);
|
||||||
|
"TOKENEXPRESSIONS:" return(EXPRESSIONHEAD);
|
||||||
|
"CODE:" return(CODEHEAD);
|
||||||
|
"MOVES:" return(MOVEHEAD);
|
||||||
|
"TESTS:" return(TESTHEAD);
|
||||||
|
"STACKS:" return(STACKHEAD);
|
||||||
|
"SIZEFACTOR" return(SIZEFAC);
|
||||||
|
"TIMEFACTOR" return(TIMEFAC);
|
||||||
|
"FORMAT" return(FORMAT);
|
||||||
|
|
||||||
|
"cost" return(COST);
|
||||||
|
"remove" return(REMOVE);
|
||||||
|
"|" return(SEP);
|
||||||
|
"samesign" return(SAMESIGN);
|
||||||
|
"inreg" return(INREG);
|
||||||
|
"sfit" return(SFIT);
|
||||||
|
"ufit" return(UFIT);
|
||||||
|
"defined" return(DEFINED);
|
||||||
|
"rom" return(ROM);
|
||||||
|
"loww" return(LOWW);
|
||||||
|
"highw" return(HIGHW);
|
||||||
|
"move" return(MOVE);
|
||||||
|
"erase" return(ERASE);
|
||||||
|
"allocate" return(ALLOCATE);
|
||||||
|
"tostring" return(TOSTRING);
|
||||||
|
"nocc" return(NOCC);
|
||||||
|
"setcc" return(SETCC);
|
||||||
|
"samecc" return(SAMECC);
|
||||||
|
"test" return(TEST);
|
||||||
|
"STACK" return(STACK);
|
||||||
|
"nocoercions" return(NOCOERC);
|
||||||
|
|
||||||
|
"&&" return(AND2);
|
||||||
|
"||" return(OR2);
|
||||||
|
"==" return(CMPEQ);
|
||||||
|
"!=" return(CMPNE);
|
||||||
|
"<=" return(CMPLE);
|
||||||
|
"<" return(CMPLT);
|
||||||
|
">" return(CMPGT);
|
||||||
|
">=" return(CMPGE);
|
||||||
|
">>" return(RSHIFT);
|
||||||
|
"<<" return(LSHIFT);
|
||||||
|
"!" return(NOT);
|
||||||
|
"~" return(COMP);
|
||||||
|
"..." return(ELLIPS);
|
||||||
|
|
||||||
|
EM_WSIZE { yylval.yy_intp = &wsize; return(CIDENT); }
|
||||||
|
EM_PSIZE { yylval.yy_intp = &psize; return(CIDENT); }
|
||||||
|
EM_BSIZE { yylval.yy_intp = &bsize; return(CIDENT); }
|
||||||
|
REGISTER { yylval.yy_string = "REGISTER"; return(TYPENAME); }
|
||||||
|
INT { yylval.yy_string = "INT"; return(TYPENAME); }
|
||||||
|
STRING { yylval.yy_string = "STRING"; return(TYPENAME); }
|
||||||
|
|
||||||
|
regvar return(REGVAR);
|
||||||
|
loop return(LOOP);
|
||||||
|
pointer return(POINTER);
|
||||||
|
float return(FLOAT);
|
||||||
|
return return(RETURN);
|
||||||
|
|
||||||
|
[_A-Za-z][_A-Za-z0-9]+ {register ident_p ip;
|
||||||
|
if(!lookident || (ip=ilookup(yytext,JUSTLOOKING))==0) {
|
||||||
|
yylval.yy_string = scopy(yytext);return(IDENT);
|
||||||
|
} else {
|
||||||
|
yylval.yy_ident = ip;
|
||||||
|
switch(ip->i_type) {
|
||||||
|
default:assert(0);
|
||||||
|
case IREG:return(RIDENT);
|
||||||
|
case IPRP:return(PIDENT);
|
||||||
|
case ITOK:return(TIDENT);
|
||||||
|
case IEXP:return(EIDENT);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
[a-z] {yylval.yy_char = yytext[0]; return(LCASELETTER);}
|
||||||
|
[0-9]* {yylval.yy_int = atoi(yytext);return(NUMBER);}
|
||||||
|
(\"|"%)") { char *p; int c,tipe;
|
||||||
|
p=yytext;
|
||||||
|
for (;;) {
|
||||||
|
c = input();
|
||||||
|
switch(c) {
|
||||||
|
default: *p++=c;break;
|
||||||
|
case '\\':
|
||||||
|
*p++=c; *p++=input(); break;
|
||||||
|
case '\n':
|
||||||
|
yyerror("Unterminated string");
|
||||||
|
break;
|
||||||
|
case '"':
|
||||||
|
tipe=STRING; goto endstr;
|
||||||
|
case '%':
|
||||||
|
c=input();
|
||||||
|
if (c == '(') {
|
||||||
|
tipe=LSTRING;goto endstr;
|
||||||
|
} else {
|
||||||
|
*p++ = '%'; unput(c); break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
endstr:
|
||||||
|
*p++ = 0;
|
||||||
|
yylval.yy_string = scopy(yytext);
|
||||||
|
return(tipe);
|
||||||
|
}
|
||||||
|
[ \t]* |
|
||||||
|
\n ;
|
||||||
|
. return(yytext[0]);
|
||||||
|
%%
|
||||||
|
|
||||||
|
char linebuf[256];
|
||||||
|
char prevbuf[256];
|
||||||
|
int linep;
|
||||||
|
int linepos; /* corrected for tabs */
|
||||||
|
char charstack[MAXBACKUP];
|
||||||
|
int nbackup=0;
|
||||||
|
|
||||||
|
output(c) {
|
||||||
|
|
||||||
|
assert(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
input() {
|
||||||
|
|
||||||
|
if(nbackup)
|
||||||
|
return(charstack[--nbackup]);
|
||||||
|
if(linebuf[linep]==0) {
|
||||||
|
strcpy(prevbuf,linebuf);
|
||||||
|
if(fgets(linebuf,256,stdin)==NULL)
|
||||||
|
return(0);
|
||||||
|
lino++;
|
||||||
|
linepos=linep=0;
|
||||||
|
}
|
||||||
|
if (linebuf[linep] == '\t')
|
||||||
|
linepos = (linepos+8) & ~07;
|
||||||
|
else linepos++;
|
||||||
|
return(linebuf[linep++]);
|
||||||
|
}
|
||||||
|
|
||||||
|
unput(c) {
|
||||||
|
|
||||||
|
chktabsiz(nbackup,MAXBACKUP,"Lexical backup table");
|
||||||
|
charstack[nbackup++] = c;
|
||||||
|
}
|
||||||
|
|
||||||
|
yyerror(s,a1,a2,a3,a4) string s; {
|
||||||
|
|
||||||
|
fprintf(stderr,"%d\t%s%d\t%s\t%*c ",lino-1,prevbuf,lino,linebuf,
|
||||||
|
linepos-1,'^');
|
||||||
|
fprintf(stderr,s,a1,a2,a3,a4);
|
||||||
|
fprintf(stderr,"\n");
|
||||||
|
nerrors++;
|
||||||
|
}
|
||||||
Loading…
Reference in a new issue