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

use prism_parser::core::span::Span;

pub mod from_action_result;

#[derive(Default)]
pub struct ParseEnv {
    values: Vec<SourceExpr>,
    value_spans: Vec<Span>,
}

#[derive(Copy, Clone, Hash, Eq, PartialEq, Debug)]
pub struct ParseIndex(usize);

impl ParseIndex {
    pub fn index(self) -> usize {
        self.0
    }
}

impl ParseEnv {
    pub fn store(&mut self, e: SourceExpr, span: Span) -> ParseIndex {
        self.values.push(e);
        self.value_spans.push(span);
        ParseIndex(self.values.len() - 1)
    }

    pub fn values(&self) -> &[SourceExpr] {
        &self.values
    }

    pub fn value_spans(&self) -> &[Span] {
        &self.value_spans
    }
}

#[derive(Clone, Eq, PartialEq)]
pub enum SourceExpr {
    Type,
    Let(String, ParseIndex, ParseIndex),
    Variable(String),
    FnType(String, ParseIndex, ParseIndex),
    FnConstruct(String, ParseIndex, ParseIndex),
    FnDestruct(ParseIndex, ParseIndex),
}