Mercurial > hg > octave-lyh

changeset 5051:cab27aa905c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-10-19 15:29:15 by jwe]
author jwe
date Tue, 19 Oct 2004 15:29:15 +0000
parents d54d44f2f29a
children c6ef19da4b24
files src/ChangeLog src/ov-range.h
diffstat 2 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-19  John W. Eaton  <jwe@octave.org>
+
+	* ov-range.h (octave_range::write): New function.
+
 2004-10-18  John W. Eaton  <jwe@octave.org>
 
 	* symtab.cc (symbol_record::dimensions_string_req_first_space,
--- a/src/ov-range.h
+++ b/src/ov-range.h
@@ -41,6 +41,7 @@
 #include "str-vec.h"
 
 #include "error.h"
+#include "oct-stream.h"
 #include "ov-base.h"
 #include "ov-typeinfo.h"
 
@@ -192,6 +193,17 @@
   bool load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug);
 #endif
 
+  int write (octave_stream& os, int block_size,
+	     oct_data_conv::data_type output_type, int skip,
+	     oct_mach_info::float_format flt_fmt) const
+    {
+      // XXX FIXME XXX -- could be more memory efficient by having a
+      // special case of the octave_stream::write method for ranges.
+
+      return os.write (matrix_value (), block_size, output_type, skip,
+		       flt_fmt);
+    }
+
 private:
 
   Range range;