octave: libinterp/corefcn/typecast.cc annotate

annotate libinterp/corefcn/typecast.cc @ 21660:53728df3e4c9

maint: for clarity, call ndims() rather than length() on dimension vectors. * ov-re-sparse.cc, QtHandlesUtils.cc, __lin_interpn__.cc, bsxfun.cc, cellfun.cc, data.cc, dot.cc, ellipj.cc, fft.cc, fft2.cc, fftn.cc, filter.cc, gl-render.cc, graphics.cc, mex.cc, oct-map.h, sub2ind.cc, symtab.cc, tril.cc, typecast.cc, utils.cc, variables.cc, ov-base-diag.cc, ov-base-int.cc, ov-base.cc, ov-base.h, ov-bool-mat.cc, ov-bool-sparse.cc, ov-cell.cc, ov-class.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-intx.h, ov-java.cc, ov-lazy-idx.cc, ov-re-mat.cc, ov-str-mat.cc, ov-struct.cc, ov.cc, pt-arg-list.cc, pt-mat.cc, Array-util.cc, Array.cc, Array.h, CNDArray.cc, CSparse.cc, Sparse.cc, Sparse.h, dNDArray.cc, dSparse.cc, dim-vector.cc, dim-vector.h, fCNDArray.cc, fNDArray.cc, idx-vector.cc, bsxfun.h, oct-fftw.cc, mx-inlines.cc, lo-array-errwarn.cc, lo-array-gripes.cc: For clarity, call ndims() rather than length() on dimension vectors.

author	Rik <rik@octave.org>
date	Mon, 02 May 2016 08:53:18 -0700
parents	64efef931bd0
children	aba2e6293dd8

