Compiler/lexical analyzer: Difference between revisions
→{{header|Icon}}
Line 6,891:
inpf := &input
outf := &output
if 1 <= *args & args[1] ~== "-" then
stop("cannot open ", args[1], " for input")
}
if 2 <= *args & args[2] ~== "-" then {
outf := open(args[2], "wt") |
stop("cannot open ", args[2], " for output")
}
pushback_buffer := []
| |||