Create a better driver programn (#168)

This allows:
- read "Simple" programs from files or stdin
- selectivley dump sea-of-nodes after earch optimization pass
- save *.dot files
- print generated assembler
- evaluate progrmas with given arguments (Eval2::eval() needs improvement)
- select CPU and ABI for code-generation

2 files changed, 266 insertions, 0 deletions

diff --git a/chapter21/simple b/chapter21/simple
new file mode 100755
index 00000000..888afc15
--- /dev/null
+++ b/chapter21/simple
@@ -0,0 +1,3 @@
+#! /bin/sh
+
+java -ea -cp "build/classes/main:lib/hamcrest-core-1.3.jar:lib/junit-4.12.jar:build/classes/test" com.seaofnodes.simple.Simple $@
diff --git a/chapter21/src/test/java/com/seaofnodes/simple/Simple.java b/chapter21/src/test/java/com/seaofnodes/simple/Simple.java
new file mode 100644
index 00000000..673b8b7c
--- /dev/null
+++ b/chapter21/src/test/java/com/seaofnodes/simple/Simple.java
@@ -0,0 +1,263 @@
+package com.seaofnodes.simple;
+
+import com.seaofnodes.simple.codegen.CodeGen;
+import com.seaofnodes.simple.print.*;
+
+import java.nio.file.Files;
+import java.nio.file.Path;
+import java.io.InputStreamReader;
+import java.io.BufferedReader;
+import java.io.IOException;
+import java.util.stream.Collectors;
+
+public class Simple {
+    public static final String PORTS = "com.seaofnodes.simple.node.cpus";
+
+    static final int DUMP_AFTER_PARSE        = 1<<0;
+    static final int DUMP_AFTER_OPTO         = 1<<1;
+    static final int DUMP_AFTER_TYPE_CHECK   = 1<<2;
+    static final int DUMP_AFTER_INSTR_SELECT = 1<<3;
+    static final int DUMP_AFTER_GCM          = 1<<4;
+    static final int DUMP_AFTER_LOCAL_SCHED  = 1<<5;
+    static final int DUMP_AFTER_REG_ALLOC    = 1<<6;
+    static final int DUMP_AFTER_ENCODE       = 1<<7;
+
+    static final int DUMP_FINAL              = 1<<16;
+
+    static final int DUMP_DOT                = 1<<29;
+    static final int DUMP_PASS_NAME          = 1<<30;
+    static final int DUMP_AFTER_ALL          = 0xff | DUMP_PASS_NAME;
+    static final int DUMP_DOT_AFTER_ALL      = 0xff | DUMP_DOT;
+
+    static final int DUMP_DISASSEMBLE        = 1<<31;
+
+    static String system_cpu = null;
+    static String system_abi = null;
+
+    static void usage() {
+        System.out.println(
+"""
+simple <input-file> [options] [--eval|--run ...]
+Options:
+  --dump                     - dump final intermediate representation
+  --dump-after-parse         - dump intermediate representation after parse
+  --dump-after-opto          - dump intermediate representation after opto pass
+  --dump-after-type-check    - dump intermediate representation after type check pass
+  --dump-after-instr_select  - dump intermediate representation after instrution selection pass
+  --dump-after-gcm           - dump intermediate representation after GCM pass
+  --dump-after-local-sched   - dump intermediate representation after local scheduling pass
+  --dump-after-reg_alloc     - dump intermediate representation after register allocation pass
+  --dump-after-encode        - dump intermediate representation after encoding pass
+  --dump-after-all           - dump intermediate representation after all passes
+  --dot                      - dump grapical representation of intermediate code into *.dot file(s)
+  -S                         - dump generated assembler code
+  --eval ...                 - evaluate the compiled code in emulator
+  --run ...                  - run the compiled code natively
+  --cpu <cpu-name>           - use specific CPU (x86_64_v2, riscv, arm)
+  --abi <abi-name>           - use speific ABI variant (SystemV)
+  --target                   - print native CPU and ABI
+  --version
+  --help
+"""
+);
+        System.exit(0);
+    }
+
+    static void bad_usage() {
+        System.err.println("ERROR: Invalid usage (use --help)");
+        System.exit(1);
+    }
+
+    static void target() {
+        if (system_cpu == null || system_abi == null) {
+            System.err.println("ERROR: Unknown target");
+            System.exit(1);
+        }
+        System.out.print(system_cpu);
+        System.out.print("-");
+        System.out.println(system_abi);
+        System.exit(0);
+    }
+
+    static void dump(CodeGen code, int dump, int pass) {
+        if ((dump & pass) != 0) {
+            if ((dump & DUMP_DOT) != 0) {
+                String fn = switch (pass) {
+                    case DUMP_AFTER_PARSE        -> "01-parse.dot";
+                    case DUMP_AFTER_OPTO         -> "02-opto.dot";
+                    case DUMP_AFTER_TYPE_CHECK   -> "03-type_check.dot";
+                    case DUMP_AFTER_INSTR_SELECT -> "04-instr_select.dot";
+                    case DUMP_AFTER_GCM          -> "05-gcm.dot";
+                    case DUMP_AFTER_LOCAL_SCHED  -> "06-local_sched.dot";
+                    case DUMP_AFTER_REG_ALLOC    -> "07-reg_allos.dot";
+                    case DUMP_AFTER_ENCODE       -> "08-local_sched.dot";
+                    case DUMP_FINAL              -> "09-final.dot";
+                    default                      -> throw Utils.TODO();
+                };
+
+                try {
+                    Files.writeString(Path.of(fn),
+                        new GraphVisualizer().generateDotOutput(code._stop, null, null));
+                } catch(IOException e) {
+                    System.err.println("ERROR: Cannot write DOT file");
+                    System.exit(1);
+                }
+            } else {
+                if ((dump & DUMP_PASS_NAME) != 0) {
+                    System.err.println(switch (pass) {
+                        case DUMP_AFTER_PARSE        -> "After Parse:";
+                        case DUMP_AFTER_OPTO         -> "After OPTO:";
+                        case DUMP_AFTER_TYPE_CHECK   -> "After Type Check:";
+                        case DUMP_AFTER_INSTR_SELECT -> "After Instruction Selection:";
+                        case DUMP_AFTER_GCM          -> "After GCM:";
+                        case DUMP_AFTER_LOCAL_SCHED  -> "After Local Scheduling:";
+                        case DUMP_AFTER_REG_ALLOC    -> "After Register Allocation:";
+                        case DUMP_AFTER_ENCODE       -> "After Instruction Encoding:";
+                        case DUMP_FINAL              -> "Final:";
+                        default                      -> throw Utils.TODO();
+                    });
+                }
+
+                System.err.println(IRPrinter.prettyPrint(code._stop, 9999));
+            }
+        }
+    }
+
+    static String getInput() {
+        BufferedReader reader = new BufferedReader(new InputStreamReader(System.in));
+        return reader.lines().collect(Collectors.joining("\n"));
+    }
+
+    public static void main(String[] args) throws Exception {
+        String input_filename = null;
+        boolean use_stdin = false;
+        boolean do_eval = false;
+        boolean do_run = false;
+        boolean do_codegen = false;
+        int dump = 0;
+        int first_arg = 0;
+        String src = null;
+        String cpu = null;
+        String abi = null;
+
+        // TODO: autodetect
+        system_cpu = "x86_64_v2";
+        system_abi = "SystemV";
+
+        // Parse command line
+loop:   for (int i = 0; i < args.length; i++) {
+            String arg = args[i];
+            if (arg.charAt(0) == '-') {
+                switch (arg) {
+                    case "-":                         use_stdin = true; break;
+                    case "--dump":                    dump |= DUMP_FINAL; break;
+                    case "--dump-after-parse":        dump |= DUMP_AFTER_PARSE; break;
+                    case "--dump-after-opto":         dump |= DUMP_AFTER_OPTO; break;
+                    case "--dump-after-type-check":   dump |= DUMP_AFTER_TYPE_CHECK; break;
+                    case "--dump-after-instr-select": dump |= DUMP_AFTER_INSTR_SELECT; break;
+                    case "--dump-after-gcm":          dump |= DUMP_AFTER_GCM; break;
+                    case "--dump-after-local-sched":  dump |= DUMP_AFTER_LOCAL_SCHED; break;
+                    case "--dump-after-reg_alloc":    dump |= DUMP_AFTER_REG_ALLOC; break;
+                    case "--dump-after-encode":       dump |= DUMP_AFTER_ENCODE; break;
+                    case "--dump-after-all":          dump |= DUMP_AFTER_ALL; break;
+                    case "--dot":                     dump |= DUMP_DOT; break;
+                    case "-S":                        dump |= DUMP_DISASSEMBLE; break;
+                    case "--eval":                    do_eval = true; first_arg = i + 1; break loop;
+                    case "--run":                     do_run = true; first_arg = i + 1; break loop;
+                    case "--cpu":                     if (cpu != null
+                                                       || i + 1 >= args.length
+                                                       || args[i + 1].charAt(0) == '-') bad_usage();
+                                                      cpu = args[i + 1];
+                                                      i++;
+                                                      break;
+                    case "--abi":                     if (abi != null
+                                                       || i + 1 >= args.length
+                                                       || args[i + 1].charAt(0) == '-') bad_usage();
+                                                      abi = args[i + 1];
+                                                      i++;
+                                                      break;
+                    case "--target":                  target();
+                    case "--version":                 throw Utils.TODO();
+                    case "--help":                    usage();
+                    default:                          bad_usage();
+                }
+            } else {
+                if (input_filename != null || use_stdin) bad_usage();
+                input_filename = arg;
+            }
+        }
+
+        if (input_filename == null && !use_stdin) {
+            System.err.println("ERROR: no input file' (use --help)");
+            System.exit(1);
+        }
+
+        if (do_run || (dump & DUMP_DISASSEMBLE) != 0) {
+            if (cpu == null) cpu = system_cpu;
+            if (abi == null) abi = system_abi;
+            if (cpu == null || abi == null) {
+                System.err.println("ERROR: Cannot compile for unknown target");
+                System.exit(1);
+            }
+            do_codegen = true;
+        }
+
+        // Read input file
+        try {
+            src = use_stdin ? getInput() : Files.readString(Path.of(input_filename));
+        } catch(IOException e) {
+            System.err.println("ERROR: Cannot read input file");
+            System.exit(1);
+        }
+
+        // Compilation pipeline
+        CodeGen code = new CodeGen(src);
+
+        code.parse();
+        dump(code, dump, DUMP_AFTER_PARSE);
+
+        code.opto();
+        dump(code, dump, DUMP_AFTER_OPTO);
+
+        code.typeCheck();
+        dump(code, dump, DUMP_AFTER_TYPE_CHECK);
+
+        if (do_codegen) {
+            code.instSelect(PORTS, cpu, abi);
+            dump(code, dump, DUMP_AFTER_INSTR_SELECT);
+        }
+
+        code.GCM();
+        dump(code, dump, DUMP_AFTER_GCM);
+
+        code.localSched();
+        dump(code, dump, DUMP_AFTER_LOCAL_SCHED);
+
+        if (do_codegen) {
+            code.regAlloc();
+            dump(code, dump, DUMP_AFTER_REG_ALLOC);
+
+            code.encode();
+            dump(code, dump, DUMP_AFTER_ENCODE);
+        }
+
+        dump(code, dump, DUMP_FINAL);
+
+        if (do_codegen && (dump & DUMP_DISASSEMBLE) != 0) {
+            System.out.println(code.asm());
+        }
+
+        if (do_eval) {
+            // TODO: Support for evaluation of functions with different argument numbers and types
+            long arg = (first_arg < args.length) ? Integer.valueOf(args[first_arg]) : 0;
+            System.out.println(Eval2.eval(code, arg, 100000));
+        } else if (do_run) {
+            if (cpu != system_cpu || abi != system_abi) {
+                System.err.println("ERROR: cannot run code on not native target");
+                System.exit(1);
+            }
+
+            throw Utils.TODO();
+        }
+    }
+}