oak-pascal 0.0.11

Pascal programming language parser with support for structured programming and modern Pascal 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

use oak_core::{ElementType, Parser, UniversalElementRole};

/// Element types for Pascal.
#[derive(Debug, Clone, Copy, PartialEq, Eq, Hash)]
#[cfg_attr(feature = "serde", derive(serde::Serialize, serde::Deserialize))]
pub enum PascalElementType {
    /// The root node of the AST.
    Root,
    /// A program node.
    Program,
    /// A unit node.
    Unit,
    /// An interface section.
    Interface,
    /// An implementation section.
    Implementation,
    /// An initialization section.
    Initialization,
    /// A finalization section.
    Finalization,
    /// A constant declaration section.
    ConstSection,
    /// A type declaration section.
    TypeSection,
    /// A variable declaration section.
    VarSection,
    /// A procedure declaration.
    Procedure,
    /// A function declaration.
    Function,
    /// A code block.
    Block,
    /// A statement.
    Statement,
    /// An expression.
    Expression,
    /// An error element.
    Error,
}

impl ElementType for PascalElementType {
    type Role = UniversalElementRole;

    fn role(&self) -> Self::Role {
        match self {
            _ => UniversalElementRole::None,
        }
    }
}

impl From<crate::lexer::token_type::PascalTokenType> for PascalElementType {
    fn from(token: crate::lexer::token_type::PascalTokenType) -> Self {
        use crate::lexer::token_type::PascalTokenType;
        match token {
            PascalTokenType::Root => PascalElementType::Root,
            PascalTokenType::ProgramBlock => PascalElementType::Program,
            PascalTokenType::VarSection => PascalElementType::VarSection,
            PascalTokenType::ConstSection => PascalElementType::ConstSection,
            PascalTokenType::TypeSection => PascalElementType::TypeSection,
            PascalTokenType::ProcedureDef => PascalElementType::Procedure,
            PascalTokenType::FunctionDef => PascalElementType::Function,
            PascalTokenType::CompoundStmt => PascalElementType::Block,
            PascalTokenType::Expression => PascalElementType::Expression,
            _ => PascalElementType::Error,
        }
    }
}