Mercurial > octave-nkf
view scripts/java/javaclasspath.m @ 15790:921912c92102
Deprecate java_invoke, replace with javaMethod.
Update all m-files to use javaMethod.
* scripts/deprecated/java_invoke.m: New m-file with warning about function
being deprecated.
* libinterp/octave-value/ov-java.cc(Fjava_invoke, FjavaMethod): Remove
java_invoke. Replace body of javaMethod with old java_invoke code.
* libinterp/octave-value/ov-java.cc(do_java_invoke): Rename to do_javaMethod.
* libinterp/octave-value/ov-java.cc(do_java_create): Rename to do_javaObject.
* libinterp/octave-value/ov-java.h(do_java_invoke, do_java_create): Rename
prototypes for functions to do_javaMethod and do_javaObject respectively.
* scripts/deprecated/javafields.m, scripts/deprecated/javamethods.m,
scripts/deprecated/module.mk, scripts/general/fieldnames.m,
scripts/general/methods.m, scripts/java/errordlg.m, scripts/java/helpdlg.m,
scripts/java/inputdlg.m, scripts/java/javaArray.m, scripts/java/javaaddpath.m,
scripts/java/javaclasspath.m, scripts/java/javamem.m,
scripts/java/javarmpath.m, scripts/java/listdlg.m, scripts/java/msgbox.m,
scripts/java/questdlg.m, scripts/java/warndlg.m: Replace java_invoke calls
with javaMethod calls.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 14 Dec 2012 09:51:37 -0800 |
parents | 0f1a143e5002 |
children | 1de4ec2a856d |
line wrap: on
line source
## Copyright (C) 2007 Michael Goffioul ## Copyright (C) 2010 Martin Hepperle ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {} javaclasspath () ## @deftypefnx {Function File} {@var{dpath} =} javaclasspath () ## @deftypefnx {Function File} {[@var{dpath}, @var{spath}] =} javaclasspath () ## @deftypefnx {Function File} {@var{clspath} =} javaclasspath (@var{what}) ## Return the class path of the Java virtual machine in the form of a cell ## array of strings. ## ## If called with no inputs: ## ## @itemize ## @item If no output is requested, the dynamic and static classpaths are printed ## to the standard output. ## ## @item If one output value @var{dpath} is requested, the result is ## the dynamic classpath. ## ## @item If two output values@var{dpath} and @var{spath} are ## requested, the first variable will contain the dynamic classpath and ## the second will be contain the static classpath. ## @end itemize ## ## If called with a single input parameter @var{what}: ## ## @table @asis ## @item "-dynamic" ## Return the dynamic classpath. ## ## @item "-static" ## Return the static classpath. ## ## @item "-all" ## Return both the static and dynamic classpath in a single cellstr. ## @end table ## @seealso{javaaddpath, javarmpath} ## @end deftypefn function varargout = javaclasspath (which) ## dynamic classpath dynamic_path = javaMethod ("getClassPath", "org.octave.ClassHelper"); dynamic_path_list = strsplit (dynamic_path, pathsep ()); ## static classpath static_path = javaMethod ("getProperty", "java.lang.System", "java.class.path"); static_path_list = strsplit (static_path, pathsep ()); if (numel (static_path_list) > 1) ## remove first element (which is .../octave.jar) static_path_list(1) = []; else static_path_list = {}; endif switch (nargin) case 0 switch (nargout) case 0 disp_path_list ("STATIC", static_path_list) disp (""); disp_path_list ("DYNAMIC", dynamic_path_list) case 1 varargout{1} = cellstr (dynamic_path_list); case 2 varargout{1} = cellstr (dynamic_path_list); varargout{2} = cellstr (static_path_list); endswitch case 1 switch (nargout) case 0 if (strcmp (which, "-static")) disp_path_list ("STATIC", static_path_list) elseif (strcmp (which, "-dynamic")) disp_path_list ("DYNAMIC", dynamic_path_list) elseif (strcmp (which, "-all") == 1) disp_path_list ("STATIC", static_path_list) disp (""); disp_path_list ("DYNAMIC", dynamic_path_list) endif case 1 if (strcmp (which, "-static") == 1) varargout{1} = cellstr (static_path_list); elseif (strcmp (which, "-dynamic") == 1) varargout{1} = cellstr (dynamic_path_list); elseif (strcmp (which, "-all") == 1) varargout{1} = cellstr ([static_path_list, dynamic_path_list]); endif endswitch endswitch endfunction ## Display cell array of paths function disp_path_list (which, path_list) printf (" %s JAVA PATH\n\n", which); if (numel (path_list) > 0) printf (" %s\n", path_list{:}); else printf (" - empty -\n"); endif endfunction