Mercurial > hg > octave-nkf

diff src/ov-cx-mat.h @ 4944:44046bbaa52c
[project @ 2004-08-31 05:30:46 by jwe]
author: jwe
date: Tue, 31 Aug 2004 05:30:47 +0000
parents: 14027e0bafa4
children: e35b034d3523
--- a/src/ov-cx-mat.h
+++ b/src/ov-cx-mat.h
@@ -37,6 +37,7 @@
 #include "str-vec.h"
 
 #include "error.h"
+#include "oct-stream.h"
 #include "ov-base.h"
 #include "ov-base-mat.h"
 #include "ov-typeinfo.h"
@@ -127,6 +128,15 @@
   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
+    {
+      // Yes, for compatibility, we drop the imaginary part here.
+      return os.write (matrix_value (true), block_size, output_type,
+		       skip, flt_fmt);
+    }
+
   void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
 
 private: