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

1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'cvut:fel/cface' }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	CModifierNode subclass:#CConstNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-C AST'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!CConstNode class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	history
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	"Created: / 25-10-2007 / 16:58:14 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	"Created: #id / 25-10-2007 / 16:58:17 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"Created: #id: / 29-10-2007 / 20:48:37 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: #acceptVisitor: / 02-11-2007 / 10:41:30 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	"Created: #acceptNameVisitor: / 05-11-2007 / 17:37:52 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"Deleted: #acceptNameVisitor: / 12-11-2007 / 09:46:40 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	"Created: #buildTypeCheckFor:on: / 19-12-2007 / 15:57:17 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	"Created: #buildObjectCreationOn: / 19-12-2007 / 16:40:59 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	"Created: #buildValueExtractionFor:on: / 19-12-2007 / 17:30:58 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	"Created: #buildObjectCreationFor:on: / 19-12-2007 / 17:39:29 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	"Deleted: #buildObjectCreationOn: / 19-12-2007 / 17:39:31 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	"Created: #buildCTypeOn: / 19-12-2007 / 18:20:45 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	"Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:19:58 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	!CConstNode class methodsFor:'instance creation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	id:anId
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	\| defConstNode \|
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	defConstNode := self new.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	defConstNode id:anId.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	^defConstNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	"Created: / 29-10-2007 / 20:48:37 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	45	!CConstNode methodsFor:'accessing'!
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	47	ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	48
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	49	^type ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	50
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	51	"Created: / 18-07-2011 / 16:46:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	52	!
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	53
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	54	ffiTypeSymbol
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	55
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	56	^type ffiTypeSymbol
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	57
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	58	"Created: / 10-07-2008 / 20:15:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	59	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	60
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	61	smalltalkClassName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	62	^ type smalltalkClassName
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	64	"Created: / 04-07-2008 / 11:55:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	"Modified: / 10-07-2008 / 08:01:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	68	smalltalkClassNameWithNamespace
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	70	^type smalltalkClassNameWithNamespace
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	72	"Created: / 04-07-2008 / 11:56:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	!CConstNode methodsFor:'printing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	printOn: stream indent: indent
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	stream
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	nextPutAll:'const ';
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	cr;
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	next: indent + 1 put: Character tab.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	type printOn: stream indent: indent + 1.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	"Created: / 04-03-2008 / 10:57:12 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	!CConstNode methodsFor:'testing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	91	isAnonymous
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	92
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	93	^type isAnonymous
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	94
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	95	"Created: / 04-07-2008 / 11:56:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	96	!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	97
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	98	isCCharNode
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	99	^ type isCCharNode
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	100
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	101	"Created: / 04-07-2008 / 09:27:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	102	!
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	103
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	isCConstNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	^ true
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	"Created: / 17-02-2008 / 21:52:38 / janfrog"
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	108	!
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	109
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	110	isCStructNode
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	111	^ type isCStructNode
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	112
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	113	"Created: / 04-07-2008 / 09:28:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	114	!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	115
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	116	isForeign
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	117
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	118	^type isForeign
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	119
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	120	"Created: / 04-07-2008 / 11:56:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	!CConstNode methodsFor:'visiting'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	acceptVisitor:aVisitor
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	"Double dispatch back to the visitor, passing my type encoded in
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	the selector (visitor pattern)"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	"stub code automatically generated - please change if required"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	^ aVisitor visitCConstNode:self
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	"Created: / 02-11-2007 / 10:41:30 / haja"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	"Modified: / 10-02-2008 / 10:44:45 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	!CConstNode class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	version
19 1297bf936bfb Some fixes for modern GCC XML Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	139	^ '$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	140	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	141
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	142	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	143	^ '$Id$'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 04 Sep 2012 15:06:32 +0000
changeset 22	57da23a9fbbd
parent 19	1297bf936bfb
child 32	d7464405cbda
permissions	-rw-r--r--