Mercurial > hg > octave-nkf

comparison src/defun-int.h @ 3321:6923abb04e16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-26 18:15:30 by jwe]
author jwe
date Tue, 26 Oct 1999 18:15:41 +0000
parents 35a6d027772c
children 2efa28a91e7a
comparison
equal deleted inserted replaced
3320:b0b71d14dab9 3321:6923abb04e16
102 #define DEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \ 102 #define DEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \
103 BEGIN_INSTALL_BUILTIN \ 103 BEGIN_INSTALL_BUILTIN \
104 XDEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \ 104 XDEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \
105 END_INSTALL_BUILTIN 105 END_INSTALL_BUILTIN
106 106
107 #define DEFCONST_INTERNAL(name, sname, defn, protect, doc) \ 107 #define DEFCONST_INTERNAL(name, defn, doc) \
108 BEGIN_INSTALL_BUILTIN \ 108 BEGIN_INSTALL_BUILTIN \
109 XDEFCONST_INTERNAL(name, sname, defn, protect, doc) \ 109 XDEFCONST_INTERNAL(name, defn, doc) \
110 END_INSTALL_BUILTIN
111
112 #define DEFCONSTX_INTERNAL(name, sname, defn, doc) \
113 BEGIN_INSTALL_BUILTIN \
114 XDEFCONST_INTERNAL(name, defn, doc) \
110 END_INSTALL_BUILTIN 115 END_INSTALL_BUILTIN
111 116
112 #define DEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \ 117 #define DEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \
113 d_c_map, c_c_map, lo, hi, \ 118 d_c_map, c_c_map, lo, hi, \
114 can_ret_cmplx_for_real, doc) \ 119 can_ret_cmplx_for_real, doc) \
136 install_builtin_variable (name, octave_value (defn), protect, \ 141 install_builtin_variable (name, octave_value (defn), protect, \
137 (chg_fcn != 0), chg_fcn, doc) 142 (chg_fcn != 0), chg_fcn, doc)
138 143
139 // How builtin variables are actually installed. 144 // How builtin variables are actually installed.
140 145
141 #define DEFCONST_INTERNAL(name, sname, defn, protect, doc) \ 146 #define INSTALL_CONST(name, sname, defn, protect, doc) \
142 install_builtin_constant (name, octave_value (defn), protect, doc) 147 install_builtin_constant (name, octave_value (defn), protect, doc)
148
149 #define DEFCONST_INTERNAL(name, defn, doc) \
150 INSTALL_CONST (#name, SBV_ ## name, defn, false, doc); \
151 INSTALL_CONST ("__" ## #name ## "__", XSBV_ ## name, defn, true, doc)
152
153 #define DEFCONSTX_INTERNAL(name, sname, defn, doc) \
154 INSTALL_CONST (name, sname, defn, false, doc); \
155 INSTALL_CONST ("__" ## name ## "__", X ## sname, defn, true, doc)
143 156
144 // How mapper functions are actually installed. 157 // How mapper functions are actually installed.
145 158
146 #define DEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \ 159 #define DEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \
147 d_c_map, c_c_map, lo, hi, \ 160 d_c_map, c_c_map, lo, hi, \