- externalization of libraryName (now supports unix & win32 simultaneously)
- basi support for accessing structure fields
"{ Package: 'cvut:fel/cface' }"
"{ NameSpace: Cface }"
CBuiltinNode subclass:#CDoubleNode
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Cface-C AST'
!
!CDoubleNode methodsFor:'accessing'!
cByteSize
"
Cface::CDoubleNode new cByteSize
"
%{
return __MKSMALLINT(sizeof(double));
%}.
^8
"Created: / 09-07-2008 / 19:33:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
ffiTypeSymbol
"Superclass Cface::CTypeNode says that I am responsible to implement this method"
^ #double
"Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
smalltalkName
"Superclass says that I am responsible to implement this method"
^#Float
"Created: / 12-02-2008 / 22:06:24 / janfrog"
!
smalltalkxValueExtractionSelector
^#doubleAt:
"Created: / 09-07-2008 / 21:41:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!CDoubleNode methodsFor:'printing'!
printOn: stream indent: indent
stream nextPutAll:'double'
"Created: / 04-03-2008 / 10:57:12 / janfrog"
! !
!CDoubleNode methodsFor:'testing'!
isCDoubleNode
^ true
"Created: / 17-02-2008 / 21:50:25 / janfrog"
! !
!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
"Created: / 12-02-2008 / 23:03:58 / janfrog"
! !
!CDoubleNode class methodsFor:'documentation'!
version
^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CDoubleNode.st,v 1.1 2008/02/26 15:59:47 vranyj1 Exp $'
! !