Mercurial > hg > octave-nkf
diff src/ov-range.cc @ 2901:e6d25bc478dd
[project @ 1997-04-30 03:41:26 by jwe]
author | jwe |
---|---|
date | Wed, 30 Apr 1997 03:43:29 +0000 |
parents | 8b262e771614 |
children | 4e7bea116f24 |
line wrap: on
line diff
--- a/src/ov-range.cc +++ b/src/ov-range.cc @@ -28,6 +28,8 @@ #include <config.h> #endif +#include <iostream.h> + #include "lo-ieee.h" #include "lo-utils.h" @@ -202,9 +204,40 @@ } void -octave_range::print (ostream& os, bool pr_as_read_syntax) +octave_range::print (ostream& os, bool pr_as_read_syntax) const +{ + indent (os); + print_raw (os, pr_as_read_syntax); + newline (os); +} + +void +octave_range::print_raw (ostream& os, bool pr_as_read_syntax) const +{ + octave_print_internal (os, range, pr_as_read_syntax, + current_print_indent_level ()); +} + +bool +octave_range::print_name_tag (ostream& os, const string& name) const { - octave_print_internal (os, range, pr_as_read_syntax, struct_indent); + bool retval = false; + + int n = range.nelem (); + + indent (os); + + if (n == 0 || n == 1) + os << name << " = "; + else + { + os << name << " ="; + newline (os); + newline (os); + retval = true; + } + + return retval; } /*