annotate src/pager.cc @ 3870:a9baa340ea51

[project @ 2002-02-22 15:42:44 by jwe]
author jwe
date Fri, 22 Feb 2002 15:42:44 +0000
parents 13905c3a24af
children b79da8779a0e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2
2847
8b262e771614 [project @ 1997-03-27 16:18:26 by jwe]
jwe
parents: 2795
diff changeset
3 Copyright (C) 1996, 1997 John W. Eaton
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
4
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
5 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
6
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
7 Octave is free software; you can redistribute it and/or modify it
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
10 later version.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
11
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
12 Octave is distributed in the hope that it will be useful, but WITHOUT
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
15 for more details.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
16
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
18 along with Octave; see the file COPYING. If not, write to the Free
1315
611d403c7f3d [project @ 1995-06-25 19:56:32 by jwe]
jwe
parents: 1306
diff changeset
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
20
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
21 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
22
240
a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe]
jwe
parents: 191
diff changeset
23 #ifdef HAVE_CONFIG_H
1192
b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe]
jwe
parents: 1009
diff changeset
24 #include <config.h>
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
25 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
26
3503
d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe]
jwe
parents: 3477
diff changeset
27 #include <fstream>
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
28 #include <string>
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
29
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
30 #include "cmd-edit.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
31 #include "oct-env.h"
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
32
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
33 #include "procstream.h"
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
34
2492
06595bc7f2d0 [project @ 1996-11-09 00:13:50 by jwe]
jwe
parents: 2476
diff changeset
35 #include <defaults.h>
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1343
diff changeset
36 #include "defun.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1343
diff changeset
37 #include "error.h"
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
38 #include "gripes.h"
2110
dece5cc39e00 [project @ 1996-04-30 12:38:20 by jwe]
jwe
parents: 2103
diff changeset
39 #include "input.h"
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
40 #include "oct-obj.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1343
diff changeset
41 #include "pager.h"
990
d2dd114ba5dd [project @ 1994-12-15 05:58:17 by jwe]
jwe
parents: 988
diff changeset
42 #include "sighandlers.h"
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
43 #include "unwind-prot.h"
2201
e5db2ea7f7c8 [project @ 1996-05-15 05:37:55 by jwe]
jwe
parents: 2200
diff changeset
44 #include "utils.h"
2368
bf6a96fd9b7e [project @ 1996-10-11 23:44:38 by jwe]
jwe
parents: 2210
diff changeset
45 #include "variables.h"
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
46
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
47 static pid_t octave_pager_pid = -1;
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
48
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
49 // Our actual connection to the external pager.
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
50 static oprocstream *external_pager = 0;
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
51
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
52 // TRUE means we write to the diary file.
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
53 static bool write_to_diary_file = false;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
54
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
55 // The name of the current diary file.
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
56 static std::string diary_file;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
57
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
58 // The diary file.
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
59 static std::ofstream external_diary_file;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
60
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
61 // The shell command to run as the pager.
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
62 static std::string Vpager_binary;
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
63
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
64 // TRUE means that if output is going to the pager, it is sent as soon
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
65 // as it is available. Otherwise, it is buffered and only sent to the
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
66 // pager when it is time to print another prompt.
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
67 static bool Vpage_output_immediately;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
68
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
69 // TRUE means all output intended for the screen should be passed
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
70 // through the pager.
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
71 static bool Vpage_screen_output;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
72
2705
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
73 // Only one pager can be active at once, so having these at file
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
74 // scope should be ok.
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
75 static octave_interrupt_handler saved_interrupt_handler;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
76 static bool interrupt_handler_saved = false;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
77
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
78 static bool really_flush_to_pager = false;
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
79
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
80 static bool flushing_output_to_pager = false;
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
81
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
82 static void
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
83 clear_external_pager (void)
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
84 {
2210
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe]
jwe
parents: 2209
diff changeset
85 octave_child_list::remove (octave_pager_pid);
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe]
jwe
parents: 2209
diff changeset
86
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
87 octave_pager_pid = -1;
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
88
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
89 delete external_pager;
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
90 external_pager = 0;
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
91
2705
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
92 if (interrupt_handler_saved)
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
93 {
2554
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe]
jwe
parents: 2492
diff changeset
94 octave_set_interrupt_handler (saved_interrupt_handler);
2705
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
95 interrupt_handler_saved = false;
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
96 }
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
97 }
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
98
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
99 static void
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
100 pager_death_handler (pid_t pid, int status)
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
101 {
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
102 if (pid > 0)
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
103 {
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
104 if (WIFEXITED (status) || WIFSIGNALLED (status))
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
105 {
2795
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
106 // Avoid warning() or error(), since that will put us back in
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
107 // the pager, which would be bad news.
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
108
3531
97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe]
jwe
parents: 3523
diff changeset
109 std::cerr << "warning: connection to external pager (pid = "
2795
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
110 << pid << ") lost --\n"
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
111 << "warning: attempting to finish pending computations...\n";
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
112 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
113 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
114 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
115
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
116 static void
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
117 do_sync (const char *msg, int len, bool bypass_pager)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
118 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
119 if (msg && len > 0)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
120 {
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
121 if (bypass_pager)
2646
5adf5280858c [project @ 1997-01-29 18:59:41 by jwe]
jwe
parents: 2554
diff changeset
122 {
3531
97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe]
jwe
parents: 3523
diff changeset
123 std::cout.write (msg, len);
97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe]
jwe
parents: 3523
diff changeset
124 std::cout.flush ();
2646
5adf5280858c [project @ 1997-01-29 18:59:41 by jwe]
jwe
parents: 2554
diff changeset
125 }
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
126 else
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
127 {
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
128 if (! external_pager)
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
129 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
130 std::string pgr = Vpager_binary;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
131
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
132 if (! pgr.empty ())
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
133 {
2554
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe]
jwe
parents: 2492
diff changeset
134 saved_interrupt_handler = octave_ignore_interrupts ();
2705
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe]
jwe
parents: 2652
diff changeset
135 interrupt_handler_saved = true;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
136
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
137 external_pager = new oprocstream (pgr.c_str ());
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
138
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
139 if (external_pager)
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
140 {
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
141 octave_pager_pid = external_pager->pid ();
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
142
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
143 octave_child_list::insert (octave_pager_pid,
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
144 pager_death_handler);
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
145 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
146 }
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
147 }
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
148
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
149 if (external_pager)
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
150 {
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
151 if (octave_pager_pid > 0 && external_pager->good ())
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
152 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
153 external_pager->write (msg, len);
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
154
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
155 // These checks are needed if a signal handler
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
156 // invoked since the last set of checks attempts
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
157 // to flush output and then returns
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
158
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
159 if (octave_pager_pid > 0
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
160 && external_pager
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
161 && external_pager->good ())
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
162 external_pager->flush ();
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
163 }
2795
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
164 else
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
165 {
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
166 // We had a pager, but it must have died. Restore
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
167 // the interrupt state so we can escape back to the
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
168 // prompt if there are lots of computations pending.
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
169
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
170 if (interrupt_handler_saved)
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
171 {
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
172 octave_set_interrupt_handler (saved_interrupt_handler);
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
173 interrupt_handler_saved = false;
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
174 }
14d07e4a0265 [project @ 1997-03-07 02:18:49 by jwe]
jwe
parents: 2705
diff changeset
175 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
176 }
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
177 else
2646
5adf5280858c [project @ 1997-01-29 18:59:41 by jwe]
jwe
parents: 2554
diff changeset
178 {
3531
97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe]
jwe
parents: 3523
diff changeset
179 std::cout.write (msg, len);
97cf542676e1 [project @ 2000-02-02 11:30:40 by jwe]
jwe
parents: 3523
diff changeset
180 std::cout.flush ();
2646
5adf5280858c [project @ 1997-01-29 18:59:41 by jwe]
jwe
parents: 2554
diff changeset
181 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
182 }
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
183 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
184 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
185
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
186 // Assume our terminal wraps long lines.
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
187
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
188 static bool
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
189 more_than_a_screenful (const char *s, int len)
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
190 {
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
191 if (s)
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
192 {
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
193 int available_rows = command_editor::terminal_rows () - 2;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
194
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
195 int cols = command_editor::terminal_cols ();
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
196
2103
30e2b1c4ffd9 [project @ 1996-04-28 12:19:45 by jwe]
jwe
parents: 2102
diff changeset
197 int count = 0;
30e2b1c4ffd9 [project @ 1996-04-28 12:19:45 by jwe]
jwe
parents: 2102
diff changeset
198
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
199 int chars_this_line = 0;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
200
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
201 for (int i = 0; i < len; i++)
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
202 {
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
203 if (*s++ == '\n')
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
204 {
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
205 count += chars_this_line / cols + 1;
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
206 chars_this_line = 0;
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
207 }
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
208 else
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
209 chars_this_line++;
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
210 }
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
211
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
212 if (count > available_rows)
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
213 return true;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
214 }
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
215
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
216 return false;
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
217 }
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
218
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
219 int
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
220 octave_pager_buf::sync (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
221 {
2186
0207f7f74be6 [project @ 1996-05-14 02:59:03 by jwe]
jwe
parents: 2185
diff changeset
222 if (! interactive
0207f7f74be6 [project @ 1996-05-14 02:59:03 by jwe]
jwe
parents: 2185
diff changeset
223 || really_flush_to_pager
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
224 || (Vpage_screen_output && Vpage_output_immediately)
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
225 || ! Vpage_screen_output)
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
226 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
227 char *buf = eback ();
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
228
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
229 int len = pptr () - buf;
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
230
2110
dece5cc39e00 [project @ 1996-04-30 12:38:20 by jwe]
jwe
parents: 2103
diff changeset
231 bool bypass_pager = (! interactive
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
232 || ! Vpage_screen_output
2110
dece5cc39e00 [project @ 1996-04-30 12:38:20 by jwe]
jwe
parents: 2103
diff changeset
233 || (really_flush_to_pager
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
234 && Vpage_screen_output
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
235 && ! Vpage_output_immediately
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
236 && ! more_than_a_screenful (buf, len)));
2475
1d7925d6bede [project @ 1996-11-07 04:36:00 by jwe]
jwe
parents: 2448
diff changeset
237
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
238 if (len > 0)
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
239 {
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
240 do_sync (buf, len, bypass_pager);
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
241
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
242 flush_current_contents_to_diary ();
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
243
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
244 seekoff (0, std::ios::beg);
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
245 }
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
246 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
247
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
248 return 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
249 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
250
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
251 void
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
252 octave_pager_buf::flush_current_contents_to_diary (void)
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
253 {
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
254 char *buf = eback () + diary_skip;
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
255
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
256 size_t len = pptr () - buf;
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
257
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
258 octave_diary.write (buf, len);
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
259
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
260 diary_skip = 0;
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
261 }
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
262
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
263 void
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
264 octave_pager_buf::set_diary_skip (void)
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
265 {
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
266 diary_skip = pptr () - eback ();
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
267 }
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
268
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
269 int
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
270 octave_diary_buf::sync (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
271 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
272 if (write_to_diary_file && external_diary_file)
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
273 {
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
274 char *buf = eback ();
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
275
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
276 int len = pptr () - buf;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
277
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
278 if (len > 0)
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
279 external_diary_file.write (buf, len);
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
280 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
281
3544
71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe]
jwe
parents: 3536
diff changeset
282 seekoff (0, std::ios::beg);
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
283
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
284 return 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
285 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
286
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
287 octave_pager_stream *octave_pager_stream::instance = 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
288
3775
13905c3a24af [project @ 2001-02-06 01:56:59 by jwe]
jwe
parents: 3756
diff changeset
289 octave_pager_stream::octave_pager_stream (void) : std::ostream (0), pb (0)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
290 {
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
291 pb = new octave_pager_buf;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
292 rdbuf (pb);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
293 setf (unitbuf);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
294 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
295
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
296 octave_pager_stream::~octave_pager_stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
297 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
298 flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
299 delete pb;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
300 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
301
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
302 octave_pager_stream&
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
303 octave_pager_stream::stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
304 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
305 if (! instance)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
306 instance = new octave_pager_stream ();
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
307
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
308 return *instance;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
309 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
310
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
311 void
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
312 octave_pager_stream::flush_current_contents_to_diary (void)
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
313 {
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
314 if (pb)
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
315 pb->flush_current_contents_to_diary ();
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
316 }
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
317
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
318 void
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
319 octave_pager_stream::set_diary_skip (void)
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
320 {
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
321 if (pb)
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
322 pb->set_diary_skip ();
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
323 }
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
324
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
325 octave_diary_stream *octave_diary_stream::instance = 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
326
3775
13905c3a24af [project @ 2001-02-06 01:56:59 by jwe]
jwe
parents: 3756
diff changeset
327 octave_diary_stream::octave_diary_stream (void) : std::ostream (0), db (0)
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
328 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
329 db = new octave_diary_buf;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
330 rdbuf (db);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
331 setf (unitbuf);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
332 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
333
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
334 octave_diary_stream::~octave_diary_stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
335 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
336 flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
337 delete db;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
338 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
339
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
340 octave_diary_stream&
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
341 octave_diary_stream::stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
342 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
343 if (! instance)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
344 instance = new octave_diary_stream ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
345
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
346 return *instance;
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
347 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
348
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
349 void
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
350 flush_octave_stdout (void)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
351 {
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
352 if (! flushing_output_to_pager)
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
353 {
2985
aa9d0c0e0458 [project @ 1997-05-16 06:54:18 by jwe]
jwe
parents: 2926
diff changeset
354 unwind_protect::begin_frame ("flush_octave_stdout");
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
355
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
356 unwind_protect_bool (really_flush_to_pager);
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
357 unwind_protect_bool (flushing_output_to_pager);
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
358
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
359 really_flush_to_pager = true;
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
360 flushing_output_to_pager = true;
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
361
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
362 octave_stdout.flush ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
363
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
364 if (external_pager)
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
365 clear_external_pager ();
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
366
2985
aa9d0c0e0458 [project @ 1997-05-16 06:54:18 by jwe]
jwe
parents: 2926
diff changeset
367 unwind_protect::run_frame ("flush_octave_stdout");
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
368 }
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
369 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
370
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
371 static void
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
372 close_diary_file (void)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
373 {
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
374 // Try to flush the current buffer to the diary now, so that things
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
375 // like
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
376 //
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
377 // function foo ()
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
378 // diary on;
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
379 // ...
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
380 // diary off;
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
381 // endfunction
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
382 //
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
383 // will do the right thing.
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
384
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
385 octave_stdout.flush_current_contents_to_diary ();
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
386
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
387 if (external_diary_file.is_open ())
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
388 {
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
389 octave_diary.flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
390 external_diary_file.close ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
391 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
392 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
393
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
394 static void
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
395 open_diary_file (void)
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
396 {
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
397 close_diary_file ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
398
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
399 // If there is pending output in the pager buf, it should not go
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
400 // into the diary file.
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
401
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
402 octave_stdout.set_diary_skip ();
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
403
3544
71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe]
jwe
parents: 3536
diff changeset
404 external_diary_file.open (diary_file.c_str (), std::ios::app);
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
405
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
406 if (! external_diary_file)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
407 error ("diary: can't open diary file `%s'", diary_file.c_str ());
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
408 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
409
1957
0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe]
jwe
parents: 1884
diff changeset
410 DEFUN_TEXT (diary, args, ,
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
411 "-*- texinfo -*-\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
412 @deffn {Command} diary options\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
413 Create a list of all commands @emph{and} the output they produce, mixed\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
414 together just as you see them on your terminal. Valid options are:\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
415 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
416 @table @code\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
417 @item on\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
418 Start recording your session in a file called @file{diary} in your\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
419 current working directory.\n\
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
420 \n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
421 @item off\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
422 Stop recording your session in the diary file.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
423 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
424 @item @var{file}\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
425 Record your session in the file named @var{file}.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
426 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
427 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
428 Without any arguments, @code{diary} toggles the current diary state.\n\
3333
15cddaacbc2d [project @ 1999-11-03 19:53:59 by jwe]
jwe
parents: 3332
diff changeset
429 @end deffn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
430 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
431 octave_value_list retval;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
432
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
433 int argc = args.length () + 1;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
434
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
435 string_vector argv = args.make_argv ("diary");
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
436
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
437 if (error_state)
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
438 return retval;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
439
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
440 if (diary_file.empty ())
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
441 diary_file = "diary";
1306
f92615001614 [project @ 1995-05-15 19:54:29 by jwe]
jwe
parents: 1192
diff changeset
442
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
443 switch (argc)
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
444 {
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
445 case 1:
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
446 write_to_diary_file = ! write_to_diary_file;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
447 open_diary_file ();
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
448 break;
623
7caf80625d0e [project @ 1994-08-17 02:04:04 by jwe]
jwe
parents: 581
diff changeset
449
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
450 case 2:
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
451 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
452 std::string arg = argv[1];
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
453
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
454 if (arg == "on")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
455 {
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
456 write_to_diary_file = true;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
457 open_diary_file ();
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
458 }
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
459 else if (arg == "off")
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
460 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
461 close_diary_file ();
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
462 write_to_diary_file = false;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
463 }
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
464 else
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
465 {
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
466 diary_file = arg;
3176
fccab8e7d35f [project @ 1998-05-18 20:33:31 by jwe]
jwe
parents: 3018
diff changeset
467 write_to_diary_file = true;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
468 open_diary_file ();
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
469 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
470 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
471 break;
777
a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe]
jwe
parents: 623
diff changeset
472
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
473 default:
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
474 print_usage ("diary");
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
475 break;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
476 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
477
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
478 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
479 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
480
1957
0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe]
jwe
parents: 1884
diff changeset
481 DEFUN_TEXT (more, args, ,
3372
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
482 "-*- texinfo -*-\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
483 @deffn {Command} more\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
484 @deffnx {Command} more on\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
485 @deffnx {Command} more off\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
486 Turn output pagination on or off. Without an argument, @code{more}\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
487 toggles the current state.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
488 @end deffn")
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
489 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
490 octave_value_list retval;
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
491
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
492 int argc = args.length () + 1;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
493
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
494 string_vector argv = args.make_argv ("more");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
495
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
496 if (error_state)
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
497 return retval;
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
498
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
499 if (argc == 2)
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
500 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
501 std::string arg = argv[1];
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
502
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
503 if (arg == "on")
2448
00998e1442ae [project @ 1996-10-30 22:27:18 by jwe]
jwe
parents: 2368
diff changeset
504 bind_builtin_variable ("page_screen_output", 1.0);
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
505 else if (arg == "off")
2448
00998e1442ae [project @ 1996-10-30 22:27:18 by jwe]
jwe
parents: 2368
diff changeset
506 bind_builtin_variable ("page_screen_output", 0.0);
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
507 else
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
508 error ("more: unrecognized argument `%s'", arg.c_str ());
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
509 }
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
510 else
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
511 print_usage ("more");
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
512
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
513 return retval;
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
514 }
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
515
3536
e8fbc8c3d6d9 [project @ 2000-02-02 12:01:00 by jwe]
jwe
parents: 3531
diff changeset
516 static std::string
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
517 default_pager (void)
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
518 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
519 std::string pager_binary = octave_env::getenv ("PAGER");
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
520
3584
aa31644d9779 [project @ 2000-02-07 09:24:38 by jwe]
jwe
parents: 3566
diff changeset
521 #ifdef OCTAVE_DEFAULT_PAGER
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
522 if (pager_binary.empty ())
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
523 {
3584
aa31644d9779 [project @ 2000-02-07 09:24:38 by jwe]
jwe
parents: 3566
diff changeset
524 pager_binary = std::string (OCTAVE_DEFAULT_PAGER);
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
525
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
526 if (pager_binary == "less")
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
527 {
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
528 pager_binary.append (" -e");
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
529
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
530 std::string lessflags = octave_env::getenv ("LESS");
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
531 if (lessflags.empty ())
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
532 pager_binary.append
2099
dcf899227c24 [project @ 1996-04-28 10:59:56 by jwe]
jwe
parents: 2098
diff changeset
533 (" -P'-- less ?pB(%pB\\%):--. (f)orward, (b)ack, (q)uit$'");
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
534 }
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
535 }
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
536 #endif
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
537
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
538 return pager_binary;
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
539 }
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
540
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
541 static int
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
542 pager_binary (void)
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
543 {
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
544 int status = 0;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
545
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
546 std::string s = builtin_string_variable ("PAGER");
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
547
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
548 if (s.empty ())
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
549 {
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
550 gripe_invalid_value_specified ("PAGER");
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
551 status = -1;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
552 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
553 else
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
554 Vpager_binary = s;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
555
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
556 return status;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
557 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
558
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
559 static int
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
560 page_output_immediately (void)
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
561 {
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
562 Vpage_output_immediately = check_preference ("page_output_immediately");
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
563
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
564 return 0;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
565 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
566
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
567 static int
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
568 page_screen_output (void)
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
569 {
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
570 Vpage_screen_output = check_preference ("page_screen_output");
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
571
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
572 return 0;
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
573 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
574
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
575 void
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
576 symbols_of_pager (void)
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
577 {
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3233
diff changeset
578 DEFVAR (PAGER, default_pager (), pager_binary,
3372
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
579 "-*- texinfo -*-\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
580 @defvr {Built-in Variable} PAGER\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
581 The default value is normally @code{\"less\"}, @code{\"more\"}, or\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
582 @code{\"pg\"}, depending on what programs are installed on your system.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
583 @xref{Installation}.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
584 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
585 When running interactively, Octave sends any output intended for your\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
586 terminal that is more than one screen long to the program named by the\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
587 value of the variable @code{PAGER}.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
588 @end defvr");
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
589
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3233
diff changeset
590 DEFVAR (page_output_immediately, 0.0, page_output_immediately,
3372
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
591 "-*- texinfo -*-\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
592 @defvr {Built-in Variable} page_output_immediately\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
593 If the value of @code{page_output_immediately} is nonzero, Octave sends\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
594 output to the pager as soon as it is available. Otherwise, Octave\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
595 buffers its output and waits until just before the prompt is printed to\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
596 flush it to the pager. The default value is 0.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
597 @end defvr");
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
598
3258
4964d5391acc [project @ 1999-07-21 21:51:33 by jwe]
jwe
parents: 3233
diff changeset
599 DEFVAR (page_screen_output, 1.0, page_screen_output,
3372
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
600 "-*- texinfo -*-\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
601 @defvr {Built-in Variable} page_screen_output\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
602 If the value of @code{page_screen_output} is nonzero, all output\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
603 intended for the screen that is longer than one page is sent through a\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
604 pager. This allows you to view one screenful at a time. Some pagers\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
605 (such as @code{less}---see @ref{Installation}) are also capable of moving\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
606 backward on the output. The default value is 1.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
607 @end defvr");
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
608 }
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
609
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
610 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
611 ;;; Local Variables: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
612 ;;; mode: C++ ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
613 ;;; End: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
614 */