mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
144 lines
2.8 KiB
C
144 lines
2.8 KiB
C
#
|
|
/*
|
|
Copyright 1981
|
|
Alcyon Corporation
|
|
8474 Commerce Av.
|
|
San Diego, Ca. 92121
|
|
*/
|
|
/*
|
|
ALCYON C Compiler for the Motorola 68000 - Parser
|
|
|
|
Called from c68:
|
|
|
|
c068 source icode strings
|
|
|
|
source: input source code, preprocessed with comments stripped
|
|
|
|
icode: contains the intermediate code for the code generator,
|
|
for a detailed explanaion see ../doc/icode.
|
|
|
|
strings: contains all the string constants.
|
|
|
|
The basic structure of the parser is as follows:
|
|
|
|
main main driver for parser
|
|
syminit initializes symbol table
|
|
doextdef external definition syntax
|
|
getatt get type attributes
|
|
dlist declaration list for structures/unions
|
|
getatt recursive gettype call
|
|
dodecl do one declaration
|
|
declarator handle declarator syntax
|
|
dodecl do one external declaraion
|
|
initlist external initialization list
|
|
cexpr constant expressions
|
|
expr arithmetic expressions
|
|
maketree build operator tree
|
|
funcbody function body
|
|
dlist declaration list
|
|
stmt function statements
|
|
stmt recursive stmt call
|
|
expr arithmetic expressions
|
|
|
|
*/
|
|
|
|
#include "parser.h"
|
|
|
|
|
|
int nextlabel 1;
|
|
int lineno;
|
|
char *exprp &exprarea[0];
|
|
int dflag;
|
|
int lflag 0;
|
|
int onepass;
|
|
|
|
|
|
/* main - main routine for parser*/
|
|
/* Checks arguments, opens input and output files, does main loop*/
|
|
/* for external declarations and blocks.*/
|
|
main(argc,argv) /* returns - none*/
|
|
int argc; /* argument count*/
|
|
char *argv[]; /* argument pointers*/
|
|
{
|
|
register char *q;
|
|
register int i;
|
|
|
|
for( i = 4; i < argc; i++ ) {
|
|
q = argv[i];
|
|
if( *q++ != '-' )
|
|
usage();
|
|
while( 1 ) {
|
|
switch( *q++ ) {
|
|
|
|
case 'D':
|
|
dflag++;
|
|
continue;
|
|
|
|
case '1':
|
|
onepass++;
|
|
continue;
|
|
|
|
case 'L':
|
|
lflag++;
|
|
continue;
|
|
|
|
case '\0':
|
|
break;
|
|
|
|
default:
|
|
usage();
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
if( argc < 4 )
|
|
usage();
|
|
if( fopen(argv[1],&ibuf,0) < 0 )
|
|
ferror("can't open %s",argv[i]);
|
|
if( fcreat(argv[2],&obuf,0) < 0 || fcreat(argv[3],&sbuf,0) < 0 )
|
|
ferror("temp creation error");
|
|
obp = &obuf;
|
|
lineno++;
|
|
syminit();
|
|
while( peek(EOF) == 0 )
|
|
doextdef();
|
|
outeof();
|
|
outdata();
|
|
copysfile(argv[3]);
|
|
exit(errcnt!=0);
|
|
}
|
|
|
|
/* usage - output usage error message and die*/
|
|
usage()
|
|
{
|
|
ferror("usage: c068 source asm str [-DL]");
|
|
}
|
|
|
|
/* error - report an error message*/
|
|
/* outputs current line number and error message*/
|
|
error(s,x1,x2,x3,x4,x5,x6) /* returns - none*/
|
|
char *s; /* error message*/
|
|
int x1, x2, x3, x4, x5, x6; /* args for printf*/
|
|
{
|
|
register char *savep;
|
|
|
|
savep = obp;
|
|
obp = 0;
|
|
errcnt++;
|
|
if( lineno )
|
|
printf("* %d: ",lineno);
|
|
printf(s,x1,x2,x3,x4,x5,x6);
|
|
printf("\n");
|
|
obp = savep;
|
|
}
|
|
|
|
/* ferror - fatal error*/
|
|
/* Outputs error message and exits*/
|
|
ferror(s,x1,x2,x3,x4,x5,x6) /* returns - none*/
|
|
char *s; /* error message*/
|
|
int x1, x2, x3, x4, x5, x6; /* args for printf*/
|
|
{
|
|
error(s,x1,x2,x3,x4,x5,x6);
|
|
exit(-1);
|
|
}
|