hg/jv-cface: Cface__CStructuredNode.st@57da23a9fbbd (annotated)

5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'cvut:fel/cface' }"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	CDerivedTypeNode subclass:#CStructuredNode
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	6	instanceVariableNames:'cByteSize fields'
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-C AST'
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
10 8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	12
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!CStructuredNode methodsFor:'accessing'!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	15	cByteSize
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	16	^ cByteSize
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	17
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	18	"Created: / 09-09-2008 / 16:49:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	19	!
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	20
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	21	cByteSize:anInteger
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	22	cByteSize := anInteger.
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	23
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	24	"Created: / 09-09-2008 / 16:49:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	25	!
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	26
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	27	ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	28
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	29	^smalltalkName notNil ifTrue:[
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	30	self smalltalkClassNameWithNamespace
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	31	] ifFalse:[
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	32	#pointer
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	33	]
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	34
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	35	"Created: / 18-07-2011 / 16:44:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	36	!
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	37
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	38	ffiTypeSymbol
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	39
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	40	^ self shouldNotImplement
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	41
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	42	"Modified: / 18-07-2011 / 16:42:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	43	!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	44
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	fields
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	^ fields
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	"Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	fields:aCollection
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	fields := aCollection.
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	fields do:[:f\|f owner: self].
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	"Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	58	stxStructFieldGetterSelector
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	59	^ #at:
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	61	"Created: / 09-09-2008 / 21:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	! !
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	64	!CStructuredNode methodsFor:'testing'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	65
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	66	isCStructuredNode
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	67	^ true
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	68	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	69
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	70	!CStructuredNode methodsFor:'visiting'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	71
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	72	acceptVisitor:aVisitor
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	73	"Double dispatch back to the visitor, passing my type encoded in
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	74	the selector (visitor pattern)"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	75
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	76	"stub code automatically generated - please change if required"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	77
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	78	^ aVisitor visitCStructuredNode:self
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	79	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	80
10 8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	81	!CStructuredNode class methodsFor:'documentation'!
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	82
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	83	version
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	84	^'$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	85	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	86
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	87	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	88	^ '$Id$'
10 8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	89	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 04 Sep 2012 15:06:32 +0000
changeset 22	57da23a9fbbd
parent 18	2f55519f3d0b
child 24	e7afa531abcf
permissions	-rw-r--r--