HigherOrderCO/Kind
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Kind.git synced 2024-10-05 19:27:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

initial ADT formatter

Browse Source
This commit is contained in:
Victor Taelin 2024-03-09 19:16:24 -03:00
parent dc5997bde8
commit 76320ddb7f
3 changed files with 69 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/form/mod.rs
View File

@ -136,8 +136,12 @@ impl Form {
out.push_str(value)
},
Form::Line => {
out.push('\n');
out.push_str(&" ".repeat(*tab));
if fmt {
out.push('\n');
out.push_str(&" ".repeat(*tab));
} else {
out.push_str("; ");
}
},
Form::Inc => {
*tab += 1

2
src/main.rs
View File

@ -118,7 +118,7 @@ fn main() {
//fn main() {
//env::set_current_dir("./book").expect("Failed to change directory to ./book");
//let adt = term::sugar::ADT::load("Bool");
//let adt = term::sugar::ADT::load("Vector");
//println!("{:?}", adt);
//}

120
src/term/format.rs
View File

@ -43,10 +43,13 @@ impl Term {
}
pub fn format_go(&self) -> Box<Form> {
// Formats a Nat
if let Some(nat) = self.as_nat() {
return Form::text(&format!("{}", nat));
}
// Formats a List
if let Some(list) = self.as_list() {
if list.len() == 0 {
return Form::text("[]");
@ -59,64 +62,65 @@ impl Term {
}
}
//if let Some(adt) = self.as_adt() {
//return Form::glue("", vec![
//Form::text("data "),
//Form::text("TODO"),
//Form::glue(" ", adt.pars.iter().map(|(x,y)| {
//Form::call("", vec![
//Form::glue("", vec![
//Form::text("("),
//Form::text(x),
//Form::text(": "),
//]),
//y.format_go(),
//Form::text(")"),
//])
//}).collect()),
//Form::call("", vec![
//Form::text(":"),
//Form::pile(" ", adt.idxs.iter().map(|(x,y)| {
//Form::call("", vec![
//Form::glue("", vec![
//Form::text("("),
//Form::text(x),
//Form::text(": "),
//]),
//y.format_go(),
//Form::text(")"),
//])
//}).collect()),
//]),
//Form::line(),
//Form::glue("", adt.ctrs.iter().map(|ctr| {
//let mut vec = vec![
//Form::glue("", vec![
//Form::text("| "),
//Form::text(&ctr.name),
//])
//];
//for (x, y) in &ctr.flds {
//vec.push(Form::call("", vec![
//Form::glue("", vec![
//Form::text("("),
//Form::text(x),
//Form::text(": "),
//]),
//y.format_go(),
//Form::text(")"),
//]));
//}
//vec.push(Form::call("", vec![
//Form::glue("", vec![
//Form::text(":"),
//]),
//ctr.rtyp.format_go(),
//]));
//Form::pile(" ", vec)
//}).collect()),
//]);
//}
// Formats an ADT
if let Some(adt) = self.as_adt() {
let mut adt_form = vec![];
// ADT name
adt_form.push(Form::glue("", vec![
Form::text("data "),
Form::text(&adt.name),
]));
// ADT indices
for (nam,typ) in adt.idxs.iter() {
adt_form.push(Form::call("", vec![
Form::glue("", vec![
Form::text("("),
Form::text(nam),
Form::text(": "),
]),
typ.format_go(),
Form::text(")"),
]));
}
// ADT constructors
adt_form.push(Form::glue("", adt.ctrs.iter().map(|ctr| {
let mut ctr_form = vec![];
// Constructor Name
ctr_form.push(Form::glue("", vec![
Form::line(),
Form::text("| "),
Form::text(&ctr.name),
]));
// Constructor Fields
for (nam,typ) in ctr.flds.iter() {
ctr_form.push(Form::call("", vec![
Form::glue("", vec![
Form::text("("),
Form::text(nam),
Form::text(": "),
]),
typ.format_go(),
Form::text(")"),
]));
}
// Constructor Return
ctr_form.push(Form::glue("", vec![
Form::text(": "),
ctr.rtyp.format_go(),
]));
return Form::call(" ", ctr_form);
}).collect()));
return Form::glue(" ", adt_form);
}
match self {
Term::All { .. } => {