author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 04 Jul 2008 12:05:15 +0000 | |
changeset 4 | fc74bd43a3eb |
parent 3 | 110a9cbf8594 |
child 5 | c110eef5b9ef |
permissions | -rw-r--r-- |
1 | 1 |
"{ Package: 'cvut:fel/cface' }" |
2 |
||
3 |
"{ NameSpace: Cface }" |
|
4 |
||
5 |
Object subclass:#CNodeVisitor |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'Cface-Visitors' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!CNodeVisitor class methodsFor:'instance creation'! |
|
14 |
||
15 |
new |
|
16 |
^ self basicNew initialize. |
|
17 |
||
18 |
"Created: / 12-02-2008 / 22:55:07 / janfrog" |
|
19 |
! ! |
|
20 |
||
21 |
!CNodeVisitor class methodsFor:'processing'! |
|
22 |
||
23 |
process: aCNode |
|
24 |
||
25 |
^self new process: aCNode |
|
26 |
||
27 |
"Created: / 12-02-2008 / 23:49:23 / janfrog" |
|
28 |
! ! |
|
29 |
||
30 |
!CNodeVisitor methodsFor:'initialization'! |
|
31 |
||
32 |
initialize |
|
33 |
"Invoked when a new instance is created." |
|
34 |
||
35 |
"/ please change as required (and remove this comment) |
|
36 |
||
37 |
"/ super initialize. -- commented since inherited method does nothing |
|
38 |
||
39 |
"Created: / 12-02-2008 / 22:55:07 / janfrog" |
|
40 |
! ! |
|
41 |
||
42 |
!CNodeVisitor methodsFor:'processing'! |
|
43 |
||
44 |
process: aCNode |
|
45 |
||
46 |
self visit: aCNode |
|
47 |
||
48 |
"Created: / 12-02-2008 / 23:46:49 / janfrog" |
|
49 |
! ! |
|
50 |
||
51 |
!CNodeVisitor methodsFor:'visiting'! |
|
52 |
||
53 |
visit: aCNode |
|
54 |
||
55 |
^aCNode acceptVisitor: self |
|
56 |
||
57 |
"Created: / 08-02-2008 / 09:06:17 / janfrog" |
|
58 |
! |
|
59 |
||
60 |
visitCArgumentNode:anObject |
|
61 |
||
62 |
^self visit: anObject type |
|
63 |
||
64 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
65 |
! |
|
66 |
||
67 |
visitCArrayNode:anObject |
|
68 |
||
69 |
^self visit: anObject type |
|
70 |
||
71 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
72 |
! |
|
73 |
||
74 |
visitCCharNode:anObject |
|
75 |
||
76 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
77 |
! |
|
78 |
||
79 |
visitCConstNode:anObject |
|
80 |
||
81 |
self visit: anObject type |
|
82 |
||
83 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
84 |
! |
|
85 |
||
86 |
visitCDefinitionFileNode:anObject |
|
87 |
||
88 |
anObject definitions do: |
|
89 |
[:definition|self visit: definition] |
|
90 |
||
91 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
92 |
! |
|
93 |
||
94 |
visitCDoubleNode:anObject |
|
95 |
||
96 |
"Modified: / 12-02-2008 / 23:04:50 / janfrog" |
|
97 |
! |
|
98 |
||
99 |
visitCEnumNode:anObject |
|
100 |
||
101 |
anObject values do: |
|
102 |
[:enumValue|self visit: enumValue] |
|
103 |
||
104 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
105 |
! |
|
106 |
||
107 |
visitCEnumValueNode:anObject |
|
108 |
||
109 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
110 |
! |
|
111 |
||
112 |
visitCFloatNode:anObject |
|
113 |
||
114 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
115 |
! |
|
116 |
||
117 |
visitCFunctionNode:anObject |
|
118 |
||
119 |
anObject arguments do: |
|
120 |
[:argumentNode|self visit: argumentNode]. |
|
121 |
self visit: anObject return |
|
122 |
||
123 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
124 |
! |
|
125 |
||
126 |
visitCFunctionTypeNode:anObject |
|
127 |
||
128 |
anObject arguments do: |
|
129 |
[:argumentNode|self visit: argumentNode]. |
|
130 |
self visit: anObject return |
|
131 |
||
132 |
"Created: / 17-02-2008 / 18:44:19 / janfrog" |
|
133 |
! |
|
134 |
||
135 |
visitCIntNode:anObject |
|
136 |
||
137 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
138 |
! |
|
139 |
||
140 |
visitCLongNode:anObject |
|
141 |
||
142 |
self visit: anObject type |
|
143 |
||
144 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
145 |
! |
|
146 |
||
3
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
147 |
visitCNoNode: node |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
148 |
|
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
149 |
"nothing to do" |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
150 |
|
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
151 |
"Created: / 04-07-2008 / 09:13:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
152 |
! |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
153 |
|
1 | 154 |
visitCPointerNode:anObject |
155 |
||
156 |
self visit: anObject type |
|
157 |
||
158 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
159 |
! |
|
160 |
||
161 |
visitCShortNode:anObject |
|
162 |
||
163 |
"Created: / 12-02-2008 / 23:19:46 / janfrog" |
|
164 |
! |
|
165 |
||
166 |
visitCStructFieldNode:anObject |
|
167 |
||
168 |
self visit: anObject type |
|
169 |
||
170 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
171 |
! |
|
172 |
||
173 |
visitCStructNode:anObject |
|
174 |
||
4
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
175 |
thisContext isRecursive ifTrue:[^self]. |
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
176 |
|
1 | 177 |
anObject fields do: |
178 |
[:fieldNode|self visit: fieldNode] |
|
179 |
||
180 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
4
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
181 |
"Modified: / 04-07-2008 / 12:42:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1 | 182 |
! |
183 |
||
184 |
visitCTypedefNode:anObject |
|
185 |
||
186 |
self visit: anObject type |
|
187 |
||
188 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
189 |
! |
|
190 |
||
191 |
visitCUnionNode:anObject |
|
192 |
||
193 |
anObject fields do: |
|
194 |
[:fieldNode|self visit: fieldNode] |
|
195 |
||
196 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
197 |
! |
|
198 |
||
199 |
visitCUnknownTypeNode:anObject |
|
200 |
||
201 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
202 |
! |
|
203 |
||
204 |
visitCUnsignedNode:anObject |
|
205 |
||
206 |
self visit: anObject type |
|
207 |
||
208 |
"Created: / 12-02-2008 / 23:00:26 / janfrog" |
|
209 |
! |
|
210 |
||
211 |
visitCUserDefinedTypeNode:anObject |
|
212 |
||
213 |
"Created: / 12-02-2008 / 23:00:03 / janfrog" |
|
214 |
! |
|
215 |
||
216 |
visitCVoidNode:anObject |
|
217 |
||
218 |
"Created: / 12-02-2008 / 22:14:55 / janfrog" |
|
219 |
! |
|
220 |
||
4
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
221 |
visitCWCharNode:anObject |
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
222 |
|
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
223 |
"Created: / 04-07-2008 / 12:37:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
224 |
! |
fc74bd43a3eb
Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
225 |
|
1 | 226 |
visitObject:anObject |
227 |
"dispatched back from the visited objects (visitor pattern)" |
|
228 |
||
229 |
"general fallBack - please change as required" |
|
230 |
||
231 |
self halt:'not yet implemented' |
|
232 |
||
233 |
"Created: / 12-02-2008 / 23:19:46 / janfrog" |
|
234 |
! ! |
|
235 |
||
236 |
!CNodeVisitor class methodsFor:'documentation'! |
|
237 |
||
238 |
version |
|
239 |
^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CNodeVisitor.st,v 1.1 2008/02/26 15:57:32 vranyj1 Exp $' |
|
240 |
! ! |