6 double mydouble = 3.14159265;
7 String mystring = "my string";
8 static String ourstring = "our string";
9 static boolean embedded = false;
10 int array[] = {1,2,3};
17 v.addElement("Hello");
19 Vector x = perlTryVec(v);
20 x.addElement("World");
21 Vector y = perlTryVec(x);
22 if (!embedded) System.err.println("Thank you, perlTryVec!");
24 if (!embedded) System.err.println(retchars());
25 if (!embedded) System.err.println("Thank you, retchars!");
27 String[] s = retstrings();
28 if (!embedded) System.err.println(s[0] + s[1] + s[2] + s[3]);
29 if (!embedded) System.err.println("Thank you, retstrings!");
31 Object[] o = retobjects(v, x, y);
32 if (!embedded) System.err.println(o[1]);
33 if (!embedded) System.err.println(o[3]);
34 if (!embedded) System.err.println(o[4]);
35 if (!embedded) System.err.println("Thank you, retobjects!");
39 if (!embedded) System.err.println(s[0] + s[1] + s[2] + s[3]);
40 if (!embedded) System.err.println("Thank you, passarray!");
43 if (!embedded) System.err.println("Thank you, printfields!");
45 if (!embedded) System.err.println("Thank you, setfields!");
47 if (!embedded) System.err.println("Thank you, printfields!");
50 perl Vector perlTryVec(Vector v) throws RuntimeException {{
52 print "v isa: ", ref $v,"\n";
54 print "In perlTryVec() - Vector size is: ", $v->size([],['int']), "\n";
56 $size ||= getmeth('size', [], ['int']);
57 for ($i = 10000; $i; --$i) {
61 printf "%5.2fu %5.2fs\n", $bar[0] - $foo[0], $bar[1] - $foo[1];
65 perl char[] retchars() {{
66 print "In retchars()\n";
70 perl String[] retstrings() {{
71 print "In retstrings()\n";
72 return [1,2,3,"many"];
75 perl Object[] retobjects(Vector v, Vector x, Vector y) {{
76 print "In retstrings()\n";
77 return [$v, $x, $y, "this is only a test", 123];
80 perl void passarray(String[] s) {{
81 print "In passarray()\n";
83 $t = GetObjectArrayElement($s,3);
85 $x = GetStringUTFChars($t);
87 $t = SetObjectArrayElement($s,3,NewStringUTF("infinity"));
90 perl void printfields() {{
93 eval {print $self->v->toString____s(), "\n";};
96 print $self->myint, "\n";
97 print $self->mydouble, "\n";
98 print $self->mystring, "\n";
99 print JPL::Test->ourstring, "\n";
101 @nums = GetIntArrayElements($self->array());
104 @nums = unpack("i*", scalar GetIntArrayElements($self->array()));
108 perl void setfields() {{
110 $self->mydouble(2.7182918);
111 $self->mystring("MY STRING!!!");
112 JPL::Test->ourstring("OUR STRING!!!");
115 public static void main(String[] argv) {
116 if (java.lang.reflect.Array.getLength(argv) > 0 &&
117 argv[0].equals("-nothanks"))
120 if (!embedded) System.err.println("Thank you, Test!");