Mercurial > hg > octave-lyh
diff src/defun-int.h @ 1755:3a9462b655f1
[project @ 1996-01-22 04:47:22 by jwe]
author | jwe |
---|---|
date | Mon, 22 Jan 1996 04:47:22 +0000 |
parents | 89c587478067 |
children | e62277bf5fe0 |
line wrap: on
line diff
--- a/src/defun-int.h +++ b/src/defun-int.h @@ -39,7 +39,7 @@ BEGIN_INSTALL_BUILTIN \ extern DECLARE_FUN_ ## unused_arg_flags (fname); \ DEFINE_FUN_STRUCT (name, fname, sname, is_text_fcn, doc); \ - install_builtin_function (&sname); \ + install_builtin_function (sname); \ END_INSTALL_BUILTIN // Generate code for making another name for an existing function. @@ -68,14 +68,13 @@ // the symbol table. #define DEFINE_FUN_STRUCT(name, fname, sname, is_text_fcn, doc) \ - static builtin_function sname = \ - { name, is_text_fcn, fname, doc } + static builtin_function sname (name, is_text_fcn, fname, doc) #define DEFINE_FUN_STRUCT_FUN(sname, fsname) \ - builtin_function * \ + builtin_function& \ fsname (void) \ { \ - return &sname; \ + return sname; \ } // Declare an internal function named fname. This is the interface @@ -97,26 +96,6 @@ #define DECLARE_FUN_(fname) DECLARE_FUN_11 (fname) -// XXX FIXME XXX -- eliminate the need for these in the functions that -// use them? - -#define DEFINE_ARGV(fcn_name) \ - int argc = args.length () + 1; \ - int save_argc = argc; \ - char **argv = make_argv (args, fcn_name); \ - char **save_argv = argv; \ - if (error_state) \ - return retval - -#define DELETE_ARGV \ - do \ - { \ - while (--save_argc >= 0) \ - delete [] save_argv[save_argc]; \ - delete [] save_argv; \ - } \ - while (0) - #endif /*