Mercurial > hg > octave-nkf

diff src/ops.h @ 8150:283989f2da9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make null assignment matlab compatible
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 26 Sep 2008 11:52:01 -0400
parents 2b8952e133c9
children 8b1a2555c4e2
line wrap: on
line diff
--- a/src/ops.h
+++ b/src/ops.h
@@ -152,6 +152,12 @@
 			 const octave_value_list& idx, \
 			 const octave_base_value& a2)
 
+#define NULLASSIGNOPDECL(name) \
+  static octave_value \
+  oct_assignop_ ## name (octave_base_value& a, \
+			 const octave_value_list& idx, \
+			 const octave_base_value&)
+
 #define ASSIGNANYOPDECL(name) \
   static octave_value \
   oct_assignop_ ## name (octave_base_value& a1, \
@@ -170,6 +176,15 @@
     return octave_value (); \
   }
 
+#define DEFNULLASSIGNOP_FN(name, t, f) \
+  NULLASSIGNOPDECL (name) \
+  { \
+    CAST_UNOP_ARG (octave_ ## t&); \
+ \
+    v.f (idx); \
+    return octave_value (); \
+  }
+
 #define DEFNDASSIGNOP_FN(name, t1, t2, e, f) \
   ASSIGNOPDECL (name) \
   { \