octave-nkf: src/pr-output.cc comparison

[project @ 1995-10-19 04:31:30 by jwe]

comparison

equal deleted inserted replaced

-:6ddabf91bc4e
+:0d9e10d10bd7
 #include "defun.h"
 #include "error.h"
 #include "help.h"
 #include "mappers.h"
-#include "oct-str.h"
 #include "pager.h"
 #include "pr-output.h"
 #include "sysdep.h"
 #include "tree-const.h"
 #include "user-prefs.h"
 	}
 }
 }
 void
-octave_print_internal (ostream& os, Octave_str_obj& s,
+octave_print_internal (ostream& os, const charMatrix& chm,
-		       int pr_as_read_syntax)
+		       int pr_as_read_syntax, int pr_as_string)
 {
-int nstr = s.num_strings ();
+if (pr_as_string)
+{
-if (pr_as_read_syntax && nstr > 1)
+int nstr = chm.rows ();
-os << "[ ";
+if (pr_as_read_syntax && nstr > 1)
-for (int i = 0; i < nstr; i++)
+	os << "[ ";
-{
-if (pr_as_read_syntax)
+for (int i = 0; i < nstr; i++)
 	{
-	  os << "\"" << s.elem (i) << "\"";
+	  if (pr_as_read_syntax)
+	    {
-	  if (i < nstr - 1)
+	      os << "\"" << chm.row_as_string (i) << "\"";
-	    os << "; ";
-	}
+	      if (i < nstr - 1)
-else
+		os << "; ";
-	os << s.elem (i) << "\n";
+	    }
-}
+	  else
+	    os << chm.row_as_string (i) << "\n";
-if (pr_as_read_syntax && nstr > 1)
+	}
-os << " ]";
+if (pr_as_read_syntax && nstr > 1)
+	os << " ]";
+}
+else
+{
+os << "sorry, printing char matrices not implemented yet\n";
+}
 }
 DEFUN ("disp", Fdisp, Sdisp, 10,
 "disp (X): display value without name tag")
 {

Mercurial > hg > octave-nkf