summaryrefslogtreecommitdiff
path: root/tnslc/src/ast/node.tnsl
blob: cddfe5dbb580d740093e2fbf324938597791641d (plain)
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
/##
	Copyright 2021 Kyle Gunger

	This file is licenced under the CDDL 1.0 (the Licence)
	and may only be used in accordance with the Licence.
	You should have recieved a copy of the Licence with this
	software/source code. If you did not, a copy can be found
	at the following URL:

	https://opensource.org/licenses/CDDL-1.0

	THIS SOFTWARE/SOURCE CODE IS PROVIDED "AS IS" WITH NO
	WARRENTY, GUARANTEE, OR CLAIM OF FITNESS FOR ANY PURPOSE
	EXPRESS OR IMPLIED
#/

# AST node (non-block)
;struct Node {
	tnslc.parse.Token
		# associated token to the node
		data,

	~{}Node
		# sub-nodes
		sub
}

# AST node (block)
;struct BlockNode extends Node {
	super,

	~{}Node
		# block inputs and outputs
		blockIn,
		blockOut,
	
	~{}tnslc.parse.Token
		# block qualifiers
		blockQs
}

# Node methods
/; method Node

	/; operator delete
		;delete this.data, this.sub
	;/

	/; push_sub (Node node) [uint]
		;uint len = this.sub.length
		;alloc this.sub, len + 1
		;this.sub{len} = node
		;return len + 1
	;/
;/

# Extended block node methods
/; method BlockNode

	/; operator delete
		;super()
		;delete this.blockQs, this.blockIn, this.blockOut
	;/

	/; push_blockQ (tnslc.parse.Token token) [uint]
		;uint len = this.blockQs.length
		;alloc this.blockQs, len + 1
		;this.blockQs{len} = token
		;return len + 1
	;/

	/; push_blockIn (Node node) [uint]
		;uint len = this.blockIn.length
		;alloc this.blockIn, len + 1
		;this.blockIn{len} = node
		;return len + 1
	;/

	/; push_blockOut (Node node) [uint]
		;uint len = this.blockOut.length
		;alloc this.blockOut, len + 1
		;this.blockOut{len} = node
		;return len + 1
	;/
;/