Mercurial > octave-nkf

annotate libinterp/corefcn/pager.cc @ 20587:f90c8372b7ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate many more simple uses of error_state * Cell.cc, __ichol__.cc, __ilu__.cc, balance.cc, bsxfun.cc, colloc.cc, det.cc, dlmread.cc, dynamic-ld.cc, eig.cc, fft.cc, fft2.cc, fftn.cc, gcd.cc, getgrent.cc, getpwent.cc, givens.cc, hess.cc, input.cc, levenshtein.cc, load-path.cc, lookup.cc, ls-mat-ascii.cc, ls-mat4.cc, lsode.cc, lu.cc, max.cc, md5sum.cc, mex.cc, pager.cc, pinv.cc, pr-output.cc, qz.cc, schur.cc, sparse.cc, sqrtm.cc, str2double.cc, strfns.cc, sub2ind.cc, sysdep.cc, time.cc, toplev.cc, tril.cc, tsearch.cc, typecast.cc, __init_gnuplot__.cc, __magick_read__.cc, __osmesa_print__.cc, amd.cc, audiodevinfo.cc, dmperm.cc, fftw.cc, symrcm.cc, ov-base-diag.cc, ov-base-sparse.cc, ov-base.cc, ov-bool-sparse.cc, ov-builtin.cc, ov-complex.cc, ov-cx-diag.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-float.cc, ov-flt-complex.cc, ov-flt-cx-diag.cc, ov-flt-cx-mat.cc, ov-flt-re-diag.cc, ov-flt-re-mat.cc, ov-lazy-idx.cc, ov-mex-fcn.cc, ov-perm.cc, ov-range.cc, ov-re-diag.cc, ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc, op-bm-b.cc, op-bm-bm.cc, op-sbm-b.cc, op-sbm-bm.cc, op-str-m.cc, op-str-s.cc, oct-parse.in.yy, pt-cbinop.cc, pt-colon.cc, pt-decl.cc, pt-exp.cc, pt-id.cc, pt-misc.cc, pt-select.cc, pt-unop.cc: Eliminate simple uses of error_state.
author John W. Eaton <jwe@octave.org>
date Mon, 05 Oct 2015 19:29:36 -0400
parents 7ac907da9fba
children
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
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 18854
diff changeset
3 Copyright (C) 1993-2015 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
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6144
diff changeset
9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6144
diff changeset
10 option) any later version.
1
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
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6144
diff changeset
18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6144
diff changeset
19 <http://www.gnu.org/licenses/>.
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>
8950
d865363208d6 include <iosfwd> instead of <iostream> in header files
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
28 #include <iostream>
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
29 #include <string>
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
30
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
31 #include "cmd-edit.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
32 #include "oct-env.h"
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
33 #include "singleton-cleanup.h"
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
34
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
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"
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
42 #include "procstream.h"
990
d2dd114ba5dd [project @ 1994-12-15 05:58:17 by jwe]
jwe
parents: 988
diff changeset
43 #include "sighandlers.h"
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
44 #include "unwind-prot.h"
2201
e5db2ea7f7c8 [project @ 1996-05-15 05:37:55 by jwe]
jwe
parents: 2200
diff changeset
45 #include "utils.h"
2368
bf6a96fd9b7e [project @ 1996-10-11 23:44:38 by jwe]
jwe
parents: 2210
diff changeset
46 #include "variables.h"
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
47
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
48 // Our actual connection to the external pager.
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
49 static oprocstream *external_pager = 0;
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
50
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
51 // TRUE means we write to the diary file.
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
52 static bool write_to_diary_file = false;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
53
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
54 // The name of the current diary file.
18798
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
55 static std::string diary_file ("diary");
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
56
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
57 // The diary file.
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
58 static std::ofstream external_diary_file;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
59
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
60 static std::string
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
61 default_pager (void)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
62 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
63 std::string pager_binary = octave_env::getenv ("PAGER");
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
64
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
65 #ifdef OCTAVE_DEFAULT_PAGER
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
66 if (pager_binary.empty ())
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
67 pager_binary = OCTAVE_DEFAULT_PAGER;
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
68 #endif
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
69
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
70 return pager_binary;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
71 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
72
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
73 // The shell command to run as the pager.
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
74 static std::string VPAGER = default_pager ();
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
75
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
76 // The options to pass to the pager.
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
77 static std::string VPAGER_FLAGS;
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
78
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
79 // 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
80 // 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
81 // pager when it is time to print another prompt.
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
82 static bool Vpage_output_immediately = false;
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
83
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
84 // 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
85 // through the pager.
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
86 static bool Vpage_screen_output = true;
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
87
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
88 static bool really_flush_to_pager = false;
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
89
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
90 static bool flushing_output_to_pager = false;
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
91
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
92 static void
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
93 clear_external_pager (void)
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
94 {
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
95 if (external_pager)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
96 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
97 octave_child_list::remove (external_pager->pid ());
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
98
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
99 delete external_pager;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
100 external_pager = 0;
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
101 }
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
102 }
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
103
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
104 static bool
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
105 pager_event_handler (pid_t pid, int status)
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
106 {
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
107 bool retval = false;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
108
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
109 if (pid > 0)
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
110 {
15221
a83b7b2f95ee avoid C-style cast warnings from GCC for wait-related macros
John W. Eaton <jwe@octave.org>
parents: 15195
diff changeset
111 if (octave_wait::ifexited (status) || octave_wait::ifsignaled (status))
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
112 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
113 // Avoid warning() since that will put us back in the pager,
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
114 // which would be bad news.
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
115
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
116 std::cerr << "warning: connection to external pager lost (pid = "
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
117 << pid << ")" << std::endl;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
118 std::cerr << "warning: flushing pending output (please wait)"
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
119 << std::endl;
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
120
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
121 // Request removal of this PID from the list of child
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
122 // processes.
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
123
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
124 retval = true;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
125 }
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
126 }
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
127
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
128 return retval;
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
129 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
130
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
131 static std::string
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
132 pager_command (void)
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
133 {
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
134 std::string cmd = VPAGER;
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
135
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
136 if (! (cmd.empty () || VPAGER_FLAGS.empty ()))
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
137 cmd += " " + VPAGER_FLAGS;
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
138
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
139 return cmd;
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
140 }
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
141
2209
859030f15706 [project @ 1996-05-15 11:46:43 by jwe]
jwe
parents: 2206
diff changeset
142 static void
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
143 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
144 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
145 if (msg && len > 0)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
146 {
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
147 if (bypass_pager)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
148 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
149 std::cout.write (msg, len);
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
150 std::cout.flush ();
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
151 }
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
152 else
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
153 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
154 if (! external_pager)
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
155 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
156 std::string pgr = pager_command ();
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
157
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
158 if (! pgr.empty ())
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
159 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
160 external_pager = new oprocstream (pgr.c_str ());
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
161
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
162 if (external_pager)
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
163 octave_child_list::insert (external_pager->pid (),
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
164 pager_event_handler);
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
165 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
166 }
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
167
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
168 if (external_pager)
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
169 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
170 if (external_pager->good ())
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
171 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
172 external_pager->write (msg, len);
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
173
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
174 external_pager->flush ();
2197
680ce730f0c6 [project @ 1996-05-15 00:03:19 by jwe]
jwe
parents: 2186
diff changeset
175
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
176 #if defined (EPIPE)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
177 if (errno == EPIPE)
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
178 external_pager->setstate (std::ios::failbit);
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
179 #endif
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
180 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
181 else
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
182 {
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
183 // FIXME: omething is not right with the
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
184 // pager. If it died then we should receive a
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
185 // signal for that. If there is some other problem,
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
186 // then what?
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
187 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
188 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
189 else
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
190 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
191 std::cout.write (msg, len);
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
192 std::cout.flush ();
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
193 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
194 }
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
195 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
196 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
197
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
198 // Assume our terminal wraps long lines.
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
199
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
200 static bool
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
201 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
202 {
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
203 if (s)
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
204 {
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2847
diff changeset
205 int available_rows = command_editor::terminal_rows () - 2;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
206
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
207 int cols = command_editor::terminal_cols ();
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
208
2103
30e2b1c4ffd9 [project @ 1996-04-28 12:19:45 by jwe]
jwe
parents: 2102
diff changeset
209 int count = 0;
30e2b1c4ffd9 [project @ 1996-04-28 12:19:45 by jwe]
jwe
parents: 2102
diff changeset
210
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
211 int chars_this_line = 0;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
212
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
213 for (int i = 0; i < len; i++)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
214 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
215 if (*s++ == '\n')
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
216 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
217 count += chars_this_line / cols + 1;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
218 chars_this_line = 0;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
219 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
220 else
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
221 chars_this_line++;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
222 }
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
223
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
224 if (count > available_rows)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
225 return true;
2101
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
226 }
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
227
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
228 return false;
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
229 }
c64b49a4cba3 [project @ 1996-04-28 11:59:25 by jwe]
jwe
parents: 2100
diff changeset
230
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
231 int
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
232 octave_pager_buf::sync (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
233 {
19883
1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables.
Carnë Draug <carandraug@octave.org>
parents: 19731
diff changeset
234 if (! interactive || forced_interactive
2186
0207f7f74be6 [project @ 1996-05-14 02:59:03 by jwe]
jwe
parents: 2185
diff changeset
235 || really_flush_to_pager
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
236 || (Vpage_screen_output && Vpage_output_immediately)
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
237 || ! Vpage_screen_output)
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
238 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
239 char *buf = eback ();
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
240
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
241 int len = pptr () - buf;
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
242
19883
1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables.
Carnë Draug <carandraug@octave.org>
parents: 19731
diff changeset
243 bool bypass_pager = (! interactive || forced_interactive
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
244 || ! Vpage_screen_output
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
245 || (really_flush_to_pager
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
246 && Vpage_screen_output
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
247 && ! Vpage_output_immediately
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
248 && ! more_than_a_screenful (buf, len)));
2475
1d7925d6bede [project @ 1996-11-07 04:36:00 by jwe]
jwe
parents: 2448
diff changeset
249
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
250 if (len > 0)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
251 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
252 do_sync (buf, len, bypass_pager);
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
253
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
254 flush_current_contents_to_diary ();
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
255
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
256 seekoff (0, std::ios::beg);
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
257 }
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
258 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
259
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
260 return 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
261 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
262
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
263 void
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
264 octave_pager_buf::flush_current_contents_to_diary (void)
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
265 {
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
266 char *buf = eback () + diary_skip;
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
267
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
268 size_t len = pptr () - buf;
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
269
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
270 octave_diary.write (buf, len);
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
271
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
272 diary_skip = 0;
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
273 }
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
274
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
275 void
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
276 octave_pager_buf::set_diary_skip (void)
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
277 {
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
278 diary_skip = pptr () - eback ();
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
279 }
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
280
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
281 int
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
282 octave_diary_buf::sync (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
283 {
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
284 if (write_to_diary_file && external_diary_file)
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
285 {
3870
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
286 char *buf = eback ();
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
287
a9baa340ea51 [project @ 2002-02-22 15:42:44 by jwe]
jwe
parents: 3775
diff changeset
288 int len = pptr () - buf;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
289
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
290 if (len > 0)
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
291 external_diary_file.write (buf, len);
3233
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe]
jwe
parents: 3176
diff changeset
292 }
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
293
3544
71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe]
jwe
parents: 3536
diff changeset
294 seekoff (0, std::ios::beg);
2093
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 return 0;
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
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
299 octave_pager_stream *octave_pager_stream::instance = 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
300
3775
13905c3a24af [project @ 2001-02-06 01:56:59 by jwe]
jwe
parents: 3756
diff changeset
301 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
302 {
4051
b79da8779a0e [project @ 2002-08-17 19:38:32 by jwe]
jwe
parents: 3870
diff changeset
303 pb = new octave_pager_buf ();
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
304 rdbuf (pb);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
305 setf (unitbuf);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
306 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
307
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
308 octave_pager_stream::~octave_pager_stream (void)
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 flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
311 delete pb;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
312 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
313
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
314 std::ostream&
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
315 octave_pager_stream::stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
316 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
317 return instance_ok () ? *instance : std::cout;
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
318 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
319
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
320 void
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
321 octave_pager_stream::flush_current_contents_to_diary (void)
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
322 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
323 if (instance_ok ())
14044
c15ddadffbfb Fix segfault in diary class (Bug #35065)
Rik <octave@nomad.inbox5.com>
parents: 13983
diff changeset
324 instance->do_flush_current_contents_to_diary ();
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
325 }
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
326
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
327 void
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
328 octave_pager_stream::set_diary_skip (void)
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
329 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
330 if (instance_ok ())
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
331 instance->do_set_diary_skip ();
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
332 }
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
333
13266
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
334 // Reinitialize the pager buffer to avoid hanging on to large internal
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
335 // buffers when they might not be needed. This function should only be
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
336 // called when the pager is not in use. For example, just before
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
337 // getting command-line input.
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
338
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
339 void
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
340 octave_pager_stream::reset (void)
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
341 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
342 if (instance_ok ())
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
343 instance->do_reset ();
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
344 }
13266
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
345
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
346 void
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
347 octave_pager_stream::do_flush_current_contents_to_diary (void)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
348 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
349 if (pb)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
350 pb->flush_current_contents_to_diary ();
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
351 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
352
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
353 void
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
354 octave_pager_stream::do_set_diary_skip (void)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
355 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
356 if (pb)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
357 pb->set_diary_skip ();
13266
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
358 }
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
359
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
360 void
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
361 octave_pager_stream::do_reset (void)
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
362 {
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
363 delete pb;
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
364 pb = new octave_pager_buf ();
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
365 rdbuf (pb);
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
366 setf (unitbuf);
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
367 }
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
368
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
369 bool
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
370 octave_pager_stream::instance_ok (void)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
371 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
372 bool retval = true;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
373
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
374 if (! instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
375 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
376 instance = new octave_pager_stream ();
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
377
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
378 if (instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
379 singleton_cleanup_list::add (cleanup_instance);
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
380 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
381
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
382 if (! instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
383 {
20463
7ac907da9fba Use error() rather than ::error() unless explicitly required.
Rik <rik@octave.org>
parents: 20207
diff changeset
384 error ("unable to create pager_stream object!");
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
385
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
386 retval = false;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
387 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
388
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
389 return retval;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
390 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
391
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
392 octave_diary_stream *octave_diary_stream::instance = 0;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
393
3775
13905c3a24af [project @ 2001-02-06 01:56:59 by jwe]
jwe
parents: 3756
diff changeset
394 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
395 {
4051
b79da8779a0e [project @ 2002-08-17 19:38:32 by jwe]
jwe
parents: 3870
diff changeset
396 db = new octave_diary_buf ();
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
397 rdbuf (db);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
398 setf (unitbuf);
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
399 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
400
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
401 octave_diary_stream::~octave_diary_stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
402 {
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
403 flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
404 delete db;
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
405 }
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
406
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
407 std::ostream&
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
408 octave_diary_stream::stream (void)
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
409 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
410 return instance_ok () ? *instance : std::cout;
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
411 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
412
13266
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
413 // Reinitialize the diary buffer to avoid hanging on to large internal
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
414 // buffers when they might not be needed. This function should only be
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
415 // called when the pager is not in use. For example, just before
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
416 // getting command-line input.
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
417
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
418 void
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
419 octave_diary_stream::reset (void)
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
420 {
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
421 if (instance_ok ())
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
422 instance->do_reset ();
13266
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
423 }
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
424
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
425 void
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
426 octave_diary_stream::do_reset (void)
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
427 {
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
428 delete db;
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
429 db = new octave_diary_buf ();
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
430 rdbuf (db);
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
431 setf (unitbuf);
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
432 }
c053740eb2aa improve memory use for the pager and diary streams (bug #34431)
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
433
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
434 bool
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
435 octave_diary_stream::instance_ok (void)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
436 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
437 bool retval = true;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
438
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
439 if (! instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
440 {
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
441 instance = new octave_diary_stream ();
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
442
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
443 if (instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
444 singleton_cleanup_list::add (cleanup_instance);
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
445 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
446
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
447 if (! instance)
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
448 {
20463
7ac907da9fba Use error() rather than ::error() unless explicitly required.
Rik <rik@octave.org>
parents: 20207
diff changeset
449 error ("unable to create diary_stream object!");
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
450
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
451 retval = false;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
452 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
453
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
454 return retval;
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
455 }
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
456
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
457 void
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
458 flush_octave_stdout (void)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
459 {
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
460 if (! flushing_output_to_pager)
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
461 {
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9377
diff changeset
462 unwind_protect frame;
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
463
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9377
diff changeset
464 frame.protect_var (really_flush_to_pager);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9377
diff changeset
465 frame.protect_var (flushing_output_to_pager);
2100
49cdc5b183bc [project @ 1996-04-28 11:26:32 by jwe]
jwe
parents: 2099
diff changeset
466
3018
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
467 really_flush_to_pager = true;
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe]
jwe
parents: 3014
diff changeset
468 flushing_output_to_pager = true;
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
469
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
470 octave_stdout.flush ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
471
5142
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe]
jwe
parents: 4324
diff changeset
472 clear_external_pager ();
2206
9be05ffc288a [project @ 1996-05-15 07:32:58 by jwe]
jwe
parents: 2201
diff changeset
473 }
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
474 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
475
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
476 static void
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
477 close_diary_file (void)
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
478 {
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
479 // 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
480 // like
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
481 //
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
482 // function foo ()
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
483 // diary on;
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
484 // ...
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
485 // diary off;
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
486 // endfunction
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
487 //
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
488 // will do the right thing.
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
489
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
490 octave_pager_stream::flush_current_contents_to_diary ();
3477
4b79cb009dd4 [project @ 2000-01-26 00:55:22 by jwe]
jwe
parents: 3373
diff changeset
491
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
492 if (external_diary_file.is_open ())
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
493 {
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
494 octave_diary.flush ();
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
495 external_diary_file.close ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
496 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
497 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
498
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
499 static void
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
500 open_diary_file (void)
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
501 {
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
502 close_diary_file ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
503
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
504 // 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
505 // into the diary file.
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11572
diff changeset
506
13983
7dd7cccf0757 clean up memory allocated for singletons before exit
John W. Eaton <jwe@octave.org>
parents: 13951
diff changeset
507 octave_pager_stream::set_diary_skip ();
3756
41404c6f4e69 [project @ 2000-12-15 03:14:44 by jwe]
jwe
parents: 3584
diff changeset
508
3544
71bd2d124119 [project @ 2000-02-02 21:02:31 by jwe]
jwe
parents: 3536
diff changeset
509 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
510
2093
0b7c868bc4df [project @ 1996-04-28 08:58:41 by jwe]
jwe
parents: 2086
diff changeset
511 if (! external_diary_file)
15466
d174210ce1ec use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
512 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
513 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
514
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 7432
diff changeset
515 DEFUN (diary, args, ,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
516 "-*- texinfo -*-\n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
517 @deftypefn {Command} {} diary\n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
518 @deftypefnx {Command} {} diary on\n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
519 @deftypefnx {Command} {} diary off\n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
520 @deftypefnx {Command} {} diary @var{filename}\n\
9134
a3739e27b017 Update section 2.4 of basics.txi
Rik <rdrider0-list@yahoo.com>
parents: 8950
diff changeset
521 Record a list of all commands @emph{and} the output they produce, mixed\n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
522 together just as they appear on the terminal.\n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
523 \n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
524 Valid options are:\n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
525 \n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
526 @table @asis\n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
527 @item on\n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
528 Start recording a session in a file called @file{diary} in the\n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
529 current working directory.\n\
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
530 \n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
531 @item off\n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
532 Stop recording the session in the diary file.\n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
533 \n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
534 @item @var{filename}\n\
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
535 Record the session in the file named @var{filename}.\n\
3332
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
536 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe]
jwe
parents: 3258
diff changeset
537 \n\
9134
a3739e27b017 Update section 2.4 of basics.txi
Rik <rdrider0-list@yahoo.com>
parents: 8950
diff changeset
538 With no arguments, @code{diary} toggles the current diary state.\n\
17169
9ba57ed05207 doc: Rewrite docstring for diary() to show available calling options.
Rik <rik@octave.org>
parents: 16892
diff changeset
539 @seealso{history}\n\
11547
e1851653d59c Eliminate @deffn macros.
Rik <octave@nomad.inbox5.com>
parents: 11523
diff changeset
540 @end deftypefn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
541 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
542 octave_value_list retval;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
543
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
544 int argc = args.length () + 1;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
545
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
546 string_vector argv = args.make_argv ("diary");
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
547
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
548 if (diary_file.empty ())
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
549 diary_file = "diary";
1306
f92615001614 [project @ 1995-05-15 19:54:29 by jwe]
jwe
parents: 1192
diff changeset
550
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
551 switch (argc)
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
552 {
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
553 case 1:
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
554 write_to_diary_file = ! write_to_diary_file;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
555 open_diary_file ();
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
556 break;
623
7caf80625d0e [project @ 1994-08-17 02:04:04 by jwe]
jwe
parents: 581
diff changeset
557
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
558 case 2:
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
559 {
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
560 std::string arg = argv[1];
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
561
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
562 if (arg == "on")
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
563 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
564 write_to_diary_file = true;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
565 open_diary_file ();
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11572
diff changeset
566 }
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
567 else if (arg == "off")
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
568 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
569 close_diary_file ();
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
570 write_to_diary_file = false;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
571 }
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
572 else
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
573 {
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
574 diary_file = arg;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
575 write_to_diary_file = true;
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
576 open_diary_file ();
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
577 }
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
578 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
579 break;
777
a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe]
jwe
parents: 623
diff changeset
580
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
581 default:
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5794
diff changeset
582 print_usage ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
583 break;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
584 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
585
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
586 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
587 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 529
diff changeset
588
18799
692e16c9e488 build: Fix some unused parameter warnings from cset 89448a7523b2.
Rik <rik@octave.org>
parents: 18798
diff changeset
589 DEFUN (__diaryfile__, , ,
18798
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
590 "-*- texinfo -*-\n\
18854
19a140e93b1f doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents: 18799
diff changeset
591 @deftypefn {Built-in Function} {@var{fname} =} __diaryfile__ ()\n\
18798
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
592 Undocumented internal function\n\
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
593 @end deftypefn")
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
594 {
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
595 return ovl (diary_file);
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
596 }
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
597
18799
692e16c9e488 build: Fix some unused parameter warnings from cset 89448a7523b2.
Rik <rik@octave.org>
parents: 18798
diff changeset
598 DEFUN (__diarystate__, , ,
18798
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
599 "-*- texinfo -*-\n\
18854
19a140e93b1f doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents: 18799
diff changeset
600 @deftypefn {Built-in Function} {@var{state} =} __diarystate__ ()\n\
18798
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
601 Undocumented internal function\n\
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
602 @end deftypefn")
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
603 {
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
604 return ovl (write_to_diary_file);
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
605 }
89448a7523b2 Add some more callbacks for root properties (bug #42347).
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents: 17787
diff changeset
606
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 7432
diff changeset
607 DEFUN (more, args, ,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
608 "-*- texinfo -*-\n\
11572
7d6d8c1e471f Grammarcheck Texinfo for files in src directory.
Rik <octave@nomad.inbox5.com>
parents: 11547
diff changeset
609 @deftypefn {Command} {} more\n\
11547
e1851653d59c Eliminate @deffn macros.
Rik <octave@nomad.inbox5.com>
parents: 11523
diff changeset
610 @deftypefnx {Command} {} more on\n\
e1851653d59c Eliminate @deffn macros.
Rik <octave@nomad.inbox5.com>
parents: 11523
diff changeset
611 @deftypefnx {Command} {} more off\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
612 Turn output pagination on or off.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
613 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
614 Without an argument, @code{more} toggles the current state.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
615 \n\
7432
3c999b2b5de8 [project @ 2008-01-30 09:11:58 by jwe]
jwe
parents: 7017
diff changeset
616 The current state can be determined via @code{page_screen_output}.\n\
14542
bf219932bf3e doc: Increase seealso references between paging functions.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
617 @seealso{page_screen_output, page_output_immediately, PAGER, PAGER_FLAGS}\n\
11547
e1851653d59c Eliminate @deffn macros.
Rik <octave@nomad.inbox5.com>
parents: 11523
diff changeset
618 @end deftypefn")
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
619 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
620 octave_value_list retval;
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
621
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
622 int argc = args.length () + 1;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
623
1965
01e3ed56c415 [project @ 1996-02-17 02:02:50 by jwe]
jwe
parents: 1957
diff changeset
624 string_vector argv = args.make_argv ("more");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
625
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
626 if (argc == 2)
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
627 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3503
diff changeset
628 std::string arg = argv[1];
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
629
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
630 if (arg == "on")
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
631 Vpage_screen_output = true;
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
632 else if (arg == "off")
10315
57a59eae83cc untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents: 10160
diff changeset
633 Vpage_screen_output = false;
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
634 else
15466
d174210ce1ec use ' instead of ` in error messages, warnings and most comments
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
635 error ("more: unrecognized argument '%s'", arg.c_str ());
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
636 }
4324
dcdca99fe2f0 [project @ 2003-02-15 03:18:43 by jwe]
jwe
parents: 4233
diff changeset
637 else if (argc == 1)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
638 Vpage_screen_output = ! Vpage_screen_output;
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
639 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5794
diff changeset
640 print_usage ();
1409
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
641
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
642 return retval;
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
643 }
e282214c41a5 [project @ 1995-09-15 06:41:08 by jwe]
jwe
parents: 1358
diff changeset
644
5673
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
645 DEFUN (terminal_size, , ,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
646 "-*- texinfo -*-\n\
5673
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
647 @deftypefn {Built-in Function} {} terminal_size ()\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
648 Return a two-element row vector containing the current size of the terminal\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
649 window in characters (rows and columns).\n\
5778
70f67d85558d [project @ 2006-04-27 01:34:08 by jwe]
jwe
parents: 5775
diff changeset
650 @seealso{list_in_columns}\n\
5673
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
651 @end deftypefn")
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
652 {
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
653 RowVector size (2, 0.0);
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
654
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
655 size(0) = command_editor::terminal_rows ();
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
656 size(1) = command_editor::terminal_cols ();
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
657
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
658 return octave_value (size);
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
659 }
0dc67016832b [project @ 2006-03-16 03:08:58 by jwe]
jwe
parents: 5307
diff changeset
660
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
661 DEFUN (page_output_immediately, args, nargout,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
662 "-*- texinfo -*-\n\
10840
89f4d7e294cc Grammarcheck .cc files
Rik <octave@nomad.inbox5.com>
parents: 10315
diff changeset
663 @deftypefn {Built-in Function} {@var{val} =} page_output_immediately ()\n\
14045
db264e617a98 Make page_output_immediately documentation consistent with other internal variables.
Rik <octave@nomad.inbox5.com>
parents: 14044
diff changeset
664 @deftypefnx {Built-in Function} {@var{old_val} =} page_output_immediately (@var{new_val})\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
665 @deftypefnx {Built-in Function} {} page_output_immediately (@var{new_val}, \"local\")\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
666 Query or set the internal variable that controls whether Octave sends\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
667 output to the pager as soon as it is available.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
668 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
669 Otherwise, Octave buffers its output and waits until just before the prompt\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
670 is printed to flush it to the pager.\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
671 \n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
672 When called from inside a function with the @qcode{\"local\"} option, the\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
673 variable is changed locally for the function and any subroutines it calls.\n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
674 The original variable value is restored when exiting the function.\n\
14542
bf219932bf3e doc: Increase seealso references between paging functions.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
675 @seealso{page_screen_output, more, PAGER, PAGER_FLAGS}\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
676 @end deftypefn")
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
677 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
678 return SET_INTERNAL_VARIABLE (page_output_immediately);
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
679 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
680
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
681 DEFUN (page_screen_output, args, nargout,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
682 "-*- texinfo -*-\n\
10840
89f4d7e294cc Grammarcheck .cc files
Rik <octave@nomad.inbox5.com>
parents: 10315
diff changeset
683 @deftypefn {Built-in Function} {@var{val} =} page_screen_output ()\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
684 @deftypefnx {Built-in Function} {@var{old_val} =} page_screen_output (@var{new_val})\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
685 @deftypefnx {Built-in Function} {} page_screen_output (@var{new_val}, \"local\")\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
686 Query or set the internal variable that controls whether output intended\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
687 for the terminal window that is longer than one page is sent through a\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
688 pager.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
689 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
690 This allows you to view one screenful at a time. Some pagers\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
691 (such as @code{less}---see @ref{Installation}) are also capable of moving\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
692 backward on the output.\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
693 \n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
694 When called from inside a function with the @qcode{\"local\"} option, the\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
695 variable is changed locally for the function and any subroutines it calls.\n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
696 The original variable value is restored when exiting the function.\n\
14542
bf219932bf3e doc: Increase seealso references between paging functions.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
697 @seealso{more, page_output_immediately, PAGER, PAGER_FLAGS}\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
698 @end deftypefn")
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
699 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
700 return SET_INTERNAL_VARIABLE (page_screen_output);
2164
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
701 }
269db7306980 [project @ 1996-05-13 13:05:24 by jwe]
jwe
parents: 2146
diff changeset
702
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
703 DEFUN (PAGER, args, nargout,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
704 "-*- texinfo -*-\n\
10840
89f4d7e294cc Grammarcheck .cc files
Rik <octave@nomad.inbox5.com>
parents: 10315
diff changeset
705 @deftypefn {Built-in Function} {@var{val} =} PAGER ()\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
706 @deftypefnx {Built-in Function} {@var{old_val} =} PAGER (@var{new_val})\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
707 @deftypefnx {Built-in Function} {} PAGER (@var{new_val}, \"local\")\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
708 Query or set the internal variable that specifies the program to use\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
709 to display terminal output on your system.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
710 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
711 The default value is normally @qcode{\"less\"}, @qcode{\"more\"}, or\n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
712 @qcode{\"pg\"}, depending on what programs are installed on your system.\n\
3372
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe]
jwe
parents: 3333
diff changeset
713 @xref{Installation}.\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
714 \n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
715 When called from inside a function with the @qcode{\"local\"} option, the\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
716 variable is changed locally for the function and any subroutines it calls.\n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
717 The original variable value is restored when exiting the function.\n\
14542
bf219932bf3e doc: Increase seealso references between paging functions.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
718 @seealso{PAGER_FLAGS, page_output_immediately, more, page_screen_output}\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
719 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
720 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5778
diff changeset
721 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (PAGER);
2097
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
722 }
19ba1a7dcfbb [project @ 1996-04-28 10:40:15 by jwe]
jwe
parents: 2093
diff changeset
723
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
724 DEFUN (PAGER_FLAGS, args, nargout,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
725 "-*- texinfo -*-\n\
10840
89f4d7e294cc Grammarcheck .cc files
Rik <octave@nomad.inbox5.com>
parents: 10315
diff changeset
726 @deftypefn {Built-in Function} {@var{val} =} PAGER_FLAGS ()\n\
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
727 @deftypefnx {Built-in Function} {@var{old_val} =} PAGER_FLAGS (@var{new_val})\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
728 @deftypefnx {Built-in Function} {} PAGER_FLAGS (@var{new_val}, \"local\")\n\
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
729 Query or set the internal variable that specifies the options to pass\n\
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
730 to the pager.\n\
13951
79aa00a94e9e doc: Document "local" option for configuration variables.
Rik <octave@nomad.inbox5.com>
parents: 13266
diff changeset
731 \n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
732 When called from inside a function with the @qcode{\"local\"} option, the\n\
20207
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 19883
diff changeset
733 variable is changed locally for the function and any subroutines it calls.\n\
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17169
diff changeset
734 The original variable value is restored when exiting the function.\n\
14542
bf219932bf3e doc: Increase seealso references between paging functions.
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
735 @seealso{PAGER, more, page_screen_output, page_output_immediately}\n\
6144
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
736 @end deftypefn")
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
737 {
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
738 return SET_NONEMPTY_INTERNAL_STRING_VARIABLE (PAGER_FLAGS);
e8868fde0fc5 [project @ 2006-11-07 20:52:18 by jwe]
jwe
parents: 5823
diff changeset
739 }