"{ package:'stx:libjava' }"

|files|

'loading package stx:libjava ...' printCR.

Scanner allowDollarInIdentifier:true.

"/

"/ base system

"/

files := #(

	'Java.st'

	'JavaVM.st'

	'JavaConstantPool.st'

	'JavaSlotIndexCache.st'

	'JavaObject.st'

	'JavaClass.st'

	'JavaMethod.st'

	'JavaMethodWithException.st'

	'JavaMethodWithHandler.st'

	'JavaNativeMethod.st'

	'JavaContext.st'

	'JavaProcess.st'

	'JavaClassReader.st'

	'JavaDecompiler.st'

	'JavaExceptionTableEntry.st'

	'JavaLocalVariableTable.st'

	'JavaLocalVariableTableEntry.st'

	'JavaRef.st'

	'JavaClassRef.st'

	'JavaField.st'

	'JavaFieldref.st'

	'JavaMethodref.st'

	'JavaInterfaceMethodref.st'

	'JavaNameandType.st'

	'JavaClassPointerRef.st'

	'JavaBuiltInClassPointerRef.st'

	'JavaUnresolvedConstant.st'

	'JavaUnresolvedRefConstant.st'

	'JavaUnresolvedClassConstant.st'

	'JavaUnresolvedFieldrefConstant.st'

	'JavaUnresolvedMethodrefConstant.st'

	'JavaUnresolvedInterfaceMethodrefConstant.st'

	'JavaUnresolvedNameandTypeConstant.st'

	'JavaUnresolvedStringConstant.st'

	'JavaView.st'

	'JavaTopView.st'

	'JavaPopUpView.st'

	'JavaEmbeddedFrameView.st'

	'SmalltalkAppletContext.st'

	'SmalltalkAppletStub.st'

).

(Smalltalk loadClassLibraryIfAbsent:'libjava') ifTrue:[

    |handle loaded|

    loaded := OrderedCollection new.

    handle := ObjectFileLoader loadedObjectHandles 

		detect:[:h | |cls|

		    cls := h classes firstIfEmpty:nil.

		    cls notNil and:[cls package = 'stx:libjava']

		]

		ifNone:nil.

    handle notNil ifTrue:[

	handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].

    ].

    files := files asOrderedCollection.

    loaded do:[:f| files remove:f ifAbsent:[]].

].

files size > 0 ifTrue:[

  files do:[:s|

    '.' print.

    Smalltalk fileIn:s.

  ].

  ' ' printCR.

].

'done (stx:libjava).' printCR.

!