(awk-edits/MEL) Error messages now underline which part of the line has the error

1 files changed, 9 insertions, 3 deletions

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>/ {