cemc 0.1.2

Cem language compiler - A concatenative language with green threads and linear types
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

/// Integration tests for the parser
use super::*;
use crate::ast::Expr;

#[test]
fn test_parse_complete_program() {
    let input = r#"
        type Option (T)
          | Some(T)
          | None

        : unwrap ( Option(Int) Int -- Int )
          swap match
            Some => [ swap drop ]
            None => [ ]
          end ;
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    assert!(result.is_ok(), "Parse failed: {:?}", result.err());
    let program = result.unwrap();

    assert_eq!(program.type_defs.len(), 1);
    assert_eq!(program.word_defs.len(), 1);

    // Check type definition
    assert_eq!(program.type_defs[0].name, "Option");
    assert_eq!(program.type_defs[0].variants.len(), 2);

    // Check word definition
    assert_eq!(program.word_defs[0].name, "unwrap");
}

#[test]
fn test_parse_pattern_match() {
    let input = r#"
        : handle ( Option(Int) -- Int )
          match
            Some => [ ]
            None => [ 0 ]
          end ;
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    assert!(result.is_ok());
    let program = result.unwrap();

    assert_eq!(program.word_defs.len(), 1);

    // Check that body contains a match expression
    assert_eq!(program.word_defs[0].body.len(), 1);
    match &program.word_defs[0].body[0] {
        Expr::Match { branches, loc: _ } => {
            assert_eq!(branches.len(), 2);
        }
        _ => panic!("Expected Match expression"),
    }
}

#[test]
fn test_parse_if_expression() {
    let input = r#"
        : abs ( Int -- Int )
          dup 0 < if [ 0 swap - ] [ ] ;
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    if let Err(e) = &result {
        eprintln!("Parse error: {}", e);
    }
    assert!(result.is_ok());
    let program = result.unwrap();

    // Body should be: dup, 0, <, if-expr
    assert_eq!(program.word_defs[0].body.len(), 4);
}

#[test]
fn test_parse_comments() {
    let input = r#"
        # This is a comment
        : square ( Int -- Int )
          # Duplicate and multiply
          dup * ;  # End of word
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    assert!(result.is_ok());
    let program = result.unwrap();
    assert_eq!(program.word_defs.len(), 1);
}

#[test]
fn test_parse_multiple_words() {
    let input = r#"
        : double ( Int -- Int )
          2 * ;

        : quadruple ( Int -- Int )
          double double ;
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    assert!(result.is_ok());
    let program = result.unwrap();
    assert_eq!(program.word_defs.len(), 2);
    assert_eq!(program.word_defs[0].name, "double");
    assert_eq!(program.word_defs[1].name, "quadruple");
}

#[test]
fn test_parse_polymorphic_effect() {
    let input = r#"
        : dup ( A -- A A )
          dup ;
    "#;

    let mut parser = Parser::new(input);
    let result = parser.parse();

    assert!(result.is_ok());
    let program = result.unwrap();

    // Check that effect signature parsed correctly
    let effect = &program.word_defs[0].effect;
    assert_eq!(effect.inputs.depth(), Some(1));
    assert_eq!(effect.outputs.depth(), Some(2));
}