mirror of https://git.sr.ht/~garritfra/sabre
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
273 lines
8.5 KiB
273 lines
8.5 KiB
/** |
|
* Copyright 2020 Garrit Franke |
|
* |
|
* Licensed under the Apache License, Version 2.0 (the "License"); |
|
* you may not use this file except in compliance with the License. |
|
* You may obtain a copy of the License at |
|
* |
|
* https://www.apache.org/licenses/LICENSE-2.0 |
|
* |
|
* Unless required by applicable law or agreed to in writing, software |
|
* distributed under the License is distributed on an "AS IS" BASIS, |
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
|
* See the License for the specific language governing permissions and |
|
* limitations under the License. |
|
*/ |
|
use crate::generator::Generator; |
|
use crate::parser::node_type::*; |
|
use crate::util::Either; |
|
|
|
pub struct CGenerator; |
|
|
|
impl Generator for CGenerator { |
|
fn generate(prog: Module) -> String { |
|
let mut code = String::new(); |
|
|
|
let raw_builtins = |
|
crate::Builtins::get("builtin.c").expect("Could not locate builtin functions"); |
|
code += std::str::from_utf8(raw_builtins.as_ref()) |
|
.expect("Unable to interpret builtin functions"); |
|
|
|
for func in &prog.func { |
|
code += &format!("{};\n", &generate_function_signature(func.clone())); |
|
} |
|
|
|
let funcs: String = prog.func.into_iter().map(generate_function).collect(); |
|
|
|
code += &funcs; |
|
|
|
code |
|
} |
|
} |
|
|
|
pub(super) fn generate_type(t: Either<Variable, Option<Type>>) -> String { |
|
let (ty, name) = match t { |
|
Either::Left(var) => (var.ty, Some(var.name)), |
|
Either::Right(ty) => (ty, None), |
|
}; |
|
match ty { |
|
Some(t) => match t { |
|
Type::Int => "int".into(), |
|
Type::Str => "char *".into(), |
|
Type::Any => "void *".into(), |
|
Type::Bool => "bool".into(), |
|
Type::Struct(_) => todo!(), |
|
Type::Array(_) => match name { |
|
Some(n) => format!( |
|
"{T} {N}[]", |
|
T = generate_type(Either::Right(Some(t))), |
|
N = n |
|
), |
|
None => format!("{}[]", generate_type(Either::Right(Some(t)))), |
|
}, |
|
}, |
|
None => "void".into(), |
|
} |
|
} |
|
|
|
fn generate_function(func: Function) -> String { |
|
let mut buf = String::new(); |
|
buf += &format!("{} ", &generate_function_signature(func.clone())); |
|
if let Statement::Block(statements, scope) = func.body { |
|
buf += &generate_block(statements, scope); |
|
} |
|
|
|
buf |
|
} |
|
|
|
fn generate_function_signature(func: Function) -> String { |
|
let arguments: String = func |
|
.arguments |
|
.into_iter() |
|
.map(|var| format!("{} {}", generate_type(Either::Left(var.clone())), var.name)) |
|
.collect::<Vec<String>>() |
|
.join(", "); |
|
let t = generate_type(Either::Right(func.ret_type)); |
|
format!("{T} {N}({A})", T = t, N = func.name, A = arguments) |
|
} |
|
|
|
fn generate_block(block: Vec<Statement>, _scope: Vec<Variable>) -> String { |
|
let mut generated = String::from("{\n"); |
|
|
|
for statement in block { |
|
generated += &generate_statement(statement); |
|
} |
|
|
|
generated += "}\n"; |
|
|
|
generated |
|
} |
|
|
|
fn generate_statement(statement: Statement) -> String { |
|
let state = match statement { |
|
Statement::Return(ret) => generate_return(ret), |
|
Statement::Declare(var, val) => generate_declare(var, val), |
|
Statement::Exp(val) => generate_expression(val) + ";\n", |
|
Statement::If(expr, if_state, else_state) => { |
|
generate_conditional(expr, *if_state, else_state.map(|x| *x)) |
|
} |
|
Statement::Assign(name, state) => generate_assign(*name, *state), |
|
Statement::Block(statements, scope) => generate_block(statements, scope), |
|
Statement::While(expr, body) => generate_while_loop(expr, *body), |
|
Statement::For(_ident, _expr, _body) => todo!(), |
|
Statement::Continue => todo!(), |
|
Statement::Break => todo!(), |
|
Statement::Match(_, _) => todo!(), |
|
}; |
|
|
|
format!("{}\n", state) |
|
} |
|
|
|
fn generate_expression(expr: Expression) -> String { |
|
match expr { |
|
Expression::Int(val) => val.to_string(), |
|
Expression::Variable(val) | Expression::Str(val) => val, |
|
Expression::Bool(b) => b.to_string(), |
|
Expression::FunctionCall(name, e) => generate_function_call(name, e), |
|
Expression::Array(els) => generate_array(els), |
|
Expression::ArrayAccess(name, expr) => generate_array_access(name, *expr), |
|
Expression::BinOp(left, op, right) => generate_bin_op(*left, op, *right), |
|
Expression::StructInitialization(_, _) => todo!(), |
|
Expression::FieldAccess(_, _) => todo!(), |
|
} |
|
} |
|
|
|
fn generate_while_loop(expr: Expression, body: Statement) -> String { |
|
let mut out_str = String::from("while ("); |
|
|
|
out_str += &generate_expression(expr); |
|
out_str += ") "; |
|
|
|
if let Statement::Block(statements, scope) = body { |
|
out_str += &generate_block(statements, scope); |
|
} |
|
out_str |
|
} |
|
|
|
fn generate_array(elements: Vec<Expression>) -> String { |
|
let mut out_str = String::from("["); |
|
|
|
out_str += &elements |
|
.iter() |
|
.map(|el| match el { |
|
Expression::Int(x) => x.to_string(), |
|
Expression::Str(x) => x.to_string(), |
|
_ => todo!("Not yet implemented"), |
|
}) |
|
.collect::<Vec<String>>() |
|
.join(", "); |
|
|
|
out_str += "]"; |
|
out_str |
|
} |
|
|
|
fn generate_array_access(name: String, expr: Expression) -> String { |
|
format!("{n}[{e}]", n = name, e = generate_expression(expr)) |
|
} |
|
|
|
fn generate_conditional( |
|
expr: Expression, |
|
if_state: Statement, |
|
else_state: Option<Statement>, |
|
) -> String { |
|
let expr_str = generate_expression(expr); |
|
|
|
let body = match if_state { |
|
Statement::Block(blk, _) => blk, |
|
_ => panic!("Conditional body should be of type block"), |
|
}; |
|
|
|
let mut outcome = format!("if ({})", expr_str); |
|
|
|
outcome += "{\n"; |
|
for statement in body { |
|
outcome += &generate_statement(statement); |
|
} |
|
outcome += "}"; |
|
|
|
if let Some(else_state) = else_state { |
|
outcome += "else "; |
|
outcome += &generate_statement(else_state); |
|
} |
|
outcome |
|
} |
|
|
|
fn generate_declare(var: Variable, val: Option<Expression>) -> String { |
|
// var is used here to not collide with scopes. |
|
// TODO: Can let be used instead? |
|
match val { |
|
Some(expr) => format!( |
|
"{} {} = {};", |
|
generate_type(Either::Left(var.to_owned())), |
|
var.name, |
|
generate_expression(expr) |
|
), |
|
None => format!( |
|
"{} {};", |
|
generate_type(Either::Left(var.to_owned())), |
|
var.name |
|
), |
|
} |
|
} |
|
|
|
fn generate_function_call(func: String, args: Vec<Expression>) -> String { |
|
let formatted_args = args |
|
.into_iter() |
|
.map(|arg| match arg { |
|
Expression::Int(i) => i.to_string(), |
|
Expression::Bool(v) => v.to_string(), |
|
Expression::ArrayAccess(name, expr) => generate_array_access(name, *expr), |
|
Expression::FunctionCall(n, a) => generate_function_call(n, a), |
|
Expression::Str(s) | Expression::Variable(s) => s, |
|
Expression::Array(_) => todo!(), |
|
Expression::BinOp(left, op, right) => generate_bin_op(*left, op, *right), |
|
Expression::StructInitialization(_, _) => todo!(), |
|
Expression::FieldAccess(_, _) => todo!(), |
|
}) |
|
.collect::<Vec<String>>() |
|
.join(","); |
|
format!("{N}({A})", N = func, A = formatted_args) |
|
} |
|
|
|
fn generate_return(ret: Option<Expression>) -> String { |
|
match ret { |
|
Some(expr) => format!("return {};", generate_expression(expr)), |
|
None => "return;".to_string(), |
|
} |
|
} |
|
|
|
fn generate_bin_op(left: Expression, op: BinOp, right: Expression) -> String { |
|
let op_str = match op { |
|
BinOp::Addition => "+", |
|
BinOp::And => "&&", |
|
BinOp::Division => "/", |
|
BinOp::Equal => "==", |
|
BinOp::GreaterThan => ">", |
|
BinOp::GreaterThanOrEqual => ">=", |
|
BinOp::LessThan => "<", |
|
BinOp::LessThanOrEqual => "<=", |
|
BinOp::AddAssign => "+=", |
|
BinOp::SubtractAssign => "-=", |
|
BinOp::MultiplyAssign => "*=", |
|
BinOp::DivideAssign => "/=", |
|
BinOp::Modulus => "%", |
|
BinOp::Multiplication => "*", |
|
BinOp::NotEqual => "!=", |
|
BinOp::Or => "||", |
|
BinOp::Subtraction => "-", |
|
}; |
|
format!( |
|
"{l} {op} {r}", |
|
l = generate_expression(left), |
|
op = op_str, |
|
r = generate_expression(right) |
|
) |
|
} |
|
|
|
fn generate_assign(name: Expression, expr: Expression) -> String { |
|
format!( |
|
"{} = {};", |
|
generate_expression(name), |
|
generate_expression(expr) |
|
) |
|
}
|
|
|