# Parses the output of TPC and returns an error message, if any:
#     Filename, Line, Column, ErrorMessage
# The compiler (TPC.EXE) must be run in the quiet mode "/Q"
/: Error/ \
    {
    split($1,a,"(")
    split(a[2],b,")")
    a = sprintf("%1s, %1s,",a[1],b[1])
    b = ""
    for (i=2; i <= NF; i++) b = sprintf("%1s%1s ",b,$i)
    getline
    getline
    a = a " " index($0,"^") ","
    print a b
    }