Wisp/wisp
Wisp/wisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

added parse test

Browse source
This commit is contained in:
Erin 2022-07-26 20:03:58 +02:00 committed by ondra05
parent 8518098e89
commit ec4c8d168a
2 changed files with 35 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/syntax/lexer.rs
View file

@ -18,7 +18,7 @@ pub enum Token<'a> {
Quote,
#[token("#")]
Octothrope,
Octothorpe,
// Values
#[regex("\"(\\.|[^\"])*\"", (lex_slice::<1, 1>))]
@ -56,7 +56,7 @@ impl<'a> Display for Token<'a> {
Token::RightParen => write!(f, ")"),
Token::Dot => write!(f, "."),
Token::Quote => write!(f, "'"),
Token::Octothrope => write!(f, "#"),
Token::Octothorpe => write!(f, "#"),
Token::String(s) => write!(f, "\"{s}\""),
Token::Number(n) => write!(f, "{n}"),
Token::Symbol(sym) => write!(f, "{sym}"),
@ -82,7 +82,7 @@ mod tests {
LeftParen,
RightParen,
Quote,
Octothrope,
Octothorpe,
String("ABLE"),
Symbol("corp"),
Keyword("wisp"),

35
src/syntax/parser.rs
View file

@ -26,7 +26,7 @@ fn parser<'a>() -> impl Parser<Token<'a>, Vec<Spanned<Expr<'a>>>, Error = Simple
.repeated()
.delimited_by(just(Token::LeftParen), just(Token::RightParen));
let vector = just(Token::Octothrope)
let vector = just(Token::Octothorpe)
.ignore_then(list.clone())
.map(Expr::Vector);
@ -60,7 +60,36 @@ fn parser<'a>() -> impl Parser<Token<'a>, Vec<Spanned<Expr<'a>>>, Error = Simple
mod tests {
use super::*;
fn assert_parse<'a>(src: &'a str, expected: &'a [Spanned<Expr<'a>>]) {
assert_eq!(parse(src).unwrap(), expected);
#[test]
fn function() {
assert_eq!(
parse(r#"(defun hello (name) (log (concat "Hello, " name "!")))"#).unwrap(),
&[Spanned::new(
Expr::List(vec![
Spanned::new(Expr::Symbol("defun".into()), 1..6),
Spanned::new(Expr::Symbol("hello".into()), 7..12),
Spanned::new(
Expr::List(vec![Spanned::new(Expr::Symbol("name".into()), 14..18),]),
13..19,
),
Spanned::new(
Expr::List(vec![
Spanned::new(Expr::Symbol("log".into()), 21..24),
Spanned::new(
Expr::List(vec![
Spanned::new(Expr::Symbol("concat".into()), 26..32),
Spanned::new(Expr::String("Hello, ".into()), 33..42),
Spanned::new(Expr::Symbol("name".into()), 43..47),
Spanned::new(Expr::String("!".into()), 48..51),
]),
48..51
)
]),
20..53
)
]),
0..54,
)]
);
}
}