Mercurial > octave-nkf

comparison src/OPERATORS/op-i16-i16.cc @ 4905:f7a337f3fd9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-06-17 04:11:50 by jwe]
author jwe
date Thu, 17 Jun 2004 04:14:36 +0000
parents 35bfb4e0b96b
children 7a3a480e8645
comparison
equal deleted inserted replaced
4904:71229573b6bf 4905:f7a337f3fd9e
35 #include "ov-typeinfo.h" 35 #include "ov-typeinfo.h"
36 #include "ops.h" 36 #include "ops.h"
37 #include "xdiv.h" 37 #include "xdiv.h"
38 #include "xpow.h" 38 #include "xpow.h"
39 39
40 // matrix unary ops. 40 #include "op-int.h"
41 41
42 DEFNDUNOP_OP (not, int16_matrix, int16_array, !) 42 OCTAVE_INT_OPS (int16)
43 DEFNDUNOP_OP (uminus, int16_matrix, int16_array, -)
44
45 DEFUNOP (transpose, int16_matrix)
46 {
47 CAST_UNOP_ARG (const octave_int16_matrix&);
48
49 if (v.ndims () > 2)
50 {
51 error ("transpose not defined for N-d objects");
52 return octave_value ();
53 }
54 else
55 return octave_value (v.int16_array_value().transpose ());
56 }
57
58 //DEFNCUNOP_METHOD (incr, int16_matrix, increment)
59 //DEFNCUNOP_METHOD (decr, int16_matrix, decrement)
60
61 // matrix by matrix ops.
62
63 DEFNDBINOP_OP (add, int16_matrix, int16_matrix, int16_array, int16_array, +)
64 DEFNDBINOP_OP (sub, int16_matrix, int16_matrix, int16_array, int16_array, -)
65
66 // DEFBINOP_OP (mul, int16_matrix, int16_matrix, *)
67 // DEFBINOP_FN (div, int16_matrix, int16_matrix, xdiv)
68
69 DEFBINOPX (pow, int16_matrix, int16_matrix)
70 {
71 error ("can't do A ^ B for A and B both matrices");
72 return octave_value ();
73 }
74
75 //DEFBINOP_FN (ldiv, int16_matrix, int16_matrix, xleftdiv)
76
77 DEFNDBINOP_FN (lt, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_lt)
78 DEFNDBINOP_FN (le, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_le)
79 DEFNDBINOP_FN (eq, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_eq)
80 DEFNDBINOP_FN (ge, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_ge)
81 DEFNDBINOP_FN (gt, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_gt)
82 DEFNDBINOP_FN (ne, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_ne)
83
84 DEFNDBINOP_FN (el_mul, int16_matrix, int16_matrix, int16_array, int16_array, product)
85
86 DEFNDBINOP_FN (el_div, int16_matrix, int16_matrix, int16_array, int16_array, quotient)
87
88 //DEFNDBINOP_FN (el_pow, int16_matrix, int16_matrix, int16_array, int16_array, elem_xpow)
89
90 //DEFBINOP (el_ldiv, int16_matrix, int16_matrix)
91 //{
92 // CAST_BINOP_ARGS (const octave_matrix&, const octave_matrix&);
93 //
94 // return octave_value (quotient (v2.array_value (), v1.array_value ()));
95 //}
96
97 DEFNDBINOP_FN (el_and, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_and)
98 DEFNDBINOP_FN (el_or, int16_matrix, int16_matrix, int16_array, int16_array, mx_el_or)
99
100 DEFNDASSIGNOP_FN (assign, int16_matrix, int16_matrix, int16_array, assign)
101 43
102 void 44 void
103 install_i16_i16_ops (void) 45 install_i16_i16_ops (void)
104 { 46 {
105 INSTALL_UNOP (op_not, octave_int16_matrix, not); 47 OCTAVE_INSTALL_INT_OPS (int16);
106 INSTALL_UNOP (op_uminus, octave_int16_matrix, uminus);
107 INSTALL_UNOP (op_transpose, octave_int16_matrix, transpose);
108 INSTALL_UNOP (op_hermitian, octave_int16_matrix, transpose);
109
110 // INSTALL_NCUNOP (op_incr, octave_int16_matrix, incr);
111 // INSTALL_NCUNOP (op_decr, octave_int16_matrix, decr);
112
113 INSTALL_BINOP (op_add, octave_int16_matrix, octave_int16_matrix, add);
114 INSTALL_BINOP (op_sub, octave_int16_matrix, octave_int16_matrix, sub);
115 // INSTALL_BINOP (op_mul, octave_int16_matrix, octave_int16_matrix, mul);
116 // INSTALL_BINOP (op_div, octave_int16_matrix, octave_int16_matrix, div);
117 INSTALL_BINOP (op_pow, octave_int16_matrix, octave_int16_matrix, pow);
118 // INSTALL_BINOP (op_ldiv, octave_int16_matrix, octave_int16_matrix, ldiv);
119 INSTALL_BINOP (op_lt, octave_int16_matrix, octave_int16_matrix, lt);
120 INSTALL_BINOP (op_le, octave_int16_matrix, octave_int16_matrix, le);
121 INSTALL_BINOP (op_eq, octave_int16_matrix, octave_int16_matrix, eq);
122 INSTALL_BINOP (op_ge, octave_int16_matrix, octave_int16_matrix, ge);
123 INSTALL_BINOP (op_gt, octave_int16_matrix, octave_int16_matrix, gt);
124 INSTALL_BINOP (op_ne, octave_int16_matrix, octave_int16_matrix, ne);
125 INSTALL_BINOP (op_el_mul, octave_int16_matrix, octave_int16_matrix, el_mul);
126 INSTALL_BINOP (op_el_div, octave_int16_matrix, octave_int16_matrix, el_div);
127 // INSTALL_BINOP (op_el_pow, octave_int16_matrix, octave_int16_matrix, el_pow);
128 // INSTALL_BINOP (op_el_ldiv, octave_int16_matrix, octave_int16_matrix, el_ldiv);
129 INSTALL_BINOP (op_el_and, octave_int16_matrix, octave_int16_matrix, el_and);
130 INSTALL_BINOP (op_el_or, octave_int16_matrix, octave_int16_matrix, el_or);
131
132 INSTALL_ASSIGNOP (op_asn_eq, octave_int16_matrix, octave_int16_matrix, assign);
133 } 48 }
134 49
135 /* 50 /*
136 ;;; Local Variables: *** 51 ;;; Local Variables: ***
137 ;;; mode: C++ *** 52 ;;; mode: C++ ***