Mercurial > octave-dspies
view scripts/java/javaclasspath.m @ 15750:05c781cca57e
use numel instead of length in newly imported java functions
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 07 Dec 2012 18:03:01 -0500 |
parents | 54e8c2527a9e |
children | 0f1a143e5002 |
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{static} =} javaclasspath () ## @deftypefnx {Function file} {[@var{static}, @var{dynamic}] =} javaclasspath () ## @deftypefnx {Function file} {@var{path} =} javaclasspath (@var{what}) ## Return the class path of the Java virtual machine in ## the form of a cell array of strings. ## ## If called without input parameter:@* ## @itemize ## @item If no output is requested, the result is simply printed ## on the standard output. ## @item If one output value @var{STATIC} is requested, the result is ## the static classpath. ## @item If two output values@var{STATIC} and @var{DYNAMIC} are ## requested, the first variable will contain the static classpath, ## the second will be filled with the dynamic classpath. ## @end itemize ## ## If called with a single input parameter @var{what}:@* ## @itemize ## @item If @var{what} is @code{"-static"} return the static classpath ## @item If @var{what} is @code{"-dynamic"} return the dynamic classpath ## @item If @var{what} is @code{"-all"} return both the static and ## dynamic classpath ## @end itemize ## @seealso{javaaddpath, javarmpath} ## @end deftypefn function varargout = javaclasspath (which) ## dynamic classpath dynamic_path = java_invoke ("org.octave.ClassHelper", "getClassPath"); dynamic_path_list = strsplit (dynamic_path, pathsep ()); ## static classpath static_path = java_invoke ("java.lang.System", "getProperty", "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 = static_path_list(2:numel (static_path_list)); 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") == 1) disp_path_list ( "STATIC", static_path_list ) elseif (strcmp (which, "-dynamic") == 1) 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