#REFACTORING by stefan
class: JavaVM class
changed: #loadClassesIn:matching:
use \"asFilename pathName\" instead of \"asFilename asAbsoluteFilename pathName\"
ist is equivalent!
--- a/JavaVM.st Thu Apr 11 18:35:48 2019 +0200
+++ b/JavaVM.st Thu Apr 11 18:36:26 2019 +0200
@@ -2766,16 +2766,16 @@
Returns a set of loaded classes."
| dir dirString className loadedClasses |
- dir := directory asFilename asAbsoluteFilename.
+
+ dir := directory asFilename.
loadedClasses := Set new.
Java addToClassPath: dir pathName.
JavaClassReader classLoaderQuerySignal answer: SystemClassLoader do:[
dir isDirectory ifTrue:[
- dir recursiveDirectoryContentsAsFilenamesDo: [
- :filename |
- (filename isRegularFile and: [ filename suffix = #class ]) ifTrue: [
+ dir recursiveDirectoryContentsAsFilenamesDo:[:eachFilename|
+ (eachFilename isRegularFile and: [ eachFilename suffix = #class ]) ifTrue: [
dirString := dir pathName.
- className := filename withoutSuffix pathName.
+ className := eachFilename withoutSuffix pathName.
className := className subString: dirString size + 2 to: className size.
className := className replaceAll: (Filename separator) with: $..
(pattern isNil or:[className matches: pattern]) ifTrue: [
@@ -2788,7 +2788,7 @@
] ifFalse:[
| zar |
- zar := ZipArchive oldFileNamed: dir pathName.
+ zar := ZipArchive oldFileNamed:dir.
zar entries do:[:entry|
(entry endsWith:'.class') ifTrue:[
| nm |
@@ -2808,6 +2808,7 @@
"Modified: / 21-10-2011 / 12:52:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 27-05-2014 / 12:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 11-04-2019 / 18:19:50 / Stefan Vogel"
! !
!JavaVM class methodsFor:'class loading/unloading'!