Added mappings for LLVM C and LLVM C Extensions
These are used to generate C callouts for jv:llvm_s project.
"{ Package: 'jv:cface' }"
"{ NameSpace: Cface }"
CDerivedTypeNode subclass:#CEnumNode
instanceVariableNames:'typeDef values'
classVariableNames:''
poolDictionaries:''
category:'Cface-C AST'
!
!CEnumNode class methodsFor:'documentation'!
history
"Created: / 25-10-2007 / 17:13:30 / haja"
"Created: #local / 25-10-2007 / 17:13:34 / haja"
"Created: #local: / 25-10-2007 / 17:13:34 / haja"
"Created: #name / 25-10-2007 / 17:13:34 / haja"
"Created: #name: / 25-10-2007 / 17:13:34 / haja"
"Created: #fields / 25-10-2007 / 17:13:34 / haja"
"Created: #fields: / 25-10-2007 / 17:13:34 / haja"
"Created: #local:name:fields: / 25-10-2007 / 18:15:45 / haja"
"Deleted: #local / 25-10-2007 / 18:16:02 / haja"
"Deleted: #local: / 25-10-2007 / 18:16:04 / haja"
"Created: #name:fields: / 25-10-2007 / 18:16:40 / haja"
"Deleted: #local:name:fields: / 25-10-2007 / 18:16:43 / haja"
"Created: #acceptVisitor: / 02-11-2007 / 10:43:33 / haja"
"Created: #foreign / 19-11-2007 / 09:40:11 / haja"
"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"
"Deleted: #name:fields:foreign: / 05-12-2007 / 21:00:50 / haja"
! !
!CEnumNode methodsFor:'accessing'!
cByteSize
^CIntNode new cByteSize
"Created: / 09-07-2008 / 19:38:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
ffiPointerTypeSymbol
^#intPointer
"Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Created: / 18-07-2011 / 16:56:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
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>"
!
stxStructFieldGetterSelector
^ #doubleWordAt:
"Created: / 09-09-2008 / 21:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
typeDef
^ typeDef
"Created: / 05-12-2007 / 19:39:04 / haja"
!
typeDef:something
typeDef := something.
"Created: / 05-12-2007 / 19:39:04 / haja"
!
values
^ values
"Created: / 12-02-2008 / 22:36:22 / janfrog"
!
values:something
values := something.
"Created: / 12-02-2008 / 22:36:22 / janfrog"
! !
!CEnumNode methodsFor:'printing'!
printOn: stream indent: level
super printOn: stream indent: level.
stream
nextPutAll:'(enum '; nextPutAll: cName.
values do:
[:enumValue|
stream cr; next: level + 1 put: Character tab.
enumValue printOn: stream indent: level + 1].
stream space; nextPut: $)
"Created: / 17-02-2008 / 18:08:02 / janfrog"
"Modified: / 18-02-2008 / 14:33:30 / janfrog"
! !
!CEnumNode methodsFor:'testing'!
isCEnumNode
^ true
"Created: / 17-02-2008 / 21:52:13 / janfrog"
! !
!CEnumNode 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 visitCEnumNode:self
"Created: / 02-11-2007 / 10:43:33 / haja"
"Modified: / 10-02-2008 / 10:44:59 / janfrog"
! !
!CEnumNode class methodsFor:'documentation'!
version
^ '$Id$'
!
version_SVN
^ '$Id$'
! !