Mercurial > hg > octave-nkf

comparison src/load-save.cc @ 2095:36903d507b0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-04-28 09:00:07 by jwe]
author jwe
date Sun, 28 Apr 1996 09:00:07 +0000
parents bfb775fb6fe8
children 138b3c98dc85
comparison
equal deleted inserted replaced
2094:a23645b0364e 2095:36903d507b0e
1348 delete [] doc; 1348 delete [] doc;
1349 } 1349 }
1350 1350
1351 if (list_only && count) 1351 if (list_only && count)
1352 { 1352 {
1353 output_buf << ends;
1354
1355 char *msg = output_buf.str ();
1356
1353 if (nargout > 0) 1357 if (nargout > 0)
1354 { 1358 retval = msg;
1355 output_buf << ends;
1356 char *msg = output_buf.str ();
1357 retval = msg;
1358 delete [] msg;
1359 }
1360 else 1359 else
1361 maybe_page_output (output_buf); 1360 octave_stdout << msg;
1361
1362 delete [] msg;
1362 } 1363 }
1363 1364
1364 return retval; 1365 return retval;
1365 } 1366 }
1366 1367
2115 2116
2116 return retval; 2117 return retval;
2117 } 2118 }
2118 2119
2119 static void 2120 static void
2120 write_binary_header (ostream& stream, load_save_format format) 2121 write_binary_header (ostream& os, load_save_format format)
2121 { 2122 {
2122 if (format == LS_BINARY) 2123 if (format == LS_BINARY)
2123 { 2124 {
2124 stream << (octave_words_big_endian ? "Octave-1-B" : "Octave-1-L"); 2125 os << (octave_words_big_endian ? "Octave-1-B" : "Octave-1-L");
2125 2126
2126 char tmp = (char) native_float_format; 2127 char tmp = (char) native_float_format;
2127 stream.write (&tmp, 1); 2128
2129 os.write (&tmp, 1);
2128 } 2130 }
2129 } 2131 }
2130 2132
2131 static void 2133 static void
2132 save_vars (const string_vector& argv, int argv_idx, int argc, 2134 save_vars (const string_vector& argv, int argv_idx, int argc,
2246 i++; 2248 i++;
2247 2249
2248 // XXX FIXME XXX -- should things intended for the screen end up 2250 // XXX FIXME XXX -- should things intended for the screen end up
2249 // in a octave_value (string)? 2251 // in a octave_value (string)?
2250 2252
2251 ostrstream buf; 2253 save_vars (argv, i, argc, octave_stdout, save_builtins, format,
2252
2253 save_vars (argv, i, argc, buf, save_builtins, format,
2254 save_as_floats); 2254 save_as_floats);
2255
2256 maybe_page_output (buf);
2257 } 2255 }
2258 2256
2259 // Guard against things like `save a*', which are probably mistakes... 2257 // Guard against things like `save a*', which are probably mistakes...
2260 2258
2261 else if (i == argc - 1 && glob_pattern_p (argv[i])) 2259 else if (i == argc - 1 && glob_pattern_p (argv[i]))