piccode: Use the gleam style error messages as the default

Author: hexaredecimal

src/main/java/org/piccode/backend/Compiler.java

@@ -19,6 +19,7 @@
 import org.piccode.ast.PiccodeVisitor;
 import org.piccode.ast.ReturnAst;
 import org.piccode.ast.StatementList;
+import org.piccode.piccodescript.ErrorAsciiKind;
 import org.piccode.rt.Context;
 import org.piccode.rt.PiccodeArray;
 import org.piccode.rt.PiccodeBoolean;
@@ -47,6 +48,7 @@
  */
 public class Compiler {
 	public static PrintStream out = System.out;
+	public static ErrorAsciiKind errorKind = ErrorAsciiKind.GLEAM_STYLE;
 	public static boolean exitOnError = true;
 	private static List<Runnable> nativeFunctions = new ArrayList<>();
 
@@ -97,7 +99,6 @@ public static PiccodeValue compile(String file, String code, List<PiccodeValue>
 				Context.top.dropStackFrame();
 			}
 			//Context.top.dropStackFrame();
-			e.out = out;
 			e.reportError(exitOnError);
 			//e.printStackTrace();
 			return new PiccodeUnit();
@@ -136,7 +137,6 @@ public static List<Ast> compileDeclarationsAndGetExpressions(String file, String
 			if (Context.top.getFramesCount() > 0) {
 				Context.top.dropStackFrame();
 			}
-			e.out = out;
 			e.reportError();
 			return nodes;
 		} catch (Exception rte) {

src/main/java/org/piccode/rt/PiccodeException.java

@@ -7,6 +7,8 @@
 import java.util.ArrayList;
 import java.util.List;
 import java.util.Scanner;
+import org.piccode.backend.Compiler;
+import org.piccode.piccodescript.ErrorAsciiKind;
 
 /**
  *
@@ -17,7 +19,7 @@ public class PiccodeException extends RuntimeException implements PiccodeInfo {
 	public String file;
 	public int line, col;
 	public String message;
-	public PrintStream out = System.out;
+	private PrintStream out = Compiler.out;
 
 	public Integer frame = null;
 
@@ -38,7 +40,7 @@ public void addNote(PiccodeInfo note) {
 	public void reportError() {
 		report(!ReplState.ACTIVE, "ERROR");
 	}
-	
+
 	public void reportError(boolean die) {
 		report(die, "ERROR");
 	}
@@ -57,6 +59,54 @@ public void report(boolean die, String kind) {
 			}
 		}
 
+		var errorKind = Compiler.errorKind;
+		if (errorKind == ErrorAsciiKind.GLEAM_STYLE) {
+			printGleamStyleError(kind, lines, fp);
+		} else {
+			printEmacsCompStyleError(kind, lines, fp);
+		}
+
+		if (!notes.isEmpty()) {
+			out.println((Chalk.on(".").yellow() + "\n").repeat(2));
+			for (var note : notes) {
+				note.report(false, "INFO");
+			}
+		}
+
+		var ctx = frame == null
+						? Context.top
+						: Context.getContextAt(frame);
+
+		if (frame != null) {
+			ctx = Context.getContextAt(frame);
+		}
+		var stack = ctx.getCallStack();
+
+		var list = List.of(stack.toArray(StackFrame[]::new)).reversed();
+
+		if (!list.isEmpty()) {
+			var thread = frame == null ? "" : String.format(".THREAD[%s]", frame);
+			out.println("\n[STACK TRACE]" + thread);
+			for (int i = 0; i < list.size(); i++) {
+				var _frame = list.get(i);
+				var callSite = _frame.caller;
+				var _str = String.format(
+								"[%s:%d:%d]: %s", callSite.file,
+								callSite.line, callSite.column + 1,
+								i == 0
+												? Chalk.on(callSite.toString()).red()
+												: callSite.toString());
+
+				out.println(_str);
+			}
+		}
+
+		if (die) {
+			System.exit(1);
+		}
+	}
+
+	private void printGleamStyleError(String kind, String[] lines, File fp) {
 		var line_fmt = String.format(" %d │", line);
 		var gap = " ".repeat(line_fmt.length());
 		var gap2 = " ".repeat(line_fmt.length() - 1);
@@ -92,47 +142,44 @@ public void report(boolean die, String kind) {
 			line_fmt = String.format(" %d │", line + 1);
 			System.out.println(line_fmt);
 		}
+	}
 
-		if (!notes.isEmpty()) {
-			out.println((Chalk.on(".").yellow() + "\n").repeat(2));
-			for (var note : notes) {
-				note.report(false, "INFO");
-			}
-		}
-
-		var ctx = frame == null
-			? Context.top
-			: Context.getContextAt(frame);
+	private void printEmacsCompStyleError(String kind, String[] lines, File fp) {
+		var line_fmt = String.format(" %d │", line);
+		var gap2 = " ".repeat(line_fmt.length() - 1);
+		var fmt = String.format(
+						"%s:%d:%d: %s: %s",
+						file == null || file.equals("repl")
+						? "repl"
+						: fp.getName(),
+						line, col + 1,
+						kind == null || kind.equals("ERROR")
+						? Chalk.on("ERROR").red() // I hard code ERROR just in case it is null;
+						: Chalk.on(kind.toUpperCase()).yellow(),
+						message
+		);
 
-		if (frame != null) {
-			ctx = Context.getContextAt(frame);
+		if (file == null) {
+			out.println("" + fmt);
+			return;
 		}
-		var stack = ctx.getCallStack();
 
-		var list = List.of(stack.toArray(StackFrame[]::new)).reversed();
-
-		if (!list.isEmpty()) {
-			var thread = frame == null ? "" : String.format(".THREAD[%s]", frame);
-			out.println("\n[STACK TRACE]" + thread);
-			for (int i = 0; i < list.size(); i++) {
-				var _frame = list.get(i);
-				var callSite = _frame.caller;
-				var _str = String.format(
-								"[%s:%d:%d]: %s", callSite.file,
-								callSite.line, callSite.column + 1,
-								i == 0 
-									? Chalk.on(callSite.toString()).red()
-									: callSite.toString());
-
-				out.println(_str);
-			}
+		var index = line - 1 < lines.length ? line - 1 : lines.length - 1;
+		if (index < 0) {
+			index = 0;
 		}
-
-		if (die) {
-			System.exit(1);
+		var code_line = lines[index].replaceAll("\t", " ".repeat(1));
+		out.println(fmt);
+		out.println(line_fmt + " " + code_line);
+		var tick2 = " ".repeat(col + 1) + "^";
+		out.println(gap2 + " " + tick2);
+		if (line + 1 < lines.length) {
+			line_fmt = String.format(" %d │", line + 1);
+			System.out.println(line_fmt);
 		}
 	}
-
+	
+	
 	private static String[] toLines(File fp) {
 		List<String> lines = new ArrayList<>();