hg/stx-libjava: JavaUnresolvedStringConstant.st@098936234135 (annotated)

1 083530508d9c intitial checkin cg parents: diff changeset	1	JavaUnresolvedConstant subclass:#JavaUnresolvedStringConstant
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	2	instanceVariableNames:'stringIndex'
918e2740098c resolve rewritten cg parents: 37 diff changeset	3	classVariableNames:''
1 083530508d9c intitial checkin cg parents: diff changeset	4	poolDictionaries:''
083530508d9c intitial checkin cg parents: diff changeset	5	category:'Java-Reader-Support'
083530508d9c intitial checkin cg parents: diff changeset	6	!
083530508d9c intitial checkin cg parents: diff changeset	7
083530508d9c intitial checkin cg parents: diff changeset	8
135 098936234135 * empty log message * cg parents: 90 diff changeset	9	!JavaUnresolvedStringConstant class methodsFor:'instance creation'!
1 083530508d9c intitial checkin cg parents: diff changeset	10
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	11	pool:aPool poolIndex:index stringIndex:stringIndex
918e2740098c resolve rewritten cg parents: 37 diff changeset	12	^ self new
918e2740098c resolve rewritten cg parents: 37 diff changeset	13	pool:aPool poolIndex:index stringIndex:stringIndex
918e2740098c resolve rewritten cg parents: 37 diff changeset	14
918e2740098c resolve rewritten cg parents: 37 diff changeset	15
1 083530508d9c intitial checkin cg parents: diff changeset	16	! !
083530508d9c intitial checkin cg parents: diff changeset	17
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	18	!JavaUnresolvedStringConstant methodsFor:'accessing'!
37 34688ddacf17 javaString patching cg parents: 1 diff changeset	19
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	20	pool:aPool poolIndex:i stringIndex:string_index
918e2740098c resolve rewritten cg parents: 37 diff changeset	21	constantPool := aPool.
918e2740098c resolve rewritten cg parents: 37 diff changeset	22	constantPoolIndex := i.
918e2740098c resolve rewritten cg parents: 37 diff changeset	23	stringIndex := string_index.
37 34688ddacf17 javaString patching cg parents: 1 diff changeset	24
34688ddacf17 javaString patching cg parents: 1 diff changeset	25	! !
34688ddacf17 javaString patching cg parents: 1 diff changeset	26
1 083530508d9c intitial checkin cg parents: diff changeset	27	!JavaUnresolvedStringConstant methodsFor:'resolving'!
083530508d9c intitial checkin cg parents: diff changeset	28
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	29	preResolve
918e2740098c resolve rewritten cg parents: 37 diff changeset	30	\|jString chars\|
918e2740098c resolve rewritten cg parents: 37 diff changeset	31
918e2740098c resolve rewritten cg parents: 37 diff changeset	32	Java javaString notNil ifTrue:[
918e2740098c resolve rewritten cg parents: 37 diff changeset	33	chars := (constantPool at:stringIndex).
918e2740098c resolve rewritten cg parents: 37 diff changeset	34	chars isString ifFalse:[
918e2740098c resolve rewritten cg parents: 37 diff changeset	35	self halt:'should not happen'
918e2740098c resolve rewritten cg parents: 37 diff changeset	36	].
918e2740098c resolve rewritten cg parents: 37 diff changeset	37	jString := JavaObject javaStringFrom:chars.
1 083530508d9c intitial checkin cg parents: diff changeset	38
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	39	"/constantPool owner == (Java at:'java/awt/Container') ifTrue:[
918e2740098c resolve rewritten cg parents: 37 diff changeset	40	"/self halt
918e2740098c resolve rewritten cg parents: 37 diff changeset	41	"/].
918e2740098c resolve rewritten cg parents: 37 diff changeset	42
918e2740098c resolve rewritten cg parents: 37 diff changeset	43	constantPool at:constantPoolIndex put:jString.
918e2740098c resolve rewritten cg parents: 37 diff changeset	44	^ jString.
37 34688ddacf17 javaString patching cg parents: 1 diff changeset	45	].
34688ddacf17 javaString patching cg parents: 1 diff changeset	46
90 918e2740098c resolve rewritten cg parents: 37 diff changeset	47	self rememberForResolveWith:'java/lang/String'.
918e2740098c resolve rewritten cg parents: 37 diff changeset	48	^ self
1 083530508d9c intitial checkin cg parents: diff changeset	49	! !
083530508d9c intitial checkin cg parents: diff changeset	50
135 098936234135 * empty log message * cg parents: 90 diff changeset	51	!JavaUnresolvedStringConstant class methodsFor:'documentation'!
1 083530508d9c intitial checkin cg parents: diff changeset	52
083530508d9c intitial checkin cg parents: diff changeset	53	version
135 098936234135 * empty log message * cg parents: 90 diff changeset	54	^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedStringConstant.st,v 1.4 1997/02/07 20:35:44 cg Exp $'
1 083530508d9c intitial checkin cg parents: diff changeset	55	! !

author	cg
	Fri, 07 Feb 1997 20:37:59 +0000
changeset 135	098936234135
parent 90	918e2740098c
child 167	77dcbc4b2201
permissions	-rw-r--r--