annotate src/pt-base.cc @ 1297:12ecc2ecf0e3

[project @ 1995-05-01 18:39:43 by jwe]
author jwe
date Mon, 01 May 1995 18:39:43 +0000
parents b6360f2d4fa6
children 611d403c7f3d
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
1009
dfe01093f657 [project @ 1995-01-04 04:05:12 by jwe]
jwe
parents: 877
diff changeset
4 Copyright (C) 1992, 1993, 1994, 1995 John W. Eaton
580
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
1297
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1192
diff changeset
24 #if defined (__GNUG__)
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1192
diff changeset
25 #pragma implementation
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1192
diff changeset
26 #endif
12ecc2ecf0e3 [project @ 1995-05-01 18:39:43 by jwe]
jwe
parents: 1192
diff changeset
27
580
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
28 #ifdef HAVE_CONFIG_H
1192
b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe]
jwe
parents: 1009
diff changeset
29 #include <config.h>
580
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
30 #endif
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
31
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
32 #include <iostream.h>
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
33 #include <assert.h>
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
34
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
35 #include "tree-base.h"
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
36
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
37 // Current indentation.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
38 int tree_print_code::curr_print_indent_level = 0;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
39
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
40 // Nonzero means we are at the beginning of a line.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
41 int tree_print_code::beginning_of_line = 1;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
42
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
43 // 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
44
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
45 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
46 tree_print_code::print_code_new_line (ostream& os)
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 os << "\n";
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
49
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
50 beginning_of_line = 1;
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
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
53 // Each print_code() function should call this before printing
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
54 // anything.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
55 //
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
56 // 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
57
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
58 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
59 tree_print_code::print_code_indent (ostream& os)
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 assert (curr_print_indent_level >= 0);
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
62
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
63 if (beginning_of_line)
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 os.form ("%*s", curr_print_indent_level, "");
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
66 beginning_of_line = 0;
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 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
69
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
70 // For ressetting print_code state.
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
71
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
72 void
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
73 tree_print_code::print_code_reset (void)
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 beginning_of_line = 1;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
76 curr_print_indent_level = 0;
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
77 }
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
78
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
79 /*
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
80 ;;; Local Variables: ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
81 ;;; mode: C++ ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
82 ;;; page-delimiter: "^/\\*" ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
83 ;;; End: ***
b0204e676508 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents:
diff changeset
84 */