Cface__CCharNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 10 Jul 2008 20:56:08 +0000
changeset 6 ae25dce94003
parent 5 c110eef5b9ef
child 9 03c7a764d2be
permissions -rw-r--r--
Added SVNMapping. Now it is able to parse libsvn.def

"{ Package: 'cvut:fel/cface' }"

"{ NameSpace: Cface }"

CBuiltinNode subclass:#CCharNode
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cface-C AST'
!


!CCharNode methodsFor:'accessing'!

cByteSize

    "
        Cface::CCharNode new cByteSize         
    "

    %{
        return __MKSMALLINT(sizeof(char));
    %}.
    ^1

    "Created: / 09-07-2008 / 19:32:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

ffiTypeSymbol
    "Superclass Cface::CTypeNode says that I am responsible to implement this method"
    
    ^ #char

    "Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

smalltalkName

    ^#Character

    "Created: / 12-02-2008 / 22:04:56 / janfrog"
!

smalltalkxValueExtractionSelector

    ^#at:

    "Created: / 09-07-2008 / 21:39:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!CCharNode methodsFor:'printing'!

printOn: stream indent: indent

    stream nextPutAll:'char'

    "Created: / 04-03-2008 / 10:57:11 / janfrog"
! !

!CCharNode methodsFor:'testing'!

isCCharNode
    ^ true

    "Created: / 17-02-2008 / 21:50:25 / janfrog"
! !

!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

    "Created: / 12-02-2008 / 23:03:58 / janfrog"
! !

!CCharNode class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CCharNode.st,v 1.1 2008/02/26 16:00:29 vranyj1 Exp $'
! !