JavaVM class>>_MULTINEW2 jk_new_structure
authorhlopkmar
Thu, 19 May 2011 08:51:37 +0000
branchjk_new_structure
changeset 804 c125b8449315
parent 803 8add6c68b94a
child 805 357902dfedca
JavaVM class>>_MULTINEW2
src/JavaVM.st
src/stx_libjava.st
--- a/src/JavaVM.st	Thu May 19 08:40:24 2011 +0000
+++ b/src/JavaVM.st	Thu May 19 08:51:37 2011 +0000
@@ -15215,6 +15215,44 @@
     "Modified: / 8.1.1999 / 18:47:08 / cg"
 !
 
+_MULTINEW2: classRef _: dim1 
+    | arr |
+    classRef isJavaClassRef ifFalse: [self halt: 'expected only classRefs'].
+    arr := classRef resolve new: dim1.
+    ^ arr.
+
+    "Created: / 19-05-2011 / 10:46:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
+_MULTINEW2: classRef _: dim1 _: dim2 
+    | arr |
+
+    arr := classRef resolve new: dim2.
+    1 to: dim2
+        do: [:idx | arr at: idx put: (self _MULTINEW2: classRef _: dim1) ].
+    ^ arr.
+
+    "Created: / 19-05-2011 / 10:47:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
+_MULTINEW2: classRef _: dim1 _: dim2 _: dim3 
+    | arr |
+
+    1 to: dim3
+        do: 
+            [:idx | 
+            arr at: idx
+                put: (self 
+                        _MULTINEW2: classRef
+                        _: dim1
+                        _: dim2) ].
+
+    
+    ^ arr.
+
+    "Created: / 19-05-2011 / 10:47:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
 _MULTINEW:typeRef _:dim1 
 
     |arr|
@@ -15228,16 +15266,12 @@
     "Modified: / 16-03-2011 / 16:20:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-_MULTINEW:typeRef _:dim1 _:dim2
-
+_MULTINEW: typeRef _: dim1 _: dim2 
     | arr |
 
-    arr := typeRef new:dim2.
-
-    1 to:dim2 do:[:idx |
-        arr at:idx put:(self _MULTINEW:typeRef javaComponentClass _:dim1)
-    ].
-
+    arr := typeRef new: dim2.
+    1 to: dim2
+        do: [:idx | arr at: idx put: (self _MULTINEW: typeRef javaComponentClass _: dim1) ].
     ^ arr
 
     "Created: / 08-01-1999 / 14:15:46 / cg"
--- a/src/stx_libjava.st	Thu May 19 08:40:24 2011 +0000
+++ b/src/stx_libjava.st	Thu May 19 08:51:37 2011 +0000
@@ -366,7 +366,7 @@
     "Return a SVN revision number of myself.
      This number is updated after a commit"
 
-    ^ "$SVN-Revision:"'1146'"$"
+    ^ "$SVN-Revision:"'1147'"$"
 ! !
 
 !stx_libjava class methodsFor:'file generation'!