return 'integerLiteral({})'.format(c_integer_literal.value)
def generate_string_literal(c_string_literal):
- return 'stringLiteral(STRING_LITERAL_LIST[{}])'.format(c_string_literal.index)
-
-CONSTANT_EXPRESSION_MAPPING = {
- 'true': 'TRUE',
- 'false': 'FALSE',
-}
-
-def generate_constant_expression(c_constant_expression):
- return CONSTANT_EXPRESSION_MAPPING[c_constant_expression.value]
+ return 'stringLiteral(STRING_LITERAL_LIST[{}] /* string: {} */)'.format(
+ c_string_literal.index,
+ repr(c_string_literal.value),
+ )
-def generate_symbol_expression(c_symbol_expression):
+def generate_symbol_expression(symbol_expression):
return 'Environment_get(environment, SYMBOL_LIST[{}] /* symbol: {} */)'.format(
- c_symbol_expression.symbol_list_index,
- c_symbol_expression.symbol,
+ symbol_expression.symbol_list_index,
+ symbol_expression.symbol,
)
def generate_variable_expression(expression):
return expression.variable
-def generate_expression(expression):
- if isinstance(expression, transformation.CNegationExpression):
- return generate_negation_expression(expression)
+def generate_structure_literal_expression(expression):
+ return 'Structure_construct({}, {}, {})'.format(
+ expression.field_count,
+ expression.symbol_list_variable,
+ expression.value_list_variable,
+ )
+
+def generate_lambda_expression(expression):
+ return '(Object){{ CLOSURE, (Instance)(Closure){{ environment, user${}${}$implementation }} }}'.format(
+ expression.name,
+ expression.index,
+ )
- if isinstance(expression, transformation.CFunctionCallExpression):
- return generate_function_call(expression)
+def generate_list_construct_expression(expression):
+ return 'List_construct({})'.format(expression.allocate)
- LITERAL_TYPE_MAPPING = {
+def generate_expression(expression):
+ return {
+ transformation.CFunctionCallExpression: generate_function_call,
+ transformation.CIfElseExpression: generate_if_else_expression,
transformation.CIntegerLiteral: generate_integer_literal,
+ transformation.CLambdaExpression: generate_lambda_expression,
+ transformation.CListConstructExpression: generate_list_construct_expression,
transformation.CStringLiteral: generate_string_literal,
- transformation.CConstantExpression: generate_constant_expression,
+ transformation.CStructureLiteralExpression: generate_structure_literal_expression,
transformation.CSymbolExpression: generate_symbol_expression,
- }
-
- if type(expression) in LITERAL_TYPE_MAPPING:
- return LITERAL_TYPE_MAPPING[type(expression)](expression)
-
- if isinstance(expression, transformation.CFunctionCallForFurInfixOperator):
- return 'operator${}({}, {})'.format(
- expression.name,
- generate_expression(expression.left),
- generate_expression(expression.right),
- )
-
- return {
transformation.CVariableExpression: generate_variable_expression,
}[type(expression)](expression)
-def generate_negation_expression(c_negation_expression):
- return 'operator$negate({})'.format(
- generate_expression(c_negation_expression.value)
- )
-
def generate_function_call(function_call):
- return '{}({}, {})'.format(
- function_call.name,
+ # This gets called twice, so we want to be sure it is efficient and without side effects
+ assert isinstance(function_call.function_expression, transformation.CSymbolExpression)
+
+ # TODO Check the type of the things being called
+ function_expression = generate_expression(function_call.function_expression)
+ return '{}.instance.closure.call(environmentPool, {}.instance.closure.closed, {}, stack, {}, jump)'.format(
+ function_expression,
+ function_expression,
function_call.argument_count,
- # TODO This is just a single item containing a reference to the items list--make that clearer
- generate_expression(function_call.argument_items),
+ function_call.metadata.line,
)
def generate_expression_statement(statement):
- # TODO Do we need to garbage collect the results of arbitrary statements?
- return '{};'.format(generate_expression(statement.expression))
+ return 'Object_deinitialize(&({}));'.format(generate_expression(statement.expression))
-def generate_symbol_assignment_statement(c_assignment_statement):
+def generate_symbol_assignment_statement(statement):
return 'Environment_set(environment, SYMBOL_LIST[{}] /* symbol: {} */, {});'.format(
- c_assignment_statement.target_symbol_list_index,
- c_assignment_statement.target,
- generate_expression(c_assignment_statement.expression),
+ statement.target_symbol_list_index,
+ statement.target,
+ generate_expression(statement.expression),
)
def generate_array_variable_initialization_statement(statement):
', '.join(generate_expression(i) for i in statement.items),
)
-def generate_variable_initialization_statement(statement):
- return 'Object {} = {};'.format(
+def generate_symbol_array_variable_initialization_statement(statement):
+ return 'const char* {}[] = {{ {} }};'.format(
statement.variable,
- generate_expression(statement.expression),
+ ', '.join('SYMBOL_LIST[{}] /* symbol: "{}" */'.format(
+ statement.symbol_list_indices[i],
+ statement.symbol_list[i],
+ ) for i in range(len(statement.symbol_list))),
)
-def generate_variable_reassignment_statement(statement):
- return '{} = {};'.format(
+def generate_variable_initialization_statement(statement):
+ return 'Object {} = {};'.format(
statement.variable,
generate_expression(statement.expression),
)
-
def indent(s):
return '\n'.join(' ' * 2 + l for l in s.split('\n'))
-def generate_if_else_statement(statement):
+def generate_if_else_expression(statement):
# TODO Check that the argument is boolean
- return 'if({}.instance.boolean)\n{{\n{}\n}}\nelse\n{{\n{}\n}}'.format(
+ condition_expression = '{}.instance.boolean'.format(
generate_expression(statement.condition_expression),
- indent('\n'.join(generate_statement(s) for s in statement.if_statements)),
- indent('\n'.join(generate_statement(s) for s in statement.else_statements)),
)
+ if len(statement.if_statement_list) == 0:
+ condition_expression = '!({})'.format(condition_expression)
+ if_statement_list = statement.else_statement_list
+ else_statement_list = ()
+ else:
+ if_statement_list = statement.if_statement_list
+ else_statement_list = statement.else_statement_list
+
+ generated_if_clause = 'if({})'.format(condition_expression)
+
+ if len(if_statement_list) == 0:
+ generated_if_statement_list = ';'
+ else:
+ generated_if_statement_list = indent('\n{{\n{}\n}}'.format(
+ indent('\n'.join(generate_statement(s) for s in if_statement_list)),
+ ))
+
+ if len(else_statement_list) == 0:
+ generated_else_statement_list = ''
+ else:
+ generated_else_statement_list = indent('\nelse\n{{\n{}\n}}'.format(
+ indent('\n'.join(generate_statement(s) for s in else_statement_list)),
+ ))
+
+ return generated_if_clause + generated_if_statement_list + generated_else_statement_list
+
+def generate_list_append_statement(statement):
+ return 'List_append(&{}, {});'.format(
+ generate_expression(statement.list_expression),
+ generate_expression(statement.item_expression),
+ )
+
+def generate_push_statement(statement):
+ return 'Stack_push(stack, {});'.format(generate_expression(statement.expression))
+
def generate_statement(statement):
return {
+ transformation.CArrayVariableInitializationStatement: generate_array_variable_initialization_statement,
transformation.CExpressionStatement: generate_expression_statement,
- transformation.CIfElseStatement: generate_if_else_statement,
+ transformation.CListAppendStatement: generate_list_append_statement,
+ transformation.CPushStatement: generate_push_statement,
transformation.CSymbolAssignmentStatement: generate_symbol_assignment_statement,
- transformation.CArrayVariableInitializationStatement: generate_array_variable_initialization_statement,
+ transformation.CSymbolArrayVariableInitializationStatement: generate_symbol_array_variable_initialization_statement,
transformation.CVariableInitializationStatement: generate_variable_initialization_statement,
- transformation.CVariableReassignmentStatement: generate_variable_reassignment_statement,
}[type(statement)](statement)
+def generate_function_definition(definition):
+ template = ENV.get_template('function_definition.c')
+ return template.render(
+ name=definition.name,
+ index=definition.index,
+ argument_name_list=definition.argument_name_list,
+ statement_list=list(generate_statement(s) for s in definition.statement_list),
+ )
+ return definition
+
+C_ESCAPES = {
+ '"': r'\"',
+}
+
+def escape_character(ch):
+ return C_ESCAPES.get(ch, ch)
+
+def escape_string_literal(string_literal):
+ return ''.join(escape_character(ch) for ch in string_literal)
+
def generate(program):
template = ENV.get_template('program.c')
return template.render(
- builtins=list(sorted(program.builtin_set)),
- statements=[generate_statement(statement) for statement in program.statements],
+ builtins=tuple(sorted(program.builtin_set)),
+ function_definition_list=list(generate_function_definition(fd) for fd in program.function_definition_list),
+ infix_declarations=program.operator_declarations,
+ statements=list(generate_statement(s) for s in program.statements),
standard_libraries=list(sorted(program.standard_libraries)),
- string_literal_list=program.string_literal_list,
+ string_literal_list=list(escape_string_literal(s) for s in program.string_literal_list),
symbol_list=program.symbol_list,
)