Mercurial > hg > octave-nkf

comparison src/ov-scalar.cc @ 2901:e6d25bc478dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-04-30 03:41:26 by jwe]
author jwe
date Wed, 30 Apr 1997 03:43:29 +0000
parents 8b262e771614
children 4e7bea116f24
comparison
equal deleted inserted replaced
2900:5ed088015839 2901:e6d25bc478dd
25 #endif 25 #endif
26 26
27 #ifdef HAVE_CONFIG_H 27 #ifdef HAVE_CONFIG_H
28 #include <config.h> 28 #include <config.h>
29 #endif 29 #endif
30
31 #include <iostream.h>
30 32
31 #include "defun.h" 33 #include "defun.h"
32 #include "gripes.h" 34 #include "gripes.h"
33 #include "oct-obj.h" 35 #include "oct-obj.h"
34 #include "ov-scalar.h" 36 #include "ov-scalar.h"
106 108
107 return retval; 109 return retval;
108 } 110 }
109 111
110 void 112 void
111 octave_scalar::print (ostream& os, bool pr_as_read_syntax) 113 octave_scalar::print (ostream& os, bool pr_as_read_syntax) const
114 {
115 indent (os);
116 print_raw (os, pr_as_read_syntax);
117 newline (os);
118 }
119
120 void
121 octave_scalar::print_raw (ostream& os, bool pr_as_read_syntax) const
112 { 122 {
113 octave_print_internal (os, scalar, pr_as_read_syntax); 123 octave_print_internal (os, scalar, pr_as_read_syntax);
124 }
125
126 bool
127 octave_scalar::print_name_tag (ostream& os, const string& name) const
128 {
129 indent (os);
130 os << name << " = ";
131 return false;
114 } 132 }
115 133
116 /* 134 /*
117 ;;; Local Variables: *** 135 ;;; Local Variables: ***
118 ;;; mode: C++ *** 136 ;;; mode: C++ ***