--- a/Cface__SmalltalkXGenerator.st Fri Jul 04 08:35:55 2008 +0000
+++ b/Cface__SmalltalkXGenerator.st Fri Jul 04 12:05:15 2008 +0000
@@ -66,7 +66,7 @@
visitCEnumNode: cEnumNode
- cEnumNode foreign ifTrue:[^self].
+ cEnumNode isForeign ifTrue:[^self].
(changeset add: ClassDefinitionChange new)
superClassName:
@@ -78,7 +78,7 @@
[:s|
cEnumNode values do:
[:cEnumValueNode|
- s nextPutAll: cEnumValueNode cName; space]]);
+ s nextPutAll: cEnumValueNode smalltalkName; space]]);
category:
cEnumNode smalltalkCategory;
package:
@@ -99,7 +99,7 @@
[:cEnumValueNode|
s
tab;
- nextPutAll: cEnumValueNode cName;
+ nextPutAll: cEnumValueNode smalltalkName;
nextPutAll: ' := ';
nextPutAll: cEnumValueNode intValue;
nextPut:$.; cr]]).
@@ -116,11 +116,11 @@
source:
(String streamContents:
[:s|
- s nextPutAll: cEnumValueNode cName; cr; cr.
- s tab; nextPut:$^; nextPutAll: cEnumValueNode cName])]
+ s nextPutAll: cEnumValueNode smalltalkName; cr; cr.
+ s tab; nextPut:$^; nextPutAll: cEnumValueNode smalltalkName])]
"Created: / 03-07-2008 / 20:10:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 04-07-2008 / 09:24:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 04-07-2008 / 11:58:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
visitCFunctionNode:functionNode