Mercurial > hg > octave-nkf

diff src/pr-output.cc @ 2907:8bb31a2b480b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-04-30 05:01:46 by jwe]
author jwe
date Wed, 30 Apr 1997 05:06:03 +0000
parents facd9d10e5c1
children 649549662cf6
line wrap: on
line diff
--- a/src/pr-output.cc
+++ b/src/pr-output.cc
@@ -1132,7 +1132,9 @@
 	      else
 		os << "+";
 	    }
-	  os << "\n";
+
+	  if (i < nr - 1)
+	    os << "\n";
 	}
     }
   else
@@ -1230,7 +1232,8 @@
 		      pr_float (os, m (i, j), fw);
 		    }
 
-		  os << "\n";
+		  if (i < nr - 1)
+		    os << "\n";
 		}
 	    }
 	}
@@ -1281,7 +1284,9 @@
 	      else
 		os << "+";
 	    }
-	  os << "\n";
+
+	  if (i < nr - 1)
+	    os << "\n";
 	}
     }
   else
@@ -1379,7 +1384,9 @@
 
 		      pr_complex (os, cm (i, j));
 		    }
-		  os << "\n";
+
+		  if (i < nr - 1) 
+		    os << "\n";
 		}
 	    }
 	}
@@ -1475,9 +1482,10 @@
 		  pr_float (os, val, fw);
 		}
 
-	      os << "\n";
+	      col += inc;
 
-	      col += inc;
+	      if (col < num_elem)
+		os << "\n";
 	    }
 	}
     }
@@ -1495,9 +1503,7 @@
       if (pr_as_read_syntax && nstr > 1)
 	os << "[ ";
 
-      if (nstr == 0)
-	os << "\n";
-      else
+      if (nstr != 0)
 	{
 	  for (int i = 0; i < nstr; i++)
 	    {
@@ -1511,7 +1517,12 @@
 		    os << "; ";
 		}
 	      else
-		os << row << "\n";
+		{
+		  os << row;
+
+		  if (i < nstr - 1)
+		    os << "\n";
+		}
 	    }
 	}