annotate src/OPERATORS/op-s-s.cc @ 3799:36fe147645b6

[project @ 2001-02-18 19:06:24 by jwe]
author jwe
date Sun, 18 Feb 2001 19:06:24 +0000
parents 6741bef26719
children 7690958e7726
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2928
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
1 /*
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
2
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
3 Copyright (C) 1996, 1997 John W. Eaton
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
4
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
6
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
10 later version.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
11
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
15 for more details.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
16
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
18 along with Octave; see the file COPYING. If not, write to the Free
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
20
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
21 */
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
22
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
23 #if defined (__GNUG__)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
24 #pragma implementation
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
25 #endif
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
26
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
27 #ifdef HAVE_CONFIG_H
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
28 #include <config.h>
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
29 #endif
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
30
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
31 #include "gripes.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
32 #include "ov.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
33 #include "ov-scalar.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
34 #include "ov-re-mat.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
35 #include "ov-typeinfo.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
36 #include "ops.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
37 #include "xdiv.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
38 #include "xpow.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
39
3203
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
40 // scalar unary ops.
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
41
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
42 DEFUNOP_OP (not, scalar, !)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
43 DEFUNOP_OP (uminus, scalar, -)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
44 DEFUNOP_OP (transpose, scalar, /* no-op */)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
45 DEFUNOP_OP (hermitian, scalar, /* no-op */)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
46
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
47 DEFNCUNOP_METHOD (incr, scalar, increment)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
48 DEFNCUNOP_METHOD (decr, scalar, decrement)
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
49
2928
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
50 // scalar by scalar ops.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
51
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
52 DEFBINOP_OP (add, scalar, scalar, +)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
53 DEFBINOP_OP (sub, scalar, scalar, -)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
54 DEFBINOP_OP (mul, scalar, scalar, *)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
55
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
56 DEFBINOP (div, scalar, scalar)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
57 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
58 CAST_BINOP_ARGS (const octave_scalar&, const octave_scalar&);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
59
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
60 double d = v2.double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
61
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
62 if (d == 0.0)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
63 gripe_divide_by_zero ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
64
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
65 return octave_value (v1.double_value () / d);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
66 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
67
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
68 DEFBINOP_FN (pow, scalar, scalar, xpow)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
69
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
70 DEFBINOP (ldiv, scalar, scalar)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
71 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
72 CAST_BINOP_ARGS (const octave_scalar&, const octave_scalar&);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
73
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
74 double d = v1.double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
75
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
76 if (d == 0.0)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
77 gripe_divide_by_zero ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
78
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
79 return octave_value (v2.double_value () / d);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
80 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
81
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
82 DEFBINOP_OP (lt, scalar, scalar, <)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
83 DEFBINOP_OP (le, scalar, scalar, <=)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
84 DEFBINOP_OP (eq, scalar, scalar, ==)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
85 DEFBINOP_OP (ge, scalar, scalar, >=)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
86 DEFBINOP_OP (gt, scalar, scalar, >)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
87 DEFBINOP_OP (ne, scalar, scalar, !=)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
88
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
89 DEFBINOP_OP (el_mul, scalar, scalar, *)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
90
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
91 DEFBINOP (el_div, scalar, scalar)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
92 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
93 CAST_BINOP_ARGS (const octave_scalar&, const octave_scalar&);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
94
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
95 double d = v2.double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
96
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
97 if (d == 0.0)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
98 gripe_divide_by_zero ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
99
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
100 return octave_value (v1.double_value () / d);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
101 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
102
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
103 DEFBINOP_FN (el_pow, scalar, scalar, xpow)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
104
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
105 DEFBINOP (el_ldiv, scalar, scalar)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
106 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
107 CAST_BINOP_ARGS (const octave_scalar&, const octave_scalar&);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
108
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
109 double d = v1.double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
110
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
111 if (d == 0.0)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
112 gripe_divide_by_zero ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
113
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
114 return octave_value (v2.double_value () / d);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
115 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
116
3799
36fe147645b6 [project @ 2001-02-18 19:06:24 by jwe]
jwe
parents: 3540
diff changeset
117 DEFBINOP_OP (el_and, scalar, scalar, &&)
36fe147645b6 [project @ 2001-02-18 19:06:24 by jwe]
jwe
parents: 3540
diff changeset
118 DEFBINOP_OP (el_or, scalar, scalar, ||)
2928
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
119
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
120 DEFCONV (matrix_conv, scalar, matrix)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
121 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
122 CAST_CONV_ARG (const octave_scalar&);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
123
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
124 return new octave_matrix (v.matrix_value ());
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
125 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
126
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
127 void
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
128 install_s_s_ops (void)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
129 {
3538
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
130 INSTALL_UNOP (op_not, octave_scalar, not);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
131 INSTALL_UNOP (op_uminus, octave_scalar, uminus);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
132 INSTALL_UNOP (op_transpose, octave_scalar, transpose);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
133 INSTALL_UNOP (op_hermitian, octave_scalar, hermitian);
3203
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
134
3538
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
135 INSTALL_NCUNOP (op_incr, octave_scalar, incr);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
136 INSTALL_NCUNOP (op_decr, octave_scalar, decr);
3203
bc61b0e8d60e [project @ 1998-10-30 20:26:27 by jwe]
jwe
parents: 2928
diff changeset
137
3538
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
138 INSTALL_BINOP (op_add, octave_scalar, octave_scalar, add);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
139 INSTALL_BINOP (op_sub, octave_scalar, octave_scalar, sub);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
140 INSTALL_BINOP (op_mul, octave_scalar, octave_scalar, mul);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
141 INSTALL_BINOP (op_div, octave_scalar, octave_scalar, div);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
142 INSTALL_BINOP (op_pow, octave_scalar, octave_scalar, pow);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
143 INSTALL_BINOP (op_ldiv, octave_scalar, octave_scalar, ldiv);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
144 INSTALL_BINOP (op_lt, octave_scalar, octave_scalar, lt);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
145 INSTALL_BINOP (op_le, octave_scalar, octave_scalar, le);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
146 INSTALL_BINOP (op_eq, octave_scalar, octave_scalar, eq);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
147 INSTALL_BINOP (op_ge, octave_scalar, octave_scalar, ge);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
148 INSTALL_BINOP (op_gt, octave_scalar, octave_scalar, gt);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
149 INSTALL_BINOP (op_ne, octave_scalar, octave_scalar, ne);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
150 INSTALL_BINOP (op_el_mul, octave_scalar, octave_scalar, el_mul);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
151 INSTALL_BINOP (op_el_div, octave_scalar, octave_scalar, el_div);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
152 INSTALL_BINOP (op_el_pow, octave_scalar, octave_scalar, el_pow);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
153 INSTALL_BINOP (op_el_ldiv, octave_scalar, octave_scalar, el_ldiv);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
154 INSTALL_BINOP (op_el_and, octave_scalar, octave_scalar, el_and);
0ff7323dab8b [project @ 2000-02-02 12:36:25 by jwe]
jwe
parents: 3203
diff changeset
155 INSTALL_BINOP (op_el_or, octave_scalar, octave_scalar, el_or);
2928
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
156
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
157 INSTALL_ASSIGNCONV (octave_scalar, octave_scalar, octave_matrix);
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
158
3540
6741bef26719 [project @ 2000-02-02 12:58:27 by jwe]
jwe
parents: 3538
diff changeset
159 INSTALL_WIDENOP (octave_scalar, octave_matrix, matrix_conv);
2928
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
160 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
161
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
162 /*
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
163 ;;; Local Variables: ***
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
164 ;;; mode: C++ ***
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
165 ;;; End: ***
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe]
jwe
parents:
diff changeset
166 */