equal
deleted
inserted
replaced
64 |
64 |
65 !SmalltalkXGenerator methodsFor:'visiting'! |
65 !SmalltalkXGenerator methodsFor:'visiting'! |
66 |
66 |
67 visitCEnumNode: cEnumNode |
67 visitCEnumNode: cEnumNode |
68 |
68 |
69 cEnumNode foreign ifTrue:[^self]. |
69 cEnumNode isForeign ifTrue:[^self]. |
70 |
70 |
71 (changeset add: ClassDefinitionChange new) |
71 (changeset add: ClassDefinitionChange new) |
72 superClassName: |
72 superClassName: |
73 SharedPool fullName; |
73 SharedPool fullName; |
74 className: |
74 className: |
76 classVariableNames: |
76 classVariableNames: |
77 (String streamContents: |
77 (String streamContents: |
78 [:s| |
78 [:s| |
79 cEnumNode values do: |
79 cEnumNode values do: |
80 [:cEnumValueNode| |
80 [:cEnumValueNode| |
81 s nextPutAll: cEnumValueNode cName; space]]); |
81 s nextPutAll: cEnumValueNode smalltalkName; space]]); |
82 category: |
82 category: |
83 cEnumNode smalltalkCategory; |
83 cEnumNode smalltalkCategory; |
84 package: |
84 package: |
85 cEnumNode smalltalkPackage. |
85 cEnumNode smalltalkPackage. |
86 |
86 |
97 s nextPutAll:'initialize' ; cr; cr. |
97 s nextPutAll:'initialize' ; cr; cr. |
98 cEnumNode values do: |
98 cEnumNode values do: |
99 [:cEnumValueNode| |
99 [:cEnumValueNode| |
100 s |
100 s |
101 tab; |
101 tab; |
102 nextPutAll: cEnumValueNode cName; |
102 nextPutAll: cEnumValueNode smalltalkName; |
103 nextPutAll: ' := '; |
103 nextPutAll: ' := '; |
104 nextPutAll: cEnumValueNode intValue; |
104 nextPutAll: cEnumValueNode intValue; |
105 nextPut:$.; cr]]). |
105 nextPut:$.; cr]]). |
106 |
106 |
107 cEnumNode values do: |
107 cEnumNode values do: |
114 category: |
114 category: |
115 #constants; |
115 #constants; |
116 source: |
116 source: |
117 (String streamContents: |
117 (String streamContents: |
118 [:s| |
118 [:s| |
119 s nextPutAll: cEnumValueNode cName; cr; cr. |
119 s nextPutAll: cEnumValueNode smalltalkName; cr; cr. |
120 s tab; nextPut:$^; nextPutAll: cEnumValueNode cName])] |
120 s tab; nextPut:$^; nextPutAll: cEnumValueNode smalltalkName])] |
121 |
121 |
122 "Created: / 03-07-2008 / 20:10:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
122 "Created: / 03-07-2008 / 20:10:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
123 "Modified: / 04-07-2008 / 09:24:44 / Jan Vrany <vranyj1@fel.cvut.cz>" |
123 "Modified: / 04-07-2008 / 11:58:27 / Jan Vrany <vranyj1@fel.cvut.cz>" |
124 ! |
124 ! |
125 |
125 |
126 visitCFunctionNode:functionNode |
126 visitCFunctionNode:functionNode |
127 |
127 |
128 (changeset add: MethodDefinitionChange new) |
128 (changeset add: MethodDefinitionChange new) |