errors

Author: wilzbach

src/dmd/errors.d

@@ -236,6 +236,32 @@ private void verrorPrint(const ref Loc loc, Color headerColor, const(char)* head
     else
         fputs(tmp.peekString(), stderr);
     fputc('\n', stderr);
+
+    auto fp = fopen(loc.filename, "r");
+    scope(exit) fclose(fp);
+
+    if (fp)
+    {
+        char* lineptr;
+        ulong n = 1024;
+        import core.sys.posix.stdio;
+        foreach (_; 0 .. loc.linnum)
+        {
+            if (lineptr is null)
+                goto end;
+            assert(getline(&lineptr, &n, fp) > 0);
+        }
+        if (lineptr is null)
+            goto end;
+        fprintf(stderr, "%s", lineptr);
+
+        foreach (_; 0 .. loc.charnum)
+            fputc(' ', stderr);
+
+        fputc('^', stderr);
+    }
+    fputc('\n', stderr);
+end:
     fflush(stderr);     // ensure it gets written out in case of compiler aborts
 }