annotate dang/compiler.d @ 51:c96cdcbdb9d6 new_gen

Rearranged some stuff, and renamed LLVMGen -> CodeGen
author Anders Halager <halager@gmail.com>
date Sat, 26 Apr 2008 15:54:54 +0200
parents e24515bcd4ef
children 4ae365eff712
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
1 module dang.compiler;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
2
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
3 import tango.io.Stdout,
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
4 tango.core.Signal,
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
5 tango.io.FilePath;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
6
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
7 import lexer.Lexer,
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
8 parser.Parser;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
9
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
10 import misc.DataSource;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
11
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
12 import ast.Decl;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
13
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
14 import tools.AstPrinter,
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
15 tools.DotPrinter;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
16
51
c96cdcbdb9d6 Rearranged some stuff, and renamed LLVMGen -> CodeGen
Anders Halager <halager@gmail.com>
parents: 50
diff changeset
17 import gen.CodeGen;
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
18
13
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
19 import sema.Visitor,
51
c96cdcbdb9d6 Rearranged some stuff, and renamed LLVMGen -> CodeGen
Anders Halager <halager@gmail.com>
parents: 50
diff changeset
20 sema.AstAction,
13
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
21 sema.SymbolTableBuilder,
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
22 sema.Declarations;
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
23
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
24 import dang.OptParse;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
25
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
26 void checkFiles(char[][] *files)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
27 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
28 bool error = false;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
29
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
30 char[][] validFiles;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
31
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
32 foreach(file ; *files)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
33 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
34 auto path = new FilePath(file);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
35
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
36 if(!path.exists)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
37 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
38 Stdout("File '"~file~"' does not exists").newline;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
39 error = true;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
40
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
41 continue;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
42 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
43
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
44 bool fileInStack = false;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
45 foreach(vFile ; validFiles)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
46 if(vFile == file)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
47 fileInStack = true;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
48
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
49 if(fileInStack)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
50 continue;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
51
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
52 validFiles ~= file;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
53 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
54
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
55 *files = validFiles;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
56
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
57 if(error)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
58 throw new Exception("Some file(s) did not exist");
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
59 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
60 void main(char[][] args)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
61 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
62 char[][] filesToHandle;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
63
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
64 Signal!(char[][]*) preStart;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
65
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
66 Signal!(char[]) preLex;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
67 Signal!(Lexer) postLex;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
68
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
69 Signal!(Lexer) preParse;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
70 Signal!(Decl[], DataSource) postParse;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
71
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
72 preStart.attach(&checkFiles);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
73
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
74 auto argParse = new OptionParser;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
75
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
76 bool optimize = false;
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
77 bool inline = false;
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
78
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
79 argParse.addOption(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
80 ["-h", "--help"],{
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
81 argParse.helpText();
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
82 return;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
83 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
84 ).help("Show this help message");
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
85
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
86 argParse.addOption(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
87 ["--ast-dump-dot"], {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
88 postParse.attach(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
89 (Decl[] decls, DataSource src) {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
90 auto print = new DotPrinter();
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
91 print.print(decls);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
92 });
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
93 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
94 ).help("Output the AST as dot-graphicz");
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
95
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
96 argParse.addOption(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
97 ["--ast-dump-code"], {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
98 postParse.attach(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
99 (Decl[] decls, DataSource src) {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
100 auto print = new AstPrinter(src);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
101 print.print(decls);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
102 });
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
103 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
104 ).help("Output the AST as dot-graphicz");
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
105
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
106 argParse.addOption(
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
107 ["--gen-llvm"], {
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
108 /* postParse.attach(
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
109 (Decl[] decls, DataSource src) {
51
c96cdcbdb9d6 Rearranged some stuff, and renamed LLVMGen -> CodeGen
Anders Halager <halager@gmail.com>
parents: 50
diff changeset
110 auto llvmGen = new CodeGen();
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
111 llvmGen.gen(decls);
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
112 }); */
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
113 }
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
114 ).help("Compile to LLVM code (default)");
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
115
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
116 argParse.addOption(
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
117 ["-O","--optimize"], {
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
118 optimize = true;
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
119 }
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
120 ).help("Optimize code when compiling to LLVM");
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
121
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
122 argParse.addOption(
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
123 ["--inline"], {
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
124 inline = true;
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
125 }
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
126 ).help("Inline functions when compiling to LLVM");
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
127
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
128 auto options = argParse.parse(args);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
129
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
130 filesToHandle ~= options.args;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
131
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
132 try
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
133 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
134 preStart(&filesToHandle);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
135 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
136 catch(Exception e)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
137 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
138 return;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
139 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
140
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
141 postParse.attach(
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
142 (Decl[] decls, DataSource src) {
51
c96cdcbdb9d6 Rearranged some stuff, and renamed LLVMGen -> CodeGen
Anders Halager <halager@gmail.com>
parents: 50
diff changeset
143 auto llvmGen = new CodeGen();
40
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
144 llvmGen.gen(decls, optimize, inline);
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
145 });
9fb190ad81a4 Added -O and --inline args to Dang.
Anders Johnsen <skabet@gmail.com>
parents: 22
diff changeset
146
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
147 foreach(file ; filesToHandle)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
148 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
149 preLex(file);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
150
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
151 auto src = DataSource(file);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
152 auto lexer = new Lexer(src);
22
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
153 /*
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
154 auto t = lexer.next;
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
155 while(t.getType != "EOF")
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
156 {
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
157 Stdout(t.getType)(" : ")(t.get).newline;
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
158 t = lexer.next;
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
159 }
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
160 lexer = new Lexer(src);
e331e4e816e4 now handling structs to some extend
johnsen@johnsen-laptop
parents: 13
diff changeset
161 */
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
162 postLex(lexer);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
163
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
164 preParse(lexer);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
165
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
166 auto parser = new Parser;
51
c96cdcbdb9d6 Rearranged some stuff, and renamed LLVMGen -> CodeGen
Anders Halager <halager@gmail.com>
parents: 50
diff changeset
167 auto decls = cast(Decl[])parser.parse(lexer, new AstAction);
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
168
13
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
169 (new SymbolTableBuilder).visit(decls);
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
170 (new Declarations).visit(decls);
e5caf9971207 Checking for types and identifiers. TODO: Make each varDecl create a new scope
johnsen@johnsen-desktop
parents: 1
diff changeset
171
1
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
172 postParse(decls, src);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
173 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
174
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
175 /* if (args.length > 1 && args[1] == "lex")
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
176 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
177 Token t;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
178
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
179 t = lexer.next();
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
180 while(t.type != Tok.EOF)
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
181 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
182 Stdout(src.get(t.position, t.length)).newline;
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
183 t = lexer.next();
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
184 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
185 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
186 else
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
187 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
188 auto decl = parser.parse(lexer);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
189 if(args.length > 1 && args[1] == "dump-ast")
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
190 {
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
191 auto buffer = new AstBuffer(src.data);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
192 decl.print(buffer);
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
193 }
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
194 }*/
2168f4cb73f1 First push
johnsen@johnsen-desktop
parents:
diff changeset
195 }