Mercurial > hg > octave-lyh

comparison src/ops.h @ 4550:69a9b22a72a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 15:41:55 by jwe]
author jwe
date Mon, 27 Oct 2003 15:41:55 +0000
parents 79df15d4470c
children 334a27c8f453
comparison
equal deleted inserted replaced
4549:2d393bead213 4550:69a9b22a72a2
188 { \ 188 { \
189 CAST_UNOP_ARG (const octave_ ## t&); \ 189 CAST_UNOP_ARG (const octave_ ## t&); \
190 return octave_value (op v.t ## _value ()); \ 190 return octave_value (op v.t ## _value ()); \
191 } 191 }
192 192
193 #define DEFNDUNOP_OP(name, t, op) \ 193 #define DEFNDUNOP_OP(name, t, e, op) \
194 UNOPDECL (name, a) \ 194 UNOPDECL (name, a) \
195 { \ 195 { \
196 CAST_UNOP_ARG (const octave_ ## t&); \ 196 CAST_UNOP_ARG (const octave_ ## t&); \
197 return octave_value (op v.array_value ()); \ 197 return octave_value (op v.e ## _value ()); \
198 } 198 }
199 199
200 // XXX FIXME XXX -- in some cases, the constructor isn't necessary. 200 // XXX FIXME XXX -- in some cases, the constructor isn't necessary.
201 201
202 #define DEFUNOP_FN(name, t, f) \ 202 #define DEFUNOP_FN(name, t, f) \
204 { \ 204 { \
205 CAST_UNOP_ARG (const octave_ ## t&); \ 205 CAST_UNOP_ARG (const octave_ ## t&); \
206 return octave_value (f (v.t ## _value ())); \ 206 return octave_value (f (v.t ## _value ())); \
207 } 207 }
208 208
209 #define DEFNDUNOP_FN(name, t, f) \ 209 #define DEFNDUNOP_FN(name, t, e, f) \
210 UNOPDECL (name, a) \ 210 UNOPDECL (name, a) \
211 { \ 211 { \
212 CAST_UNOP_ARG (const octave_ ## t&); \ 212 CAST_UNOP_ARG (const octave_ ## t&); \
213 return octave_value (f (v.array_value ())); \ 213 return octave_value (f (v.e ## _value ())); \
214 } 214 }
215 215
216 #define DEFNCUNOP_METHOD(name, t, method) \ 216 #define DEFNCUNOP_METHOD(name, t, method) \
217 static void \ 217 static void \
218 oct_unop_ ## name (octave_value& a) \ 218 oct_unop_ ## name (octave_value& a) \