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
|
include 'rlhc-host.lm'
include 'rlhc-c.lm'
include 'rlhc-d.lm'
include 'rlhc-csharp.lm'
include 'rlhc-go.lm'
include 'rlhc-java.lm'
include 'rlhc-ruby.lm'
include 'rlhc-ocaml.lm'
include 'rlhc-rust.lm'
include 'rlhc-crack.lm'
include 'rlhc-julia.lm'
include 'rlhc-js.lm'
str argvPop()
{
A: list_el<str> = argv->pop_el()
return A->value
}
OutputFile: str = argvPop()
InputFile: str = argvPop()
Lang: str = argvPop()
Input: stream = open( InputFile, "r" )
parse Start: start[ Input ]
if ( !Start ) {
print( error, '\n' )
exit(1)
}
void assign_labels( Prog: ref<any> )
{
N: int = 1
new Map: map<ident, label_stmt>()
for LabelStmt: label_stmt in Prog {
LabelStmt.Id = N
Map->insert( LabelStmt.ident, LabelStmt )
N = N + 1
}
for GotoStmt: goto_stmt in Prog {
LabelStmt: label_stmt = Map->find( GotoStmt.ident )
if ( LabelStmt )
GotoStmt.Id = LabelStmt.Id
}
}
assign_labels( Start )
Output: stream = open( OutputFile, "w" )
if ( Lang == 'c' )
c_gen::trans( Output, Start )
elsif ( Lang == 'd' )
d_gen::trans( Output, Start )
elsif ( Lang == 'csharp' )
csharp_gen::trans( Output, Start )
elsif ( Lang == 'go' )
go_gen::trans( Output, Start )
elsif ( Lang == 'java' )
java_gen::trans( Output, Start )
elsif ( Lang == 'ruby' )
ruby_gen::trans( Output, Start )
elsif ( Lang == 'ocaml' )
ml_gen::trans( Output, Start )
elsif ( Lang == 'rust' )
rust_gen::trans( Output, Start )
elsif ( Lang == 'crack' )
crack_gen::trans( Output, Start )
elsif ( Lang == 'julia' )
julia_gen::trans( Output, Start )
elsif ( Lang == 'js' )
js_gen::trans( Output, Start )
else {
print( 'rlhc: unrecognized language: ', Lang, '\n' )
}
|