Mercurial > hg > octave-nkf

annotate scripts/java/usejava.m @ 16724:b7667fcb9fbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Substitute ostrsplit() for strsplit(). The function ostrsplit() is Octave's original strsplit(), and strsplit() has been modified to be compatible with Matlab's version. Bug #39010. * scripts/deprecated/javafields.m: Change call to ostrsplit(). * scripts/deprecated/javamethods.m: ditto * scripts/general/fieldnames.m: ditto * scripts/general/int2str.m: ditto * scripts/general/methods.m: ditto * scripts/general/num2str.m: ditto * scripts/help/gen_doc_cache.m: ditto * scripts/help/help.m: ditto * scripts/help/lookfor.m: ditto * scripts/io/strread.m: ditto * scripts/java/javaclasspath.m: ditto * scripts/miscellaneous/compare_versions.m: ditto * scripts/miscellaneous/computer.m: ditto * scripts/miscellaneous/fact.m: ditto * scripts/miscellaneous/tar.m: ditto * scripts/miscellaneous/unpack.m: ditto * scripts/miscellaneous/what.m: ditto * scripts/miscellaneous/zip.m: ditto * scripts/pkg/private/configure_make.m: ditto * scripts/pkg/private/fix_depends.m: ditto * scripts/pkg/private/generate_lookfor_cache.m: ditto * scripts/pkg/private/list_forge_packages.m: ditto * scripts/pkg/private/unload_packages.m: ditto * scripts/pkg/private/write_index.m: ditto * scripts/plot/private/__file_filter__.m: ditto * scripts/plot/private/__fltk_file_filter__.m: ditto * scripts/plot/private/__go_draw_axes__.m: ditto * scripts/plot/private/__next_line_style__.m: ditto * scripts/testfun/rundemos.m: ditto * scripts/testfun/runtests.m: ditto
author Ben Abbott <bpabbott@mac.com>
date Thu, 06 Jun 2013 10:06:12 +0800
parents 420b5603cbbf
children e2de3c8882be
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14138
72c96de7a403 maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents: 14093
diff changeset
1 ## Copyright (C) 2012 Rik Wehbring
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
2 ## Parts Copyright (C) 2012 Philip Nienhuis <prnienhuis@users.sf.net>
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
3 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
4 ## This file is part of Octave.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
5 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
6 ## Octave is free software; you can redistribute it and/or modify it
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
7 ## under the terms of the GNU General Public License as published by
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
8 ## the Free Software Foundation; either version 3 of the License, or (at
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
9 ## your option) any later version.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
10 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
11 ## Octave is distributed in the hope that it will be useful, but
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
14 ## General Public License for more details.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
15 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
16 ## You should have received a copy of the GNU General Public License
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
17 ## along with Octave; see the file COPYING. If not, see
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
18 ## <http://www.gnu.org/licenses/>.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
19
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
20 ## -*- texinfo -*-
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
21 ## @deftypefn {Function File} {} usejava (@var{feature})
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
22 ## Return true if the Java element @var{feature} is available.
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
23 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
24 ## Possible features are:
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
25 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
26 ## @table @asis
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
27 ## @item "awt"
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
28 ## Abstract Window Toolkit for GUIs.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
29 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
30 ## @item "desktop"
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
31 ## Interactive desktop is running.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
32 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
33 ## @item "jvm"
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
34 ## Java Virtual Machine.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
35 ##
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
36 ## @item "swing"
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
37 ## Swing components for lightweight GUIs.
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
38 ## @end table
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
39 ##
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
40 ## @code{usejava} determines if specific Java features are available in an
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
41 ## Octave session. This function is provided for scripts which may alter
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
42 ## their behavior based on the availability of Java. The feature "desktop"
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
43 ## always returns @code{false} as Octave has no Java-based desktop. Other
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
44 ## features may be available if Octave was compiled with the Java Interface
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
45 ## and Java is installed.
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
46 ## @end deftypefn
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
47
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
48 function retval = usejava (feature)
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
49
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
50 if (nargin != 1 || ! ischar (feature))
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
51 print_usage ();
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
52 endif
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
53
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
54 retval = false;
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
55
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
56 switch feature
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
57 ## For each feature, try methods() on a Java class of a feature
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
58 case "awt"
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
59 try
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
60 dum = methods ("java.awt.Frame");
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
61 retval = true;
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
62 end_try_catch
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
63 case "desktop"
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
64 ## Octave has no Java based GUI/desktop, leave retval = false
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
65 case "jvm"
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
66 try
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
67 dum = methods ("java.lang.Runtime");
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
68 retval = true;
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
69 end_try_catch
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
70 case "swing"
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
71 try
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
72 dum = methods ("javax.swing.Popup");
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
73 retval = true;
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
74 end_try_catch
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
75 otherwise
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
76 error ("usejava: unrecognized feature '%s'", feature);
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
77 endswitch
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
78
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
79 endfunction
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
80
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
81
14353
937035390ec0 usejava.m: Update to use try/catch architecture
Philip Nienhuis <prnienhuis@users.sf.net>
parents: 14138
diff changeset
82 %!assert (usejava ("desktop"), false)
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
83
15805
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
84 %!testif HAVE_JAVA
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
85 %! assert (usejava ("jvm"), true);
420b5603cbbf build: Move usejava.m from scripts/miscellaneous to scripts/java directory.
Rik <rik@octave.org>
parents: 14353
diff changeset
86
13826
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
87 %% Test input validation
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
88 %!error usejava ()
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
89 %!error usejava (1, 2)
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
90 %!error usejava (1)
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
91 %!error <unrecognized feature> usejava ("abc")
847812137666 Implement new usejava function for Matlab compatability.
Rik <octave@nomad.inbox5.com>
parents:
diff changeset
92