IPL: The Icon Program Library Comment Domumentaion

# 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