Mercurial Mercurial > hg > stx-libjava / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed JavaClassRegistry>>classesDo: to allClassesDo:
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 09 Apr 2014 18:54:14 +0200
changeset 3067 4bbacafb9592
parent 3066 8c0339f8c175
child 3068 a65f7a72b3bf
Renamed JavaClassRegistry>>classesDo: to allClassesDo: This is a preparation to make JavaClassRegistry an environment object that could be passed to class browser.
Java.st file | annotate | diff | comparison | revisions
JavaClassRegistry.st file | annotate | diff | comparison | revisions
JavaClassReloader.st file | annotate | diff | comparison | revisions
JavaConstantPool.st file | annotate | diff | comparison | revisions
JavaExceptionTests.st file | annotate | diff | comparison | revisions
experiments/experiments.rc file | annotate | diff | comparison | revisions 
--- a/Java.st	Wed Apr 09 18:41:09 2014 +0200
+++ b/Java.st	Wed Apr 09 18:54:14 2014 +0200
@@ -588,9 +588,9 @@
 
 allClassesDo:aBlock
 
-    ^JavaVM classRegistry classesDo: aBlock
+    ^JavaVM classRegistry allClassesDo: aBlock
 
-    "Modified: / 23-10-2011 / 20:14:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Java class methodsFor:'object conversions'!
--- a/JavaClassRegistry.st	Wed Apr 09 18:41:09 2014 +0200
+++ b/JavaClassRegistry.st	Wed Apr 09 18:54:14 2014 +0200
@@ -160,9 +160,10 @@
 
 classes
 
-    ^Iterator on:[:whatToDo|self classesDo: whatToDo]
+    ^Iterator on:[:whatToDo|self allClassesDo: whatToDo]
 
     "Created: / 23-10-2011 / 20:14:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 systemPackage: syspkg
@@ -255,7 +256,7 @@
 
 !JavaClassRegistry methodsFor:'enumerating'!
 
-classesDo: aBlock
+allClassesDo: aBlock
 
     loaders do:[:classes|
         classes do:[:class|
@@ -263,7 +264,7 @@
         ]
     ]
 
-    "Created: / 23-10-2011 / 20:13:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 09-04-2014 / 18:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaClassRegistry methodsFor:'helpers'!
--- a/JavaClassReloader.st	Wed Apr 09 18:41:09 2014 +0200
+++ b/JavaClassReloader.st	Wed Apr 09 18:54:14 2014 +0200
@@ -194,7 +194,7 @@
     oldClass subclassesDo:[:cls | 
         JavaVM registry unregisterClass: cls 
     ].
-    JavaVM registry classesDo:[:cls|        
+    JavaVM registry allClassesDo:[:cls|        
         "/ JV: Q: Should we remove all users of the interface? Let's do it, but not
         "/        sure if that's necessary/desirable
         | ifaces |
@@ -216,7 +216,7 @@
     ]
 
     "Created: / 14-09-2013 / 15:53:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-10-2013 / 23:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaClassReloader methodsFor:'reloading-requests'!
@@ -270,7 +270,7 @@
     | anyInvalidated |
 
     anyInvalidated := false.
-    JavaVM registry classesDo:[:class|
+    JavaVM registry allClassesDo:[:class|
         anyInvalidated := (self invalidateClass: class) | anyInvalidated.
     ].
     anyInvalidated ifTrue:[ObjectMemory flushCaches].
@@ -286,7 +286,7 @@
 
     "Created: / 21-02-2012 / 09:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-10-2013 / 23:27:59 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
-    "Modified: / 17-10-2013 / 09:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 invalidateClass: javaClass 
@@ -545,7 +545,7 @@
 !JavaClassReloader::SingleClassReloader methodsFor:'reloading-requests'!
 
 requestRecompileSendersOf: givenMethod
-    JavaVM registry classesDo:[:cls|
+    JavaVM registry allClassesDo:[:cls|
         | recompile |
         recompile := cls constantPool contains:[:entry |
                         entry isJavaRef
@@ -558,6 +558,7 @@
     ].
 
     "Created: / 15-10-2013 / 01:52:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaClassReloader::SingleClassReloader::FieldMapping class methodsFor:'instance creation'!
--- a/JavaConstantPool.st	Wed Apr 09 18:41:09 2014 +0200
+++ b/JavaConstantPool.st	Wed Apr 09 18:54:14 2014 +0200
@@ -58,7 +58,7 @@
 invalidateForClass: internalJavaClassName 
     "Go over all constant pools and call invalidateForClass on all 
      references. (usable when given class was unloaded etc)"
-    JavaVM registry classesDo: [ :eachClass | 
+    JavaVM registry allClassesDo: [ :eachClass | 
         eachClass versionsArray do: [ :eachVersion | 
             eachVersion constantPool invalidateForClass: internalJavaClassName.
         ].
@@ -66,6 +66,7 @@
 
     "Created: / 08-04-2011 / 16:52:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
     "Modified (format): / 08-10-2013 / 18:43:59 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
+    "Modified: / 09-04-2014 / 18:43:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaConstantPool methodsFor:'accessing'!
--- a/JavaExceptionTests.st	Wed Apr 09 18:41:09 2014 +0200
+++ b/JavaExceptionTests.st	Wed Apr 09 18:54:14 2014 +0200
@@ -65,6 +65,7 @@
     "Created: / 30-03-2012 / 13:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !JavaExceptionTests methodsFor:'callbacks'!
 
 call: trhower with: aBoolean 
--- a/experiments/experiments.rc	Wed Apr 09 18:41:09 2014 +0200
+++ b/experiments/experiments.rc	Wed Apr 09 18:54:14 2014 +0200
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2014\nCopyright eXept Software AG 1998-2014\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Wed, 09 Apr 2014 16:35:51 GMT\0"
+      VALUE "ProductDate", "Wed, 09 Apr 2014 16:51:32 GMT\0"
     END
 
   END
hg/stx-libjava