Mercurial > hg > octave-thorsten
diff src/file-io.cc @ 4643:ef3a14fb6847
[project @ 2003-11-22 12:25:44 by jwe]
author | jwe |
---|---|
date | Sat, 22 Nov 2003 12:25:45 +0000 (2003-11-22) |
parents | 02d2fcf835fc |
children | f7ce581b27fb |
line wrap: on
line diff
--- a/src/file-io.cc +++ b/src/file-io.cc @@ -63,6 +63,7 @@ #include "oct-prcstrm.h" #include "oct-stream.h" #include "oct-strstrm.h" +#include "ov-streamoff.h" #include "pager.h" #include "pt-plot.h" #include "sysdep.h" @@ -632,7 +633,7 @@ from the beginning of the file @var{fid}.\n\ @end deftypefn") { - octave_value retval = -1; + octave_value retval = streamoff_array (dim_vector (1, 1), -1); int nargin = args.length (); @@ -641,7 +642,7 @@ octave_stream os = octave_stream_list::lookup (args(0), "ftell"); if (! error_state) - retval = os.tell (); + retval = streamoff_array (dim_vector (1, 1), os.tell ()); } else print_usage ("ftell");