Closing branch.
"
COPYRIGHT (c) 1996-2011 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
[1] Code written at SWING Research Group contains a signature
of one of the above copright owners. For exact set of such code,
see the differences between this version and version stx:libjava
as of 1.9.2010
"
"{ Package: 'stx:libjava' }"
Object subclass:#JavaClassReader
instanceVariableNames:'inStream msb constants majorVsn minorVsn constNeeds2Slots
constSlot classBeingLoaded classLoader'
classVariableNames:'Verbose AnnotationsVerbose Silent AbsolutelySilent
LazyClassLoading InvalidClassFormatSignal ClassLoaderQuerySignal
JavaArchiveCache LastJavaArchive MaxContextSize
MaxContextSizeLimit'
poolDictionaries:'JavaConstants'
category:'Languages-Java-Support'
!
!JavaClassReader class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1996-2011 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
[1] Code written at SWING Research Group contains a signature
of one of the above copright owners. For exact set of such code,
see the differences between this version and version stx:libjava
as of 1.9.2010
"
! !
!JavaClassReader class methodsFor:'initialization'!
initialize
InvalidClassFormatSignal := Signal new mayProceed: true.
InvalidClassFormatSignal notifierString: 'class load failure'.
InvalidClassFormatSignal nameClass: self message: #invalidClassFormatSignal.
Verbose := false.
Silent := true.
AbsolutelySilent := false.
"/LazyClassLoading := false.
LazyClassLoading := true.
ClassLoaderQuerySignal := QuerySignal new.
OperatingSystem isMSWINDOWSlike ifFalse:[
JavaArchiveCache := CacheDictionary new: 32.
] ifTrue:[
JavaArchiveCache := CacheDictionary new: 8.
].
AnnotationsVerbose := false.
MaxContextSize := 0.
"Maximum stack depth supported by the VM.
if you change it, make sure it is equal (or lower)
to CONSIZE in jinterpret.c (line 111 or so)
Otherwise, VM may crash!!!!!!"
MaxContextSizeLimit := 100.
"
JavaClassReader initialize"
"Modified: / 27-01-1998 / 17:54:23 / cg"
"Modified: / 17-12-2010 / 17:37:45 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 10-05-2011 / 23:59:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 14-08-2012 / 02:01:37 / jv"
"Modified: / 04-09-2012 / 11:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader class methodsFor:'Signal constants'!
classLoaderQuerySignal
^ ClassLoaderQuerySignal
"Created: 14.8.1997 / 19:56:03 / cg"
!
invalidClassFormatSignal
^ InvalidClassFormatSignal
"Created: 3.8.1997 / 18:17:21 / cg"
! !
!JavaClassReader class methodsFor:'constants'!
fileMajorVersions
^#(
45 "Java 1.0.2"
46 "Java 1.2"
47 "???"
48 "???"
49 "Java 5"
50 "Java 6"
).
"
JSR 202:
The Java virtual machine implementation of Sun's JDK release 1.0.2 supports
class file format versions 45.0 through 45.3 inclusive. Sun's JDK releases
1.1.X can support class file formats of versions in the range 45.0 through
45.65535 inclusive. For k > 1 implementations of version 1.k of the Java 2
platform can support class file formats of versions in the range 45.0 through
44+k.0 inclusive.
"
"Created: / 19-10-2010 / 21:40:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 02-06-2011 / 22:50:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 18-08-2011 / 19:32:37 / jv"
"Modified (comment): / 16-08-2012 / 15:34:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileMinorVersions
^ #(
3 "Java 1.0.2 , Java 1.2"
0 "Java 6"
)
"Created: / 19-10-2010 / 21:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
magic_LSB
^ 16rBEBAFECA
"Modified: / 7.5.1998 / 13:14:27 / cg"
"Created: / 7.5.1998 / 13:15:05 / cg"
!
magic_MSB
^ 16rCAFEBABE
"Modified: / 7.5.1998 / 13:14:27 / cg"
! !
!JavaClassReader class methodsFor:'debugging'!
annotationsVerbose:aBoolean
AnnotationsVerbose := aBoolean
"
Java flushClasses.
JavaClassReader verbose:true
JavaClassReader verbose:false"
"Created: / 25-02-2011 / 12:25:23 / Marcel Hlopko <hlopik@gmail.com>"
!
verbose:aBoolean
Verbose := aBoolean
"
Java flushClasses.
JavaClassReader verbose:true
JavaClassReader verbose:false
"
! !
!JavaClassReader class methodsFor:'file reading'!
readClass: aClassName
"reads a class, and returns it.
<clinit> is NOT called, class is NOT installed"
^ self readClass: aClassName ignoring: Set new.
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 20-10-1998 / 17:24:54 / cg"
"Modified: / 08-09-2011 / 08:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 07-02-2013 / 14:21:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClass: aClassName classPath: classPath
"reads a class, and returns it.
<clinit> is NOT called, class is NOT installed"
^ self readClass: aClassName ignoring: Set new classPath: classPath
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 20-10-1998 / 17:24:54 / cg"
"Modified: / 08-09-2011 / 08:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 30-10-2011 / 12:27:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 07-02-2013 / 14:21:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClass: className ignoring: classesBeingLoadedOrNil
"This method is bit hacky, as it tries to supply 'correct'
classloader.
If the class is loaded from Java release classPath (containing
base java classes shipped with JDK/JRE), then set the classloader
to null. Otherwise set class's loader to system class loader
(as returned by ClassLoader#getSystemClassLoader())
This is required to run groovy and other SW that uses resources
or other classloader dependent stuff. When changing, make sure
Groovy is running afterwards!!!!!!
"
| class |
class := self
readClass: className ignoring: classesBeingLoadedOrNil
classPath: Java release classPath.
class notNil ifTrue:[ ^ class ].
class isNil ifTrue:[
JavaVM booted ifFalse:[
^nil
].
JavaClassReader classLoaderQuerySignal answer: JavaVM systemClassLoader do:[
class := self
readClass: className ignoring: classesBeingLoadedOrNil
classPath: Java classPath.
].
].
^class
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 20-10-1998 / 17:24:54 / cg"
"Modified: / 21-10-2011 / 13:39:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 30-10-2011 / 16:50:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClass: className ignoring: ignoring classPath: classPath
| cls |
cls := self new readClass: className ignoring: ignoring classPath: classPath.
cls notNil ifTrue:[
Logger
log: 'loaded class ' , cls displayString
severity: #info
facility: 'JVM'.
].
^cls.
"Created: / 07-02-2013 / 14:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 08-02-2013 / 01:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readFile:aFilename ignoring:classesBeingLoaded
"reads a class from aFilename and returns it.
The JavaClass is NOT installed as global and unresolved
refs are NOT patched."
| inStream |
[
JavaVM commonOpenStreamUsing:[ inStream := aFilename asFilename readStream ]
] on:StreamError do:[:ex |
Logger
log:('cannot read .class file: ' , ex description) severity:#error facility:'JVM'.
self breakPoint: #jv.
^ nil
].
^[
self readStream:inStream ignoring:classesBeingLoaded.
] ensure:[
inStream close.
].
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 09-05-1998 / 01:44:24 / cg"
"Modified: / 14-08-2012 / 02:17:26 / jv"
"Modified: / 29-03-2013 / 23:54:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream: aStream
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
^self readStream: aStream ignoring: Set new.
"Created: / 24-10-2011 / 00:12:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream: stream ignoring: classesBeingLoaded
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
^self readStream: stream loader: self classLoaderQuerySignal query ignoring: classesBeingLoaded
"Modified: / 30-03-1998 / 18:14:40 / cg"
"Modified: / 09-05-2011 / 23:15:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 02-05-2013 / 09:51:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream: stream loader: classloader
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
^self readStream: stream loader: classloader ignoring: Set new.
"Created: / 02-05-2013 / 09:51:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream: stream loader: classloader ignoring: classesBeingLoaded
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
| javaClass |
javaClass := JavaClassReader new readStream: stream loader: classloader ignoring: classesBeingLoaded.
Logger
log: 'loaded class ' , javaClass displayString
severity: #info
facility: 'JVM'.
^ javaClass.
"Created: / 02-05-2013 / 09:50:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader class methodsFor:'obsolete'!
resolveClass: aJavaClass
"Resolve a particular classes' constants.
Perform all class initialization functions
(of those which are not yet initialized)."
| loader classToLoad |
"new resolving does not need this - shouldn't be called at all"
LazyClassLoading ifFalse: [
loader := (aJavaClass classLoader).
[
classToLoad := nil.
aJavaClass constantPool do: [
:item |
| itemClass |
itemClass := item class.
itemClass == JavaUnresolvedClassConstant ifTrue: [
classToLoad := item className.
"/ ] ifFalse:[
"/ itemClass == JavaUnresolvedMethodrefConstant ifTrue:[
"/self halt.
"/ ] ifFalse:[
"/ itemClass == JavaUnresolvedInterfaceMethodrefConstant ifTrue:[
"/self halt.
"/ ]
"/ ]
].
].
classToLoad notNil ifTrue: [
loader isNil ifTrue: [ JavaVM classForName: classToLoad. ] ifFalse: [
"/
"/ the aquired loader is a javaClassLoader
"/ which expects an URL as arg.
"/
"/ classURL := Java as_URL:('file:' , nextUnresolved asString , '.class').
"/ loader loadClass:classURL
loader perform: #'loadClass(Ljava/lang/String;)Ljava/lang/Class;'
with: (Java as_String: (classToLoad asString)).
]
].
classToLoad notNil.
] whileTrue.
aJavaClass isInitialized ifFalse: [
Silent ifFalse: [
'performing class initialization of ' print.
aJavaClass fullName printCR.
].
aJavaClass classInit
].
]
"Created: / 20-10-1998 / 17:53:22 / cg"
"Modified: / 16-11-2011 / 14:39:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaClassReader class methodsFor:'others'!
version_HG
^ '$Changeset: <not expanded> $'
! !
!JavaClassReader methodsFor:'accessing'!
constants
^ constants.
"Created: / 10-05-2011 / 13:48:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
constants: aJavaConstantPool
constants := aJavaConstantPool.
"Created: / 10-05-2011 / 13:48:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
stream
^ inStream.
"Created: / 09-05-2011 / 23:22:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
stream:aReadStream
inStream := aReadStream.
"Created: / 09-05-2011 / 23:23:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading'!
readClass: clsName from: path ignoring: classesBeingLoaded
"load class named clsName from directory or .jar archive path.
<clinit> is NOT called, class is NOT installed as global"
| nm p zar entry zipFile read rslt |
p := path asString.
p asFilename isDirectory ifTrue: [
| f |
(p endsWith: Filename separator) ifFalse: [
p := p , (Filename separator asString)
].
nm := p , clsName , '.class'.
(f := nm asFilename) exists ifTrue: [
(Java isExcludedFromClassPath: nm) ifFalse: [
"means we are successfully going to read something :)"
f readingFileDo:[:s|rslt := self readStream: s ignoring: classesBeingLoaded].
rslt notNil ifTrue: [ ^ rslt. ].
]
].
] ifFalse: [
((zipFile := p asFilename withSuffix: 'jar') exists
or: [ (zipFile := p asFilename withSuffix: 'zip') exists ])
ifTrue: [
"/ Do not use at:ifAbsentPut: here, JavaArchiveCache is a CacheDictionary!!!!!!
zar := JavaArchiveCache at: zipFile ifAbsent: nil.
zar isNil ifTrue:[
JavaVM commonOpenStreamUsing:[ zar := ZipArchive oldFileNamed: zipFile ].
JavaArchiveCache at: zipFile put: zar
].
read := [
nm := clsName , '.class'.
(zar isValidFile: nm) ifTrue: [
(Java isExcludedFromClassPath: nm) ifFalse: [
JavaVM commonOpenStreamUsing:[ zar := zar reopenForReading ].
entry := zar extract: nm.
rslt := self readStream: (entry readStream) ignoring: classesBeingLoaded.
rslt notNil ifTrue: [ ^ rslt ].
]
].
zar closeFile.
].
JavaClassReader invalidClassFormatSignal
handle: [
"Kludge, sometimes zar gets corrupted"
zar := JavaArchiveCache at: zipFile put: (JavaVM commonOpenStreamUsing: [ZipArchive oldFileNamed: zipFile]).
read value
]
do: [ read value ].
]
].
^nil
"Created: / 03-12-2012 / 22:47:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 20-05-2013 / 23:39:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClass: className ignoring: classesBeingLoadedOrNil classPath: classPath
"searches classspath for a class, loads it and returns.
<clinit> is not called, class is not installed as global"
| rslt clsName classesBeingLoaded |
clsName := className asSlashedJavaClassName.
classesBeingLoaded := classesBeingLoadedOrNil.
classesBeingLoaded isNil ifTrue: [
classesBeingLoaded := Set new.
].
classesBeingLoaded add: clsName.
classPath do: [:path |
rslt := self readClass: clsName from: path ignoring: classesBeingLoaded.
rslt notNil ifTrue:[ ^rslt ].
].
^nil.
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 20-10-1998 / 17:24:54 / cg"
"Created: / 23-10-2011 / 21:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 03-11-2011 / 18:14:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 14-08-2012 / 02:17:59 / jv"
"Modified: / 07-02-2013 / 14:19:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClassFileIgnoring: classesbeingLoaded
"reads a class from inStream and returns it.
The JavaClass is not installed as global and its constants
(especially strings) may not be fully resolved."
| magic access_flags this_class_index super_class super_class_index this_class_ref existingSuperClass fields interfaces staticFields nStatic superClassName thisClassName existing_class thisMetaClass |
"/
"/ read magic, determine byte order
"/
msb := true.
magic := inStream nextUnsignedLongMSB: true.
magic = (self class magic_MSB) ifFalse: [
magic = (self class magic_LSB) ifFalse: [
InvalidClassFormatSignal raiseErrorString: 'not a java class file'.
^ nil
].
msb := false.
Verbose ifTrue: [ Transcript showCR: 'file is lsb' ].
] ifTrue: [ Verbose ifTrue: [ Transcript showCR: 'file is msb' ]. ].
"/
"/ get version
"/
minorVsn := inStream nextUnsignedShortMSB: msb.
majorVsn := inStream nextUnsignedShortMSB: msb.
((self class fileMajorVersions includes: majorVsn) not
or: [ (self class fileMinorVersions includes: minorVsn) not ])
ifTrue: [
| path |
path := inStream isFileStream ifTrue:[
path := inStream pathName
] ifFalse:[
path := '<memory>'
].
self info:
('class reader: file ', path , ' has version ' ,
majorVsn printString ,
'.' , minorVsn printString)
].
"/
"/ get constant pool
"/
self readConstantPool.
"/
"/ access flags
"/
access_flags := inStream nextUnsignedShortMSB: msb.
this_class_index := inStream nextUnsignedShortMSB: msb.
super_class_index := inStream nextUnsignedShortMSB: msb.
super_class_index == 0 ifTrue: [ super_class := nil ] ifFalse: [
super_class := constants at: super_class_index.
superClassName := super_class fullName.
"/ special for ST-classes
(superClassName startsWith: 'smalltalk.') ifTrue: [
"/ a Smalltalk class
superClassName := superClassName copyFrom: 11.
existingSuperClass := Smalltalk at: superClassName asSymbol.
existingSuperClass notNil ifTrue: [ super_class := existingSuperClass ] ifFalse: [
"/ self halt - must load superclass ...
]
] ifFalse: [
"/ a JAVA class
super_class := JavaVM classNamed: superClassName definedBy: classLoader.
super_class isNil ifTrue: [
super_class := self
loadSuperclassIdentifiedBy: (constants at: super_class_index)
ignoring: classesbeingLoaded
].
super_class isNil ifTrue: [
self breakPoint:#jv info: 'Cannot find super class?!!'
].
].
].
"/ If superclass is finalized, mark class so as well.
(super_class notNil and:[super_class hasFinalize]) ifTrue:[
access_flags := access_flags bitOr: ACX_HASFINALIZE
].
"/
"/ get interfaces
"/
interfaces := self readInterfaces.
"/
"/ get fields
"/
fields := self readFieldInfofields.
"/
"/ create the fields as instVars
"/ static fields are created as class-InstVars
"/
staticFields := fields select: [:f | f isStatic ].
nStatic := staticFields size.
this_class_ref := constants at: this_class_index.
thisClassName := this_class_ref fullName asSlashedJavaClassName.
"/ care for smalltalk classes ...
(thisClassName startsWith: 'smalltalk.') ifTrue: [
thisClassName := thisClassName copyFrom: 11.
existing_class := Smalltalk at: thisClassName asSymbol.
existing_class notNil ifTrue: [
self halt: ('overloading existing class: ' , thisClassName).
thisClassName := (thisClassName , '_new') asSymbol.
].
thisMetaClass := Metaclass new.
thisMetaClass setSuperclass: super_class class.
thisMetaClass instSize: (super_class class instSize + nStatic).
classBeingLoaded := thisMetaClass new.
classBeingLoaded setSuperclass: super_class.
classBeingLoaded setName: thisClassName asSymbol.
] ifFalse: [
"/ a java class
Class withoutUpdatingChangesDo:[
classBeingLoaded := JavaClass fullName: thisClassName numStatic: nStatic.
classBeingLoaded classLoader: self class classLoaderQuerySignal query.
fields := fields select: [:f | f isStatic not ].
JavaClass setInstanceVariableStringFromFields: staticFields
in: classBeingLoaded class.
classBeingLoaded setStaticFields: staticFields.
classBeingLoaded setAccessFlags: access_flags.
classBeingLoaded setSuperclass: super_class.
classBeingLoaded setConstantPool: constants.
classBeingLoaded setFields: fields.
classBeingLoaded setInterfaces: interfaces.
]
].
"/
"/ get methods
"/
self readMethodsFor: classBeingLoaded.
self readAttributesFor: classBeingLoaded.
"/
"/ get extensions
"/
self readExtensionsFor: classBeingLoaded.
classBeingLoaded fields do: [:each | self updateOwnerInField: each ].
classBeingLoaded staticFields do: [:each | self updateOwnerInField: each ].
classBeingLoaded classLoader: classLoader.
classesbeingLoaded remove: classBeingLoaded name ifAbsent:[].
^ classBeingLoaded.
"
JavaClassReader loadFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader loadFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
JavaClassReader loadFile:'foo.cls'
JavaClassReader verbose:true.
JavaClassReader loadFile:'/phys/ibm3/hotjava/classes/java/lang/ArithmeticException.class'
JavaClassReader loadFile:'/phys/ibm3/java/lib/java/lang/ArithmeticException.class'"
"Created: / 15-04-1996 / 15:02:47 / cg"
"Modified: / 12-11-1998 / 21:14:45 / cg"
"Modified: / 15-10-2010 / 17:37:38 / Jan Kurs <kurs.jan@post.cz>"
"Modified: / 28-01-2011 / 15:09:48 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 18-05-2011 / 15:30:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 02-05-2013 / 10:02:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream:aStream ignoring:classesBeingLoaded
<resource: #obsolete>
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
^self readStream:aStream loader: self class classLoaderQuerySignal query ignoring:classesBeingLoaded
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 15-04-1996 / 15:00:55 / cg"
"Modified: / 02-05-2013 / 09:53:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream:stream loader: classloader ignoring:classesBeingLoaded
"reads a class from aStream and returns it.
The JavaClass is not installed as global"
inStream := stream.
classLoader := classloader.
inStream binary.
^ self readClassFileIgnoring:classesBeingLoaded
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 02-05-2013 / 09:52:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading - attributes'!
readAnnotationDefaultAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: AnnotationDefault') infoPrintCR.
|len startPos endPos annotationDefault|
self assert:something isJavaMethod
message:'AnnotationDefault may only occure for methods!!'.
len := inStream nextUnsignedLongMSB:msb.
startPos := inStream position.
annotationDefault := (something ensureHasAnnotations)
default:(JavaAnnotationDefault new
value:(self readAnnotationValueFor:something));
default.
endPos := inStream position.
inStream position:startPos.
annotationDefault bytes:(inStream next:len).
self assert:inStream position = endPos
message:'self readAnnotationValueFor: something is reading what it shouldn'.
"Modified: / 28-02-2011 / 17:08:28 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 03-03-2011 / 23:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readAnnotationFor:something
| typeIndex type result attrsCount |
typeIndex := inStream nextUnsignedShortMSB:msb.
type := constants at:typeIndex.
attrsCount := inStream nextUnsignedShortMSB:msb.
result := JavaAnnotation for:something.
result name:type.
attrsCount timesRepeat:
[ | nameIndex name valueIndex attr |
nameIndex := inStream nextUnsignedShortMSB:msb.
name := constants at:nameIndex.
attr := self readAnnotationValueFor:something.
attr name:name.
result values at:attr name put:attr.
AnnotationsVerbose
ifTrue:[ ('JAVA [INFO]: Reading annotation attribute: ' , name) infoPrintCR. ]. ].
^ result.
"Created: / 17-12-2010 / 16:21:28 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 25-02-2011 / 12:25:36 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 27-07-2011 / 09:37:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readAnnotationValueFor:something
| tag result |
tag := (inStream nextByte) asCharacter.
tag = $e
ifTrue:
[ result := JavaAnnotationEnumValue for:something.
result nameIndex:(inStream nextUnsignedShortMSB:msb).
result valueIndex:(inStream nextUnsignedShortMSB:msb).
AnnotationsVerbose
ifTrue:
[ ('JAVA [INFO]: Reading annotation enum value: ' , result name printString, ' -> '
, result value printString) infoPrintCR ].
^ result ].
tag = $c
ifTrue:
[ result := JavaAnnotationClassValue for:something.
result classIndex:(inStream nextUnsignedShortMSB:msb).
AnnotationsVerbose
ifTrue:
[ ('JAVA [INFO]: Reading annotation class value: ' , result name printString, ' -> '
, result value printString) infoPrintCR ].
^ result ].
tag = $@
ifTrue:
[ result := JavaAnnotationNestedAnnotationValue for:something.
result nestedAnnotation:(self readAnnotationFor: something).
AnnotationsVerbose
ifTrue:
[ ('JAVA [INFO]: Reading annotation nested annotation value: ' , result name printString
, ' -> ' , result value printString)
infoPrintCR ].
^ result ].
tag = $[
ifTrue:
[ result := JavaAnnotationArrayValue for:something.
result count:(inStream nextUnsignedShortMSB:msb).
AnnotationsVerbose
ifTrue:[ ('JAVA [INFO]: Reading annotation array value') infoPrintCR ].
1 to:result count
do:[:index | result values at:index put:(self readAnnotationValueFor:something) ].
AnnotationsVerbose
ifTrue:
[ ('JAVA [INFO]: Finished reading annotation array value: '
, result value printString) infoPrintCR ].
^ result ].
result := JavaAnnotationPrimitiveValue for:something.
result valueIndex:(inStream nextUnsignedShortMSB:msb).
AnnotationsVerbose
ifTrue:
[ ('JAVA [INFO]: Finished reading annotation primitive value: '
, result name printString , ' -> ' , result value printString) infoPrintCR ].
^ result.
"Created: / 17-12-2010 / 16:44:14 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 28-02-2011 / 16:12:09 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 12-02-2013 / 19:35:15 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
!
readAttribute:attributeName for:something
"/ implemented JAVA attributes
(attributeName = 'ConstantValue')
ifTrue:
[ self readConstantValueAttributeFor:something.
^ self. ].
(attributeName = 'Code')
ifTrue:
[ self readCodeAttributeFor:something.
^ self. ].
(attributeName = 'Exceptions')
ifTrue:
[ self readExceptionsAttributeFor:something.
^ self. ].
(attributeName = 'InnerClasses')
ifTrue:
[ self readInnerClassesAttributeFor:something.
^ self. ].
(attributeName = 'EnclosingMethod')
ifTrue:
[ self readEnclosingMethodAttributeFor:something.
^ self. ].
(attributeName = 'LineNumberTable')
ifTrue:
[ self readLineNumberTableAttributeFor:something.
^ self. ].
(attributeName = 'LocalVariableTable')
ifTrue:
[ self readLocalVariableTableAttributeFor:something.
^ self. ].
(attributeName = 'LocalVariableTypeTable')
ifTrue:
[ self readLocalVariableTypeTableAttributeFor:something.
^ self. ].
(attributeName = 'SourceFile')
ifTrue:
[ self readSourceFileAttributeFor:something.
^ self. ].
(attributeName = 'SourceDebugExtension')
ifTrue:
[ self readSourceDebugExtensionAttributeFor:something.
^ self. ].
(attributeName = 'Synthetic')
ifTrue:
[ self readSyntheticAttributeFor:something.
^ self. ].
(attributeName = 'Signature')
ifTrue:
[ self readSignatureAttributeFor:something.
^ self. ].
(attributeName = 'Deprecated')
ifTrue:
[ self readDeprecatedAttributeFor:something.
^ self. ].
(attributeName = 'RuntimeVisibleAnnotations')
ifTrue:
[ self readRuntimeAnnotationsAttributeFor:something visible:true.
^ self. ].
(attributeName = 'RuntimeInvisibleAnnotations')
ifTrue:
[ self readRuntimeAnnotationsAttributeFor:something visible:false.
^ self. ].
(attributeName = 'RuntimeVisibleParameterAnnotations')
ifTrue:
[ self readRuntimeParameterAnnotationsAttributeFor:something visible:true.
^ self. ].
(attributeName = 'RuntimeInvisibleParameterAnnotations')
ifTrue:
[ self readRuntimeParameterAnnotationsAttributeFor:something visible:false.
^ self. ].
(attributeName = 'AnnotationDefault')
ifTrue:
[ self readAnnotationDefaultAttributeFor:something.
^ self. ].
"/ ignored JAVA attributes
(attributeName = 'FastJavac1.0')
ifTrue:
[ "/ ('JAVA [info]: unhandled attribute: ' , attributeName) infoPrintCR.
self skipAttribute:attributeName.
^ self. ].
(attributeName = 'AbsoluteSourcePath')
ifTrue:
[ ('JAVA [info]: unhandled attribute: ' , attributeName) infoPrintCR.
self skipAttribute:attributeName.
^ self. ].
(attributeName startsWith:((Character value:13) asString , 'WARNING:'))
ifTrue:
[ "/ ('JAVA [info]: unhandled attribute: ' , attributeName) infoPrintCR.
self skipAttribute:attributeName.
^ self. ].
(attributeName = 'StackMapTable')
ifTrue:
[ "/ ('JAVA [info]: unhandled attribute: ' , attributeName) infoPrintCR.
self readStackMapTableAttributeFor:something.
^ self. ].
"/ implemented ST attributes
(attributeName = 'STLiterals')
ifTrue:
[ self readSTLiteralsAttributeFor:something.
^ self. ].
(attributeName = 'ClassRevision')
ifTrue:
[ self readSTClassRevisionAttributeFor:something.
^ self. ].
(attributeName = 'ClassPackage')
ifTrue:
[ self readSTClassPackageAttributeFor:something.
^ self. ].
(attributeName = 'ClassCategory')
ifTrue:
[ self readSTClassCategoryAttributeFor:something.
^ self. ].
(attributeName = 'ClassVarNames')
ifTrue:
[ self readSTClassVarNamesAttributeFor:something.
^ self. ].
(attributeName = 'ClassInstVarNames')
ifTrue:
[ self readSTClassInstVarNamesAttributeFor:something.
^ self. ].
(attributeName = 'InstVarNames')
ifTrue:
[ self readSTInstVarNamesAttributeFor:something.
^ self. ].
(attributeName = 'STCode')
ifTrue:
[ self readSTCodeAttributeFor:something.
^ self. ].
(attributeName = 'MethodCategory')
ifTrue:
[ self readSTMethodCategoryAttributeFor:something.
^ self. ].
"/ unknown attributes
('JAVA [warning]: unrecognized attribute: ' , attributeName) infoPrintCR.
self skipAttribute:attributeName.
"Modified: / 03-12-1998 / 13:13:42 / cg"
"Modified: / 25-02-2011 / 18:09:21 / Marcel Hlopko <hlopik@gmail.com>"
!
readAttributeFor:something
|attribute_name_index attribute_name attribute_length attribute_info|
Verbose ifTrue:[Transcript show:'attrib at pos: '; showCR:inStream position].
attribute_name_index := inStream nextUnsignedShortMSB:msb.
attribute_name_index == 0 ifTrue:[
self halt.
"/self skipAttribute:'unnamed'.
^ self.
].
"/
"/ UNDOC feature ?
"/
attribute_name_index > constants size ifTrue:[
attribute_name_index == 16rb700 ifTrue:[
self halt.
]
].
attribute_name := constants at:attribute_name_index.
Verbose ifTrue:[Transcript show:'attrib name: '; showCR:attribute_name].
self readAttribute:attribute_name for:something.
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 15-04-1996 / 15:40:17 / cg"
"Modified: / 09-04-1998 / 18:13:34 / cg"
"Modified: / 19-10-2010 / 21:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readAttributesFor:something
|attributes_count|
attributes_count := inStream nextUnsignedShortMSB:msb.
1 to:attributes_count do:[:i |
self readAttributeFor:something.
].
"Modified: 15.4.1996 / 15:33:28 / cg"
"Created: 15.4.1996 / 15:40:17 / cg"
!
readDeprecatedAttributeFor:aJavaMethodWithHandler
self skipAttribute:'Deprecated'.
^self
"Created: / 18-10-2010 / 22:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readEnclosingMethodAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: EnclosingMethod') infoPrintCR.
self skipAttribute:'EnclosingMethod'.
!
readInnerClassesAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: InnerClasses') infoPrintCR.
self skipAttribute:'InnerClasses'.
!
readLocalVariableTypeTableAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: LocalVariableTypeTable') infoPrintCR.
self skipAttribute:'LocalVariableTypeTable'.
!
readRuntimeAnnotationsAttributeFor: something visible: visible
| length annotationsCount annotations rawAnnotations startPos endPos |
self assert: inStream isPositionable
message: '.class file stream must be positionable'.
length := inStream nextUnsignedLongMSB: msb.
startPos := inStream position.
annotationsCount := inStream nextUnsignedShortMSB: msb.
annotationsCount = 0 ifTrue: [ ^ nil ].
annotations := visible ifTrue: [something ensureHasAnnotations ensureRuntimeVisible] ifFalse: [something ensureHasAnnotations ensureRuntimeInvisible].
annotationsCount timesRepeat:
[ | currentAnnotation |
currentAnnotation := self readAnnotationFor: something.
annotations at: currentAnnotation name put: currentAnnotation. ].
"Cut raw annotations as required by getRawAnnotations()"
endPos := inStream position.
inStream position: startPos.
rawAnnotations := inStream next: length.
inStream position ~= endPos
ifTrue: [ self halt: 'annotations are probably reading what they shouldnt' ].
annotations rawAnnotations: rawAnnotations.
"Modified: / 07-01-2011 / 22:00:07 / Jan Kurs <kurs.jan@post.cz>"
"Modified: / 25-02-2011 / 18:45:58 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 03-03-2011 / 23:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-03-2011 / 16:57:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readRuntimeParameterAnnotationsAttributeFor: javaMethod visible: visible
| length paramsCount annotationsCount rawAnnotations startPos endPos |
self assert: inStream isPositionable
message: '.class file stream must be positionable'.
length := inStream nextUnsignedLongMSB: msb.
startPos := inStream position.
paramsCount := inStream nextByte.
paramsCount = 0 ifTrue: [ ^ nil ].
1 to: paramsCount do: [
:paramIndex |
annotationsCount := inStream nextUnsignedShortMSB: msb.
annotationsCount > 0 ifTrue: [
| annotations |
annotations := visible ifTrue: [
javaMethod ensureHasAnnotations
ensureVisibleParameterAnnotationsAt: paramIndex
] ifFalse: [
javaMethod ensureHasAnnotations
ensureInvisibleParameterAnnotationsAt: paramIndex
].
annotationsCount timesRepeat: [
| annotation |
annotation := self readAnnotationFor: javaMethod.
annotations at: (annotation name) put: annotation.
]
]
].
endPos := inStream position.
inStream position: startPos.
rawAnnotations := inStream next: length.
inStream position ~= endPos ifTrue: [
self halt: 'annotations are probably reading what they shouldnt'
].
self breakPoint:#mh.
javaMethod annotations rawParamAnnotations: rawAnnotations.
"Modified: / 28-02-2011 / 17:05:47 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 01-12-2012 / 22:54:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readSignatureAttributeFor:something
|attribute_length signature_index signature|
attribute_length := inStream nextUnsignedLongMSB:msb.
signature_index := inStream nextUnsignedShortMSB:msb.
signature := constants at:signature_index.
something setSignature: signature.
"Modified: / 13-08-2011 / 00:28:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readSourceDebugExtensionAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: SourceDebugExtension') infoPrintCR.
self skipAttribute:'SourceDebugExtension'.
!
readSourceFileAttributeFor:aClass
|attribute_length sourceFile_index sourceFile|
attribute_length := inStream nextUnsignedLongMSB:msb.
sourceFile_index := inStream nextUnsignedShortMSB:msb.
sourceFile := constants at:sourceFile_index.
aClass isJavaClass ifTrue:[
aClass setSourceFile:sourceFile.
] ifFalse:[
aClass setClassFilename:sourceFile
].
Verbose ifTrue:[Transcript show:'sourceFile: '; showCR:sourceFile].
^ true
"
JavaClassReader loadFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader loadFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
JavaClassReader loadFile:'foo.cls'
"
"Created: / 15.4.1996 / 15:40:17 / cg"
"Modified: / 12.5.1998 / 22:01:07 / cg"
!
readStackMapTableAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: StackMapTable') infoPrintCR.
self skipAttribute:'StackMapTable'.
"Created: / 09-02-2011 / 01:19:20 / Marcel Hlopko <hlopik@gmail.com>"
!
readSyntheticAttributeFor:something
"/ ('JAVA [info]: unhandled attribute: Synthetic') infoPrintCR.
self skipAttribute:'Synthetic'.
!
skipAttribute:attributeName
"dont know about this attribute - skip it here"
|attribute_length attribute_info|
attribute_length := inStream nextUnsignedLongMSB:msb.
attribute_info := ByteArray new:(attribute_length).
inStream nextBytes:attribute_length into:attribute_info startingAt:1.
Verbose ifTrue:[Transcript show:'skipped '; show:attributeName; showCR:'-attribute'].
"Created: / 9.4.1998 / 18:12:46 / cg"
"Modified: / 9.4.1998 / 18:13:20 / cg"
! !
!JavaClassReader methodsFor:'file reading - attributes-ST'!
readSTClassCategoryAttributeFor:aClass
|attribute_length categoryString_index categoryString|
attribute_length := inStream nextUnsignedLongMSB:msb.
categoryString_index := inStream nextUnsignedShortMSB:msb.
categoryString := constants at:categoryString_index.
aClass category:categoryString.
Verbose ifTrue:[Transcript show:'categoryString: '; showCR:categoryString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Created: / 9.5.1998 / 02:33:13 / cg"
"Modified: / 9.5.1998 / 02:36:55 / cg"
!
readSTClassInstVarNamesAttributeFor:aClass
|attribute_length nameString_index nameString|
attribute_length := inStream nextUnsignedLongMSB:msb.
nameString_index := inStream nextUnsignedShortMSB:msb.
nameString := constants at:nameString_index.
aClass class instanceVariableString:nameString.
Verbose ifTrue:[Transcript show:'nameString: '; showCR:nameString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Modified: / 12.5.1998 / 22:18:03 / cg"
"Created: / 12.5.1998 / 22:18:24 / cg"
!
readSTClassPackageAttributeFor:aClass
|attribute_length packageString_index packageString|
attribute_length := inStream nextUnsignedLongMSB:msb.
packageString_index := inStream nextUnsignedShortMSB:msb.
packageString := constants at:packageString_index.
aClass package:packageString asSymbol.
Verbose ifTrue:[Transcript show:'packageString: '; showCR:packageString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Modified: / 9.5.1998 / 02:32:38 / cg"
"Created: / 9.5.1998 / 02:33:44 / cg"
!
readSTClassRevisionAttributeFor:aClass
|attribute_length revisionString_index revisionString|
attribute_length := inStream nextUnsignedLongMSB:msb.
revisionString_index := inStream nextUnsignedShortMSB:msb.
revisionString := constants at:revisionString_index.
aClass setBinaryRevision:revisionString.
Verbose ifTrue:[Transcript show:'revisionString: '; showCR:revisionString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Created: / 9.5.1998 / 02:33:13 / cg"
"Modified: / 9.5.1998 / 02:35:01 / cg"
!
readSTClassVarNamesAttributeFor:aClass
|attribute_length nameString_index nameString|
attribute_length := inStream nextUnsignedLongMSB:msb.
nameString_index := inStream nextUnsignedShortMSB:msb.
nameString := constants at:nameString_index.
aClass classVariableString:nameString.
Verbose ifTrue:[Transcript show:'nameString: '; showCR:nameString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Created: / 9.5.1998 / 02:33:13 / cg"
"Modified: / 12.5.1998 / 22:18:03 / cg"
!
readSTInstVarNamesAttributeFor:aClass
|attribute_length nameString_index nameString|
attribute_length := inStream nextUnsignedLongMSB:msb.
nameString_index := inStream nextUnsignedShortMSB:msb.
nameString := constants at:nameString_index.
aClass setInstanceVariableString:nameString.
Verbose ifTrue:[Transcript show:'nameString: '; showCR:nameString].
^ true
"
JavaClassReader loadFile:'foo.cls'
"
"Created: / 12.5.1998 / 22:18:14 / cg"
"Modified: / 12.5.1998 / 22:21:10 / cg"
! !
!JavaClassReader methodsFor:'file reading - constants'!
readConstant
|tag constReader const|
constNeeds2Slots := false.
"/
"/ get tag
"/
tag := inStream nextByte.
Verbose ifTrue:[Transcript show:'tag = '; showCR:tag].
tag >= 250 ifTrue:[
constReader := #(
"/ ST types
readConstant_ST_Large "/ 249
readConstant_ST_Special "/ 250
readConstant_ST_Character "/ 251
readConstant_ST_ByteArray "/ 252
readConstant_ST_Array "/ 253
readConstant_ST_Symbol "/ 254
readConstant_ST_Reserved "/ 255
) at:tag-249+1.
] ifFalse:[
constReader := #(
"/ JAVA types
readConstant_Utf8 "/ 1 - now called Utf8
readConstant_Unicode "/ 2
readConstant_Integer "/ 3
readConstant_Float "/ 4
readConstant_Long "/ 5
readConstant_Double "/ 6
readConstant_Class "/ 7
readConstant_String "/ 8
readConstant_Fieldref "/ 9
readConstant_Methodref "/ 10
readConstant_InterfaceMethodref "/ 11
readConstant_NameAndType "/ 12
) at:tag ifAbsent:[#readConstant_Undef].
].
^ self perform:constReader.
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 15.4.1996 / 15:46:32 / cg"
"Modified: / 9.5.1998 / 01:26:05 / cg"
!
readConstantPool
| constantPoolSize const |
"/
"/ get constant pool
"/
constantPoolSize := inStream nextUnsignedShortMSB: msb.
self info: 'constantPoolSize = ' , constantPoolSize printString.
constants := JavaConstantPool new: constantPoolSize - 1.
constSlot := 1.
[ constSlot < constantPoolSize ] whileTrue: [
self info: 'const slot: ' , constSlot printString.
const := self readConstant.
constants at: constSlot put: const.
"/ long & double consts take 2 slots
"/ (only first is used)
constNeeds2Slots
ifTrue: [ constSlot := constSlot + 2. ]
ifFalse: [ constSlot := constSlot + 1. ]].
constSlot := -1.
constants do:[:ref|ref isJavaRef ifTrue:[ref preResolve]].
"/ 1 to: constantPoolSize - 1
"/ do:
"/ [:i |
"/ | const value |
"/
"/ const := constants at: i.
"/ const notNil ifTrue:
"/ [ "/ kludge for 2-slot constants (which only take 1 slot in ST/X)
"/ (const isKindOf: JavaUnresolvedConstant)
"/ ifTrue:
"/ [ value := const preResolve.
"/ value ~~ const ifTrue: [ constants at: i put: value. ] ] ] ].
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'"
"Modified: / 07-05-1998 / 11:44:06 / cg"
"Created: / 13-05-2011 / 16:52:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 15-10-2012 / 23:15:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readConstant_Asciz
| len string |
len := inStream nextUnsignedShortMSB: msb.
string := String new: len.
inStream
nextBytes: len
into: string
startingAt: 1.
Verbose
ifTrue:
[ Transcript
show: 'asciz; string= ';
showCR: string ].
^ string
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'"
"Created: / 15-04-1996 / 15:15:35 / cg"
"Modified: / 15-04-1996 / 16:33:45 / cg"
"Modified: / 13-05-2011 / 17:31:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_Class
| nameIndex |
nameIndex := inStream nextUnsignedShortMSB: msb.
((constants at: nameIndex) isNil)
ifTrue:
[ self info: ('reading class; index=' , nameIndex printString , ' name='
, (constants at: nameIndex) printString) ]
ifFalse: [ self info: ('reading class; index= ' , nameIndex printString) ].
^ JavaClassRef2 in: constants withNameAt: nameIndex.
"Modified: / 18-05-2011 / 18:21:16 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_Double
|high low aFloat bytes|
"/ new code - to be tested
"/ bytes := ByteArray new:8.
"/
"/ inStream nextBytes:8 into:bytes startingAt:1.
"/ msb ~~ UninterpretedBytes isBigEndian ifTrue:[
"/ bytes reverse
"/ ].
"/ aFloat := bytes doubleAt:1.
"/ old code
high := inStream nextUnsignedLongMSB:msb.
low := inStream nextUnsignedLongMSB:msb.
aFloat := Float new.
UninterpretedBytes isBigEndian ifTrue:[
aFloat basicAt:1 put:((high bitShift:-24) bitAnd:16rFF).
aFloat basicAt:2 put:((high bitShift:-16) bitAnd:16rFF).
aFloat basicAt:3 put:((high bitShift:-8) bitAnd:16rFF).
aFloat basicAt:4 put:(high bitAnd:16rFF).
aFloat basicAt:5 put:((low bitShift:-24) bitAnd:16rFF).
aFloat basicAt:6 put:((low bitShift:-16) bitAnd:16rFF).
aFloat basicAt:7 put:((low bitShift:-8) bitAnd:16rFF).
aFloat basicAt:8 put:(low bitAnd:16rFF).
] ifFalse:[
aFloat basicAt:1 put:(low bitAnd:16rFF).
aFloat basicAt:2 put:((low bitShift:-8) bitAnd:16rFF).
aFloat basicAt:3 put:((low bitShift:-16) bitAnd:16rFF).
aFloat basicAt:4 put:((low bitShift:-24) bitAnd:16rFF).
aFloat basicAt:5 put:(high bitAnd:16rFF).
aFloat basicAt:6 put:((high bitShift:-8) bitAnd:16rFF).
aFloat basicAt:7 put:((high bitShift:-16) bitAnd:16rFF).
aFloat basicAt:8 put:((high bitShift:-24) bitAnd:16rFF).
].
constNeeds2Slots := true.
Verbose ifTrue:[Transcript show:'double; value= '; showCR:aFloat].
^ aFloat
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Created: / 15.4.1996 / 16:34:42 / cg"
"Modified: / 8.5.1998 / 22:06:07 / cg"
!
readConstant_Fieldref
"incrementally changing resolving logic, fields will come later"
| classIndex nameAndTypeIndex |
classIndex := inStream nextUnsignedShortMSB: msb.
nameAndTypeIndex := inStream nextUnsignedShortMSB: msb.
self
info: 'reading fieldref; classindex=' , classIndex printString
, ' nameAndTypeIndex=' , nameAndTypeIndex printString.
^ JavaFieldRef2
in: constants
withNameAndTypeAt: nameAndTypeIndex
andClassAt: classIndex.
"Modified: / 15-05-2011 / 14:20:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_Float
|b1 b2 b3 b4 aFloat bytes|
"/ new code - to be tested ...
"/
"/ bytes := ByteArray new:4.
"/ inStream nextBytes:4 into:bytes startingAt:1.
"/ msb ~~ UninterpretedBytes isBigEndian ifTrue:[
"/ bytes reverse
"/ ].
"/ aFloat := bytes floatAt:1.
"/ Verbose ifTrue:[Transcript show:'float; value= '; showCR:aFloat].
"/ ^ aFloat.
"/ old code
aFloat := ShortFloat basicNew.
b1 := inStream nextByte.
b2 := inStream nextByte.
b3 := inStream nextByte.
b4 := inStream nextByte.
UninterpretedBytes isBigEndian ifTrue:[
aFloat basicAt:1 put:b1.
aFloat basicAt:2 put:b2.
aFloat basicAt:3 put:b3.
aFloat basicAt:4 put:b4.
] ifFalse:[
aFloat basicAt:4 put:b1.
aFloat basicAt:3 put:b2.
aFloat basicAt:2 put:b3.
aFloat basicAt:1 put:b4.
].
Verbose ifTrue:[Transcript show:'float; value= '; showCR:aFloat].
^ aFloat
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Created: / 15.4.1996 / 16:34:42 / cg"
"Modified: / 10.11.1998 / 22:04:59 / cg"
!
readConstant_Integer
|value|
value := inStream nextLongMSB:msb.
Verbose ifTrue:[Transcript show:'integer; value= '; showCR:value].
^ value
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Modified: 15.4.1996 / 15:42:16 / cg"
"Created: 15.4.1996 / 16:34:42 / cg"
!
readConstant_InterfaceMethodref
| classIndex nameAndTypeIndex |
classIndex := inStream nextUnsignedShortMSB: msb.
nameAndTypeIndex := inStream nextUnsignedShortMSB: msb.
self
info: 'reading interface methodref; classindex=' , classIndex printString
, ' nameAndTypeIndex=' , nameAndTypeIndex printString.
^ JavaInterfaceMethodRef2
in: constants
withNameAndTypeAt: nameAndTypeIndex
andClassAt: classIndex.
"Modified: / 12-05-2011 / 18:57:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_Long
|high low value|
high := inStream nextUnsignedLongMSB:msb.
low := inStream nextUnsignedLongMSB:msb.
value := (high bitShift:32) bitOr:low.
(high bitTest:16r80000000) ifTrue:[
value := value - 16r10000000000000000.
].
constNeeds2Slots := true.
Verbose ifTrue:[Transcript show:'long; value= '; showCR:value].
^ value
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Modified: 15.4.1996 / 15:42:16 / cg"
"Created: 15.4.1996 / 16:34:42 / cg"
!
readConstant_Methodref
| classIndex nameAndTypeIndex |
classIndex := inStream nextUnsignedShortMSB: msb.
nameAndTypeIndex := inStream nextUnsignedShortMSB: msb.
self
info: 'reading methodref; classindex=' , classIndex printString , ' nameAndTypeIndex='
, nameAndTypeIndex printString.
^ JavaMethodRef2
in: constants
withNameAndTypeAt: nameAndTypeIndex
andClassAt: classIndex.
"Modified: / 15-05-2011 / 14:20:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_NameAndType
| nameIndex descriptorIndex |
nameIndex := inStream nextUnsignedShortMSB: msb.
descriptorIndex := inStream nextUnsignedShortMSB: msb.
self
info: 'reading nameAndType; nameindex=' , nameIndex printString
, ' descriptorIndex= ' , descriptorIndex printString.
^JavaNameAndType2
in: constants
withNameAt: nameIndex
andDescriptorAt: descriptorIndex.
"Modified: / 10-05-2011 / 17:09:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_String
| string_index |
string_index := inStream nextUnsignedShortMSB: msb.
^ JavaStringRef2 in: constants withValueAt: string_index.
"Created: / 15-04-1996 / 15:20:33 / cg"
"Modified: / 07-05-1998 / 11:42:45 / cg"
"Modified: / 13-05-2011 / 17:31:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 10-08-2011 / 23:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readConstant_Unicode
| len string ascii |
len := inStream nextUnsignedShortMSB: msb.
string := TwoByteString new: len.
1 to: len
do:
[:idx |
ascii := inStream nextUnsignedShortMSB: msb.
string at: idx put: (Character value: ascii). ].
Verbose
ifTrue:
[ Transcript
show: 'asciz; unicodeString= ';
showCR: string ].
^ string
"Modified: / 13-05-2011 / 17:31:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_Utf8
| len bytes string |
len := inStream nextUnsignedShortMSB: msb.
bytes := ByteArray new: len.
inStream
nextBytes: len
into: bytes
startingAt: 1.
string := CharacterArray fromJavaUTF8Bytes: bytes.
Verbose
ifTrue:
[ Transcript
show: 'asciz; string= ';
showCR: string ].
^ string
"Modified: / 19-10-2010 / 12:38:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 13-05-2011 / 17:31:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading - constants-ST'!
readConstant_ST_Array
|aSize arr|
aSize := inStream nextUnsignedShortMSB:msb.
arr := Array new:aSize.
1 to:aSize do:[:i |
|element_index element|
element_index := inStream nextUnsignedShortMSB:msb.
arr at:i put:element_index.
].
Verbose ifTrue:[Transcript show:'array; size= '; showCR:aSize].
^ JavaUnresolvedSTArrayConstant
pool:constants
poolIndex:constSlot
array:arr
"Created: / 7.5.1998 / 11:47:01 / cg"
"Modified: / 9.5.1998 / 00:25:34 / cg"
!
readConstant_ST_ByteArray
|aSize arr|
aSize := inStream nextUnsignedShortMSB:msb.
arr := ByteArray new:aSize.
1 to:aSize do:[:i |
|element_index|
arr at:i put:(inStream nextByte).
].
Verbose ifTrue:[Transcript show:'byteArray; size= '; showCR:aSize].
^ arr
"Created: / 7.5.1998 / 11:47:12 / cg"
!
readConstant_ST_Character
|ascii|
ascii := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'char; ascii= '; showCR:ascii].
^ Character value:ascii
"Created: / 7.5.1998 / 11:48:12 / cg"
!
readConstant_ST_Special
|type|
type := inStream nextUnsignedShortMSB:msb.
^ #(
nil
true
false
) at:(type + 1)
"Created: / 8.5.1998 / 23:06:56 / cg"
"Modified: / 9.5.1998 / 00:40:14 / cg"
!
readConstant_ST_String
| tag string_index chars |
string_index := inStream nextUnsignedShortMSB: msb.
Verbose
ifTrue:
[ Transcript
show: 'string; index= ';
showCR: string_index ].
"/ resolve here if possible
string_index < constSlot
ifTrue:
[ chars := (constants at: string_index).
^ chars ].
^ JavaUnresolvedSTStringConstant
pool: constants
poolIndex: constSlot
stringIndex: string_index
"Created: / 07-05-1998 / 11:49:55 / cg"
"Modified: / 13-05-2011 / 17:32:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
readConstant_ST_Symbol
| tag string_index chars |
string_index := inStream nextUnsignedShortMSB: msb.
Verbose
ifTrue:
[ Transcript
show: 'symbol; index= ';
showCR: string_index ].
"/ resolve here if possible
string_index < constSlot
ifTrue:
[ chars := (constants at: string_index).
chars isString ifFalse: [ self halt: 'should not happen' ].
^ chars asSymbol ].
^ JavaUnresolvedSTSymbolConstant
pool: constants
poolIndex: constSlot
stringIndex: string_index
"Modified: / 07-05-1998 / 11:48:28 / cg"
"Modified: / 13-05-2011 / 17:32:09 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading - extensions'!
readExtensionsFor: class
"Given a class, load extensions (i.e., non-java methods) for that class"
| classnameAsPath |
classnameAsPath := class name copyReplaceAll: $/ with: Filename separator.
Java effectiveExtensionsPath do:[:each|
ProgrammingLanguage allDo:[:lang|
lang supportsExtensionMethods ifTrue:[
| file |
file := each asString , Filename separator , classnameAsPath , '.' , lang sourceFileSuffix.
file := file asFilename.
file exists ifTrue:[
self readExtensionsFor: class from: file language: lang
]
]
]
]
"Created: / 06-09-2012 / 11:37:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readExtensionsFor: class from: file
"Given a class, load extensions (i.e., non-java methods) for that class"
JAVA isNil ifTrue:[ JavaPackage initialize ].
[
Smalltalk fileIn: file.
] on: JavaClassQuery do:[:query |
query className = class name ifTrue:[
query resumeWith: class
] ifFalse:[
query resumeWith: nil.
]
].
"Created: / 06-09-2012 / 12:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readExtensionsFor: class from: file language: language
"Given a class, load extensions (i.e., non-java methods) for that class"
JAVA isNil ifTrue:[ JavaPackage initialize ].
[
Class withoutUpdatingChangesDo:[
language fileIn: file.
].
] on: JavaClassQuery do:[:query |
query className = class name ifTrue:[
query resumeWith: class
] ifFalse:[
query resumeWith: nil.
]
].
"Created: / 06-09-2012 / 12:14:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-12-2012 / 16:48:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading - fields'!
readConstantValueAttributeFor:aField
|attribute_length constantvalue_index constantValue|
attribute_length := inStream nextUnsignedLongMSB:msb.
constantvalue_index := inStream nextUnsignedShortMSB:msb.
constantValue := constants at:constantvalue_index.
aField constantValue:constantValue.
Verbose ifTrue:[Transcript show:'constantValue: '; showCR:constantValue].
^ true
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Modified: 15.4.1996 / 15:33:28 / cg"
"Created: 15.4.1996 / 15:40:17 / cg"
!
readFieldInfofield
| access_flags name_index descriptor_index attributes_count field |
access_flags := inStream nextUnsignedShortMSB: msb.
name_index := inStream nextUnsignedShortMSB: msb.
descriptor_index := inStream nextUnsignedShortMSB: msb.
field := JavaField new.
field setAccessFlags: access_flags.
field setName: (constants at: name_index) asSymbol.
field setDescriptor: (constants at: descriptor_index) asSymbol.
field setConstantPool: constants.
attributes_count := inStream nextUnsignedShortMSB: msb.
Verbose
ifTrue:
[ Transcript
show: ' field name: ';
show: (constants at: name_index);
show: ' access: ';
show: access_flags;
show: ' attrib_cnt: ';
showCR: attributes_count ].
1 to: attributes_count do: [:i | self readAttributeFor: field. ].
^ field.
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'"
"Created: / 15-04-1996 / 15:38:43 / cg"
"Modified: / 15-10-1998 / 10:38:01 / cg"
"Modified: / 17-12-2010 / 18:44:30 / Marcel Hlopko <hlopik@gmail.com>"
"Modified: / 18-05-2011 / 14:11:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 14-08-2011 / 19:40:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readFieldInfofields
|nFields fields|
"/
"/ get fieldInfos
"/
nFields := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'fieldsCount = '; showCR:nFields].
fields := Array new:nFields.
1 to:nFields do:[:i |
Verbose ifTrue:[Transcript show:'field: '; showCR:i].
fields at:i put:(self readFieldInfofield)
].
^ fields
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: 15.4.1996 / 15:34:41 / cg"
"Modified: 15.4.1996 / 15:35:28 / cg"
! !
!JavaClassReader methodsFor:'file reading - interfaces'!
readInterfaces
|interfacesCount interface_index interface interfaces|
"/
"/ get interfaces
"/
interfacesCount := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'interfacesCount = '; showCR:interfacesCount].
interfaces := Array new:interfacesCount.
1 to:interfacesCount do:[:i |
Verbose ifTrue:[Transcript show:'interface: '; showCR:i].
interface_index := inStream nextUnsignedShortMSB:msb.
interface := constants at:interface_index.
interfaces at:i put:interface.
].
^ interfaces
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: 15.4.1996 / 15:31:59 / cg"
"Modified: 15.4.1996 / 15:33:28 / cg"
! !
!JavaClassReader methodsFor:'file reading - methods'!
readCodeAttributeFor:aJavaMethod
|attribute_length max_stack max_locals code_length code
exception_table_length exception_table unknown1 unknown2 |
attribute_length := inStream nextUnsignedLongMSB:msb.
Verbose ifTrue:[Transcript show:'code_attribute_length: 0x'; showCR:(attribute_length printStringRadix:16)].
((minorVsn > 2) or:[majorVsn > 45]) ifTrue:[
"/ should be:
max_stack := inStream nextUnsignedShortMSB:msb.
max_locals := inStream nextUnsignedShortMSB:msb.
code_length := inStream nextUnsignedLongMSB:msb.
"/ Remember max context size so far, will be used to
"/ optimize context size as alloca() won't work.
MaxContextSize := MaxContextSize max: (max_stack + max_locals + 4"safe area").
"
MaxContextSize > MaxContextSizeLimit ifTrue:[
self error:'method''s stack depth overflows VM limit'.
^false
].
"
"/ unknown1 := inStream nextByte.
"/ max_stack := inStream nextByte.
"/ max_locals := inStream nextUnsignedShortMSB:msb.
"/ unknown2 := inStream nextUnsignedShortMSB:msb.
"/ code_length := inStream nextUnsignedShortMSB:msb.
"/ Verbose ifTrue:[Transcript show:'?1: '; showCR:unknown1].
"/ Verbose ifTrue:[Transcript show:'?2: '; showCR:unknown2].
] ifFalse:[
max_stack := inStream nextByte.
max_locals := inStream nextByte.
code_length := inStream nextUnsignedShortMSB:msb.
].
Verbose ifTrue:[
Transcript show:'code_length: '; showCR:(code_length printStringRadix:16).
Transcript show:'code at pos: '; showCR:inStream position
].
code_length ~~ 0 ifTrue:[
code := ByteArray new:code_length.
inStream nextBytes:code_length into:code startingAt:1.
].
Verbose ifTrue:[Transcript show:'method code: '; showCR:code.].
exception_table_length := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'exception_table_length: '; showCR:(exception_table_length printStringRadix:16)].
exception_table_length ~~ 0 ifTrue:[
Verbose ifTrue:[Transcript show:'exceptionTable length:'; showCR:exception_table_length.].
exception_table := JavaExceptionTable new:exception_table_length * 4.
1 to:exception_table_length do:[:i |
"/ start PC
exception_table at:((i-1) * 4) + 1 put: (inStream nextUnsignedShortMSB:msb).
"/ end PC
exception_table at:((i-1) * 4) + 2 put: (inStream nextUnsignedShortMSB:msb).
"/ handler PC
exception_table at:((i-1) * 4) + 3 put: (inStream nextUnsignedShortMSB:msb).
"/ catch type
exception_table at:((i-1) * 4) + 4 put: (inStream nextUnsignedShortMSB:msb).
].
aJavaMethod setExceptionHandlerTable:exception_table.
].
(max_stack + max_locals + 4) > MaxContextSizeLimit ifTrue:[
code := nil
].
aJavaMethod
setCode:code
maxStack:max_stack
maxLocals:max_locals
u1:unknown1
u2:unknown2.
self readAttributesFor:aJavaMethod.
^ true
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/Alignable.class'
"
"Created: / 15-04-1996 / 15:40:17 / cg"
"Modified: / 16-05-1998 / 01:39:42 / cg"
"Modified: / 06-05-2013 / 22:08:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readExceptionsAttributeFor:aJavaMethod
|attribute_length exception_table_length exception_table|
attribute_length := inStream nextUnsignedLongMSB:msb.
exception_table_length := inStream nextUnsignedShortMSB:msb.
exception_table_length ~~ 0 ifTrue:[
exception_table := Array new:exception_table_length.
1 to:exception_table_length do:[:i |
|idx ex|
idx := inStream nextUnsignedShortMSB:msb.
ex := constants at:idx.
exception_table at:i put:ex.
].
].
Verbose ifTrue:[Transcript showCR:'method has an exceptionTable'].
aJavaMethod setExceptionTable:exception_table.
^ true
"Modified: 15.4.1996 / 15:33:28 / cg"
"Created: 15.4.1996 / 15:40:17 / cg"
!
readLineNumberTableAttributeFor:aJavaMethod
|attribute_length line_number_table_length line_number_table|
attribute_length := inStream nextUnsignedLongMSB:msb.
line_number_table_length := inStream nextUnsignedShortMSB:msb.
line_number_table_length ~~ 0 ifTrue:[
line_number_table := Array new:line_number_table_length.
1 to:line_number_table_length do:[:i |
|start_pc line_number|
start_pc := inStream nextUnsignedShortMSB:msb.
line_number := inStream nextUnsignedShortMSB:msb.
line_number_table at:i put:(start_pc -> line_number).
].
Verbose ifTrue:[Transcript showCR:'method has a lineNumberTable'].
aJavaMethod setLineNumberTable:line_number_table.
].
^ true
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/java/lang/Boolean.class'
"
"Created: / 15.4.1996 / 15:40:17 / cg"
"Modified: / 7.4.1998 / 19:08:42 / cg"
!
readLocalVariableTableAttributeFor:aJavaMethod
|attribute_length local_variable_table_length local_variable_table|
attribute_length := inStream nextUnsignedLongMSB:msb.
local_variable_table_length := inStream nextUnsignedShortMSB:msb.
local_variable_table_length ~~ 0 ifTrue:[
local_variable_table := JavaLocalVariableTable new:local_variable_table_length.
1 to:local_variable_table_length do:[:i |
|start_pc length name_index sig_index slot name signature|
start_pc := inStream nextUnsignedShortMSB:msb.
length := inStream nextUnsignedShortMSB:msb.
name_index := inStream nextUnsignedShortMSB:msb.
name := constants at:name_index.
sig_index := inStream nextUnsignedShortMSB:msb.
signature := constants at:sig_index.
slot := inStream nextUnsignedShortMSB:msb.
local_variable_table at:i put:(JavaLocalVariableTableEntry new
startPC:start_pc
length:length
name:name
signature:signature
slot:slot)
].
].
Verbose ifTrue:[Transcript showCR:'method has a localvariableTable'].
aJavaMethod setLocalVariableTable:local_variable_table.
^ true
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/java/lang/Boolean.class'
"
"Modified: 15.4.1996 / 15:33:28 / cg"
"Created: 15.4.1996 / 15:40:17 / cg"
!
readMethodFor:aClass
|m access_flags name_index name descriptor_index descriptor
tooManyArgs|
"/
"/ get a method
"/
access_flags := inStream nextUnsignedShortMSB:msb.
name_index := inStream nextUnsignedShortMSB:msb.
descriptor_index := inStream nextUnsignedShortMSB:msb.
name := constants at:name_index.
descriptor := constants at:descriptor_index.
Verbose ifTrue:[
Transcript show:'method name:'; showCR:name.
Transcript show:'descriptor:'; showCR:descriptor.
].
aClass isJavaClass ifTrue:[
(access_flags bitAnd:ACC_NATIVE) ~~ 0 ifTrue:[
m := JavaNativeMethod new.
] ifFalse:[
m := JavaMethodWithHandler new.
].
m setAccessFlags:access_flags.
m setJavaClass:aClass.
tooManyArgs := false.
ArgumentError handle:[:ex |
Logger log: 'java method has too many arguments - will fail to execute' severity: #warn facility: 'JVM'.
tooManyArgs := true.
ex proceed.
] do:[
m setName:name descriptor:descriptor.
].
self readAttributesFor:m.
tooManyArgs ifTrue:[
m code:nil.
m byteCode:nil.
].
(m exceptionHandlerTable isNil) ifTrue:[
m isNative ifFalse:[
m getExceptionTable isNil ifTrue:[
m := JavaMethod fromMethod:m
] ifFalse:[
m := JavaMethodWithException fromMethod:m
]
]
] ifFalse:[
| newAccessFlags |
newAccessFlags := m accessFlags.
newAccessFlags := newAccessFlags bitOr:ACX_HASHANDLER.
m hasFinallyBasedOnExceptionTable ifTrue:[
newAccessFlags := newAccessFlags bitOr:ACX_HASFINALLY.
].
m setAccessFlags:newAccessFlags.
].
self addSelector: (name , descriptor) asSymbol withMethod: m toClass: aClass.
( m selector == #'finalize()V' ) ifTrue:[
( aClass name ~~ #'java/lang/Object' ) ifTrue:[
aClass setAccessFlags: (aClass accessFlags bitOr:ACX_HASFINALIZE)
]
].
] ifFalse:[
m := Method new.
self readAttributesFor:m.
(access_flags bitTest:ACC_STATIC) ifTrue:[
self addSelector:name asSymbol withMethod:m toClass: aClass class.
] ifFalse:[
self addSelector:name asSymbol withMethod:m toClass: aClass.
]
].
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 15-04-1996 / 16:48:49 / cg"
"Modified: / 25-09-1999 / 23:16:25 / cg"
"Modified: / 28-10-2011 / 16:56:48 / m"
"Modified: / 26-02-2013 / 12:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readMethodsFor:aJavaClass
|methodsCount method|
"/
"/ get methods
"/
methodsCount := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'methodsCount = '; showCR:methodsCount].
1 to:methodsCount do:[:i |
Verbose ifTrue:[Transcript show:'method: '; showCR:i].
method := self readMethodFor:aJavaClass
].
Smalltalk changed: #methodDictionary with: aJavaClass.
"
JavaClassReader readFile:'/phys/ibm3/hotjava/classes/browser/AddButton.class'
"
"Created: / 15-04-1996 / 16:46:30 / cg"
"Modified: / 08-05-1998 / 21:20:59 / cg"
"Modified: / 04-04-2012 / 01:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader methodsFor:'file reading - methods-ST'!
readSTCodeAttributeFor:aSmalltalkMethod
|attribute_length max_stack max_locals code_length code
exception_table_length unknown1 unknown2|
attribute_length := inStream nextUnsignedLongMSB:msb.
Verbose ifTrue:[Transcript show:'attribute_length: 0x'; showCR:(attribute_length printStringRadix:16)].
max_stack := inStream nextUnsignedShortMSB:msb.
max_locals := inStream nextUnsignedShortMSB:msb.
code_length := inStream nextUnsignedLongMSB:msb.
Verbose ifTrue:[Transcript show:'code_length: '; showCR:(code_length printStringRadix:16)].
Verbose ifTrue:[Transcript show:'code at pos: '; showCR:inStream position].
code_length ~~ 0 ifTrue:[
code := ByteArray new:code_length.
inStream nextBytes:code_length into:code startingAt:1.
].
Verbose ifTrue:[Transcript show:'method code: '; showCR:code.].
exception_table_length := inStream nextUnsignedShortMSB:msb.
Verbose ifTrue:[Transcript show:'exception_table_length: '; showCR:(exception_table_length printStringRadix:16)].
exception_table_length ~~ 0 ifTrue:[
self error:'unexpected exceptionTable length'.
"/ skip it.
1 to:exception_table_length do:[:i |
"start_pc :=" inStream nextUnsignedShortMSB:msb.
"end_pc :=" inStream nextUnsignedShortMSB:msb.
"handler_pc :=" inStream nextUnsignedShortMSB:msb.
"catch_type :=" inStream nextUnsignedShortMSB:msb.
].
].
aSmalltalkMethod byteCode:code.
aSmalltalkMethod stackSize:max_stack .
aSmalltalkMethod numberOfVars:max_locals.
self readAttributesFor:aSmalltalkMethod.
^ true
"Modified: / 16.5.1998 / 01:39:30 / cg"
!
readSTLiteralsAttributeFor:aSmalltalkMethod
|attribute_length literal_table_length literal_table litIndex literal|
attribute_length := inStream nextUnsignedLongMSB:msb.
literal_table_length := inStream nextUnsignedShortMSB:msb.
literal_table_length ~~ 0 ifTrue:[
literal_table := Array new:literal_table_length.
1 to:literal_table_length do:[:i |
litIndex := inStream nextUnsignedShortMSB:msb.
literal := (constants at:litIndex).
literal_table at:i put:literal.
].
].
Verbose ifTrue:[Transcript show:'literals: '; showCR:literal_table storeString.].
"Created: / 7.5.1998 / 11:52:28 / cg"
"Modified: / 16.5.1998 / 01:52:27 / cg"
!
readSTMethodCategoryAttributeFor:aSmalltalkMethod
|attribute_length name_index name|
attribute_length := inStream nextUnsignedLongMSB:msb.
name_index := inStream nextUnsignedShortMSB:msb.
name := (constants at:name_index).
aSmalltalkMethod category:name.
"Modified: / 8.5.1998 / 20:39:59 / cg"
"Created: / 16.5.1998 / 01:04:19 / cg"
! !
!JavaClassReader methodsFor:'helpers'!
addSelector: selector withMethod: method toClass: javaClass
"Basically a primAddSelector:withMethod:. This indirection
is required by Expecco (it uses custom class reader so
which overrides this method"
javaClass primAddSelector:selector withMethod: method
"Created: / 26-02-2013 / 11:42:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
loadSuperclassIdentifiedBy: something ignoring: classesBeingLoaded
"overriding method, here we expect something to be new JavaClassRef2"
self assert: something isJavaRef
message: 'class identifier is not a java reference'.
self assert: something isJavaClassRef
message: 'class identifier is not a java class reference'.
(classesBeingLoaded includes: something name) ifTrue: [
self
error: 'class we want to load is being loaded and that means something went wrong. tell mh'
].
"hint in case of bug - is parent of something set? surely jv will know more :)" "find out which classloader is used"
^ JavaVM classForName: something name definedBy: classLoader.
"Created: / 18-05-2011 / 14:55:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 07-05-2013 / 12:24:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
updateOwnerInCPItem: each
((each isJavaRef and: [ each isNewJavaRef ])
or: [ each isJavaNameAndType and: [ each isNewJavaNameAndType ] ])
ifTrue: [ each owner: classBeingLoaded ].
"Created: / 12-05-2011 / 17:40:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
updateOwnerInField: each
each setClass: classBeingLoaded.
"Created: / 18-05-2011 / 13:57:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaClassReader methodsFor:'logging'!
info: message
Verbose ifTrue: [ Logger log: message severity: #info facility: 'JVM' ].
"Created: / 18-05-2011 / 15:06:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified (format): / 14-09-2011 / 21:39:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libjava/JavaClassReader.st,v 1.97 2013-03-18 16:59:01 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/libjava/JavaClassReader.st,v 1.97 2013-03-18 16:59:01 cg Exp $'
!
version_SVN
^ '§Id§'
! !
JavaClassReader initialize!