The Icon Program Libary

Initialize flags */
Initialize file name pointers. */
Process Command Line Arguments
Initialize
open input file
if (pflag = FALSE) then {
addposition(yyinfnm, yyline)
}
Build syntax tree (pass 1).
CHECK insrtptr
CHECK insrtptr
open input file
Set up entry_name
if (pflag = FALSE) then {
addposition(yyinfnm, yyline)
}
Build syntax tree (pass 1).
if not(objfilelist := open(OBJFILELIST,"r")) then stop("cannot open OBJFILELIST = " || OBJFILELIST)
if (\objfilelist) then {
while (line := read(objfilelist)) do {
write( sigfile, line)
}
write( sigfile,"")
}
sig_out(sigfile, signature_f(insrtptr))
close(sigfile)
Ggeneratecode( ofile, stxtree )
if (yynerrs > 0) then exit(1)
close( ofile )
#DJDSTART