changeset 23519:4fe410bd918d

use DEFMETHOD for some built-in functions * load-path.cc (Fcommand_line_path, Frestoredefaultpath, F__pathorig__, Fpath, Faddpath, Frmpath, F__dump_load_path__): Use DEFMETHOD. * utils.cc (Ffile_in_loadpath, Fdir_in_loadpath): Use DEFMETHOD. * ov-class.cc (Fismethod, F__methods__): Use DEFMETHOD.
author John W. Eaton <jwe@octave.org>
date Fri, 19 May 2017 16:05:03 -0400
parents 8744d4ed8fb4
children 9f925aed7d1b
files libinterp/corefcn/load-path.cc libinterp/corefcn/utils.cc libinterp/octave-value/ov-class.cc
diffstat 3 files changed, 33 insertions(+), 33 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/load-path.cc	Fri May 19 16:01:18 2017 -0400
+++ b/libinterp/corefcn/load-path.cc	Fri May 19 16:05:03 2017 -0400
@@ -2216,8 +2216,8 @@
   return ovl ();
 }
 
-DEFUN (command_line_path, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (command_line_path, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn {} {} command_line_path ()
 Return the command line path variable.
 
@@ -2227,13 +2227,13 @@
   if (! args.empty ())
     print_usage ();
 
-  octave::load_path& lp = octave::__get_load_path__ ("command_line_path");
+  octave::load_path& lp = interp.get_load_path ();
 
   return ovl (lp.get_command_line_path ());
 }
 
-DEFUN (restoredefaultpath, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (restoredefaultpath, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn {} {} restoredefaultpath ()
 Restore Octave's path to its initial state at startup.
 
@@ -2243,7 +2243,7 @@
   if (! args.empty ())
     print_usage ();
 
-  octave::load_path& lp = octave::__get_load_path__ ("restoredefaultpath");
+  octave::load_path& lp = interp.get_load_path ();
 
   lp.initialize (true);
 
@@ -2255,21 +2255,21 @@
 // exists prior to running the system's octaverc file or the user's
 // ~/.octaverc file
 
-DEFUN (__pathorig__, , ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (__pathorig__, interp, , ,
+          doc: /* -*- texinfo -*-
 @deftypefn {} {@var{val} =} __pathorig__ ()
 Undocumented internal function.
 @end deftypefn */)
 {
-  octave::load_path& lp = octave::__get_load_path__ ("__pathorig__");
+  octave::load_path& lp = interp.get_load_path ();
 
   lp.initialize (true);
 
   return ovl (lp.system_path ());
 }
 
-DEFUN (path, args, nargout,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (path, interp, args, nargout,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} path ()
 @deftypefnx {} {@var{str} =} path ()
 @deftypefnx {} {@var{str} =} path (@var{path1}, @dots{})
@@ -2293,7 +2293,7 @@
 
   string_vector argv = args.make_argv ("path");
 
-  octave::load_path& lp = octave::__get_load_path__ ("path");
+  octave::load_path& lp = interp.get_load_path ();
 
   if (nargin > 0)
     {
@@ -2324,8 +2324,8 @@
   return ovl ();
 }
 
-DEFUN (addpath, args, nargout,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (addpath, interp, args, nargout,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} addpath (@var{dir1}, @dots{})
 @deftypefnx {} {} addpath (@var{dir1}, @dots{}, @var{option})
 Add named directories to the function search path.
@@ -2357,7 +2357,7 @@
   if (nargin == 0)
     print_usage ();
 
-  octave::load_path& lp = octave::__get_load_path__ ("addpath");
+  octave::load_path& lp = interp.get_load_path ();
 
   octave_value retval;
 
@@ -2436,8 +2436,8 @@
   return retval;
 }
 
-DEFUN (rmpath, args, nargout,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (rmpath, interp, args, nargout,
+           doc: /* -*- texinfo -*-
 @deftypefn {} {} rmpath (@var{dir1}, @dots{})
 Remove @var{dir1}, @dots{} from the current function search path.
 
@@ -2465,7 +2465,7 @@
 
   octave_value retval;
 
-  octave::load_path& lp = octave::__get_load_path__ ("rmpath");
+  octave::load_path& lp = interp.get_load_path ();
 
   if (nargout > 0)
     retval = lp.path ();
@@ -2495,13 +2495,13 @@
   return retval;
 }
 
-DEFUN (__dump_load_path__, , ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (__dump_load_path__, interp, , ,
+           doc: /* -*- texinfo -*-
 @deftypefn {} {} __dump_load_path__ ()
 Undocumented internal function.
 @end deftypefn */)
 {
-  octave::load_path& lp = octave::__get_load_path__ ("__dump_load_path__");
+  octave::load_path& lp = interp.get_load_path ();
 
   lp.display (octave_stdout);
 
--- a/libinterp/corefcn/utils.cc	Fri May 19 16:01:18 2017 -0400
+++ b/libinterp/corefcn/utils.cc	Fri May 19 16:05:03 2017 -0400
@@ -282,8 +282,8 @@
   return retval;
 }
 
-DEFUN (file_in_loadpath, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (file_in_loadpath, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} file_in_loadpath (@var{file})
 @deftypefnx {} {} file_in_loadpath (@var{file}, "all")
 
@@ -312,7 +312,7 @@
   if (names.empty ())
     error ("file_in_loadpath: FILE argument must not be empty");
 
-  octave::load_path& lp = octave::__get_load_path__ ("file_in_loadpath");
+  octave::load_path& lp = interp.get_load_path ();
 
   if (nargin == 1)
     return ovl (octave::sys::env::make_absolute (lp.find_first_of (names)));
@@ -982,8 +982,8 @@
 %!error make_absolute_filename ("foo", "bar")
 */
 
-DEFUN (dir_in_loadpath, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (dir_in_loadpath, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} dir_in_loadpath (@var{dir})
 @deftypefnx {} {} dir_in_loadpath (@var{dir}, "all")
 Return the full name of the path element matching @var{dir}.
@@ -1008,7 +1008,7 @@
 
   dir = args(0).xstring_value ("dir_in_loadpath: DIR must be a directory name");
 
-  octave::load_path& lp = octave::__get_load_path__ ("dir_in_loadpath");
+  octave::load_path& lp = interp.get_load_path ();
 
   if (nargin == 1)
     return ovl (lp.find_dir (dir));
--- a/libinterp/octave-value/ov-class.cc	Fri May 19 16:01:18 2017 -0400
+++ b/libinterp/octave-value/ov-class.cc	Fri May 19 16:05:03 2017 -0400
@@ -1901,8 +1901,8 @@
   return ovl (args(0).is_object ());
 }
 
-DEFUN (ismethod, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (ismethod, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} ismethod (@var{obj}, @var{method})
 @deftypefnx {} {} ismethod (@var{clsname}, @var{method})
 Return true if the string @var{method} is a valid method of the object
@@ -1926,7 +1926,7 @@
 
   std::string method = args(1).string_value ();
 
-  octave::load_path& lp = octave::__get_load_path__ ("ismethod");
+  octave::load_path& lp = interp.get_load_path ();
 
   if (lp.find_method (class_name, method) != "")
     return ovl (true);
@@ -1934,8 +1934,8 @@
     return ovl (false);
 }
 
-DEFUN (__methods__, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (__methods__, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} __methods__ (@var{x})
 @deftypefnx {} {} __methods__ ("classname")
 Internal function.
@@ -1954,7 +1954,7 @@
   else if (arg.is_string ())
     class_name = arg.string_value ();
 
-  octave::load_path& lp = octave::__get_load_path__ ("__methods__");
+  octave::load_path& lp = interp.get_load_path ();
 
   string_vector sv = lp.methods (class_name);