Mercurial > hg > octave-nkf
changeset 3744:b0588fc1f3ca
[project @ 2000-11-30 00:27:00 by jwe]
author | jwe |
---|---|
date | Thu, 30 Nov 2000 00:27:01 +0000 |
parents | 35daf9714b9a |
children | 509f8aac6eb7 |
files | src/ChangeLog src/defun-int.h src/mkbuiltins |
diffstat | 3 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2000-11-29 John W. Eaton <jwe@bevo.che.wisc.edu> + * mkbuiltins (XDEFUNX_INTERNAL): New macro. + * defun-int.h (DEFUNX_INTERNAL): Use it. + * defun.h (DEFUNX): New macro. * defun-int.h (DEFUNX_INTERNAL, DECLARE_FUNX): New macro. (DECLARE_FUN): Define in terms of DECLARE_FUNX.
--- a/src/defun-int.h +++ b/src/defun-int.h @@ -102,7 +102,7 @@ #define DEFUNX_INTERNAL(name, fname, args_name, nargout_name, \ is_text_fcn, doc) \ BEGIN_INSTALL_BUILTIN \ - XDEFUN_INTERNAL (name, args_name, nargout_name, is_text_fcn, doc) \ + XDEFUNX_INTERNAL (name, fname, args_name, nargout_name, is_text_fcn, doc) \ END_INSTALL_BUILTIN // Generate code to install name in the symbol table. The script
--- a/src/mkbuiltins +++ b/src/mkbuiltins @@ -44,6 +44,11 @@ extern DECLARE_FUN (name, args_name, nargout_name); \ install_builtin_function (F ## name, #name, doc, is_text_fcn); \ +#define XDEFUNX_INTERNAL(name, fname, args_name, nargout_name, \ + is_text_fcn, doc) \ + extern DECLARE_FUNX (fname, args_name, nargout_name); \ + install_builtin_function (fname, name, doc, is_text_fcn); \ + #define XDEFALIAS_INTERNAL(alias, name) \ alias_builtin (#alias, #name);