Compiler/lexical analyzer: Difference between revisions
Content added Content deleted
m (forgot weird capitalization in this site...) |
m (→{{header|ALGOL 68}}: more helpful diagnostics) |
||
| Line 791: | Line 791: | ||
ELSE output(shorter) |
ELSE output(shorter) |
||
FI; |
FI; |
||
PROC error = (STRING s)VOID: (put(stand error, (s, new line)); stop); |
PROC error = (STRING s)VOID: (put(stand error, ("At ", whole(line,0), ":", whole(col,0), " ", s, new line)); stop); |
||
PROC unrecognized = (INT char) VOID: error("Unrecognized character " + REPR char); |
PROC unrecognized = (INT char) VOID: error("Unrecognized character " + REPR char); |
||
PROC double char = (INT first, STRING op) VOID: |
PROC double char = (INT first, STRING op) VOID: |
||