Mercurial > hg > octave-nkf

annotate src/pt-base.cc @ 877:ba6acc6309ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-05 03:10:20 by jwe]
author jwe
date Sat, 05 Nov 1994 03:16:51 +0000
parents b0204e676508
children dfe01093f657
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
580
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
1 // tree-base.cc -*- C++ -*-
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
2 /*
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
3
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
4 Copyright (C) 1992, 1993, 1994 John W. Eaton
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
5
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
6 This file is part of Octave.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
7
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
8 Octave is free software; you can redistribute it and/or modify it
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
11 later version.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
12
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
13 Octave is distributed in the hope that it will be useful, but WITHOUT
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
16 for more details.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
17
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
19 along with Octave; see the file COPYING. If not, write to the Free
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
20 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
21
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
22 */
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
23
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
24 #ifdef HAVE_CONFIG_H
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
25 #include "config.h"
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
26 #endif
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
27
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
28 #include <iostream.h>
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
29 #include <assert.h>
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
30
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
31 #include "tree-base.h"
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
32
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
33 // Current indentation.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
34 int tree_print_code::curr_print_indent_level = 0;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
35
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
36 // Nonzero means we are at the beginning of a line.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
37 int tree_print_code::beginning_of_line = 1;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
38
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
39 // All print_code() functions should use this to print new lines.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
40
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
41 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
42 tree_print_code::print_code_new_line (ostream& os)
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
43 {
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
44 os << "\n";
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
45
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
46 beginning_of_line = 1;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
47 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
48
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
49 // Each print_code() function should call this before printing
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
50 // anything.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
51 //
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
52 // This doesn't need to be fast, but isn't there a better way?
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
53
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
54 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
55 tree_print_code::print_code_indent (ostream& os)
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
56 {
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
57 assert (curr_print_indent_level >= 0);
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
58
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
59 if (beginning_of_line)
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
60 {
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
61 os.form ("%*s", curr_print_indent_level, "");
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
62 beginning_of_line = 0;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
63 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
64 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
65
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
66 // For ressetting print_code state.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
67
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
68 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
69 tree_print_code::print_code_reset (void)
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
70 {
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
71 beginning_of_line = 1;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
72 curr_print_indent_level = 0;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
73 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
74
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
75 /*
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
76 ;;; Local Variables: ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
77 ;;; mode: C++ ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
78 ;;; page-delimiter: "^/\\*" ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
79 ;;; End: ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
80 */