1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
package com.seaofnodes.simple;
import com.seaofnodes.simple.codegen.CodeGen;
import com.seaofnodes.simple.codegen.CompUnit;
import com.seaofnodes.simple.codegen.CodeGen.Phase;
import com.seaofnodes.simple.print.*;
import com.seaofnodes.simple.type.TypeInteger;
import com.seaofnodes.simple.util.Ary;
import com.seaofnodes.simple.util.Utils;
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.nio.file.Files;
import java.nio.file.Path;
import java.util.ArrayList;
import java.util.stream.Collectors;
public class Simple {
static void usage() {
System.out.println(
"""
simple [options] input-file.smp ...program args...
Options are applied in-order.
Options:
--help - This text
--root root/ - Project root directory; this must end in a '/' and input
files are relative paths to this. If missing, the one input
file path is treated as its own root directory.
-o output - Project output directory; similar to --root, if 'output' ends in a
'/', then all result files use relative paths to 'output', using a input file
root-relative path. If --root is missing, the one result file is named 'output'
-L path - add an external Simple object search path
--eval - (slowly) evaluate the compiled code in emulator
--run - run the compiled code natively; this is the default
--main - export the top-level initializer as C `main`
--cpu <cpu-name> - use specific CPU (x86_64_v2, riscv, arm)
--abi <abi-name> - use specific ABI variant (SystemV)
--target - print native CPU and ABI
--version
-S - dump generated assembler code
--dump-size - print the size of generated code
--dump-time - print compilation and execution times
--dump-after-parse - dump intermediate representation after parse
--dump-after-iter - dump intermediate representation after pessimistic iter pass
--dump-after-opto - dump intermediate representation after opto pass
--dump-after-type-check - dump intermediate representation after type check pass
--dump-after-select - dump intermediate representation after instruction 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
--dump - dump final intermediate representation only
"""
);
System.exit(0);
}
static void bad_usage() { throw bad("Invalid usage (use --help)"); }
static RuntimeException bad(String err) {
System.err.println("ERROR: "+err);
System.exit(1);
return new RuntimeException(err);
}
static void target() {
System.out.print(TestC.CPU_PORT);
System.out.print("-");
System.out.println(TestC.CALL_CONVENTION);
}
static void print_compilation_times(CodeGen code) {
long[] times = code._times;
for( int i=0; i<code._times.length; i++ )
System.out.printf("%20s %.3f sec%n", Phase.values()[i], times[i]);
}
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 root = null;
String input_filename = null;
boolean do_eval = false;
boolean do_run = true;
boolean do_codegen = false;
boolean emit_main = false;
boolean print_time = false;
boolean print_size = false;
boolean print_asm = false;
int dump = 0;
int first_arg = 0;
String src = null;
String cpu = null;
String abi = null;
String out = null;
ArrayList<String> libPaths = new ArrayList<>();
// Parse command line
int i; for( i = 0; i < args.length; i++ ) {
String arg = args[i];
if( arg.charAt(0) != '-' ) {
input_filename = arg;
break;
}
switch (arg) {
case "-": input_filename=""; break;
case "--dump-after-parse": dump |= 1<<Phase.Parse .ordinal() ; break;
case "--dump-after-iter": dump |= 1<<Phase.Iter .ordinal() ; break;
case "--dump-after-opto": dump |= 1<<Phase.Opto .ordinal() ; break;
case "--dump-after-type-check": dump |= 1<<Phase.TypeCheck .ordinal() ; break;
case "--dump-after-loop-tree": dump |= 1<<Phase.LoopTree .ordinal() ; break;
case "--dump-after-select": dump |= 1<<Phase.Select .ordinal() ; break;
case "--dump-after-gcm": dump |= 1<<Phase.Schedule .ordinal() ; break;
case "--dump-after-local-sched": dump |= 1<<Phase.LocalSched.ordinal() ; break;
case "--dump-after-reg-alloc": dump |= 1<<Phase.RegAlloc .ordinal() ; break;
case "--dump-after-encode": dump |= 1<<Phase.Encoding .ordinal() ; break;
case "--dump-after-export": dump |= 1<<Phase.Export .ordinal() ; break;
case "--dump": dump |= 1<<Phase.LastPhase .ordinal() ; break;
case "--dump-after-all": dump |= (2<<Phase.LastPhase .ordinal())-1; break;
case "-S": print_asm = true; break;
case "--eval": do_eval = true ; do_run = false; break;
case "--run": do_run = true ; break;
case "--norun": do_run = false; break;
case "--main": emit_main = true; break;
case "--dump-size": print_size = true; break;
case "--dump-time": print_time = true; break;
case "-o": if (out != null || i + 1 >= args.length || args[i + 1].charAt(0) == '-') bad_usage();
out = args[++i]; do_codegen=true;
break;
case "-L": if (i + 1 >= args.length || args[i + 1].charAt(0) == '-') bad_usage();
libPaths.add(args[++i]);
break;
case "--cpu": if (cpu != null || i + 1 >= args.length || args[i + 1].charAt(0) == '-') bad_usage();
cpu = args[++i];
break;
case "--abi": if (abi != null || i + 1 >= args.length || args[i + 1].charAt(0) == '-') bad_usage();
abi = args[++i];
break;
case "--target": target(); break;
case "--version": throw Utils.TODO();
case "--help": usage();
default: bad_usage();
}
}
// Break the paths into these parts:
// - A module path, given from "--root" or inferred from the one input file
// - Some sources [modpath/relpath/file.smp]*, all relative to the module path.
// - A build path, given from "-o" or inferred from the one input file
//
// All the sources are compiled, with outputs in [buildpath/relpath/file.o]*
if (input_filename == null) throw bad("no input file' (use --help)");
if( !input_filename.isEmpty() && !input_filename.endsWith(".smp") )
throw bad("File extension must be .smp");
Path inPath = Path.of(input_filename);
// Figure out the module path
Path modPath;
if( root == null ) {
modPath = inPath.getParent();
if( modPath == null )
modPath = Path.of(".");
} else {
throw Utils.TODO();
}
// Compute the module-relative paths for all sources
Path srcRelPath = modPath.relativize(inPath);
int n = srcRelPath.getNameCount();
Path relPath = n==1 ? null : srcRelPath.subpath(0,n-1);
// Compute source/class name
String srcNameExt = srcRelPath.getName(n-1).toString();
String srcName = srcNameExt.substring(0,srcNameExt.length()-4);
// Compute the build path.
Path outPath;
if( out == null ) {
// If no output given, the build dir is the modPath
outPath = modPath;
} else {
// If the output is a directory, that is our out path
outPath = Path.of(out);
if( !out.endsWith("/") ) {
// If the output is a file, the directory is our outPath
Path fullOut = outPath;
outPath = outPath.getParent();
if( outPath == null )
outPath = Path.of(".");
Path foo = outPath.relativize(fullOut);
if( !foo.toString().equals(srcName+".o") )
throw bad("Output path needs to be of the form "+srcName+".o");
}
}
String outBase = outPath.resolve(srcName).toString();
if( do_run || print_asm || print_size ) {
if (cpu == null) cpu = TestC.CPU_PORT;
if (abi == null) abi = TestC.CALL_CONVENTION;
do_codegen = true;
}
if( cpu == null ) cpu = TestC.CPU_PORT;
if( abi == null ) abi = TestC.CALL_CONVENTION;
String simpleHome = System.getenv("SIMPLE_HOME");
if( simpleHome != null && !simpleHome.isEmpty() )
libPaths.add(Path.of(simpleHome,cpu+"_"+abi).toString());
// Read input file
try {
src = input_filename.isEmpty() ? getInput() : Files.readString(Path.of(input_filename));
} catch( IOException e ) { throw bad("Cannot read input file: "+input_filename); }
// Compilation pipeline
Ary<String> externPaths = libPaths.isEmpty() ? null : new Ary<>(libPaths.toArray(new String[0]));
CodeGen code = new CodeGen(modPath.toString(), outPath.toString(), externPaths, srcName, src, 456, true, TypeInteger.BOT );
code.driver(Phase.LastPhase,cpu,abi, false, emit_main || do_run || do_eval, dump);
if( do_codegen && print_asm )
System.out.println(code.asm());
if( print_size )
System.out.printf( "Code Size: %d%n", code._encoding._bits.size());
if( print_time )
print_compilation_times(code);
if( do_eval ) {
// TODO: Support for evaluation of functions with different argument numbers and types
long t = System.currentTimeMillis();
long arg = (i+1 < args.length) ? Integer.parseInt(args[i+1]) : 0;
System.out.println(Eval2.eval(code, arg, 100000));
if( print_time )
System.out.printf( "EXECUTION TIME: %.3f sec%n", (System.currentTimeMillis() - t) / 1e3);
}
if( do_run ) {
if ( !TestC.CPU_PORT.equals( cpu ) || !TestC.CALL_CONVENTION.equals( abi ) )
throw bad("cannot run code on not native target");
String exe = TestC.OS.startsWith("Windows") ? outBase+".exe" : outBase;
String result = TestC.gcc(outBase+".o", null, null, "", TestC.linkObjs(externPaths), exe);
System.out.print(result);
}
}
}
|
