blob: 55b6f9d4365f8ebb14f636328fdacaeb6b7ddf1c (
plain)
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
|
#include <iostream>
#include <string>
#include "parse/lex.hpp"
#include "parse/parseerror.hpp"
#include "ast/ast.hpp"
#include <serialiser_texttree.hpp>
#include <cstring>
extern AST::Crate Parse_Crate(::std::string mainfile);
extern void ResolvePaths(AST::Crate& crate);
extern AST::Flat Convert_Flatten(const AST::Crate& crate);
/// main!
int main(int argc, char *argv[])
{
const char *infile = NULL;
::std::string outfile;
const char *crate_path = ".";
const char *emit_type = "c";
for( int i = 1; i < argc; i ++ )
{
const char* arg = argv[i];
if( arg[0] != '-' )
{
infile = arg;
}
else if( arg[1] != '-' )
{
arg ++; // eat '-'
for( ; *arg; arg ++ )
{
switch(*arg)
{
// "-o <file>" : Set output file
case 'o':
if( i == argc - 1 ) {
// TODO: BAIL!
return 1;
}
outfile = argv[++i];
break;
default:
return 1;
}
}
}
else
{
if( strcmp(arg, "--crate-path") == 0 ) {
if( i == argc - 1 ) {
// TODO: BAIL!
return 1;
}
crate_path = argv[++i];
}
else if( strcmp(arg, "--emit") == 0 ) {
if( i == argc - 1 ) {
// TODO: BAIL!
return 1;
}
emit_type = argv[++i];
}
else {
return 1;
}
}
}
if( outfile == "" )
{
outfile = infile;
outfile += ".o";
}
Serialiser_TextTree s_tt(::std::cout);
Serialiser& s = s_tt;
try
{
AST::Crate crate = Parse_Crate(infile);
s << crate;
// Resolve names to be absolute names (include references to the relevant struct/global/function)
ResolvePaths(crate);
s << crate;
// Typecheck / type propagate module (type annotations of all values)
if( strcmp(emit_type, "ast") == 0 )
{
::std::ofstream os(outfile);
Serialiser_TextTree os_tt(os);
((Serialiser&)os_tt) << crate;
return 0;
}
// Flatten modules into "mangled" set
AST::Flat flat_crate = Convert_Flatten(crate);
// Convert structures to C structures / tagged enums
//Convert_Render(flat_crate, stdout);
}
catch(const ParseError::Base& e)
{
::std::cerr << "Parser Error: " << e.what() << ::std::endl;
return 2;
}
return 0;
}
|
