hg/jv-cface: Cface__CStructuredNode.st@6a2e82ddbca1 (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
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	6	instanceVariableNames:'cBitSize fields ffiPointerTypeSymbol'
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
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	15	cBitSize
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	16	^ cBitSize
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	17
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	18	"Created: / 10-09-2012 / 10:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	19	!
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	20
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	21	cBitSize:anInteger
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	22	cBitSize := anInteger
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	23
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	24	"Created: / 10-09-2012 / 10:01:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	25	!
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	26
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	27	cByteSize
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	28	^ cBitSize // 8
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	29
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	30	"Created: / 09-09-2008 / 16:49:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	31	"Modified: / 10-09-2012 / 10:02:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	32	!
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	33
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	34	cByteSize:anInteger
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	35	cBitSize := anInteger * 8
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	36
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	37	"Created: / 09-09-2008 / 16:49:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	38	"Modified: / 10-09-2012 / 10:02:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	39	!
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	40
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	41	ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	42
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	43	ffiPointerTypeSymbol notNil ifTrue:[
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	44	^ffiPointerTypeSymbol
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	45	].
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	46
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	47	^smalltalkName notNil ifTrue:[
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	48	self smalltalkClassNameWithNamespace
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	49	] ifFalse:[
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	50	#pointer
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	51	]
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	52
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	53	"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	54	!
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	55
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	56	ffiPointerTypeSymbol:aSymbol
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	57	ffiPointerTypeSymbol := aSymbol.
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	58	!
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	59
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	60	ffiTypeSymbol
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	61
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	62	^ self shouldNotImplement
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	63
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	64	"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	65	!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	66
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	fields
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	^ fields
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	"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	71	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	fields:aCollection
24 e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	74	fields := aCollection select:[:each\|each notNil].
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	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	76
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	"Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
24 e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	78	"Modified: / 05-09-2012 / 11:02:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	81	stxStructFieldGetterSelector
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	82	^ #at:
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	84	"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	85	! !
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	87	!CStructuredNode methodsFor:'testing'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	88
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	89	isCStructuredNode
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	90	^ true
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	91	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	92
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	93	!CStructuredNode methodsFor:'visiting'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	94
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	95	acceptVisitor:aVisitor
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	96	"Double dispatch back to the visitor, passing my type encoded in
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	97	the selector (visitor pattern)"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	98
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	99	"stub code automatically generated - please change if required"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	100
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	101	^ aVisitor visitCStructuredNode:self
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	102	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	103
10 8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	104	!CStructuredNode class methodsFor:'documentation'!
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	105
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	106	version
8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	107	^'$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	108	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	109
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	110	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	111	^ '$Id$'
10 8087158409e4 Fixed namespace and class generation Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	112	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 10 Sep 2012 10:23:27 +0000
changeset 28	6a2e82ddbca1
parent 24	e7afa531abcf
child 32	d7464405cbda
permissions	-rw-r--r--