Mercurial > hg > octave-lyh

comparison src/defun-int.h @ 4234:90e44267e8cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-21 17:15:25 by jwe]
author jwe
date Sat, 21 Dec 2002 17:15:25 +0000
parents e96f52432059
children 042cdbb7f317
comparison
equal deleted inserted replaced
4233:ccfdb55c8156 4234:90e44267e8cf
40 extern void 40 extern void
41 install_builtin_mapper (octave_mapper *mf); 41 install_builtin_mapper (octave_mapper *mf);
42 42
43 extern void 43 extern void
44 install_builtin_function (octave_builtin::fcn f, const std::string& name, 44 install_builtin_function (octave_builtin::fcn f, const std::string& name,
45 const std::string& doc, bool is_text_fcn = false); 45 const std::string& doc, bool is_text_fcn = false,
46 bool can_hide_function = true);
46 47
47 extern void 48 extern void
48 install_builtin_variable (const std::string& n, const octave_value& v, 49 install_builtin_variable (const std::string& n, const octave_value& v,
49 bool p, bool e, 50 bool p, bool e,
50 symbol_record::change_function chg_fcn, 51 symbol_record::change_function chg_fcn,
105 #define DEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ 106 #define DEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \
106 BEGIN_INSTALL_BUILTIN \ 107 BEGIN_INSTALL_BUILTIN \
107 XDEFUN_INTERNAL (name, args_name, nargout_name, is_text_fcn, doc) \ 108 XDEFUN_INTERNAL (name, args_name, nargout_name, is_text_fcn, doc) \
108 END_INSTALL_BUILTIN 109 END_INSTALL_BUILTIN
109 110
111 #define DEFCONSTFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \
112 BEGIN_INSTALL_BUILTIN \
113 XDEFCONSTFUN_INTERNAL (name, args_name, nargout_name, is_text_fcn, doc) \
114 END_INSTALL_BUILTIN
115
110 #define DEFUNX_INTERNAL(name, fname, args_name, nargout_name, \ 116 #define DEFUNX_INTERNAL(name, fname, args_name, nargout_name, \
111 is_text_fcn, doc) \ 117 is_text_fcn, doc) \
112 BEGIN_INSTALL_BUILTIN \ 118 BEGIN_INSTALL_BUILTIN \
113 XDEFUNX_INTERNAL (name, fname, args_name, nargout_name, is_text_fcn, doc) \ 119 XDEFUNX_INTERNAL (name, fname, args_name, nargout_name, is_text_fcn, doc) \
114 END_INSTALL_BUILTIN 120 END_INSTALL_BUILTIN
157 163
158 // Generate the first line of the function definition. This ensures 164 // Generate the first line of the function definition. This ensures
159 // that the internal functions all have the same signature. 165 // that the internal functions all have the same signature.
160 166
161 #define DEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \ 167 #define DEFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \
168 DECLARE_FUN (name, args_name, nargout_name)
169
170 #define DEFCONSTFUN_INTERNAL(name, args_name, nargout_name, is_text_fcn, doc) \
162 DECLARE_FUN (name, args_name, nargout_name) 171 DECLARE_FUN (name, args_name, nargout_name)
163 172
164 #define DEFUNX_INTERNAL(name, fname, args_name, nargout_name, \ 173 #define DEFUNX_INTERNAL(name, fname, args_name, nargout_name, \
165 is_text_fcn, doc) \ 174 is_text_fcn, doc) \
166 DECLARE_FUNX (fname, args_name, nargout_name) 175 DECLARE_FUNX (fname, args_name, nargout_name)