Split up parser

The structure mostly follows the ast structure, with some slight
changes. Each parser submodule documents which ast submodule it
corresponds to.

This parser is not yet complete, and I have yet to go through its
modules one-by-one to fix and complete them.
This commit is contained in:
Joscha 2022-11-18 20:20:37 +01:00
parent 037a0f69a3
commit a559966c1d
7 changed files with 511 additions and 419 deletions

162
src/parser/suffix.rs Normal file
View file

@ -0,0 +1,162 @@
//! Corresponds to `ast::call` and `ast::field`.
use chumsky::prelude::*;
use crate::ast::{Call, Expr, Field, Ident, Space, TableConstr};
use crate::span::{HasSpan, Span};
use super::basic::{space, Error};
enum Suffix {
CallArg {
s0: Space,
s1: Space,
arg: Box<Expr>,
s2: Space,
},
CallNoArg {
s0: Space,
s1: Space,
},
CallConstr {
s0: Space,
constr: TableConstr,
},
FieldAccess {
s0: Space,
s1: Space,
index: Box<Expr>,
s2: Space,
},
FieldAssign {
s0: Space,
s1: Space,
index: Box<Expr>,
s2: Space,
s3: Space,
s4: Space,
value: Box<Expr>,
},
FieldAccessIdent {
s0: Space,
s1: Space,
ident: Ident,
},
FieldAssignIdent {
s0: Space,
s1: Space,
ident: Ident,
s2: Space,
s3: Space,
value: Box<Expr>,
},
}
impl Suffix {
fn into_expr(self, span: Span, expr: Expr) -> Expr {
let expr = Box::new(expr);
match self {
Suffix::CallArg { s0, s1, arg, s2 } => Expr::Call(Call::Arg {
expr,
s0,
s1,
arg,
s2,
span,
}),
Suffix::CallNoArg { s0, s1 } => Expr::Call(Call::NoArg { expr, s0, s1, span }),
Suffix::CallConstr { s0, constr } => Expr::Call(Call::Constr {
expr,
s0,
constr,
span,
}),
Suffix::FieldAccess { s0, s1, index, s2 } => Expr::Field(Field::Access {
expr,
s0,
s1,
index,
s2,
span,
}),
Suffix::FieldAssign {
s0,
s1,
index,
s2,
s3,
s4,
value,
} => Expr::Field(Field::Assign {
expr,
s0,
s1,
index,
s2,
s3,
s4,
value,
span,
}),
Suffix::FieldAccessIdent { s0, s1, ident } => Expr::Field(Field::AccessIdent {
expr,
s0,
s1,
ident,
span,
}),
Suffix::FieldAssignIdent {
s0,
s1,
ident,
s2,
s3,
value,
} => Expr::Field(Field::AssignIdent {
expr,
s0,
s1,
ident,
s2,
s3,
value,
span,
}),
}
}
}
fn suffix_field_access(
expr: impl Parser<char, Expr, Error = Error> + Clone,
) -> impl Parser<char, Suffix, Error = Error> {
space()
.then_ignore(just("["))
.then(space())
.then(expr)
.then(space())
.then_ignore(just("]"))
.map(|(((s0, s1), index), s2)| Suffix::FieldAccess {
s0,
s1,
index: Box::new(index),
s2,
})
}
pub fn suffixed(
atom: impl Parser<char, Expr, Error = Error>,
expr: impl Parser<char, Expr, Error = Error> + Clone,
) -> impl Parser<char, Expr, Error = Error> {
let field_access = suffix_field_access(expr.clone());
let suffix = field_access.map_with_span(|suffix, span| (suffix, span));
atom.then(suffix.repeated())
.foldl(|expr, (suffix, span)| suffix.into_expr(expr.span().join(span), expr))
}