diff src/load-save.cc @ 1358:dc9c01f66a19

[project @ 1995-09-05 21:10:01 by jwe]
author jwe
date Tue, 05 Sep 1995 21:12:04 +0000
parents 19c10b8657d5
children ed5757e3333b
line wrap: on
line diff
--- a/src/load-save.cc	Tue Sep 05 20:28:59 1995 +0000
+++ b/src/load-save.cc	Tue Sep 05 21:12:04 1995 +0000
@@ -907,7 +907,7 @@
 install_loaded_variable (int force, char *name, const tree_constant& tc,
 			 int global, char *doc)
 {
-// Is there already a symbol by this name?  If so, what is it?
+  // Is there already a symbol by this name?  If so, what is it?
 
   symbol_record *lsr = curr_sym_tab->lookup (name, 0, 0);
 
@@ -1241,7 +1241,7 @@
 read_ascii_data (istream& is, const char *filename, int& global,
 		 tree_constant& tc)
 {
-// Read name for this entry or break on EOF.
+  // Read name for this entry or break on EOF.
 
   char *name = extract_keyword (is, "name");
 
@@ -1263,7 +1263,7 @@
       return 0;
     }
 
-// Look for type keyword
+  // Look for type keyword.
 
   char *tag = extract_keyword (is, "type");
 
@@ -1359,7 +1359,8 @@
 	}
       else if (strncmp (ptr, "range", 5) == 0)
 	{
-// # base, limit, range comment added by save().
+	  // # base, limit, range comment added by save().
+
 	  skip_comments (is);
 	  Range tmp;
 	  is >> tmp;
@@ -1460,8 +1461,8 @@
 
   doc = 0;
 
-// We expect to fail here, at the beginning of a record, so not being
-// able to read another name should not result in an error.
+  // We expect to fail here, at the beginning of a record, so not
+  // being able to read another name should not result in an error.
 
   is.read (&name_len, 4);
   if (! is)
@@ -1668,8 +1669,9 @@
 {
   swap = 0;
 
-// We expect to fail here, at the beginning of a record, so not being
-// able to read another mopt value should not result in an error. 
+  // We expect to fail here, at the beginning of a record, so not
+  // being able to read another mopt value should not result in an
+  // error.
 
   is.read (&mopt, 4);
   if (! is)
@@ -1701,7 +1703,7 @@
     swap = 1;
 #endif
 
-// mopt is signed, therefore byte swap may result in negative value.
+  // mopt is signed, therefore byte swap may result in negative value.
 
   if (mopt > 9999 || mopt < 0)
     swap = 1;
@@ -1780,9 +1782,9 @@
 read_mat_binary_data (istream& is, const char *filename,
 		      tree_constant& tc)
 {
-// These are initialized here instead of closer to where they are
-// first used to avoid errors from gcc about goto crossing
-// initialization of variable.
+  // These are initialized here instead of closer to where they are
+  // first used to avoid errors from gcc about goto crossing
+  // initialization of variable.
 
   Matrix re;
   floating_point_format flt_fmt = OCTAVE_UNKNOWN_FLT_FMT;
@@ -1866,7 +1868,7 @@
   else
     tc = re;
 
-// XXX FIXME XXX -- this needs to change once strings really work.
+  // XXX FIXME XXX -- this needs to change once strings really work.
 
   if (type == 1 && nr == 1)
     tc = tc.convert_to_str ();
@@ -2115,9 +2117,9 @@
 
   int force = 0;
 
-// It isn't necessary to have the default load format stored in a user
-// preference variable since we can determine the type of file as we
-// are reading.
+  // It isn't necessary to have the default load format stored in a
+  // user preference variable since we can determine the type of file
+  // as we are reading.
 
   load_save_format format = LS_UNKNOWN;
 
@@ -2186,9 +2188,10 @@
 
       if (format != LS_UNKNOWN)
 	{
-// XXX FIXME XXX -- if we have already seen EOF on a previous call,
-// how do we fix up the state of cin so that we can get additional
-// input?  I'm afraid that we can't fix this using cin only.
+	  // XXX FIXME XXX -- if we have already seen EOF on a
+	  // previous call, how do we fix up the state of cin so that
+	  // we can get additional input?  I'm afraid that we can't
+	  // fix this using cin only.
 
 	  retval = do_load (cin, orig_fname, force, format, flt_fmt,
 			    list_only, swap, verbose, argv, argc,
@@ -2904,8 +2907,8 @@
   argc--;
   argv++;
 
-// Here is where we would get the default save format if it were
-// stored in a user preference variable.
+  // Here is where we would get the default save format if it were
+  // stored in a user preference variable.
 
   int save_builtins = 0;
 
@@ -2970,8 +2973,8 @@
       argc--;
       argv++;
 
-// XXX FIXME XXX -- should things intended for the screen end up in a 
-// tree_constant (string)?
+      // XXX FIXME XXX -- should things intended for the screen end up
+      // in a tree_constant (string)?
 
       ostrstream buf;