--- a/Cface__CEnumNode.st Sun Sep 30 22:11:52 2012 +0000
+++ b/Cface__CEnumNode.st Tue Sep 23 16:52:40 2014 +0100
@@ -1,9 +1,9 @@
-"{ Package: 'cvut:fel/cface' }"
+"{ Package: 'jv:cface' }"
"{ NameSpace: Cface }"
CDerivedTypeNode subclass:#CEnumNode
- instanceVariableNames:'typedef values'
+ instanceVariableNames:'typeDef values'
classVariableNames:''
poolDictionaries:''
category:'Cface-C AST'
@@ -30,9 +30,9 @@
"Created: #foreign: / 19-11-2007 / 09:40:11 / haja"
"Created: #name:fields:foreign: / 19-11-2007 / 09:40:37 / haja"
"Deleted: #name:fields: / 19-11-2007 / 09:40:40 / haja"
- "Created: #typedef / 05-12-2007 / 19:39:04 / haja"
- "Created: #typedef: / 05-12-2007 / 19:39:04 / haja"
- "Created: #name:fields:foreign:typedef: / 05-12-2007 / 19:39:37 / haja"
+ "Created: #typeDef / 05-12-2007 / 19:39:04 / haja"
+ "Created: #typeDef: / 05-12-2007 / 19:39:04 / haja"
+ "Created: #name:fields:foreign:typeDef: / 05-12-2007 / 19:39:37 / haja"
"Deleted: #name:fields:foreign: / 05-12-2007 / 21:00:50 / haja"
! !
@@ -55,7 +55,7 @@
ffiTypeSymbol
"Superclass Cface::CTypeNode says that I am responsible to implement this method"
-
+
^ #int32
"Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -67,14 +67,14 @@
"Created: / 09-09-2008 / 21:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
-typedef
- ^ typedef
+typeDef
+ ^ typeDef
"Created: / 05-12-2007 / 19:39:04 / haja"
!
-typedef:something
- typedef := something.
+typeDef:something
+ typeDef := something.
"Created: / 05-12-2007 / 19:39:04 / haja"
!
@@ -96,7 +96,7 @@
printOn: stream indent: level
super printOn: stream indent: level.
- stream
+ stream
nextPutAll:'(enum '; nextPutAll: cName.
values do:
[:enumValue|
@@ -118,11 +118,11 @@
!CEnumNode methodsFor:'visiting'!
-acceptVisitor:aVisitor
+acceptVisitor:aVisitor
"Double dispatch back to the visitor, passing my type encoded in
the selector (visitor pattern)"
"stub code automatically generated - please change if required"
-
+
^ aVisitor visitCEnumNode:self
"Created: / 02-11-2007 / 10:43:33 / haja"