diff options
1 files changed, 9 insertions, 3 deletions
| -rw-r--r-- | awk-edits/MEL-parser.awk | 12 |
diff --git a/awk-edits/MEL-parser.awk b/awk-edits/MEL-parser.awk index af1e26d..90234d4 100644 --- a/awk-edits/MEL-parser.awk +++ b/awk-edits/MEL-parser.awk @@ -42,9 +42,15 @@ function usesMEL() { MELLINE = "l" } -function printErr(message) { - print "ERROR by MEL-parser.awk: " message " | Found in " FILENAME " at line " FNR " & column " RSTART + length(newLine) - 5 ":\n" $0 > "/dev/stderr" - print > "/dev/stderr" +function printErr(message, column, columnPointer) { + column = RSTART + length(newLine) - 5 + print "ERROR by MEL-parser.awk: " message " | Found in " FILENAME " at line " FNR " & column " column ":" > "/dev/stderr" + columnPointer = "" + for (i = -5; i < RLENGTH; i++) + columnPointer = "^" columnPointer + for (i = 1; i < column; i++) + columnPointer = " " columnPointer + print $0 "\n" columnPointer "\n" > "/dev/stderr" } /<code>/ { |