Fix in class generator (MethofDefinitionChange>>classVariableNames: now takes collection, not string)
"{ Package: 'jv:cface' }"
"{ NameSpace: Cface }"
CDefinitionNode subclass:#CArgumentNode
instanceVariableNames:'type'
classVariableNames:''
poolDictionaries:''
category:'Cface-C AST'
!
!CArgumentNode methodsFor:'accessing'!
smalltalkName
^self cName
"Created: / 17-02-2008 / 17:54:46 / janfrog"
!
type
^ type
"Created: / 10-02-2008 / 19:19:35 / janfrog"
!
type:something
type := something.
"Created: / 10-02-2008 / 19:19:35 / janfrog"
! !
!CArgumentNode methodsFor:'printing'!
printOn: stream indent: indent
stream nextPutAll:'(argument'; cr.
stream next: indent + 1 put: Character tab; nextPut:$(.
type printOn: stream indent: indent + 1.
stream nextPut: $); cr.
stream next: indent + 1 put: Character tab.
stream nextPutAll:cName; nextPut:$)
"Created: / 17-02-2008 / 20:40:05 / janfrog"
"Modified: / 04-03-2008 / 10:57:11 / janfrog"
! !
!CArgumentNode methodsFor:'testing'!
isCArgumentNode
^ true
"Created: / 17-02-2008 / 21:49:53 / janfrog"
! !
!CArgumentNode 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 visitCArgumentNode:self
"Created: / 28-11-2007 / 17:08:44 / haja"
"Modified: / 18-02-2008 / 14:22:58 / janfrog"
! !
!CArgumentNode class methodsFor:'documentation'!
version
^ '$Id$'
!
version_SVN
^ '$Id$'
! !