GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
op-int-conv.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2004-2013 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #ifdef HAVE_CONFIG_H
24 #include <config.h>
25 #endif
26 
27 #include "gripes.h"
28 #include "oct-obj.h"
29 #include "ov.h"
30 #include "ov-int8.h"
31 #include "ov-int16.h"
32 #include "ov-int32.h"
33 #include "ov-int64.h"
34 #include "ov-uint8.h"
35 #include "ov-uint16.h"
36 #include "ov-uint32.h"
37 #include "ov-uint64.h"
38 #include "ov-range.h"
39 #include "ov-bool.h"
40 #include "ov-bool-mat.h"
41 #include "ov-scalar.h"
42 #include "ov-float.h"
43 #include "ov-re-mat.h"
44 #include "ov-flt-re-mat.h"
45 #include "ov-str-mat.h"
46 #include "ov-typeinfo.h"
47 #include "ops.h"
48 
49 #define DEFINTCONVFN(name, tfrom, tto) \
50  CONVDECL (name) \
51  { \
52  CAST_CONV_ARG (const octave_ ## tfrom&); \
53  \
54  octave_ ## tto ## _matrix v2 = v.tto ## _array_value (); \
55  return new octave_ ## tto ## _matrix (v2); \
56  }
57 
58 // conversion ops
59 
60 DEFINTCONVFN (scalar_to_int8, scalar, int8)
61 DEFINTCONVFN (scalar_to_int16, scalar, int16)
62 DEFINTCONVFN (scalar_to_int32, scalar, int32)
63 DEFINTCONVFN (scalar_to_int64, scalar, int64)
64 
65 DEFINTCONVFN (scalar_to_uint8, scalar, uint8)
66 DEFINTCONVFN (scalar_to_uint16, scalar, uint16)
67 DEFINTCONVFN (scalar_to_uint32, scalar, uint32)
68 DEFINTCONVFN (scalar_to_uint64, scalar, uint64)
69 
70 DEFINTCONVFN (matrix_to_int8, matrix, int8)
71 DEFINTCONVFN (matrix_to_int16, matrix, int16)
72 DEFINTCONVFN (matrix_to_int32, matrix, int32)
73 DEFINTCONVFN (matrix_to_int64, matrix, int64)
74 
75 DEFINTCONVFN (matrix_to_uint8, matrix, uint8)
76 DEFINTCONVFN (matrix_to_uint16, matrix, uint16)
77 DEFINTCONVFN (matrix_to_uint32, matrix, uint32)
78 DEFINTCONVFN (matrix_to_uint64, matrix, uint64)
79 
80 DEFINTCONVFN (float_scalar_to_int8, float_scalar, int8)
81 DEFINTCONVFN (float_scalar_to_int16, float_scalar, int16)
82 DEFINTCONVFN (float_scalar_to_int32, float_scalar, int32)
83 DEFINTCONVFN (float_scalar_to_int64, float_scalar, int64)
84 
85 DEFINTCONVFN (float_scalar_to_uint8, float_scalar, uint8)
86 DEFINTCONVFN (float_scalar_to_uint16, float_scalar, uint16)
87 DEFINTCONVFN (float_scalar_to_uint32, float_scalar, uint32)
88 DEFINTCONVFN (float_scalar_to_uint64, float_scalar, uint64)
89 
90 DEFINTCONVFN (float_matrix_to_int8, float_matrix, int8)
91 DEFINTCONVFN (float_matrix_to_int16, float_matrix, int16)
92 DEFINTCONVFN (float_matrix_to_int32, float_matrix, int32)
93 DEFINTCONVFN (float_matrix_to_int64, float_matrix, int64)
94 
95 DEFINTCONVFN (float_matrix_to_uint8, float_matrix, uint8)
96 DEFINTCONVFN (float_matrix_to_uint16, float_matrix, uint16)
97 DEFINTCONVFN (float_matrix_to_uint32, float_matrix, uint32)
98 DEFINTCONVFN (float_matrix_to_uint64, float_matrix, uint64)
99 
100 DEFCONVFN (bool_to_int8, bool, int8)
101 DEFCONVFN (bool_to_int16, bool, int16)
102 DEFCONVFN (bool_to_int32, bool, int32)
103 DEFCONVFN (bool_to_int64, bool, int64)
104 
105 DEFCONVFN (bool_to_uint8, bool, uint8)
106 DEFCONVFN (bool_to_uint16, bool, uint16)
107 DEFCONVFN (bool_to_uint32, bool, uint32)
108 DEFCONVFN (bool_to_uint64, bool, uint64)
109 
110 DEFCONVFN (bool_matrix_to_int8, bool_matrix, int8)
111 DEFCONVFN (bool_matrix_to_int16, bool_matrix, int16)
112 DEFCONVFN (bool_matrix_to_int32, bool_matrix, int32)
113 DEFCONVFN (bool_matrix_to_int64, bool_matrix, int64)
114 
115 DEFCONVFN (bool_matrix_to_uint8, bool_matrix, uint8)
116 DEFCONVFN (bool_matrix_to_uint16, bool_matrix, uint16)
117 DEFCONVFN (bool_matrix_to_uint32, bool_matrix, uint32)
118 DEFCONVFN (bool_matrix_to_uint64, bool_matrix, uint64)
119 
120 DEFSTRINTCONVFN (char_matrix_sq_str_to_int8, int8)
121 DEFSTRINTCONVFN (char_matrix_sq_str_to_int16, int16)
122 DEFSTRINTCONVFN (char_matrix_sq_str_to_int32, int32)
123 DEFSTRINTCONVFN (char_matrix_sq_str_to_int64, int64)
124 
125 DEFSTRINTCONVFN (char_matrix_sq_str_to_uint8, uint8)
126 DEFSTRINTCONVFN (char_matrix_sq_str_to_uint16, uint16)
127 DEFSTRINTCONVFN (char_matrix_sq_str_to_uint32, uint32)
128 DEFSTRINTCONVFN (char_matrix_sq_str_to_uint64, uint64)
129 
130 DEFSTRINTCONVFN (char_matrix_dq_str_to_int8, int8)
131 DEFSTRINTCONVFN (char_matrix_dq_str_to_int16, int16)
132 DEFSTRINTCONVFN (char_matrix_dq_str_to_int32, int32)
133 DEFSTRINTCONVFN (char_matrix_dq_str_to_int64, int64)
134 
135 DEFSTRINTCONVFN (char_matrix_dq_str_to_uint8, uint8)
136 DEFSTRINTCONVFN (char_matrix_dq_str_to_uint16, uint16)
137 DEFSTRINTCONVFN (char_matrix_dq_str_to_uint32, uint32)
138 DEFSTRINTCONVFN (char_matrix_dq_str_to_uint64, uint64)
139 
140 DEFINTCONVFN (range_to_int8, range, int8)
141 DEFINTCONVFN (range_to_int16, range, int16)
142 DEFINTCONVFN (range_to_int32, range, int32)
143 DEFINTCONVFN (range_to_int64, range, int64)
144 
145 DEFINTCONVFN (range_to_uint8, range, uint8)
146 DEFINTCONVFN (range_to_uint16, range, uint16)
147 DEFINTCONVFN (range_to_uint32, range, uint32)
148 DEFINTCONVFN (range_to_uint64, range, uint64)
149 
150 #define INT_CONV_FUNCTIONS(tfrom) \
151  DEFCONVFN2 (tfrom ## _scalar_to_int8, tfrom, scalar, int8) \
152  DEFCONVFN2 (tfrom ## _scalar_to_int16, tfrom, scalar, int16) \
153  DEFCONVFN2 (tfrom ## _scalar_to_int32, tfrom, scalar, int32) \
154  DEFCONVFN2 (tfrom ## _scalar_to_int64, tfrom, scalar, int64) \
155  \
156  DEFCONVFN2 (tfrom ## _scalar_to_uint8, tfrom, scalar, uint8) \
157  DEFCONVFN2 (tfrom ## _scalar_to_uint16, tfrom, scalar, uint16) \
158  DEFCONVFN2 (tfrom ## _scalar_to_uint32, tfrom, scalar, uint32) \
159  DEFCONVFN2 (tfrom ## _scalar_to_uint64, tfrom, scalar, uint64) \
160  \
161  DEFCONVFN2 (tfrom ## _matrix_to_int8, tfrom, matrix, int8) \
162  DEFCONVFN2 (tfrom ## _matrix_to_int16, tfrom, matrix, int16) \
163  DEFCONVFN2 (tfrom ## _matrix_to_int32, tfrom, matrix, int32) \
164  DEFCONVFN2 (tfrom ## _matrix_to_int64, tfrom, matrix, int64) \
165  \
166  DEFCONVFN2 (tfrom ## _matrix_to_uint8, tfrom, matrix, uint8) \
167  DEFCONVFN2 (tfrom ## _matrix_to_uint16, tfrom, matrix, uint16) \
168  DEFCONVFN2 (tfrom ## _matrix_to_uint32, tfrom, matrix, uint32) \
169  DEFCONVFN2 (tfrom ## _matrix_to_uint64, tfrom, matrix, uint64)
170 
175 
180 
181 #define INSTALL_INT_CONV_FUNCTIONS(tfrom) \
182  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_int8_matrix, tfrom ## _scalar_to_int8) \
183  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_int16_matrix, tfrom ## _scalar_to_int16) \
184  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_int32_matrix, tfrom ## _scalar_to_int32) \
185  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_int64_matrix, tfrom ## _scalar_to_int64) \
186  \
187  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_uint8_matrix, tfrom ## _scalar_to_uint8) \
188  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_uint16_matrix, tfrom ## _scalar_to_uint16) \
189  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_uint32_matrix, tfrom ## _scalar_to_uint32) \
190  INSTALL_CONVOP (octave_ ## tfrom ## _scalar, octave_uint64_matrix, tfrom ## _scalar_to_uint64) \
191  \
192  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_int8_matrix, tfrom ## _matrix_to_int8) \
193  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_int16_matrix, tfrom ## _matrix_to_int16) \
194  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_int32_matrix, tfrom ## _matrix_to_int32) \
195  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_int64_matrix, tfrom ## _matrix_to_int64) \
196  \
197  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_uint8_matrix, tfrom ## _matrix_to_uint8) \
198  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_uint16_matrix, tfrom ## _matrix_to_uint16) \
199  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_uint32_matrix, tfrom ## _matrix_to_uint32) \
200  INSTALL_CONVOP (octave_ ## tfrom ## _matrix, octave_uint64_matrix, tfrom ## _matrix_to_uint64)
201 
202 #define INSTALL_CONVOPS(tfrom) \
203  INSTALL_CONVOP (octave_ ## tfrom, octave_int8_matrix, tfrom ## _to_int8) \
204  INSTALL_CONVOP (octave_ ## tfrom, octave_int16_matrix, tfrom ## _to_int16) \
205  INSTALL_CONVOP (octave_ ## tfrom, octave_int32_matrix, tfrom ## _to_int32) \
206  INSTALL_CONVOP (octave_ ## tfrom, octave_int64_matrix, tfrom ## _to_int64) \
207  \
208  INSTALL_CONVOP (octave_ ## tfrom, octave_uint8_matrix, tfrom ## _to_uint8) \
209  INSTALL_CONVOP (octave_ ## tfrom, octave_uint16_matrix, tfrom ## _to_uint16) \
210  INSTALL_CONVOP (octave_ ## tfrom, octave_uint32_matrix, tfrom ## _to_uint32) \
211  INSTALL_CONVOP (octave_ ## tfrom, octave_uint64_matrix, tfrom ## _to_uint64)
212 
213 void
215 {
216  INSTALL_CONVOPS (scalar)
217  INSTALL_CONVOPS (matrix)
218  INSTALL_CONVOPS (float_scalar)
219  INSTALL_CONVOPS (float_matrix)
220  INSTALL_CONVOPS (bool)
221  INSTALL_CONVOPS (bool_matrix)
222  INSTALL_CONVOPS (range)
223  INSTALL_CONVOPS (char_matrix_sq_str)
224  INSTALL_CONVOPS (char_matrix_dq_str)
225 
230 
235 }