lispexp 0.3.0

A pure-Rust reader (lexer + parser) for S-expression syntax across many Lisp dialects
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

//! Reader tests for the Guile dialect.

use lispexp::{parse, Datum, DatumKind, Options, Prefix};

fn guile(src: &str) -> Vec<Datum<'_>> {
    let parsed = parse(src, &Options::guile());
    assert!(
        parsed.errors.is_empty(),
        "unexpected errors: {:?}",
        parsed.errors
    );
    parsed.data
}

#[test]
fn hash_colon_keyword() {
    let data = guile("#:kw");
    assert_eq!(data[0].kind, DatumKind::Keyword("#:kw"));
}

#[test]
fn hash_apostrophe_is_var_quote() {
    let data = guile("#'x");
    assert!(matches!(
        data[0].kind,
        DatumKind::Prefixed {
            prefix: Prefix::VarQuote,
            ..
        }
    ));
}

#[test]
fn booleans() {
    let data = guile("#t #f");
    assert_eq!(data[0].kind, DatumKind::Bool(true));
    assert_eq!(data[1].kind, DatumKind::Bool(false));
}

#[test]
fn char_literal() {
    let data = guile(r"#\a");
    assert_eq!(data[0].kind, DatumKind::Char(r"#\a"));
}

#[test]
fn nestable_block_comment_is_skipped() {
    let data = guile("#| a #| nested |# b |# (define x 1)");
    assert_eq!(data.len(), 1);
    let DatumKind::List { items, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(items[0].kind, DatumKind::Symbol("define"));
    assert_eq!(items[1].kind, DatumKind::Symbol("x"));
    assert_eq!(items[2].kind, DatumKind::Number("1"));
}

#[test]
fn define_list() {
    let data = guile("(define (f x) (+ x 1))");
    assert_eq!(data.len(), 1);
    assert!(matches!(data[0].kind, DatumKind::List { .. }));
}

#[test]
fn hash_curly_extended_symbol_is_one_symbol() {
    // Guile `#{foo bar}#` is a single verbatim symbol (ADR-0016, L4).
    let data = guile("#{foo bar}#");
    assert_eq!(data.len(), 1, "expected one symbol, got {:?}", data);
    assert_eq!(data[0].kind, DatumKind::Symbol("#{foo bar}#"));
}

#[test]
fn hash_curly_symbol_tiles_the_input() {
    // The extended symbol plus a following form: the token stream stays tiled
    // (no bytes lost or double-counted).
    use lispexp::{lex, Options};
    let src = "#{a b}# x";
    let opts = Options::guile();
    let mut cursor = 0u32;
    for t in lex(src, &opts) {
        assert_eq!(t.span.start, cursor, "gap/overlap at {t:?}");
        cursor = t.span.end;
    }
    assert_eq!(cursor as usize, src.len());
    let data = guile(src);
    assert_eq!(data[0].kind, DatumKind::Symbol("#{a b}#"));
    assert_eq!(data[1].kind, DatumKind::Symbol("x"));
}