Mercurial > hg > octave-lyh

annotate examples/make_int.cc @ 2391:b12625d6fbcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-10-12 19:35:37 by jwe]
author jwe
date Sat, 12 Oct 1996 19:43:12 +0000
parents
children 8b262e771614
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2391
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
1 /*
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
2
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
3 Copyright (C) 1996 John W. Eaton
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
4
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
6
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
10 later version.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
11
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
15 for more details.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
16
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
18 along with Octave; see the file COPYING. If not, write to the Free
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
20
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
21 */
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
22
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
23 #include <octave/config.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
24
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
25 #include <cstdlib>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
26
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
27 #include <string>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
28
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
29 class ostream;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
30
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
31 #include <octave/lo-utils.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
32 #include <octave/mx-base.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
33 #include <octave/str-vec.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
34
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
35 #include <octave/defun-dld.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
36 #include <octave/error.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
37 #include <octave/gripes.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
38 #include <octave/mappers.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
39 #include <octave/oct-obj.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
40 #include <octave/ops.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
41 #include <octave/ov-base.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
42 #include <octave/ov-typeinfo.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
43 #include <octave/ov.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
44 #include <octave/ov-scalar.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
45 #include <octave/pager.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
46 #include <octave/pr-output.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
47 #include <octave/symtab.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
48 #include <octave/variables.h>
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
49
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
50 class Octave_map;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
51 class octave_value_list;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
52
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
53 class tree_walker;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
54
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
55 // Integer values.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
56
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
57 class
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
58 octave_integer : public octave_base_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
59 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
60 public:
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
61
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
62 octave_integer (void)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
63 : octave_base_value (), scalar (0) { }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
64
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
65 octave_integer (int i)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
66 : octave_base_value (), scalar (i) { }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
67
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
68 octave_integer (const octave_integer& s)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
69 : octave_base_value (), scalar (s.scalar) { }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
70
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
71 ~octave_integer (void) { }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
72
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
73 octave_value *clone (void) { return new octave_integer (*this); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
74
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
75 #if 0
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
76 void *operator new (size_t size);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
77 void operator delete (void *p, size_t size);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
78 #endif
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
79
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
80 idx_vector index_vector (void) const { return idx_vector ((double) scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
81
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
82 int rows (void) const { return 1; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
83 int columns (void) const { return 1; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
84
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
85 bool is_defined (void) const { return true; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
86 bool is_real_scalar (void) const { return true; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
87
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
88 octave_value all (void) const { return (scalar != 0); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
89 octave_value any (void) const { return (scalar != 0); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
90
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
91 bool is_real_type (void) const { return true; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
92 bool is_scalar_type (void) const { return true; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
93 bool is_numeric_type (void) const { return true; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
94
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
95 bool valid_as_scalar_index (void) const
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
96 { return scalar == 1; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
97
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
98 bool valid_as_zero_index (void) const
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
99 { return scalar == 0; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
100
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
101 bool is_true (void) const { return (scalar != 0); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
102
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
103 double double_value (bool = false) const { return (double) scalar; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
104
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
105 int integer_value (bool = false) const { return scalar; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
106
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
107 Matrix matrix_value (bool = false) const { return Matrix (1, 1, scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
108
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
109 Complex complex_value (bool = false) const { return scalar; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
110
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
111 ComplexMatrix complex_matrix_value (bool = false) const
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
112 { return ComplexMatrix (1, 1, Complex (scalar)); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
113
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
114 octave_value not (void) const { return octave_value (! scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
115
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
116 octave_value uminus (void) const { return octave_value (- scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
117
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
118 octave_value transpose (void) const { return octave_value (scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
119
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
120 octave_value hermitian (void) const { return octave_value (scalar); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
121
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
122 void increment (void) { ++scalar; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
123
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
124 void decrement (void) { --scalar; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
125
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
126 void print (ostream& os);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
127
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
128 int type_id (void) const { return t_id; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
129
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
130 string type_name (void) const { return t_name; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
131
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
132 static int static_type_id (void) { return t_id; }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
133
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
134 static void register_type (void)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
135 { t_id = octave_value_typeinfo::register_type (t_name); }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
136
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
137 private:
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
138
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
139 int scalar;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
140
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
141 static int t_id;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
142
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
143 static const string t_name;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
144 };
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
145
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
146 int octave_integer::t_id = -1;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
147
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
148 const string octave_integer::t_name ("integer");
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
149
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
150 void
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
151 octave_integer::print (ostream& os)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
152 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
153 octave_print_internal (os, scalar, false);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
154 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
155
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
156 // integer by integer ops.
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
157
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
158 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
159 add (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
160 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
161 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
162
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
163 return new octave_integer (v1.integer_value () + v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
164 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
165
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
166 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
167 sub (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
168 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
169 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
170
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
171 return new octave_integer (v1.integer_value () - v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
172 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
173
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
174 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
175 mul (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
176 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
177 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
178
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
179 return new octave_integer (v1.integer_value () * v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
180 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
181
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
182 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
183 div (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
184 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
185 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
186
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
187 int d = v2.integer_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
188
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
189 if (d == 0)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
190 gripe_divide_by_zero ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
191
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
192 return new octave_integer (v1.integer_value () / d);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
193 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
194
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
195 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
196 i_s_div (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
197 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
198 CAST_BINOP_ARGS (const octave_integer&, const octave_scalar&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
199
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
200 double d = v2.double_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
201
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
202 if (d == 0.0)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
203 gripe_divide_by_zero ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
204
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
205 return new octave_scalar (v1.double_value () / d);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
206 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
207
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
208 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
209 ldiv (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
210 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
211 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
212
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
213 int d = v1.integer_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
214
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
215 if (d == 0)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
216 gripe_divide_by_zero ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
217
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
218 return new octave_integer (v2.integer_value () / d);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
219 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
220
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
221 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
222 lt (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
223 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
224 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
225
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
226 return new octave_integer (v1.integer_value () < v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
227 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
228
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
229 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
230 le (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
231 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
232 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
233
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
234 return new octave_integer (v1.integer_value () <= v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
235 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
236
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
237 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
238 eq (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
239 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
240 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
241
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
242 return new octave_integer (v1.integer_value () == v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
243 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
244
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
245 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
246 ge (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
247 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
248 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
249
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
250 return new octave_integer (v1.integer_value () >= v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
251 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
252
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
253 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
254 gt (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
255 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
256 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
257
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
258 return new octave_integer (v1.integer_value () > v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
259 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
260
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
261 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
262 ne (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
263 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
264 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
265
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
266 return new octave_integer (v1.integer_value () != v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
267 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
268
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
269 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
270 el_mul (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
271 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
272 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
273
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
274 return new octave_integer (v1.integer_value () * v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
275 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
276
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
277 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
278 el_div (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
279 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
280 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
281
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
282 int d = v2.integer_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
283
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
284 if (d == 0)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
285 gripe_divide_by_zero ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
286
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
287 return new octave_integer (v1.integer_value () / d);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
288 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
289
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
290 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
291 el_ldiv (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
292 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
293 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
294
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
295 int d = v1.integer_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
296
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
297 if (d == 0)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
298 gripe_divide_by_zero ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
299
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
300 return new octave_integer (v2.integer_value () / d);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
301 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
302
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
303 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
304 el_and (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
305 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
306 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
307
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
308 return new octave_integer (v1.integer_value () && v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
309 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
310
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
311 static octave_value
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
312 el_or (const octave_value& a1, const octave_value& a2)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
313 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
314 CAST_BINOP_ARGS (const octave_integer&, const octave_integer&);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
315
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
316 return new octave_integer (v1.integer_value () || v2.integer_value ());
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
317 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
318
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
319 DEFUN_DLD (make_int, args, ,
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
320 "int_val = make_int (val)\n\
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
321 \n\
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
322 Creates an integer variable from VAL.")
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
323 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
324 static bool type_loaded = false;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
325
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
326 if (! type_loaded)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
327 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
328 octave_integer::register_type ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
329
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
330 cerr << "installing integer type at type-id = "
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
331 << octave_integer::static_type_id () << "\n";
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
332
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
333 INSTALL_BINOP (add, octave_integer, octave_integer, add);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
334 INSTALL_BINOP (sub, octave_integer, octave_integer, sub);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
335 INSTALL_BINOP (mul, octave_integer, octave_integer, mul);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
336 INSTALL_BINOP (div, octave_integer, octave_integer, div);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
337 INSTALL_BINOP (ldiv, octave_integer, octave_integer, ldiv);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
338 INSTALL_BINOP (lt, octave_integer, octave_integer, lt);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
339 INSTALL_BINOP (le, octave_integer, octave_integer, le);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
340 INSTALL_BINOP (eq, octave_integer, octave_integer, eq);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
341 INSTALL_BINOP (ge, octave_integer, octave_integer, ge);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
342 INSTALL_BINOP (gt, octave_integer, octave_integer, gt);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
343 INSTALL_BINOP (ne, octave_integer, octave_integer, ne);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
344 INSTALL_BINOP (el_mul, octave_integer, octave_integer, el_mul);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
345 INSTALL_BINOP (el_div, octave_integer, octave_integer, el_div);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
346 INSTALL_BINOP (el_ldiv, octave_integer, octave_integer, el_ldiv);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
347 INSTALL_BINOP (el_and, octave_integer, octave_integer, el_and);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
348 INSTALL_BINOP (el_or, octave_integer, octave_integer, el_or);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
349
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
350 INSTALL_BINOP (div, octave_integer, octave_scalar, i_s_div);
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
351 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
352
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
353 octave_value retval;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
354
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
355 if (args.length () == 1)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
356 {
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
357 double d = args(0).double_value ();
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
358
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
359 if (! error_state)
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
360 retval = octave_value (new octave_integer (NINT (d)));
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
361 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
362 else
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
363 usage ("make_int");
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
364
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
365 return retval;
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
366 }
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
367
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
368 /*
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
369 ;;; Local Variables: ***
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
370 ;;; mode: C++ ***
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
371 ;;; End: ***
b12625d6fbcd [project @ 1996-10-12 19:35:37 by jwe]
jwe
parents:
diff changeset
372 */