Fixes...
--- a/Cface__CArrayNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CArrayNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -29,6 +29,47 @@
"Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:13:36 / haja"
! !
+!CArrayNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+size
+ ^ size
+!
+
+size:anInteger
+ size := anInteger.
+!
+
+type
+ ^ type
+!
+
+type:aCTypeNode
+ type := aCTypeNode.
+! !
+
+!CArrayNode methodsFor:'visiting'!
+
+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 visitCArrayNode:self
+! !
+
!CArrayNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CBuiltinNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CBuiltinNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -12,6 +12,18 @@
!CBuiltinNode methodsFor:'accessing'!
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
smalltalkName
^self subclassResponsibility
@@ -26,6 +38,17 @@
"Created: / 12-02-2008 / 22:05:16 / janfrog"
! !
+!CBuiltinNode methodsFor:'visiting'!
+
+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 visitCBuiltinNode:self
+! !
+
!CBuiltinNode class methodsFor:'documentation'!
version
--- a/Cface__CCharNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CCharNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -10,6 +10,39 @@
!
+!CCharNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #char
+
+ "Modified: / 12-07-2011 / 16:29:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CCharNode methodsFor:'visiting'!
+
+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 visitCCharNode:self
+! !
+
!CCharNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CDerivedTypeNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CDerivedTypeNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -12,6 +12,18 @@
!CDerivedTypeNode methodsFor:'accessing'!
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
foreign
^ foreign
@@ -129,6 +141,17 @@
"Created: / 04-07-2008 / 11:46:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+!CDerivedTypeNode methodsFor:'visiting'!
+
+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 visitCDerivedTypeNode:self
+! !
+
!CDerivedTypeNode class methodsFor:'documentation'!
version
--- a/Cface__CDoubleNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CDoubleNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -10,6 +10,39 @@
!
+!CDoubleNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #double
+
+ "Modified: / 12-07-2011 / 16:29:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CDoubleNode methodsFor:'visiting'!
+
+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 visitCDoubleNode:self
+! !
+
!CDoubleNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CFloatNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CFloatNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -10,6 +10,39 @@
!
+!CFloatNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #float
+
+ "Modified: / 12-07-2011 / 16:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CFloatNode methodsFor:'visiting'!
+
+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 visitCFloatNode:self
+! !
+
!CFloatNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CFunctionTypeNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CFunctionTypeNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -31,6 +31,12 @@
"Created: / 09-07-2008 / 19:39:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
return
^ return
--- a/Cface__CIntNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CIntNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -10,6 +10,39 @@
!
+!CIntNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #int32
+
+ "Modified: / 12-07-2011 / 16:29:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CIntNode methodsFor:'visiting'!
+
+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 visitCIntNode:self
+! !
+
!CIntNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CLongNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CLongNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -23,6 +23,25 @@
self error:'Cannot happen...I hope :-)'
"Created: / 09-07-2008 / 19:43:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+ffiTypeSymbol
+ "superclass Cface::CModifierNode says that I am responsible to implement this method"
+
+ ^ #long
+
+ "Modified: / 12-07-2011 / 16:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!CLongNode methodsFor:'visiting'!
+
+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 visitCLongNode:self
! !
!CLongNode class methodsFor:'documentation'!
--- a/Cface__CModifierNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CModifierNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -74,6 +74,17 @@
"Created: / 17-02-2008 / 21:49:30 / janfrog"
! !
+!CModifierNode methodsFor:'visiting'!
+
+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 visitCModifierNode:self
+! !
+
!CModifierNode class methodsFor:'documentation'!
version
--- a/Cface__CNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -189,6 +189,10 @@
"Modified: / 17-02-2008 / 21:52:13 / janfrog"
!
+isCStructuredNode
+ ^ false
+!
+
isCUnionNode
^ false
--- a/Cface__CPointerNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CPointerNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -48,6 +48,23 @@
!CPointerNode methodsFor:'accessing'!
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+
+ ^type isCStructuredNode ifTrue:[
+ type smalltalkClassNameWithNamespace
+ ] ifFalse:[
+ (type ffiTypeSymbol , 'Pointer') asSymbol
+ ]
+
+ "Created: / 12-07-2011 / 16:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
type
^ type
!
@@ -56,6 +73,17 @@
type := aCTypeNode.
! !
+!CPointerNode methodsFor:'visiting'!
+
+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 visitCPointerNode:self
+! !
+
!CPointerNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CShortNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CShortNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -20,6 +20,23 @@
self error:'Cannot happen...I hope :-)'
"Created: / 09-07-2008 / 19:46:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+ffiTypeSymbol
+ "superclass Cface::CModifierNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CShortNode methodsFor:'visiting'!
+
+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 visitCShortNode:self
! !
!CShortNode class methodsFor:'documentation'!
--- a/Cface__CStructuredNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CStructuredNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -24,6 +24,12 @@
"Created: / 09-09-2008 / 16:49:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
fields
^ fields
@@ -43,6 +49,23 @@
"Created: / 09-09-2008 / 21:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+!CStructuredNode methodsFor:'testing'!
+
+isCStructuredNode
+ ^ true
+! !
+
+!CStructuredNode methodsFor:'visiting'!
+
+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 visitCStructuredNode:self
+! !
+
!CStructuredNode class methodsFor:'documentation'!
version
--- a/Cface__CTypeNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CTypeNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -92,6 +92,17 @@
"Created: / 04-07-2008 / 11:44:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+!CTypeNode methodsFor:'visiting'!
+
+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 visitCTypeNode:self
+! !
+
!CTypeNode class methodsFor:'documentation'!
version
--- a/Cface__CVoidNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CVoidNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -10,6 +10,39 @@
!
+!CVoidNode methodsFor:'accessing'!
+
+cByteSize
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #void
+
+ "Modified: / 12-07-2011 / 16:31:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
+!CVoidNode methodsFor:'visiting'!
+
+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 visitCVoidNode:self
+! !
+
!CVoidNode class methodsFor:'documentation'!
version_SVN
--- a/Cface__CWCharNode.st Tue Jul 12 15:02:15 2011 +0000
+++ b/Cface__CWCharNode.st Tue Jul 12 15:38:42 2011 +0000
@@ -24,6 +24,20 @@
^4
"Created: / 09-07-2008 / 19:35:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+ffiTypeSymbol
+ "superclass Cface::CTypeNode says that I am responsible to implement this method"
+
+ ^ #wchar
+
+ "Modified: / 12-07-2011 / 16:29:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkName
+ "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
+
+ ^ self shouldImplement
! !
!CWCharNode methodsFor:'visiting'!
--- a/cvut_fel_cface.st Tue Jul 12 15:02:15 2011 +0000
+++ b/cvut_fel_cface.st Tue Jul 12 15:38:42 2011 +0000
@@ -142,7 +142,7 @@
"Return a SVN revision number of myself.
This number is updated after a commit"
- ^ "$SVN-Revision:"'nil'"$"
+ ^ "$SVN-Revision:"'15'"$"
! !
!cvut_fel_cface class methodsFor:'documentation'!