2021-12-16 22:24:31 +00:00
|
|
|
use crate::{Tree, Literal};
|
2021-12-16 18:23:02 +00:00
|
|
|
|
|
|
|
grammar<'s>();
|
|
|
|
|
|
|
|
|
2021-12-16 22:24:31 +00:00
|
|
|
pub(crate) Tree: Tree = {
|
|
|
|
"(" <Tree+> ")" => Tree::Branch(<>),
|
2021-12-17 02:57:20 +00:00
|
|
|
"(" "define" <Sym> <BTree> ")" => Tree::Define(<>),
|
|
|
|
"(" "if" <Tree> <Tree> <Tree> ")" => Tree::If(Box::new([<>])),
|
2021-12-16 22:24:31 +00:00
|
|
|
Literal => Tree::Leaf(<>),
|
2021-12-16 18:23:02 +00:00
|
|
|
}
|
2021-12-16 22:24:31 +00:00
|
|
|
|
2021-12-17 02:57:20 +00:00
|
|
|
BTree = { Box<Tree> }
|
2021-12-16 22:24:31 +00:00
|
|
|
|
|
|
|
Literal: Literal = {
|
|
|
|
Sym => Literal::Sym(<>),
|
|
|
|
Num => Literal::Num(<>),
|
2021-12-17 02:57:20 +00:00
|
|
|
Bool => Literal::Bool(<>),
|
2021-12-16 22:24:31 +00:00
|
|
|
}
|
|
|
|
|
2021-12-16 23:15:31 +00:00
|
|
|
Box<T>: Box<T> = { T => Box::new(<>) }
|
2021-12-16 22:24:31 +00:00
|
|
|
|
|
|
|
Sym: String = { r"[A-Za-z!$%&*+\-./:<=>?@^_~][A-Za-z!$%&*+\-./:<=>?@^_~0-9]*" => <>.to_owned() }
|
2021-12-17 02:57:20 +00:00
|
|
|
Num: f64 = { r"[0-9]+(\.[0-9]+)?" => <>.parse().unwrap() }
|
|
|
|
Bool: bool = {
|
|
|
|
"#t" => true,
|
|
|
|
"#f" => false,
|
|
|
|
}
|