hg/jv-cface: Cface__CDerivedTypeNode.st@d7464405cbda (annotated)

32 d7464405cbda Package renamed from cvut:fel/cface to jv:cface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	1	"{ Package: 'jv:cface' }"
1 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	CTypeNode subclass:#CDerivedTypeNode
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	6	instanceVariableNames:'smalltalkNamespace smalltalkPackage smalltalkCategory foreign'
1 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
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!CDerivedTypeNode methodsFor:'accessing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	15	cByteSize
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	16	"superclass Cface::CTypeNode says that I am responsible to implement this method"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	17
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	18	^ self shouldImplement
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	19	!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	20
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	21	ffiTypeSymbol
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	22	"superclass Cface::CTypeNode says that I am responsible to implement this method"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	23
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	24	^ self shouldImplement
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	25	!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	26
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	27	foreign
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	28	^ foreign
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	29
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	30	"Created: / 04-07-2008 / 11:46:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	31	!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	32
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	33	foreign:something
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	34	foreign := something.
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	35
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	36	"Created: / 04-07-2008 / 11:46:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	37	!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	38
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	39	smalltalkCategory
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	40	^ smalltalkCategory ifNil:
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	41	[self smalltalkNamespace , ' - C Types']
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	42
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	43	"Created: / 03-07-2008 / 21:10:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	44	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	45
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	46	smalltalkCategory:aString
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47	smalltalkCategory := aString.
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	48
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	49	"Created: / 03-07-2008 / 21:10:35 / 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	50	"Modified: / 10-07-2008 / 07:54:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	51	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	52
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53	smalltalkClassName
17 509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	54
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	55	\| nm \|
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	56	nm := self smalltalkName.
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	57	^nm notNil ifTrue:[nm asSymbol] ifFalse:[nil].
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	59	"Created: / 10-07-2008 / 08:01:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	60	"Modified: / 09-09-2008 / 20:15:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
17 509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	61	"Modified: / 18-07-2011 / 16:19:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	64	smalltalkClassName:className
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	self smalltalkName:className
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	67	"Created: / 10-07-2008 / 08:01:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	70	smalltalkClassNameWithNamespace
17 509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	71
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	72	self smalltalkClassName isNil ifTrue:[^nil].
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	73
509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	74	^ self smalltalkNamespace isEmptyOrNil
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	75	ifTrue:[ self smalltalkClassName asSymbol ]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	76	ifFalse:[ (self smalltalkNamespace , '::' , self smalltalkClassName) asSymbol ]
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	77
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	78	"Created: / 03-07-2008 / 20:29:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
9 03c7a764d2be - changed struct field accessor generation - no "prim" prefix. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	79	"Modified: / 09-09-2008 / 20:16:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
17 509b9e5d52b2 Fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	80	"Modified: / 18-07-2011 / 16:17:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	81	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	82
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	smalltalkNamespace
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	^ smalltalkNamespace
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: / 17-02-2008 / 20:47:13 / 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	smalltalkNamespace:something
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	smalltalkNamespace := something.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	"Created: / 17-02-2008 / 20:47:13 / janfrog"
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	93	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	94
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	95	smalltalkPackage
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	96	^ smalltalkPackage
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	97
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	98	"Created: / 03-07-2008 / 21:10:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	99	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	100
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	101	smalltalkPackage:something
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	102	smalltalkPackage := something.
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	103
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	104	"Created: / 03-07-2008 / 21:10:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	! !
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	!CDerivedTypeNode methodsFor:'printing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	109	printOn:stream indent:level
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	110
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	111	self printLineOn: stream indent: level.
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	112	self smalltalkNamespace
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	113	ifNotNil:[
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	114	stream
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	115	nextPutAll:';; Namespace: ';
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	116	nextPutAll:self smalltalkNamespace;
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	117	cr;
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	118	next:level put:Character tab
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	119	].
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	120	self smalltalkClassName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	121	ifNotNil:[
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	122	stream
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	123	nextPutAll:';; Class: ';
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	124	nextPutAll:self smalltalkClassName;
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	125	cr;
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	126	next:level put:Character tab
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	127	].
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	"Created: / 18-02-2008 / 14:33:01 / janfrog"
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	130	"Modified: / 10-07-2008 / 20:05:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 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
11 a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	133	!CDerivedTypeNode methodsFor:'queries'!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	134
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	135	shouldBeIgnored
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	136
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	137	^super shouldBeIgnored
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	138	or:[self isForeign]
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	139
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	140	"Created: / 22-02-2009 / 15:01:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	141	! !
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	142
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	!CDerivedTypeNode methodsFor:'testing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	145	isForeign
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	147	^foreign ? false
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	149	"Created: / 04-07-2008 / 11:46:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	152	!CDerivedTypeNode methodsFor:'visiting'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	153
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	154	acceptVisitor:aVisitor
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	155	"Double dispatch back to the visitor, passing my type encoded in
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	156	the selector (visitor pattern)"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	157
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	158	"stub code automatically generated - please change if required"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	159
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	160	^ aVisitor visitCDerivedTypeNode:self
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	161	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	162
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	!CDerivedTypeNode class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	version
19 1297bf936bfb Some fixes for modern GCC XML Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	166	^ '$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	167	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	168
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	169	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	170	^ '$Id$'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 23 Sep 2014 16:52:40 +0100
changeset 32	d7464405cbda
parent 19	1297bf936bfb
child 43	9327987437ae
permissions	-rw-r--r--