Cface__CUnionNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 17 Sep 2015 07:36:40 +0100
changeset 49 307d55f736ec
parent 43 9327987437ae
permissions -rw-r--r--
LLVM bindings: allow to specify path to llvm-config ..by setting LLVM_CONFIG variable when generating definitions for LLVM bindings. Example: make LVM_CONFIG=~/Projects/LLVM/sources1/build/Debug+Asserts/bin/llvm-config

"{ Package: 'jv:cface' }"

"{ NameSpace: Cface }"

CStructuredNode subclass:#CUnionNode
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cface-C AST'
!

!CUnionNode class methodsFor:'documentation'!

history

    "Created: / 25-10-2007 / 17:13:30 / 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 / 17:58:55 / haja"
    "Created: #name:fields: / 29-10-2007 / 20:52:08 / haja"
    "Deleted: #local:name:fields: / 29-10-2007 / 20:52:11 / haja"
    "Created: #acceptVisitor: / 02-11-2007 / 10:46:48 / haja"
    "Deleted: #local / 05-11-2007 / 01:32:46 / haja"
    "Deleted: #local: / 05-11-2007 / 01:32:46 / haja"
    "Created: #local / 15-11-2007 / 14:50:56 / haja"
    "Created: #local: / 15-11-2007 / 14:50:56 / haja"
    "Created: #name:fields:local: / 15-11-2007 / 14:51:43 / haja"
    "Deleted: #name:fields: / 15-11-2007 / 14:51:44 / haja"
    "Created: #foreign / 19-11-2007 / 09:41:55 / haja"
    "Created: #foreign: / 19-11-2007 / 09:41:55 / haja"
    "Created: #name:fields:local:foreign: / 19-11-2007 / 09:42:04 / haja"
    "Deleted: #name:fields:local: / 19-11-2007 / 09:42:06 / haja"
    "Created: #typedef / 05-12-2007 / 21:02:04 / haja"
    "Created: #typedef: / 05-12-2007 / 21:02:04 / haja"
    "Created: #name:fields:local:foreign:typedef: / 05-12-2007 / 21:02:13 / haja"
    "Deleted: #name:fields:local:foreign: / 05-12-2007 / 21:02:15 / haja"
    "Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:29:48 / haja"
! !

!CUnionNode class methodsFor:'instance creation'!

name:aStructName fields:aFieldCollection local:isLocal foreign:isForeign typedef:isTypedef

    | defStructNode |

    defStructNode := self new.
    defStructNode name:aStructName; fields:aFieldCollection; local:isLocal; foreign:isForeign; typedef:isTypedef.

    ^defStructNode

    "Created: / 05-12-2007 / 21:02:13 / haja"
! !

!CUnionNode methodsFor:'accessing'!

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

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

!CUnionNode methodsFor:'testing'!

isCUnionNode
    ^ true

    "Created: / 17-02-2008 / 21:52:13 / janfrog"
! !

!CUnionNode 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 visitCUnionNode:self

    "Created: / 02-11-2007 / 10:46:48 / haja"
    "Modified: / 10-02-2008 / 10:46:54 / janfrog"
! !

!CUnionNode class methodsFor:'documentation'!

version
    ^ '$Id$'
!

version_SVN
    ^ '$Id$'
! !