int main(){
magic2();
magic3();
return 0;
}
/*
* Yymain initializes each of the utility
* clusters and then starts the processing
* by calling yyparse.
*/
yymain()
{
#ifdef OBJ
/*
* initialize symbol table temp files
*/
startnlfile();
#endif
/*
* Initialize the scanner
*/
#ifdef PXP
if (bracket == 0) {
#endif
if (getline() == -1) {
Perror(filename, "No lines in file");
pexit(NOSTART);
}
#ifdef PXP
} else
yyline = 0;
#endif
#ifdef PI
# ifdef OBJ
magic();
# endif OBJ
#endif
line = 1;
errpfx = 'E';
/*
* Initialize the clusters
*
initstring();
*/
inithash();
inittree();
#ifdef PI
initnl();
#endif
/*
* Process the input
*/
yyparse();
#ifdef PI
# ifdef OBJ
/*
* save outermost block of namelist
*/
savenl(NLNIL);
magic2();
# endif OBJ
# ifdef DEBUG
dumpnl(NLNIL);
# endif
#endif
#ifdef PXP
prttab();
if (onefile) {
extern int outcol;
if (outcol)
pchr('\n');
flush();
if (eflg) {
writef(2, "File not rewritten because of errors\n");
pexit(ERRS);
}
(void) signal(SIGHUP, SIG_IGN);
(void) signal(SIGINT, SIG_IGN);
copyfile();
}
#endif
pexit(eflg ? ERRS : AOK);
}
