Mercurial > octave-nkf

diff src/pt-const.cc @ 2942:026f342c2019
[project @ 1997-05-08 02:20:57 by jwe]
author: jwe
date: Thu, 08 May 1997 02:28:50 +0000
parents: 5ed088015839
children: 194b50e4725b
--- a/src/pt-const.cc	Thu May 08 02:17:52 1997 +0000
+++ b/src/pt-const.cc	Thu May 08 02:28:50 1997 +0000
@@ -49,6 +49,16 @@
     val.print (os, pr_as_read_syntax);
 }
 
+void
+tree_constant::print_raw (ostream& os, bool pr_as_read_syntax,
+			  bool pr_orig_text) 
+{
+  if (pr_orig_text && ! orig_text.empty ())
+    os << orig_text;
+  else
+    val.print_raw (os, pr_as_read_syntax);
+}
+
 octave_value
 tree_constant::eval (bool print_result)
 {