01: /*
02: * RetArray.java --
03: *
04: *
05: * Copyright (c) 1997 by Sun Microsystems, Inc.
06: *
07: * See the file "license.terms" for information on usage and redistribution
08: * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
09: *
10: * RCS: @(#) $Id: RetArray.java,v 1.1 1999/05/10 04:09:03 dejong Exp $
11: *
12: */
13:
14: package tests;
15:
16: public class RetArray {
17:
18: private static String[] arr1;
19: private static String[][] arr2;
20:
21: static {
22: arr1 = new String[5];
23: arr1[0] = "0";
24: arr1[1] = "1";
25: arr1[2] = "2";
26: arr1[3] = "3";
27: arr1[4] = "4";
28:
29: arr2 = new String[2][2];
30:
31: arr2[0][0] = "00";
32: arr2[0][1] = "01";
33:
34: arr2[1][0] = "10";
35: arr2[1][1] = "11";
36: }
37:
38: public static Object[] getObjectArr1() {
39: return arr1;
40: }
41:
42: public static String[] getStringArr1() {
43: return arr1;
44: }
45:
46: public static Object[][] getObjectArr2() {
47: return arr2;
48: }
49:
50: public static String[][] getStringArr2() {
51: return arr2;
52: }
53:
54: }
55:
56: /*
57:
58: Test it like this:
59:
60: set obj_arr1 [java::call tests.RetArray getObjectArr1]
61:
62: java::info class $obj_arr1
63: >should be java.lang.Object[]
64:
65: set obj_elem [$obj_arr1 -noconvert get 0]
66:
67: java::info class $obj_elem
68: >should be java.lang.Object
69:
70: $obj_elem toString
71: >should be 0
72:
73:
74:
75: set str_arr1 [java::call tests.RetArray getStringArr1]
76:
77: java::info class $str_arr1
78: >should be java.lang.String[]
79:
80: set str_elem [$str_arr1 -noconvert get 0]
81:
82: java::info class $str_elem
83: >should be java.lang.String
84:
85: $str_elem toString
86:
87:
88: string compare [$obj_elem -noconvert toString] $str_elem
89: >should be 0
90:
91:
92:
93:
94:
95:
96: >tests for the two dimensional array are simmilar
97:
98:
99: */
|