Mercurial > octave

comparison src/tc-rep.cc @ 1202:1f5ff647c7ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-01 00:20:39 by jwe]
author jwe
date Sat, 01 Apr 1995 00:20:39 +0000
parents 50cc3480a2db
children c56c0565afd5
comparison
equal deleted inserted replaced
1201:97c541091d3b 1202:1f5ff647c7ab
1782 begin_unwind_frame ("TC_REP_print"); 1782 begin_unwind_frame ("TC_REP_print");
1783 1783
1784 unwind_protect_int (structure_indent_level); 1784 unwind_protect_int (structure_indent_level);
1785 unwind_protect_int (user_pref.struct_levels_to_print); 1785 unwind_protect_int (user_pref.struct_levels_to_print);
1786 1786
1787 if (user_pref.struct_levels_to_print > 0) 1787 if (user_pref.struct_levels_to_print-- > 0)
1788 { 1788 {
1789 user_pref.struct_levels_to_print--; 1789 output_buf << "{\n";
1790 1790
1791 increment_structure_indent_level (); 1791 increment_structure_indent_level ();
1792 1792
1793 for (Pix p = a_map->first (); p != 0; a_map->next (p)) 1793 for (Pix p = a_map->first (); p != 0; a_map->next (p))
1794 { 1794 {
1796 tree_constant val = a_map->contents (p); 1796 tree_constant val = a_map->contents (p);
1797 1797
1798 output_buf.form ("%*s%s = ", structure_indent_level, 1798 output_buf.form ("%*s%s = ", structure_indent_level,
1799 "", key); 1799 "", key);
1800 1800
1801 if (print_as_structure (val)) 1801 if (! (print_as_scalar (val) || print_as_structure (val)))
1802 output_buf << "{\n";
1803 else if (! print_as_scalar (val))
1804 output_buf << "\n"; 1802 output_buf << "\n";
1805 1803
1806 val.print (output_buf); 1804 val.print (output_buf);
1807 } 1805 }
1808 1806