a2kit 4.4.2

Retro disk image and language utility
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

use lsp_types as lsp;
use tree_sitter;
use tree_sitter_applesoft;
use crate::lang::server::{Tokens,SemanticTokensBuilder};
use crate::lang::{Navigate,Navigation,lsp_range};
use crate::DYNERR;

const FUNC_NAMES: [&str;25] = [
	"sgn",
	"int",
	"abs",
	"usr",
	"fre",
	"scrnp",
	"pdl",
	"pos",
	"sqr",
	"rnd",
	"log",
	"exp",
	"cos",
	"sin",
	"tan",
	"atn",
	"peek",
	"len",
	"str",
	"val",
	"asc",
	"chr",
	"left",
	"right",
	"mid"
];

pub struct SemanticTokensProvider {
    parser: tree_sitter::Parser,
    row: isize,
	line: String,
	base: SemanticTokensBuilder
}

impl SemanticTokensProvider {
	pub fn new() -> Self {
        let mut parser = tree_sitter::Parser::new();
        parser.set_language(&tree_sitter_applesoft::LANGUAGE.into()).expect("could not start parser");
		Self {
			parser,
			row: 0,
			line: "".to_string(),
			base: SemanticTokensBuilder::new()
		}
	}
}

impl Tokens for SemanticTokensProvider {
	fn get(&mut self, txt: &str) -> Result<lsp::SemanticTokens,DYNERR> {
		self.base.reset();
		self.row = 0;
		for line in txt.lines() {
			self.line = line.to_string() + "\n";
			if let Some(tree) = self.parser.parse(&self.line,None) {
				self.walk(&tree)?;
			}
			self.row += 1;
		}
		self.base.clone_result()
	}
}

impl Navigate for SemanticTokensProvider {
    fn visit(&mut self,curs: &tree_sitter::TreeCursor) -> Result<Navigation,DYNERR> {
		let rng = lsp_range(curs.node().range(),self.row,0);
		if ["comment_text","tok_rem"].contains(&curs.node().kind()) // must precede tok_ handler
		{
			self.base.process_escapes(curs, &self.line, rng, "comment");
			return Ok(Navigation::GotoSibling);
		}
		if curs.node().kind().starts_with("tok_")
		{
            if FUNC_NAMES.contains(&&curs.node().kind()[4..]) {
                self.base.push(rng,"function");
            } else {
			    self.base.push(rng,"keyword");
            }
            return Ok(Navigation::GotoSibling);
		}
		if curs.node().kind() == "linenum"
		{
			self.base.push(rng,"macro");
			return Ok(Navigation::GotoSibling);
		}
		if ["str","data_str","data_literal"].contains(&curs.node().kind())
		{
			self.base.process_escapes(curs, &self.line, rng, "string");
			return Ok(Navigation::GotoSibling);
		}
		if curs.node().kind()=="name_amp"
		{
            if let Some(child) = curs.node().named_child(0) {
                if child.kind().starts_with("tok_") {
                    return Ok(Navigation::GotoChild);
                }
            }
            self.base.push(rng,"string");
            return Ok(Navigation::GotoSibling);
		}
		if curs.node().kind()=="name_fn"
		{
			self.base.push(rng,"function");
			return Ok(Navigation::GotoSibling);
		}
		if ["int","real","data_int","data_real"].contains(&curs.node().kind())
		{
			self.base.push(rng,"number");
			return Ok(Navigation::GotoSibling);
		}
		if curs.node().kind().starts_with("name_")
		{
			self.base.push(rng, "variable");
			return Ok(Navigation::GotoSibling);
		}
		return Ok(Navigation::GotoChild);
    }
}