rev	line source
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	1 /*
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	2
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19174 diff changeset	3 Copyright (C) 2007-2015 David Bateman
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	4 Copyright (C) 2009 VZLU Prague
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	5
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	6 This file is part of Octave.
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	7
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	9 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6948 diff changeset	10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6948 diff changeset	11 option) any later version.
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	12
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but WITHOUT
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	16 for more details.
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	17
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	18 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6948 diff changeset	19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6948 diff changeset	20 <http://www.gnu.org/licenses/>.
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	21
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	22 */
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	23
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	24 #ifdef HAVE_CONFIG_H
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	25 # include "config.h"
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	26 #endif
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	27
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 17281 diff changeset	28 #include <limits>
15289 27bdffcb41c5 typecast.cc: Include <climits> for CHAR_BIT. Júlio Hoffimann <julio.hoffimann@gmail.com>* parents: 15195 diff changeset	29
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	30 #include "mx-base.h"
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	31
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14360 diff changeset	32 #include "defun.h"
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	33 #include "error.h"
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 20982 diff changeset	34 #include "errwarn.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20939 diff changeset	35 #include "ovl.h"
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	36 #include "unwind-prot.h"
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	37
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	38 static dim_vector
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	39 get_vec_dims (const dim_vector& old_dims, octave_idx_type n)
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	40 {
21660 53728df3e4c9 maint: for clarity, call ndims() rather than length() on dimension vectors. Rik <rik@octave.org> parents: 21389 diff changeset	41 if (old_dims.ndims () == 2 && old_dims(0) == 1)
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	42 return dim_vector (1, n);
21660 53728df3e4c9 maint: for clarity, call ndims() rather than length() on dimension vectors. Rik <rik@octave.org> parents: 21389 diff changeset	43 else if (old_dims.ndims () == 2 && old_dims(0) == 0 && old_dims(1) == 0)
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	44 return dim_vector ();
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	45 else
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	46 return dim_vector (n, 1);
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	47 }
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	48
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 21100 diff changeset	49 template <typename ArrayType>
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	50 static void
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	51 get_data_and_bytesize (const ArrayType& array,
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	52 const void *& data,
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	53 octave_idx_type& byte_size,
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9758 diff changeset	54 dim_vector& old_dims,
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9758 diff changeset	55 unwind_protect& frame)
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	56 {
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	57 // The array given may be a temporary, constructed from a scalar or sparse
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	58 // array. This will ensure the data will be deallocated after we exit.
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9758 diff changeset	59 frame.add_delete (new ArrayType (array));
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	60
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	61 data = reinterpret_cast<const void *> (array.data ());
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	62 byte_size = array.byte_size ();
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	63
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	64 old_dims = array.dims ();
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	65 }
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	66
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 21100 diff changeset	67 template <typename ArrayType>
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	68 static ArrayType
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	69 reinterpret_copy (const void *data, octave_idx_type byte_size,
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	70 const dim_vector& old_dims)
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	71 {
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	72 typedef typename ArrayType::element_type T;
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	73 octave_idx_type n = byte_size / sizeof (T);
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	74
20982 d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	75 if (n * static_cast<int> (sizeof (T)) != byte_size)
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20800 diff changeset	76 error ("typecast: incorrect number of input values to make output value");
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20800 diff changeset	77
20982 d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	78 ArrayType retval (get_vec_dims (old_dims, n));
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	79 T *dest = retval.fortran_vec ();
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	80 std::memcpy (dest, data, n * sizeof (T));
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	81
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	82 return retval;
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	83 }
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	84
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	85
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14360 diff changeset	86 DEFUN (typecast, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	87 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20831 diff changeset	88 @deftypefn {} {@var{y} =} typecast (@var{x}, \"@var{class}\")\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	89 Return a new array @var{y} resulting from interpreting the data of @var{x}\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	90 in memory as data of the numeric class @var{class}.\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	91 \n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	92 Both the class of @var{x} and @var{class} must be one of the built-in\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	93 numeric classes:\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	94 \n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	95 @example\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	96 @group\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	97 \"logical\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	98 \"char\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	99 \"int8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	100 \"int16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	101 \"int32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	102 \"int64\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	103 \"uint8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	104 \"uint16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	105 \"uint32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	106 \"uint64\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	107 \"double\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	108 \"single\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	109 \"double complex\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	110 \"single complex\"\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	111 @end group\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	112 @end example\n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	113 \n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	114 @noindent\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	115 the last two are only used with @var{class}; they indicate that a\n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	116 complex-valued result is requested. Complex arrays are stored in memory as\n\
a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	117 consecutive pairs of real numbers. The sizes of integer types are given by\n\
a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	118 their bit counts. Both logical and char are typically one byte wide;\n\
a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	119 however, this is not guaranteed by C++. If your system is IEEE conformant,\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	120 single and double will be 4 bytes and 8 bytes wide, respectively.\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	121 @qcode{\"logical\"} is not allowed for @var{class}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	122 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	123 If the input is a row vector, the return value is a row vector, otherwise it\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	124 is a column vector.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	125 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 15545 diff changeset	126 If the bit length of @var{x} is not divisible by that of @var{class}, an\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 15545 diff changeset	127 error occurs.\n\
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	128 \n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	129 An example of the use of typecast on a little-endian machine is\n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	130 \n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	131 @example\n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	132 @group\n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	133 @var{x} = uint16 ([1, 65535]);\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	134 typecast (@var{x}, \"uint8\")\n\
15542 69f45f3ab96a Correct big-endian/little-endian reversal in typecast documentation. Rik <rik@octave.org> parents: 14138 diff changeset	135 @result{} [ 1, 0, 255, 255]\n\
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	136 @end group\n\
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	137 @end example\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	138 @seealso{cast, bitpack, bitunpack, swapbytes}\n\
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	139 @end deftypefn")
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	140 {
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	141 if (args.length () != 2)
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	142 print_usage ();
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	143
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	144 octave_value retval;
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	145
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	146 unwind_protect frame;
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	147
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	148 const void *data = 0;
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	149 octave_idx_type byte_size = 0;
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	150 dim_vector old_dims;
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	151
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	152 octave_value array = args(0);
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	153
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	154 if (array.is_bool_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	155 get_data_and_bytesize (array.bool_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	156 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	157 else if (array.is_string ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	158 get_data_and_bytesize (array.char_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	159 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	160 else if (array.is_integer_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	161 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	162 if (array.is_int8_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	163 get_data_and_bytesize (array.int8_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	164 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	165 else if (array.is_int16_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	166 get_data_and_bytesize (array.int16_array_value (), data, byte_size,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	167 old_dims, frame);
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	168 else if (array.is_int32_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	169 get_data_and_bytesize (array.int32_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	170 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	171 else if (array.is_int64_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	172 get_data_and_bytesize (array.int64_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	173 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	174 else if (array.is_uint8_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	175 get_data_and_bytesize (array.uint8_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	176 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	177 else if (array.is_uint16_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	178 get_data_and_bytesize (array.uint16_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	179 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	180 else if (array.is_uint32_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	181 get_data_and_bytesize (array.uint32_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	182 old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	183 else if (array.is_uint64_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	184 get_data_and_bytesize (array.uint64_array_value (), data, byte_size,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	185 old_dims, frame);
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	186 else
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	187 assert (0);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	188 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	189 else if (array.is_complex_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	190 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	191 if (array.is_single_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	192 get_data_and_bytesize (array.float_complex_array_value (), data,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	193 byte_size, old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	194 else
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	195 get_data_and_bytesize (array.complex_array_value (), data,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	196 byte_size, old_dims, frame);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	197 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	198 else if (array.is_real_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	199 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	200 if (array.is_single_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	201 get_data_and_bytesize (array.float_array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	202 old_dims, frame);
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	203 else
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	204 get_data_and_bytesize (array.array_value (), data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	205 old_dims, frame); }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	206 else
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	207 error ("typecast: invalid input class: %s",
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	208 array.class_name ().c_str ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	209
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	210 std::string numclass = args(1).string_value ();
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	211
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	212 if (numclass.size () == 0)
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	213 ;
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	214 else if (numclass == "char")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	215 retval = octave_value (reinterpret_copy<charNDArray>
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	216 (data, byte_size, old_dims), array.is_dq_string () ? '"'
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	217 : '\'');
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	218 else if (numclass[0] == 'i')
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	219 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	220 if (numclass == "int8")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	221 retval = reinterpret_copy<int8NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	222 else if (numclass == "int16")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	223 retval = reinterpret_copy<int16NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	224 else if (numclass == "int32")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	225 retval = reinterpret_copy<int32NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	226 else if (numclass == "int64")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	227 retval = reinterpret_copy<int64NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	228 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	229 else if (numclass[0] == 'u')
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	230 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	231 if (numclass == "uint8")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	232 retval = reinterpret_copy<uint8NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	233 else if (numclass == "uint16")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	234 retval = reinterpret_copy<uint16NDArray> (data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	235 old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	236 else if (numclass == "uint32")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	237 retval = reinterpret_copy<uint32NDArray> (data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	238 old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	239 else if (numclass == "uint64")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	240 retval = reinterpret_copy<uint64NDArray> (data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	241 old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	242 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	243 else if (numclass == "single")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	244 retval = reinterpret_copy<FloatNDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	245 else if (numclass == "double")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	246 retval = reinterpret_copy<NDArray> (data, byte_size, old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	247 else if (numclass == "single complex")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	248 retval = reinterpret_copy<FloatComplexNDArray> (data, byte_size,
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	249 old_dims);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	250 else if (numclass == "double complex")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	251 retval = reinterpret_copy<ComplexNDArray> (data, byte_size, old_dims);
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	252
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	253 if (retval.is_undefined ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	254 error ("typecast: cannot convert to %s class", numclass.c_str ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	255
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	256 return retval;
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	257 }
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	258
21389 64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	259 /*
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	260 %!assert (typecast (int64 (0), "char"), char (zeros (1, 8)))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	261 %!assert (typecast (int64 (0), "int8"), zeros (1, 8, "int8"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	262 %!assert (typecast (int64 (0), "uint8"), zeros (1, 8, "uint8"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	263 %!assert (typecast (int64 (0), "int16"), zeros (1, 4, "int16"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	264 %!assert (typecast (int64 (0), "uint16"), zeros (1, 4, "uint16"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	265 %!assert (typecast (int64 (0), "int32"), zeros (1, 2, "int32"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	266 %!assert (typecast (int64 (0), "uint32"), zeros (1, 2, "uint32"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	267 %!assert (typecast (int64 (0), "int64"), zeros (1, 1, "int64"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	268 %!assert (typecast (int64 (0), "uint64"), zeros (1, 1, "uint64"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	269 %!assert (typecast (int64 (0), "single"), zeros (1, 2, "single"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	270 %!assert (typecast (int64 (0), "double"), 0)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	271 %!assert (typecast (int64 (0), "single complex"), single (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	272 %!assert (typecast (int64 ([0 0]), "double complex"), 0)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	273
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	274 %!assert (typecast ([], "double"), [])
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	275 %!assert (typecast (0, "double"), 0)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	276 %!assert (typecast (inf, "double"), inf)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	277 %!assert (typecast (-inf, "double"), -inf)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	278 %!assert (typecast (nan, "double"), nan)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	279
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	280 %!error typecast ()
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	281 %!error typecast (1)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	282 %!error typecast (1, 2, 3)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	283 %!error typecast (1, "invalid")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	284 %!error typecast (int8 (0), "double")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	285 */
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	286
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 21100 diff changeset	287 template <typename ArrayType>
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	288 ArrayType
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	289 do_bitpack (const boolNDArray& bitp)
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	290 {
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	291 typedef typename ArrayType::element_type T;
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	292 octave_idx_type n
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	293 = bitp.numel () / (sizeof (T) * std::numeric_limits<unsigned char>::digits);
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	294
20982 d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	295 if (n * static_cast<int> (sizeof (T)) * std::numeric_limits<unsigned char>::digits != bitp.numel ())
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20800 diff changeset	296 error ("bitpack: incorrect number of bits to make up output value");
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20800 diff changeset	297
20982 d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	298 ArrayType retval (get_vec_dims (bitp.dims (), n));
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	299
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	300 const bool *bits = bitp.fortran_vec ();
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	301 char packed = reinterpret_cast<char > (retval.fortran_vec ());
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	302
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	303 octave_idx_type m = n * sizeof (T);
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	304
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	305 for (octave_idx_type i = 0; i < m; i++)
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	306 {
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	307 char c = bits[0];
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	308 for (int j = 1; j < std::numeric_limits<unsigned char>::digits; j++)
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	309 c \|= bits[j] << j;
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	310
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	311 packed[i] = c;
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	312 bits += std::numeric_limits<unsigned char>::digits;
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	313 }
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	314
d27f66b4b8e6 maint: invert if/else/error instances. John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	315 return retval;
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	316 }
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	317
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14360 diff changeset	318 DEFUN (bitpack, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	319 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20831 diff changeset	320 @deftypefn {} {@var{y} =} bitpack (@var{x}, @var{class})\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	321 Return a new array @var{y} resulting from interpreting the logical array\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	322 @var{x} as raw bit patterns for data of the numeric class @var{class}.\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	323 \n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	324 @var{class} must be one of the built-in numeric classes:\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	325 \n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	326 @example\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	327 @group\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	328 \"double\"\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	329 \"single\"\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	330 \"double complex\"\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	331 \"single complex\"\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	332 \"char\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	333 \"int8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	334 \"int16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	335 \"int32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	336 \"int64\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	337 \"uint8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	338 \"uint16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	339 \"uint32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	340 \"uint64\"\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	341 @end group\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	342 @end example\n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	343 \n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10807 diff changeset	344 The number of elements of @var{x} should be divisible by the bit length of\n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	345 @var{class}. If it is not, excess bits are discarded. Bits come in\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	346 increasing order of significance, i.e., @code{x(1)} is bit 0, @code{x(2)} is\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	347 bit 1, etc.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	348 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	349 The result is a row vector if @var{x} is a row vector, otherwise it is a\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	350 column vector.\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11553 diff changeset	351 @seealso{bitunpack, typecast}\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	352 @end deftypefn")
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	353 {
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	354 if (args.length () != 2)
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	355 print_usage ();
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	356
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	357 if (! args(0).is_bool_type ())
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	358 error ("bitpack: X must be a logical array");
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	359
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	360 octave_value retval;
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	361
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	362 boolNDArray bitp = args(0).bool_array_value ();
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	363
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	364 std::string numclass = args(1).string_value ();
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	365
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	366 if (numclass.size () == 0)
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	367 ;
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	368 else if (numclass == "char")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	369 retval = octave_value (do_bitpack<charNDArray> (bitp), '\'');
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	370 else if (numclass[0] == 'i')
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	371 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	372 if (numclass == "int8")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	373 retval = do_bitpack<int8NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	374 else if (numclass == "int16")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	375 retval = do_bitpack<int16NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	376 else if (numclass == "int32")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	377 retval = do_bitpack<int32NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	378 else if (numclass == "int64")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	379 retval = do_bitpack<int64NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	380 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	381 else if (numclass[0] == 'u')
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	382 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	383 if (numclass == "uint8")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	384 retval = do_bitpack<uint8NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	385 else if (numclass == "uint16")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	386 retval = do_bitpack<uint16NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	387 else if (numclass == "uint32")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	388 retval = do_bitpack<uint32NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	389 else if (numclass == "uint64")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	390 retval = do_bitpack<uint64NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	391 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	392 else if (numclass == "single")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	393 retval = do_bitpack<FloatNDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	394 else if (numclass == "double")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	395 retval = do_bitpack<NDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	396 else if (numclass == "single complex")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	397 retval = do_bitpack<FloatComplexNDArray> (bitp);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	398 else if (numclass == "double complex")
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	399 retval = do_bitpack<ComplexNDArray> (bitp);
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	400
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	401 if (retval.is_undefined ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	402 error ("bitpack: cannot pack to %s class", numclass.c_str ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	403
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	404 return retval;
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	405 }
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	406
21389 64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	407 /*
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	408 %!assert (bitpack (zeros (1, 8, "logical"), "char"), "\0")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	409 %!assert (bitpack (zeros (1, 8, "logical"), "int8"), int8 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	410 %!assert (bitpack (zeros (1, 8, "logical"), "uint8"), uint8 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	411 %!assert (bitpack (zeros (1, 16, "logical"), "int16"), int16 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	412 %!assert (bitpack (zeros (1, 16, "logical"), "uint16"), uint16 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	413 %!assert (bitpack (zeros (1, 32, "logical"), "int32"), int32 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	414 %!assert (bitpack (zeros (1, 32, "logical"), "uint32"), uint32 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	415 %!assert (bitpack (zeros (1, 64, "logical"), "int64"), int64 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	416 %!assert (bitpack (zeros (1, 64, "logical"), "uint64"), uint64 (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	417 %!assert (bitpack (zeros (1, 32, "logical"), "single"), single (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	418 %!assert (bitpack (zeros (1, 64, "logical"), "double"), double (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	419 %!assert (bitpack (zeros (1, 64, "logical"), "single complex"), single (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	420 %!assert (bitpack (zeros (1, 128, "logical"), "double complex"), double (0))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	421
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	422 %!error bitpack ()
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	423 %!error bitpack (1)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	424 %!error bitpack (1, 2, 3)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	425 %!error bitpack (1, "invalid")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	426 %!error bitpack (1, "double")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	427 %!error bitpack (false, "invalid")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	428 %!error bitpack (false, "double")
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	429 */
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	430
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 21100 diff changeset	431 template <typename ArrayType>
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	432 boolNDArray
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	433 do_bitunpack (const ArrayType& array)
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	434 {
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	435 typedef typename ArrayType::element_type T;
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	436 octave_idx_type n = array.numel () * sizeof (T)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	437 * std::numeric_limits<unsigned char>::digits;
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	438
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	439 boolNDArray retval (get_vec_dims (array.dims (), n));
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	440
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	441 const char packed = reinterpret_cast<const char > (array.fortran_vec ());
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	442 bool *bits = retval.fortran_vec ();
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	443
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 17281 diff changeset	444 octave_idx_type m = n / std::numeric_limits<unsigned char>::digits;
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	445
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	446 for (octave_idx_type i = 0; i < m; i++)
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	447 {
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	448 char c = packed[i];
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	449 bits[0] = c & 1;
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 17281 diff changeset	450 for (int j = 1; j < std::numeric_limits<unsigned char>::digits; j++)
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	451 bits[j] = (c >>= 1) & 1;
17396 0b644adf4f31 speak CHAR_BIT in C++-ese John W. Eaton <jwe@octave.org> parents: 17281 diff changeset	452 bits += std::numeric_limits<unsigned char>::digits;
6869 f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	453 }
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	454
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	455 return retval;
f9c893831e68 [project @ 2007-09-06 16:38:44 by dbateman] dbateman parents: diff changeset	456 }
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	457
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14360 diff changeset	458 DEFUN (bitunpack, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	459 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20831 diff changeset	460 @deftypefn {} {@var{y} =} bitunpack (@var{x})\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	461 Return a logical array @var{y} corresponding to the raw bit patterns of\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	462 @var{x}.\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	463 \n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	464 @var{x} must belong to one of the built-in numeric classes:\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	465 \n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	466 @example\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	467 @group\n\
19174 6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	468 \"double\"\n\
6f3e922c5197 doc: Improve docstrings for typecast, bitpack, bitunpack. Rik <rik@octave.org> parents: 17787 diff changeset	469 \"single\"\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	470 \"char\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	471 \"int8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	472 \"int16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	473 \"int32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	474 \"int64\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	475 \"uint8\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	476 \"uint16\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	477 \"uint32\"\n\
97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	478 \"uint64\"\n\
9758 09da0bd91412 Periodic grammar check of Octave documentation files to ensure common format Rik <rdrider0-list@yahoo.com> parents: 9689 diff changeset	479 @end group\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	480 @end example\n\
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	481 \n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	482 The result is a row vector if @var{x} is a row vector; otherwise, it is a\n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	483 column vector.\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11553 diff changeset	484 @seealso{bitpack, typecast}\n\
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	485 @end deftypefn")
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	486 {
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	487 if (args.length () != 1)
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	488 print_usage ();
20921 4d3daf7e43f3 eliminate trailing whitespace in source files John W. Eaton <jwe@octave.org> parents: 20853 diff changeset	489
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	490 if (! (args(0).is_numeric_type () \|\| args(0).is_string ()))
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	491 error ("bitunpack: argument must be a number or a string");
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	492
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	493 octave_value retval;
b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20921 diff changeset	494
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	495 octave_value array = args(0);
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	496
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	497 if (array.is_string ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	498 retval = do_bitunpack (array.char_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	499 else if (array.is_integer_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	500 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	501 if (array.is_int8_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	502 retval = do_bitunpack (array.int8_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	503 else if (array.is_int16_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	504 retval = do_bitunpack (array.int16_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	505 else if (array.is_int32_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	506 retval = do_bitunpack (array.int32_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	507 else if (array.is_int64_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	508 retval = do_bitunpack (array.int64_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	509 else if (array.is_uint8_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	510 retval = do_bitunpack (array.uint8_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	511 else if (array.is_uint16_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	512 retval = do_bitunpack (array.uint16_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	513 else if (array.is_uint32_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	514 retval = do_bitunpack (array.uint32_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	515 else if (array.is_uint64_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	516 retval = do_bitunpack (array.uint64_array_value ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	517 else
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	518 assert (0);
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	519 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	520 else if (array.is_complex_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	521 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	522 if (array.is_single_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	523 retval = do_bitunpack (array.float_complex_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	524 else
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	525 retval = do_bitunpack (array.complex_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	526 }
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	527 else if (array.is_real_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	528 {
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	529 if (array.is_single_type ())
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	530 retval = do_bitunpack (array.float_array_value ());
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	531 else
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	532 retval = do_bitunpack (array.array_value ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	533 }
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	534 else
20800 fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	535 error ("bitunpack: invalid input class: %s",
fb128aafc322 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	536 array.class_name ().c_str ());
9671 e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	537
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	538 return retval;
e4b383a0effa merge reinterpret.cc into typecast.cc Jaroslav Hajek <highegg@gmail.com> parents: 9036 diff changeset	539 }
21389 64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	540
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	541 /*
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	542 %!assert (bitunpack ("\0"), zeros (1, 8, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	543 %!assert (bitunpack (int8 (0)), zeros (1, 8, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	544 %!assert (bitunpack (uint8 (0)), zeros (1, 8, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	545 %!assert (bitunpack (int16 (0)), zeros (1, 16, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	546 %!assert (bitunpack (uint16 (0)), zeros (1, 16, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	547 %!assert (bitunpack (int32 (0)), zeros (1, 32, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	548 %!assert (bitunpack (uint32 (0)), zeros (1, 32, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	549 %!assert (bitunpack (int64 (0)), zeros (1, 64, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	550 %!assert (bitunpack (uint64 (0)), zeros (1, 64, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	551 %!assert (bitunpack (single (0)), zeros (1, 32, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	552 %!assert (bitunpack (double (0)), zeros (1, 64, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	553 %!assert (bitunpack (complex (single (0))), zeros (1, 64, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	554 %!assert (bitunpack (complex (double (0))), zeros (1, 128, "logical"))
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	555
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	556 %!error bitunpack ()
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	557 %!error bitunpack (1, 2)
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	558 %!error bitunpack ({})
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	559 */
64efef931bd0 Add BIST tests for bitpack, bitunpack, isglobal, and typecast Mike Miller <mtmiller@octave.org> parents: 21301 diff changeset	560

Mercurial > octave

annotate libinterp/corefcn/typecast.cc @ 21660:53728df3e4c9