hg/jv-cface: Cface__CDerivedTypeNode.st@b6c0180314d1 (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	CTypeNode subclass:#CDerivedTypeNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'smalltalkNamespace'
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
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	smalltalkClass
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^self smalltalkName
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 17-02-2008 / 20:47:40 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	smalltalkClass: className
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	self smalltalkName: className
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	"Created: / 17-02-2008 / 20:47:32 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	smalltalkNamespace
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	^ smalltalkNamespace
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	"Created: / 17-02-2008 / 20:47:13 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!
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	smalltalkNamespace:something
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	smalltalkNamespace := something.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	"Created: / 17-02-2008 / 20:47:13 / janfrog"
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
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	!CDerivedTypeNode methodsFor:'printing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	printOn: stream indent: level
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	self smalltalkNamespace ifNotNil:
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	[stream nextPutAll:';; Namespace: '; nextPutAll: self smalltalkNamespace; cr; next: level put: Character tab].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	self smalltalkClass ifNotNil:
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	[stream nextPutAll:';; Class: '; nextPutAll: self smalltalkClass; cr; next: level put: Character tab].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	"Created: / 18-02-2008 / 14:33:01 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!CDerivedTypeNode methodsFor:'testing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	isAnonymous
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	^cName isNil
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	"Created: / 17-02-2008 / 22:23:25 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!CDerivedTypeNode class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	version
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CDerivedTypeNode.st,v 1.1 2008/02/26 15:59:26 vranyj1 Exp $'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 27 May 2008 18:55:24 +0000
changeset 1	b6c0180314d1
child 2	cfd2c393abfe
permissions	-rw-r--r--