diff src/OPERATORS/op-range.cc @ 7789:82be108cc558

First attempt at single precision tyeps * * * corrections to qrupdate single precision routines * * * prefer demotion to single over promotion to double * * * Add single precision support to log2 function * * * Trivial PROJECT file update * * * Cache optimized hermitian/transpose methods * * * Add tests for tranpose/hermitian and ChangeLog entry for new transpose code
author David Bateman <dbateman@free.fr>
date Sun, 27 Apr 2008 22:34:17 +0200
parents a1dbe9d80eee
children 283989f2da9b
line wrap: on
line diff
--- a/src/OPERATORS/op-range.cc	Wed May 14 18:09:56 2008 +0200
+++ b/src/OPERATORS/op-range.cc	Sun Apr 27 22:34:17 2008 +0200
@@ -32,6 +32,7 @@
 #include "ov-ch-mat.h"
 #include "ov-scalar.h"
 #include "ov-re-mat.h"
+#include "ov-flt-re-mat.h"
 #include "ov-complex.h"
 #include "ov-cx-mat.h"
 #include "ov-bool.h"
@@ -74,6 +75,13 @@
 DEFNDCATOP_FN (bm_r, bool_matrix, range, array, array, concat)
 DEFNDCATOP_FN (chm_r, char_matrix, range, char_array, array, concat)
 
+CONVDECL (range_to_float_matrix)
+{
+  CAST_CONV_ARG (const octave_range&);
+
+  return new octave_float_matrix (FloatNDArray (v.array_value ()));
+}
+
 void
 install_range_ops (void)
 {
@@ -98,6 +106,8 @@
   INSTALL_CATOP (octave_bool, octave_range, b_r);
   INSTALL_CATOP (octave_bool_matrix, octave_range, bm_r);
   INSTALL_CATOP (octave_char_matrix, octave_range, chm_r);
+
+  INSTALL_CONVOP (octave_range, octave_float_matrix, range_to_float_matrix);
 }
 
 /*