octave_packages/java-1.2.8/javarmpath.m

   1 ## Copyright (C) 2007 Michael Goffioul
   2 ## Copyright (C) 2010 Martin Hepperle
   3 ##
   4 ## This program is free software; you can redistribute it and/or modify
   5 ## it under the terms of the GNU General Public License as published by
   6 ## the Free Software Foundation; either version 2 of the License, or
   7 ## (at your option) any later version.
   8 ##
   9 ## This program is distributed in the hope that it will be useful,
  10 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ## GNU General Public License for more details.
  13 ##
  14 ## You should have received a copy of the GNU General Public License
  15 ## along with this program; If not, see <http://www.gnu.org/licenses/>.
  16
  17 ## -*- texinfo -*-
  18 ## @deftypefn {Function file} {} javarmpath (@var{path})
  19 ##
  20 ## Removes @var{path} from the dynamic class path of the Java virtual
  21 ## machine. @var{path} can be either a directory where .class files
  22 ## can be found, or a .jar file containing Java classes.
  23 ##
  24 ## @end deftypefn
  25 ## @seealso{javaaddpath,javaclasspath}
  26
  27 function javarmpath (class_path)
  28
  29   if (nargin != 1)
  30     print_usage ();
  31   else
  32     % MH 30-08-2010: added tilde_expand to allow for specification of user's home
  33     old_path = canonicalize_file_name (tilde_expand(class_path));
  34     if (exist (old_path, "dir"))
  35       if (! strcmp (old_path (end), filesep))
  36         old_path = [old_path, filesep];
  37       end
  38     end
  39     success = java_invoke ('org.octave.ClassHelper', 'removeClassPath', old_path);
  40     if (! success)
  41       disp (['Warning: ', old_path, ' not found in Java classpath.', 10]);
  42     end
  43   end
  44
  45 end