author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 04 Jul 2008 08:35:55 +0000 | |
changeset 3 | 110a9cbf8594 |
parent 1 | b6c0180314d1 |
child 4 | fc74bd43a3eb |
permissions | -rw-r--r-- |
1 | 1 |
"{ Package: 'cvut:fel/cface' }" |
2 |
||
3 |
"{ NameSpace: Cface }" |
|
4 |
||
5 |
CModifierNode subclass:#CConstNode |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'Cface-C AST' |
|
10 |
! |
|
11 |
||
12 |
!CConstNode class methodsFor:'documentation'! |
|
13 |
||
14 |
history |
|
15 |
||
16 |
"Created: / 25-10-2007 / 16:58:14 / haja" |
|
17 |
"Created: #id / 25-10-2007 / 16:58:17 / haja" |
|
18 |
"Created: #id: / 29-10-2007 / 20:48:37 / haja" |
|
19 |
"Created: #acceptVisitor: / 02-11-2007 / 10:41:30 / haja" |
|
20 |
"Created: #acceptNameVisitor: / 05-11-2007 / 17:37:52 / haja" |
|
21 |
"Deleted: #acceptNameVisitor: / 12-11-2007 / 09:46:40 / haja" |
|
22 |
"Created: #buildTypeCheckFor:on: / 19-12-2007 / 15:57:17 / haja" |
|
23 |
"Created: #buildObjectCreationOn: / 19-12-2007 / 16:40:59 / haja" |
|
24 |
"Created: #buildValueExtractionFor:on: / 19-12-2007 / 17:30:58 / haja" |
|
25 |
"Created: #buildObjectCreationFor:on: / 19-12-2007 / 17:39:29 / haja" |
|
26 |
"Deleted: #buildObjectCreationOn: / 19-12-2007 / 17:39:31 / haja" |
|
27 |
"Created: #buildCTypeOn: / 19-12-2007 / 18:20:45 / haja" |
|
28 |
"Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:19:58 / haja" |
|
29 |
! ! |
|
30 |
||
31 |
!CConstNode class methodsFor:'instance creation'! |
|
32 |
||
33 |
id:anId |
|
34 |
||
35 |
| defConstNode | |
|
36 |
||
37 |
defConstNode := self new. |
|
38 |
defConstNode id:anId. |
|
39 |
||
40 |
^defConstNode |
|
41 |
||
42 |
"Created: / 29-10-2007 / 20:48:37 / haja" |
|
43 |
! ! |
|
44 |
||
45 |
!CConstNode methodsFor:'builder'! |
|
46 |
||
47 |
buildCTypeOn:aBuilder |
|
48 |
||
49 |
id buildCTypeOn:aBuilder. |
|
50 |
||
51 |
"Created: / 19-12-2007 / 18:20:45 / haja" |
|
52 |
! |
|
53 |
||
54 |
buildObjectCreationFor:aVariable on:aBuilder |
|
55 |
||
56 |
^id buildObjectCreationFor:aVariable on:aBuilder. |
|
57 |
||
58 |
"Created: / 19-12-2007 / 17:39:29 / haja" |
|
59 |
! |
|
60 |
||
61 |
buildTypeCheckFor:aVariable on:aBuilder |
|
62 |
||
63 |
^id buildTypeCheckFor:aVariable on:aBuilder. |
|
64 |
||
65 |
"Created: / 19-12-2007 / 15:57:17 / haja" |
|
66 |
! |
|
67 |
||
68 |
buildTypeDescriptionOn:aBuilder |
|
69 |
||
70 |
aBuilder buildConstFor:[ |
|
71 |
id buildTypeDescriptionOn:aBuilder. |
|
72 |
]. |
|
73 |
||
74 |
"Created: / 20-12-2007 / 12:19:58 / haja" |
|
75 |
! |
|
76 |
||
77 |
buildValueExtractionFor:aVariable on:aBuilder |
|
78 |
||
79 |
^id buildValueExtractionFor:aVariable on:aBuilder. |
|
80 |
||
81 |
"Created: / 19-12-2007 / 17:30:58 / haja" |
|
82 |
! ! |
|
83 |
||
84 |
!CConstNode methodsFor:'printing'! |
|
85 |
||
86 |
printOn: stream indent: indent |
|
87 |
||
88 |
stream |
|
89 |
nextPutAll:'const '; |
|
90 |
cr; |
|
91 |
next: indent + 1 put: Character tab. |
|
92 |
||
93 |
type printOn: stream indent: indent + 1. |
|
94 |
||
95 |
"Created: / 04-03-2008 / 10:57:12 / janfrog" |
|
96 |
! ! |
|
97 |
||
98 |
!CConstNode methodsFor:'testing'! |
|
99 |
||
3
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
100 |
isCCharNode |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
101 |
^ type isCCharNode |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
102 |
|
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
103 |
"Created: / 04-07-2008 / 09:27:56 / 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
|
104 |
! |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
105 |
|
1 | 106 |
isCConstNode |
107 |
^ true |
|
108 |
||
109 |
"Created: / 17-02-2008 / 21:52:38 / janfrog" |
|
3
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
110 |
! |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
111 |
|
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
112 |
isCStructNode |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
113 |
^ type isCStructNode |
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
114 |
|
110a9cbf8594
More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1
diff
changeset
|
115 |
"Created: / 04-07-2008 / 09:28:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1 | 116 |
! ! |
117 |
||
118 |
!CConstNode methodsFor:'visiting'! |
|
119 |
||
120 |
acceptVisitor:aVisitor |
|
121 |
"Double dispatch back to the visitor, passing my type encoded in |
|
122 |
the selector (visitor pattern)" |
|
123 |
"stub code automatically generated - please change if required" |
|
124 |
||
125 |
^ aVisitor visitCConstNode:self |
|
126 |
||
127 |
"Created: / 02-11-2007 / 10:41:30 / haja" |
|
128 |
"Modified: / 10-02-2008 / 10:44:45 / janfrog" |
|
129 |
! ! |
|
130 |
||
131 |
!CConstNode class methodsFor:'documentation'! |
|
132 |
||
133 |
version |
|
134 |
^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CConstNode.st,v 1.1 2008/02/26 15:59:11 vranyj1 Exp $' |
|
135 |
! ! |