blob: 911b02c7d72dc728be1ae1d1637e88f95fce7427 (
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
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
|
struct Function {
~uint8 name,
utils.Vector
inputs,
outputs,
~parse.Node _up,
}
/; method Function
/; init (~parse.Node n)
self.name = utils.strcpy(n`.data)
self._up = n
Var v
self.inputs.init(len v)
self.outputs.init(len v)
;/
/; _resolve_dlist (~Module parent, ~parse.Node dl)
~parse.Node tn = NULL
~parse.Node n
/; loop (int i = 0; i < dl`.sub.count) [i++]
n = dl`.sub.get(i)
/; if (n`._type == parse.NTYPE_TYPE)
tn = n
;; else if (n`._type == parse.NTYPE_ID)
/; if (tn == NULL)
_printf("Identifier declared in parameter list before any type was found!\n\0")
return
;/
Var p
p.init(tn, n)
p._resolve_type(parent)
self.inputs.push(~p)
;/
;/
;/
/; _resolve_tlist (~Module parent, ~parse.Node tl)
~parse.Node n
parse.Node dummy
dummy.data = "### OUTPUT ###\0"
/; loop (int i = 0; i < tl`.sub.count) [i++]
n = tl`.sub.get(i)
/; if (n`._type == parse.NTYPE_TYPE)
Var r
r.init(n, ~dummy)
r._resolve_type(parent)
self.outputs.push(~r)
;/
;/
;/
/; _resolve_type (~Module parent)
~parse.Node _up = self._up
/; if (_up`.sub.count < 1)
return
;/
~parse.Node lst = _up`.sub.get(0)
/; if (lst`._type == parse.NTYPE_DLIST)
self._resolve_dlist(parent, lst)
/; if (_up`.sub.count > 1)
lst = _up`.sub.get(1)
;/
;/
/; if (lst`._type == parse.NTYPE_TLIST)
self._resolve_tlist(parent, lst)
;/
;/
/; _compile (~Module parent, ~CompBuf cb)
;/
/; _print (int idt)
_indent(idt)
_printf("{ Function : \0")
_printf(self.name)
_printf("\n\0")
_indent(idt)
_printf(" inputs:\n\0")
~Var prtv
/; loop (int i = 0; i < self.inputs.count) [i++]
prtv = self.inputs.get(i)
prtv`._print(idt + 1)
;/
_indent(idt)
_printf(" outputs:\n\0")
/; loop (int i = 0; i < self.outputs.count) [i++]
prtv = self.outputs.get(i)
prtv`._print(idt + 1)
;/
_indent(idt)
_printf("}\n\0")
;/
/; end
_delete(self.name)
~Var v
/; loop (int i = 0; i < self.inputs.count) [i++]
v = self.inputs.get(i)
v`.end()
;/
self.inputs.end()
/; loop (int i = 0; i < self.outputs.count) [i++]
v = self.outputs.get(i)
v`.end()
;/
self.outputs.end()
;/
;/
|
