Allocate Fur stacks on the C heap
[fur] / generation.py
1 import jinja2
2
3 import transformation
4
5 ENV = jinja2.Environment(
6     autoescape=jinja2.select_autoescape([]),
7     loader=jinja2.FileSystemLoader('templates'),
8     trim_blocks=True,
9 )
10
11 def generate_integer_literal(c_integer_literal):
12     return 'integerLiteral({})'.format(c_integer_literal.value)
13
14 def generate_string_literal(c_string_literal):
15     return 'stringLiteral(STRING_LITERAL_LIST[{}] /* string: {} */)'.format(
16         c_string_literal.index,
17         repr(c_string_literal.value),
18     )
19
20 def generate_symbol_expression(symbol_expression):
21     return 'Environment_get(environment, SYMBOL_LIST[{}] /* symbol: {} */)'.format(
22         symbol_expression.symbol_list_index,
23         symbol_expression.symbol,
24     )
25
26 def generate_variable_expression(expression):
27     return expression.variable
28
29 def generate_function_call_for_fur_infix_operator(expression):
30     return 'operator${}(stack, jump, {})'.format(
31         expression.name,
32         expression.metadata.line,
33     )
34
35 def generate_structure_literal_expression(expression):
36     return 'Structure_construct({}, {}, {})'.format(
37         expression.field_count,
38         expression.symbol_list_variable,
39         expression.value_list_variable,
40     )
41
42 def generate_dot_expression(expression):
43     return 'Structure_get(&{}, SYMBOL_LIST[{}] /* symbol: "{}" */)'.format(
44         generate_variable_expression(expression.instance),
45         expression.symbol_list_index,
46         expression.symbol,
47     )
48
49 def generate_list_construct_expression(expression):
50     return 'List_construct({})'.format(expression.allocate)
51
52 def generate_list_get_expression(expression):
53     return 'List_get(&{}, {})'.format(
54         generate_expression(expression.list_expression),
55         generate_expression(expression.index_expression),
56     )
57
58 def generate_expression(expression):
59     return {
60         transformation.CDotExpression: generate_dot_expression,
61         transformation.CFunctionCallExpression: generate_function_call,
62         transformation.CFunctionCallForFurInfixOperator: generate_function_call_for_fur_infix_operator,
63         transformation.CIntegerLiteral: generate_integer_literal,
64         transformation.CListConstructExpression: generate_list_construct_expression,
65         transformation.CListGetExpression: generate_list_get_expression,
66         transformation.CNegationExpression: generate_negation_expression,
67         transformation.CStringLiteral: generate_string_literal,
68         transformation.CStructureLiteralExpression: generate_structure_literal_expression,
69         transformation.CSymbolExpression: generate_symbol_expression,
70         transformation.CVariableExpression: generate_variable_expression,
71     }[type(expression)](expression)
72
73 def generate_negation_expression(c_negation_expression):
74     return 'operator$negate({})'.format(
75         generate_expression(c_negation_expression.value)
76     )
77
78 def generate_function_call(function_call):
79     # This gets called twice, so we want to be sure it is efficient and without side effects
80     assert isinstance(function_call.function_expression, transformation.CVariableExpression)
81
82     # TODO Check the type of the things being called
83     function_expression = generate_variable_expression(function_call.function_expression)
84     return '{}.instance.closure.call(environmentPool, {}.instance.closure.closed, {}, stack, jump)'.format(
85         function_expression,
86         function_expression,
87         function_call.argument_count,
88     )
89
90 def generate_expression_statement(statement):
91     return 'Object_deinitialize(&({}));'.format(generate_expression(statement.expression))
92
93 def generate_symbol_assignment_statement(statement):
94     return 'Environment_set(environment, SYMBOL_LIST[{}] /* symbol: {} */, {});'.format(
95         statement.target_symbol_list_index,
96         statement.target,
97         generate_expression(statement.expression),
98     )
99
100 def generate_array_variable_initialization_statement(statement):
101     return 'Object {}[] = {{ {} }};'.format(
102         statement.variable,
103         ', '.join(generate_expression(i) for i in statement.items),
104     )
105
106 def generate_symbol_array_variable_initialization_statement(statement):
107     return 'const char* {}[] = {{ {} }};'.format(
108         statement.variable,
109         ', '.join('SYMBOL_LIST[{}] /* symbol: "{}" */'.format(
110             statement.symbol_list_indices[i],
111             statement.symbol_list[i],
112         ) for i in range(len(statement.symbol_list))),
113     )
114
115 def generate_variable_initialization_statement(statement):
116     return 'Object {} = {};'.format(
117         statement.variable,
118         generate_expression(statement.expression),
119     )
120
121 def generate_variable_reassignment_statement(statement):
122     return '{} = {};'.format(
123         statement.variable,
124         generate_expression(statement.expression),
125     )
126
127
128 def indent(s):
129     return '\n'.join(' ' * 2 + l for l in s.split('\n'))
130
131 def generate_if_else_statement(statement):
132     # TODO Check that the argument is boolean
133     condition_expression = '{}.instance.boolean'.format(
134         generate_expression(statement.condition_expression),
135     )
136
137     if len(statement.if_statement_list) == 0:
138         condition_expression = '!({})'.format(condition_expression)
139         if_statement_list = statement.else_statement_list
140         else_statement_list = ()
141     else:
142         if_statement_list = statement.if_statement_list
143         else_statement_list = statement.else_statement_list
144
145     generated_if_clause = 'if({})'.format(condition_expression)
146
147     if len(if_statement_list) == 0:
148         generated_if_statement_list = ';'
149     else:
150         generated_if_statement_list = indent('\n{{\n{}\n}}'.format(
151             indent('\n'.join(generate_statement(s) for s in if_statement_list)),
152         ))
153
154     if len(else_statement_list) == 0:
155         generated_else_statement_list = ''
156     else:
157         generated_else_statement_list = indent('\nelse\n{{\n{}\n}}'.format(
158             indent('\n'.join(generate_statement(s) for s in else_statement_list)),
159         ))
160
161     return generated_if_clause + generated_if_statement_list + generated_else_statement_list
162
163 def generate_function_declaration(statement):
164     return 'Environment_set(environment, "{}", (Object){{ CLOSURE, (Instance)(Closure){{ environment, user${}$implementation }} }});'.format(statement.name, statement.name)
165
166 def generate_list_append_statement(statement):
167     return 'List_append(&{}, {});'.format(
168         generate_expression(statement.list_expression),
169         generate_expression(statement.item_expression),
170     )
171
172 def generate_push_statement(statement):
173     return 'Stack_push(stack, {});'.format(generate_expression(statement.expression))
174
175 def generate_statement(statement):
176     return {
177         transformation.CArrayVariableInitializationStatement: generate_array_variable_initialization_statement,
178         transformation.CExpressionStatement: generate_expression_statement,
179         transformation.CFunctionDeclaration: generate_function_declaration,
180         transformation.CIfElseStatement: generate_if_else_statement,
181         transformation.CListAppendStatement: generate_list_append_statement,
182         transformation.CPushStatement: generate_push_statement,
183         transformation.CSymbolAssignmentStatement: generate_symbol_assignment_statement,
184         transformation.CSymbolArrayVariableInitializationStatement: generate_symbol_array_variable_initialization_statement,
185         transformation.CVariableInitializationStatement: generate_variable_initialization_statement,
186         transformation.CVariableReassignmentStatement: generate_variable_reassignment_statement,
187     }[type(statement)](statement)
188
189 def generate_function_definition(definition):
190     template = ENV.get_template('function_definition.c')
191     return template.render(
192         name=definition.name,
193         argument_name_list=definition.argument_name_list,
194         statement_list=list(generate_statement(s) for s in definition.statement_list),
195     )
196     return definition
197
198 C_ESCAPES = {
199     '"':    r'\"',
200 }
201
202 def escape_character(ch):
203     return C_ESCAPES.get(ch, ch)
204
205 def escape_string_literal(string_literal):
206     return  ''.join(escape_character(ch) for ch in string_literal)
207
208 def generate(program):
209     template = ENV.get_template('program.c')
210     return template.render(
211         builtins=tuple(sorted(program.builtin_set)),
212         function_definition_list=list(generate_function_definition(fd) for fd in program.function_definition_list),
213         infix_declarations=program.operator_declarations,
214         statements=list(generate_statement(s) for s in program.statements),
215         standard_libraries=list(sorted(program.standard_libraries)),
216         string_literal_list=list(escape_string_literal(s) for s in program.string_literal_list),
217         symbol_list=program.symbol_list,
218     )
219
220 if __name__ == '__main__':
221     import unittest
222
223     unittest.main()