Closures (and garbage collection for environments, which is required by closures...
[fur] / transformation.py
1 import collections
2
3 import normalization
4 import parsing
5
6 CIntegerLiteral = collections.namedtuple(
7     'CIntegerLiteral',
8     [
9         'value',
10     ],
11 )
12
13 CStringLiteral = collections.namedtuple(
14     'CStringLiteral',
15     [
16         'index',
17         'value',
18     ],
19 )
20
21 CConstantExpression = collections.namedtuple(
22     'CConstantExpression',
23     [
24         'value'
25     ],
26 )
27
28 CVariableExpression = collections.namedtuple(
29     'CVariableExpression',
30     [
31         'variable',
32     ],
33 )
34
35 CSymbolExpression = collections.namedtuple(
36     'CSymbolExpression',
37     [
38         'symbol',
39         'symbol_list_index',
40     ],
41 )
42
43 CNegationExpression = collections.namedtuple(
44     'CNegationExpression',
45     [
46         'value',
47     ],
48 )
49
50 CFunctionCallForFurInfixOperator = collections.namedtuple(
51     'CFunctionCallForFurInfixOperator',
52     [
53         'name',
54         'left',
55         'right',
56     ],
57 )
58
59 CFunctionCallExpression = collections.namedtuple(
60     'CFunctionCallExpression',
61     [
62         'name',
63         'argument_count',
64         'argument_items',
65     ],
66 )
67
68 CSymbolAssignmentStatement = collections.namedtuple(
69     'CSymbolAssignmentStatement',
70     [
71         'target',
72         'target_symbol_list_index',
73         'expression',
74     ],
75 )
76
77 CArrayVariableInitializationStatement = collections.namedtuple(
78     'CArrayVariableInitializationStatement',
79     [
80         'variable',
81         'items',
82     ],
83 )
84
85 CVariableInitializationStatement = collections.namedtuple(
86     'CVariableInitializationStatement',
87     [
88         'variable',
89         'expression',
90     ],
91 )
92
93 CVariableReassignmentStatement = collections.namedtuple(
94     'CVariableReassignmentStatement',
95     [
96         'variable',
97         'expression',
98     ],
99 )
100
101 CExpressionStatement = collections.namedtuple(
102     'CExpressionStatement',
103     [
104         'expression',
105     ],
106 )
107
108 CIfElseStatement = collections.namedtuple(
109     'CIfElseStatement',
110     [
111         'condition_expression',
112         'if_statements',
113         'else_statements',
114     ],
115 )
116
117 CFunctionDeclaration = collections.namedtuple(
118     'CFunctionDeclaration',
119     [
120         'name',
121     ],
122 )
123
124 CFunctionDefinition = collections.namedtuple(
125     'CFunctionDefinition',
126     [
127         'name',
128         'argument_name_list',
129         'statement_list',
130     ],
131 )
132
133 CProgram = collections.namedtuple(
134     'CProgram',
135     [
136         'builtin_set',
137         'function_definition_list',
138         'operator_declarations',
139         'statements',
140         'standard_libraries',
141         'string_literal_list',
142         'symbol_list',
143     ],
144 )
145
146 BUILTINS = {
147     'false':    [],
148     'pow':      ['math.h'],
149     'print':    ['stdio.h'],
150     'true':     [],
151 }
152
153 def transform_variable_expression(accumulators, expression):
154     return CVariableExpression(variable=expression.variable)
155
156 def transform_string_literal(accumulators, expression):
157     value = expression.value
158
159     try:
160         index = accumulators.string_literal_list.index(value)
161     except ValueError:
162         index = len(accumulators.string_literal_list)
163         accumulators.string_literal_list.append(value)
164
165     return CStringLiteral(index=index, value=value)
166
167 def transform_symbol_expression(accumulators, expression):
168     if expression.value in ['true', 'false']:
169         return CConstantExpression(value=expression.value)
170
171     try:
172         symbol_list_index = accumulators.symbol_list.index(expression.value)
173     except ValueError:
174         symbol_list_index = len(accumulators.symbol_list)
175         accumulators.symbol_list.append(expression.value)
176
177     return CSymbolExpression(
178         symbol=expression.value,
179         symbol_list_index=symbol_list_index,
180     )
181
182 CInfixDeclaration = collections.namedtuple(
183     'CInfixDeclaration',
184     [
185         'name',
186         'in_type',
187         'out_type',
188         'operator',
189     ],
190 )
191
192 INFIX_OPERATOR_TO_DECLARATION = {
193     '+':    CInfixDeclaration(name='add', in_type='integer', out_type='integer', operator='+'),
194     '-':    CInfixDeclaration(name='subtract', in_type='integer', out_type='integer', operator='-'),
195     '*':    CInfixDeclaration(name='multiply', in_type='integer', out_type='integer', operator='*'),
196     '//':   CInfixDeclaration(name='integerDivide', in_type='integer', out_type='integer', operator='/'),
197     '%':    CInfixDeclaration(name='modularDivide', in_type='integer', out_type='integer', operator='%'),
198     'and':  CInfixDeclaration(name='and', in_type='boolean', out_type='boolean', operator='&&'),
199     'or':   CInfixDeclaration(name='or', in_type='boolean', out_type='boolean', operator='||'),
200     '==':   CInfixDeclaration(name='equals', in_type='integer', out_type='boolean', operator='=='),
201     '!=':   CInfixDeclaration(name='notEquals', in_type='integer', out_type='boolean', operator='!='),
202     '<=':   CInfixDeclaration(name='lessThanOrEqual', in_type='integer', out_type='boolean', operator='<='),
203     '>=':   CInfixDeclaration(name='greaterThanOrEqual', in_type='integer', out_type='boolean', operator='>='),
204     '<':    CInfixDeclaration(name='lessThan', in_type='integer', out_type='boolean', operator='<'),
205     '>':    CInfixDeclaration(name='greaterThan', in_type='integer', out_type='boolean', operator='>'),
206 }
207
208 def transform_comparison_level_expression(accumulators, expression):
209     accumulators.operator_set.add(INFIX_OPERATOR_TO_DECLARATION[expression.operator])
210
211     # Transform expressions like 1 < 2 < 3 into expressions like 1 < 2 && 2 < 3
212     if isinstance(expression.left, parsing.FurInfixExpression) and expression.left.order == 'comparison_level':
213         left = transform_comparison_level_expression(
214             accumulators,
215             expression.left
216         )
217
218         middle = left.right
219
220         right = transform_expression(
221             accumulators,
222             expression.right,
223         )
224
225         # TODO Don't evaluate the middle expression twice
226         return CFunctionCallForFurInfixOperator(
227             name='and',
228             left=left,
229             right=CFunctionCallForFurInfixOperator(
230                 name=INFIX_OPERATOR_TO_DECLARATION[expression.operator].name,
231                 left=middle,
232                 right=right,
233             ),
234         )
235
236     return CFunctionCallForFurInfixOperator(
237         name=INFIX_OPERATOR_TO_DECLARATION[expression.operator].name,
238         left=transform_expression(accumulators, expression.left),
239         right=transform_expression(accumulators, expression.right),
240     )
241
242 def transform_infix_expression(accumulators, expression):
243     if expression.order == 'comparison_level':
244         return transform_comparison_level_expression(accumulators, expression)
245
246     accumulators.operator_set.add(INFIX_OPERATOR_TO_DECLARATION[expression.operator])
247
248     return CFunctionCallForFurInfixOperator(
249         name=INFIX_OPERATOR_TO_DECLARATION[expression.operator].name,
250         left=transform_expression(accumulators, expression.left),
251         right=transform_expression(accumulators, expression.right),
252     )
253
254 def transform_integer_literal_expression(accumulators, expression):
255     return CIntegerLiteral(value=expression.value)
256
257 def transform_parenthesized_expression(accumulators, expression):
258     # Parentheses can be removed because everything in the C output is explicitly parenthesized
259     return transform_expression(accumulators, expression.internal)
260
261 def transform_negation_expression(accumulators, expression):
262     return CNegationExpression(
263         value=transform_expression(accumulators, expression.internal_expression),
264     )
265
266 def transform_expression(accumulators, expression):
267     # TODO Clean up handlers for parsing expressions
268     return {
269         parsing.FurFunctionCallExpression: transform_function_call_expression,
270         parsing.FurInfixExpression: transform_infix_expression,
271         parsing.FurIntegerLiteralExpression: transform_integer_literal_expression,
272         parsing.FurNegationExpression: transform_negation_expression,
273         parsing.FurParenthesizedExpression: transform_parenthesized_expression,
274         parsing.FurStringLiteralExpression: transform_string_literal,
275         parsing.FurSymbolExpression: transform_symbol_expression,
276         normalization.NormalFunctionCallExpression: transform_function_call_expression,
277         normalization.NormalInfixExpression: transform_infix_expression,
278         normalization.NormalNegationExpression: transform_negation_expression,
279         normalization.NormalVariableExpression: transform_variable_expression,
280     }[type(expression)](accumulators, expression)
281
282 def transform_symbol_assignment_statement(accumulators, assignment_statement):
283     # TODO Check that target is not a builtin
284     try:
285         symbol_list_index = accumulators.symbol_list.index(assignment_statement.target)
286     except ValueError:
287         symbol_list_index = len(accumulators.symbol_list)
288         accumulators.symbol_list.append(assignment_statement.target)
289
290     return CSymbolAssignmentStatement(
291         target=assignment_statement.target,
292         target_symbol_list_index=symbol_list_index,
293         expression=transform_expression(
294             accumulators,
295             assignment_statement.expression,
296         ),
297     )
298
299 def transform_function_call_expression(accumulators, function_call):
300     if function_call.function.value in BUILTINS.keys():
301         # TODO Check that the builtin is actually callable
302         accumulators.builtin_set.add(function_call.function.value)
303
304     # TODO Use the symbol from SYMBOL LIST
305     return CFunctionCallExpression(
306         name=function_call.function.value,
307         argument_count=function_call.argument_count,
308         argument_items=transform_expression(accumulators, function_call.argument_items),
309     )
310
311 def transform_expression_statement(accumulators, statement):
312     return CExpressionStatement(
313         expression=transform_expression(accumulators, statement.expression),
314     )
315
316 def transform_if_else_statement(accumulators, statement):
317     return CIfElseStatement(
318         condition_expression=transform_expression(accumulators, statement.condition_expression),
319         if_statements=tuple(transform_statement(accumulators, s) for s in statement.if_statements),
320         else_statements=tuple(transform_statement(accumulators, s) for s in statement.else_statements),
321     )
322
323 def transform_array_variable_initialization_statement(accumulators, statement):
324     return CArrayVariableInitializationStatement(
325         variable=statement.variable,
326         items=tuple(transform_expression(accumulators, i) for i in statement.items),
327     )
328
329 def transform_variable_initialization_statement(accumulators, statement):
330     return CVariableInitializationStatement(
331         variable=statement.variable,
332         expression=transform_expression(accumulators, statement.expression),
333     )
334
335 def transform_variable_reassignment_statement(accumulators, statement):
336     return CVariableReassignmentStatement(
337         variable=statement.variable,
338         expression=transform_expression(accumulators, statement.expression),
339     )
340
341 def transform_function_definition_statement(accumulators, statement):
342     # TODO Allow defining the same function in different contexts
343     if any(fd.name == statement.name for fd in accumulators.function_definition_list):
344         raise Exception('A function with name "{}" already exists'.format(statement.name))
345
346     # TODO Add argument names to the symbol table
347     accumulators.function_definition_list.append(CFunctionDefinition(
348         name=statement.name,
349         argument_name_list=statement.argument_name_list,
350         statement_list=tuple(transform_statement(accumulators, s) for s in statement.statement_list)
351     ))
352
353     return CFunctionDeclaration(name=statement.name)
354
355 def transform_statement(accumulators, statement):
356     return {
357         parsing.FurExpressionStatement: transform_expression_statement,
358         normalization.NormalArrayVariableInitializationStatement: transform_array_variable_initialization_statement,
359         normalization.NormalAssignmentStatement: transform_symbol_assignment_statement,
360         normalization.NormalExpressionStatement: transform_expression_statement,
361         normalization.NormalFunctionDefinitionStatement: transform_function_definition_statement,
362         normalization.NormalIfElseStatement: transform_if_else_statement,
363         normalization.NormalVariableInitializationStatement: transform_variable_initialization_statement,
364         normalization.NormalVariableReassignmentStatement: transform_variable_reassignment_statement,
365     }[type(statement)](accumulators, statement)
366
367
368 Accumulators = collections.namedtuple(
369     'Accumulators',
370     [
371         'builtin_set',
372         'function_definition_list',
373         'operator_set',
374         'symbol_list',
375         'string_literal_list',
376     ],
377 )
378
379 def transform(program):
380     accumulators = Accumulators(
381         builtin_set=set(),
382         function_definition_list=[],
383         operator_set=set(),
384         symbol_list=[],
385         string_literal_list=[],
386     )
387
388     statement_list = [
389         transform_statement(accumulators, statement) for statement in program.statement_list
390     ]
391
392     standard_library_set = set()
393     for builtin in accumulators.builtin_set:
394         for standard_library in BUILTINS[builtin]:
395             standard_library_set.add(standard_library)
396
397     return CProgram(
398         builtin_set=accumulators.builtin_set,
399         function_definition_list=accumulators.function_definition_list,
400         operator_declarations=tuple(sorted(accumulators.operator_set)),
401         statements=statement_list,
402         standard_libraries=standard_library_set,
403         string_literal_list=accumulators.string_literal_list,
404         symbol_list=accumulators.symbol_list,
405     )
406
407
408 if __name__ == '__main__':
409     import unittest
410
411     unittest.main()