oak-delphi 0.0.11

Delphi language parser with support for modern Delphi syntax and object-oriented programming features.
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

#![doc = include_str!("readme.md")]
/// Delphi highlight kinds
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
pub enum HighlightKind {
    /// Keyword
    Keyword,
    /// String
    String,
    /// Number
    Number,
    /// Comment
    Comment,
    /// Identifier
    Identifier,
}

/// Delphi syntax highlighter
pub struct DelphiHighlighter;

impl Default for DelphiHighlighter {
    fn default() -> Self {
        Self
    }
}

impl DelphiHighlighter {
    /// Creates a new `DelphiHighlighter`
    pub fn new() -> Self {
        Self::default()
    }

    /// Highlights the text
    pub fn highlight(&self, text: &str) -> Vec<(usize, usize, HighlightKind)> {
        let mut highlights = Vec::new();
        // Simple implementation: match keywords only
        let keywords = ["program", "unit", "interface", "implementation", "begin", "end", "var", "type", "procedure", "function", "if", "then", "else", "for", "to", "do", "while", "repeat", "until"];

        for keyword in keywords {
            let mut start = 0;
            while let Some(pos) = text[start..].find(keyword) {
                let abs_pos = start + pos;
                let end_pos = abs_pos + keyword.len();
                highlights.push((abs_pos, end_pos, HighlightKind::Keyword));
                start = end_pos
            }
        }

        highlights
    }
}