octave-nkf: libinterp/corefcn/oct-hist.cc annotate

annotate libinterp/corefcn/oct-hist.cc @ 20612:7374a3a6d594

use new string_value method to handle value extraction errors * urlwrite.cc: Use new string_value method.

author	John W. Eaton <jwe@octave.org>
date	Thu, 08 Oct 2015 17:26:40 -0400
parents	a9574e3c6e9e
children	ba2b07c13913

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: 17787 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: 6653 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: 6653 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: 6653 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: 6653 diff changeset	19 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	20
2939 f2feebf0eb7d [project @ 1997-05-06 16:36:34 by jwe] jwe parents: 2936 diff changeset	21 */
f2feebf0eb7d [project @ 1997-05-06 16:36:34 by jwe] jwe parents: 2936 diff changeset	22
f2feebf0eb7d [project @ 1997-05-06 16:36:34 by jwe] jwe parents: 2936 diff changeset	23 /*
f2feebf0eb7d [project @ 1997-05-06 16:36:34 by jwe] jwe parents: 2936 diff changeset	24
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25 The functions listed below were adapted from similar functions from
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	26 GNU Bash, the Bourne Again SHell, copyright (C) 1987, 1989, 1991 Free
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	27 Software Foundation, Inc.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	28
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	29 do_history edit_history_readline
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	30 do_edit_history edit_history_add_hist
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	31
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	32 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	33
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 217 diff changeset	34 #ifdef HAVE_CONFIG_H
1192 b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe] jwe parents: 1009 diff changeset	35 #include <config.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	36 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	37
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1321 diff changeset	38 #include <cstdlib>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1321 diff changeset	39 #include <cstring>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1321 diff changeset	40
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	41 #include <string>
fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	42
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3499 diff changeset	43 #include <fstream>
1350 5f63d83dd694 [project @ 1995-09-05 07:37:59 by jwe] jwe parents: 1346 diff changeset	44
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	45 #include <sys/types.h>
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	46 #include <unistd.h>
1350 5f63d83dd694 [project @ 1995-09-05 07:37:59 by jwe] jwe parents: 1346 diff changeset	47
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	48 #include "cmd-hist.h"
1802 8173b1fa052d [project @ 1996-01-29 06:10:18 by jwe] jwe parents: 1799 diff changeset	49 #include "file-ops.h"
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	50 #include "lo-mappers.h"
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	51 #include "octave-link.h"
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	52 #include "oct-env.h"
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	53 #include "oct-time.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	54 #include "str-vec.h"
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	55
2492 06595bc7f2d0 [project @ 1996-11-09 00:13:50 by jwe] jwe parents: 2442 diff changeset	56 #include <defaults.h>
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	57 #include "defun.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	58 #include "error.h"
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	59 #include "gripes.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	60 #include "input.h"
1742 a02f140ed897 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: 1690 diff changeset	61 #include "oct-hist.h"
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	62 #include "oct-obj.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	63 #include "pager.h"
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	64 #include "parse.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	65 #include "sighandlers.h"
1690 a38bd8df9d33 [project @ 1996-01-05 21:36:24 by jwe] jwe parents: 1670 diff changeset	66 #include "sysdep.h"
1750 fd0d12493223 [project @ 1996-01-13 09:31:07 by jwe] jwe parents: 1742 diff changeset	67 #include "toplev.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	68 #include "unwind-prot.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	69 #include "utils.h"
2205 bd389b53befa [project @ 1996-05-15 06:15:45 by jwe] jwe parents: 2095 diff changeset	70 #include "variables.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	71
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	72 // TRUE means input is coming from temporary history file.
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	73 bool input_from_tmp_history_file = false;
168 a500c60e8f23 [project @ 1993-10-19 05:24:44 by jwe] jwe parents: 64 diff changeset	74
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	75 static std::string
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	76 default_history_file (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	77 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	78 std::string file;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	79
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	80 std::string env_file = octave_env::getenv ("OCTAVE_HISTFILE");
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	81
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	82 if (! env_file.empty ())
6141 f6c2d9276572 [project @ 2006-11-06 17:52:51 by jwe] jwe parents: 5872 diff changeset	83 file = env_file;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	84
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	85 if (file.empty ())
7272 05ee52d7fad6 [project @ 2007-12-10 07:06:00 by jwe] jwe parents: 7257 diff changeset	86 file = file_ops::concat (octave_env::get_home_directory (),
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	87 ".octave_hist");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	88
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	89 return file;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	90 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	91
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	92 static int
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	93 default_history_size (void)
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	94 {
16025 a78c1e445cfc Change default history size to 1000. Rik <rik@octave.org> parents: 16022 diff changeset	95 int size = 1000;
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	96
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	97 std::string env_size = octave_env::getenv ("OCTAVE_HISTSIZE");
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	98
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	99 if (! env_size.empty ())
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	100 {
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	101 int val;
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	102
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	103 if (sscanf (env_size.c_str (), "%d", &val) == 1)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	104 size = val > 0 ? val : 0;
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	105 }
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	106
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	107 return size;
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	108 }
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	109
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	110 static std::string
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	111 default_history_timestamp_format (void)
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	112 {
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	113 return
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	114 std::string ("# Octave " OCTAVE_VERSION ", %a %b %d %H:%M:%S %Y %Z <")
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	115 + octave_env::get_user_name ()
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	116 + std::string ("@")
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	117 + octave_env::get_host_name ()
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	118 + std::string (">");
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	119 }
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	120
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	121 // The format of the timestamp marker written to the history file when
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	122 // Octave exits.
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	123 static std::string Vhistory_timestamp_format_string
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	124 = default_history_timestamp_format ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	125
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	126 // Display, save, or load history. Stolen and modified from bash.
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	127 //
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	128 // Arg of -w FILENAME means write file, arg of -r FILENAME
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	129 // means read file, arg of -q means don't number lines. Arg of N
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	130 // means only display that many items.
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	131
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	132 static string_vector
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	133 do_history (const octave_value_list& args, int nargout)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	134 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	135 bool numbered_output = nargout == 0;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	136
12990 07dc4839c05f properly save and restore command history file name in history command (bug #32524) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	137 unwind_protect frame;
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	138
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	139 string_vector hlist;
12990 07dc4839c05f properly save and restore command history file name in history command (bug #32524) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	140
07dc4839c05f properly save and restore command history file name in history command (bug #32524) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	141 frame.add_fcn (command_history::set_file, command_history::file ());
07dc4839c05f properly save and restore command history file name in history command (bug #32524) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	142
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	143 int nargin = args.length ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	144
16242 2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	145 // Number of history lines to show (-1 = all)
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	146 int limit = -1;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	147
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	148 for (octave_idx_type i = 0; i < nargin; i++)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	149 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	150 octave_value arg = args(i);
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	151
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	152 std::string option;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	153
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	154 if (arg.is_string ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	155 option = arg.string_value ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	156 else if (arg.is_numeric_type ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	157 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	158 limit = arg.int_value ();
16242 2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	159 if (limit < 0)
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	160 limit = -limit;
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	161 continue;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	162 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	163 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	164 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	165 gripe_wrong_type_arg ("history", arg);
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	166 return hlist;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	167 }
2435 3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	168
3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	169 if (option == "-r" \|\| option == "-w" \|\| option == "-a"
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	170 \|\| option == "-n")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	171 {
16685 5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	172 if (i < nargin - 1)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	173 {
16685 5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	174 if (args(i+1).is_string ())
5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	175 command_history::set_file (args(++i).string_value ());
5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	176 else
16687 f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	177 {
f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	178 error ("history: expecting file name for %s option",
f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	179 option.c_str ());
f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	180 return hlist;
f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	181 }
16685 5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	182 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	183 else
16687 f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	184 command_history::set_file (default_history_file ());
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	185
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	186 if (option == "-a")
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	187 // Append 'new' lines to file.
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	188 command_history::append ();
2435 3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	189
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	190 else if (option == "-w")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	191 // Write entire history.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	192 command_history::write ();
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	193
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	194 else if (option == "-r")
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	195 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	196 // Read entire file.
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	197 command_history::read ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	198 octave_link::set_history (command_history::list ());
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	199 }
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	200
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	201 else if (option == "-n")
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	202 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	203 // Read 'new' history from file.
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	204 command_history::read_range ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	205 octave_link::set_history (command_history::list ());
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	206 }
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	207
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	208 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	209 panic_impossible ();
2435 3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	210
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	211 return hlist;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	212 }
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	213 else if (option == "-c")
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	214 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	215 command_history::clear ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	216 octave_link::clear_history ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	217 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	218 else if (option == "-q")
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	219 numbered_output = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	220 else if (option == "--")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	221 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	222 i++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	223 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	224 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	225 else
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	226 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	227 // The last argument found in the command list that looks like
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	228 // an integer will be used
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	229 int tmp;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	230
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	231 if (sscanf (option.c_str (), "%d", &tmp) == 1)
16242 2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	232 {
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	233 if (tmp > 0)
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	234 limit = tmp;
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	235 else
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	236 limit = -tmp;
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	237 }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	238
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	239 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	240 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	241 if (option.length () > 0 && option[0] == '-')
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	242 error ("history: unrecognized option '%s'", option.c_str ());
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	243 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	244 error ("history: bad non-numeric arg '%s'", option.c_str ());
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	245
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	246 return hlist;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	247 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	248 }
15817 dbb7896f15c7 Fix argument passing to history() command Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15814 diff changeset	249 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	250
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	251 hlist = command_history::list (limit, numbered_output);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	252
20267 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20207 diff changeset	253 int len = hlist.numel ();
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	254
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	255 if (nargout == 0)
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	256 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	257 for (octave_idx_type i = 0; i < len; i++)
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	258 octave_stdout << hlist[i] << "\n";
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	259 }
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	260
1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	261 return hlist;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	262 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	263
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	264 // Read the edited history lines from STREAM and return them
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	265 // one at a time. This can read unlimited length lines. The
2434 ced642d8ba6a [project @ 1996-10-27 04:42:08 by jwe] jwe parents: 2205 diff changeset	266 // caller should free the storage.
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	267
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	268 static char *
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	269 edit_history_readline (std::fstream& stream)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	270 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	271 char c;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	272 int line_len = 128;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	273 int lindex = 0;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	274 char *line = new char [line_len];
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	275 line[0] = '\0';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	276
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	277 while (stream.get (c))
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	278 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	279 if (lindex + 2 >= line_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	280 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	281 char *tmp_line = new char [line_len += 128];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	282 strcpy (tmp_line, line);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	283 delete [] line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	284 line = tmp_line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	285 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	286
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	287 if (c == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	288 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	289 line[lindex++] = '\n';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	290 line[lindex++] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	291 return line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	292 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	293 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	294 line[lindex++] = c;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	295 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	296
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	297 if (! lindex)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	298 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	299 delete [] line;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	300 return 0;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	301 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	302
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	303 if (lindex + 2 >= line_len)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	304 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	305 char *tmp_line = new char [lindex+3];
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	306 strcpy (tmp_line, line);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	307 delete [] line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	308 line = tmp_line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	309 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	310
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	311 // Finish with newline if none in file.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	312
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	313 line[lindex++] = '\n';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	314 line[lindex++] = '\0';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	315 return line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	316 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	317
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	318 static void
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	319 edit_history_add_hist (const std::string& line)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	320 {
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	321 if (! line.empty ())
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	322 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	323 std::string tmp = line;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	324
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	325 int len = tmp.length ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	326
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	327 if (len > 0 && tmp[len-1] == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	328 tmp.resize (len - 1);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	329
1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	330 if (! tmp.empty ())
17219 33ce8c381f2c make history widget respect history_control settings (bug #39728) Torsten <ttl@justmail.de> parents: 17215 diff changeset	331 if (command_history::add (tmp))
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	332 octave_link::append_history (tmp);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	333 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	334 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	335
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	336 static bool
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	337 get_int_arg (const octave_value& arg, int& val)
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	338 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	339 bool ok = true;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	340
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	341 if (arg.is_string ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	342 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	343 std::string tmp = arg.string_value ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	344
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	345 ok = sscanf (tmp.c_str (), "%d", &val) == 1;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	346 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	347 else if (arg.is_numeric_type ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	348 val = arg.int_value ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	349 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	350 ok = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	351
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	352 return ok;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	353 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	354
3536 e8fbc8c3d6d9 [project @ 2000-02-02 12:01:00 by jwe] jwe parents: 3534 diff changeset	355 static std::string
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	356 mk_tmp_hist_file (const octave_value_list& args,
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	357 bool insert_curr, const char *warn_for)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	358 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	359 std::string retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	360
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	361 string_vector hlist = command_history::list ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	362
20267 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20207 diff changeset	363 int hist_count = hlist.numel () - 1; // switch to zero-based indexing
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	364
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	365 // The current command line is already part of the history list by
16051 3a06aa956d96 Fix off-by-1 error in history list when running 'edit_history'. Rik <rik@octave.org> parents: 16025 diff changeset	366 // the time we get to this point. Delete the cmd from the list when
3a06aa956d96 Fix off-by-1 error in history list when running 'edit_history'. Rik <rik@octave.org> parents: 16025 diff changeset	367 // executing 'edit_history' so that it doesn't show up in the history
3a06aa956d96 Fix off-by-1 error in history list when running 'edit_history'. Rik <rik@octave.org> parents: 16025 diff changeset	368 // but the actual commands performed will.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	369
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	370 if (! insert_curr)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	371 command_history::remove (hist_count);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	372
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	373 hist_count--; // skip last entry in history list
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	374
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	375 // If no numbers have been specified, the default is to edit the
dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	376 // last command in the history list.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	377
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	378 int hist_beg = hist_count;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	379 int hist_end = hist_count;
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	380
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	381 bool reverse = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	382
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	383 // Process options.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	384
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	385 int nargin = args.length ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	386
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	387 bool usage_error = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	388 if (nargin == 2)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	389 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	390 if (get_int_arg (args(0), hist_beg)
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	391 && get_int_arg (args(1), hist_end))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	392 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	393 if (hist_beg < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	394 hist_beg += (hist_count + 1);
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	395 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	396 hist_beg--;
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	397 if (hist_end < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	398 hist_end += (hist_count + 1);
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	399 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	400 hist_end--;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	401 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	402 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	403 usage_error = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	404 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	405 else if (nargin == 1)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	406 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	407 if (get_int_arg (args(0), hist_beg))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	408 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	409 if (hist_beg < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	410 hist_beg += (hist_count + 1);
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	411 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	412 hist_beg--;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	413 hist_end = hist_beg;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	414 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	415 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	416 usage_error = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	417 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	418
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	419 if (usage_error)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	420 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	421 usage ("%s [first] [last]", warn_for);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	422 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	423 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	424
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	425 if (hist_beg > hist_count \|\| hist_end > hist_count)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	426 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	427 error ("%s: history specification out of range", warn_for);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	428 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	429 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	430
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	431 if (hist_end < hist_beg)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	432 {
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	433 std::swap (hist_end, hist_beg);
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	434 reverse = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	435 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	436
10197 4d433bd2d4dc attempt to avoid trouble with gnulib #defines in a consistent way John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	437 std::string name = octave_tempnam ("", "oct-");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	438
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	439 std::fstream file (name.c_str (), std::ios::out);
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	440
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	441 if (! file)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	442 {
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	443 error ("%s: couldn't open temporary file '%s'", warn_for,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	444 name.c_str ());
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	445 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	446 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	447
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	448 if (reverse)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	449 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	450 for (int i = hist_end; i >= hist_beg; i--)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	451 file << hlist[i] << "\n";
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	452 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	453 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	454 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	455 for (int i = hist_beg; i <= hist_end; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	456 file << hlist[i] << "\n";
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	457 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	458
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	459 file.close ();
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	460
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	461 return name;
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	462 }
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	463
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	464 static void
479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	465 unlink_cleanup (const char *file)
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	466 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	467 gnulib::unlink (file);
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	468 }
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	469
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	470 static void
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	471 do_edit_history (const octave_value_list& args)
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	472 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	473 std::string name = mk_tmp_hist_file (args, false, "edit_history");
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	474
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	475 if (name.empty ())
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	476 return;
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	477
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	478 // Call up our favorite editor on the file of commands.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	479
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	480 std::string cmd = VEDITOR;
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	481 cmd.append (" \"" + name + "\"");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	482
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	483 // Ignore interrupts while we are off editing commands. Should we
dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	484 // maybe avoid using system()?
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	485
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2554 diff changeset	486 volatile octave_interrupt_handler old_interrupt_handler
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2492 diff changeset	487 = octave_ignore_interrupts ();
1443 cd6c9be7337c [project @ 1995-09-19 21:54:56 by jwe] jwe parents: 1363 diff changeset	488
15990 696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	489 int status = system (cmd.c_str ());
1443 cd6c9be7337c [project @ 1995-09-19 21:54:56 by jwe] jwe parents: 1363 diff changeset	490
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2492 diff changeset	491 octave_set_interrupt_handler (old_interrupt_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	492
15990 696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	493 // Check if text edition was successfull. Abort the operation
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	494 // in case of failure.
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	495 if (status != EXIT_SUCCESS)
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	496 {
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	497 error ("edit_history: text editor command failed");
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	498 return;
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	499 }
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	500
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	501 // Write the commands to the history file since source_file
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	502 // disables command line history while it executes.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	503
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	504 std::fstream file (name.c_str (), std::ios::in);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	505
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	506 char *line;
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	507 //int first = 1;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	508 while ((line = edit_history_readline (file)) != 0)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	509 {
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	510 // Skip blank lines.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	511
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	512 if (line[0] == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	513 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	514 delete [] line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	515 continue;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	516 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	517
16051 3a06aa956d96 Fix off-by-1 error in history list when running 'edit_history'. Rik <rik@octave.org> parents: 16025 diff changeset	518 edit_history_add_hist (line);
16016 9194bb707d63 Plug memory leak in edit_history. Rik <rik@octave.org> parents: 15990 diff changeset	519
9194bb707d63 Plug memory leak in edit_history. Rik <rik@octave.org> parents: 15990 diff changeset	520 delete [] line;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	521 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	522
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	523 file.close ();
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	524
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	525 // Turn on command echo, so the output from this will make better
dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	526 // sense.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	527
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	528 unwind_protect frame;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	529
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	530 frame.add_fcn (unlink_cleanup, name.c_str ());
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	531 frame.protect_var (Vecho_executing_commands);
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	532 frame.protect_var (input_from_tmp_history_file);
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	533
2205 bd389b53befa [project @ 1996-05-15 06:15:45 by jwe] jwe parents: 2095 diff changeset	534 Vecho_executing_commands = ECHO_CMD_LINE;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	535 input_from_tmp_history_file = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	536
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	537 source_file (name);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	538 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	539
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	540 static void
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	541 do_run_history (const octave_value_list& args)
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	542 {
16243 428da5debfe4 maint: Remove commented out lines from history fix in changeset 2a81ce01c383. Rik <rik@octave.org> parents: 16242 diff changeset	543 std::string name = mk_tmp_hist_file (args, false, "run_history");
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	544
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	545 if (name.empty ())
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	546 return;
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	547
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	548 // Turn on command echo so the output from this will make better sense.
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	549
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	550 unwind_protect frame;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	551
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	552 frame.add_fcn (unlink_cleanup, name.c_str ());
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	553 frame.protect_var (Vecho_executing_commands);
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	554 frame.protect_var (input_from_tmp_history_file);
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	555
2205 bd389b53befa [project @ 1996-05-15 06:15:45 by jwe] jwe parents: 2095 diff changeset	556 Vecho_executing_commands = ECHO_CMD_LINE;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	557 input_from_tmp_history_file = true;
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	558
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	559 source_file (name);
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	560 }
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	561
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	562 void
8273 2c1ba965b486 skip reading history file with --no-history option John W. Eaton <jwe@octave.org> parents: 7715 diff changeset	563 initialize_history (bool read_history_file)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	564 {
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	565 command_history::initialize (read_history_file,
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	566 default_history_file (),
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	567 default_history_size (),
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	568 octave_env::getenv ("OCTAVE_HISTCONTROL"));
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	569
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	570 octave_link::set_history (command_history::list ());
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	571 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	572
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	573 void
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	574 octave_history_write_timestamp (void)
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	575 {
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	576 octave_localtime now;
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	577
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	578 std::string timestamp = now.strftime (Vhistory_timestamp_format_string);
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	579
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	580 if (! timestamp.empty ())
17219 33ce8c381f2c make history widget respect history_control settings (bug #39728) Torsten <ttl@justmail.de> parents: 17215 diff changeset	581 if (command_history::add (timestamp))
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	582 octave_link::append_history (timestamp);
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	583 }
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	584
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8286 diff changeset	585 DEFUN (edit_history, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	586 "-- texinfo --\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	587 @deftypefn {Command} {} edit_history\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	588 @deftypefnx {Command} {} edit_history @var{cmd_number}\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	589 @deftypefnx {Command} {} edit_history @var{first} @var{last}\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	590 Edit the history list using the editor named by the variable @env{EDITOR}.\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	591 \n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	592 The commands to be edited are first copied to a temporary file. When you\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	593 exit the editor, Octave executes the commands that remain in the file. It\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	594 is often more convenient to use @code{edit_history} to define functions\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	595 rather than attempting to enter them directly on the command line.\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	596 The block of commands is executed as soon as you exit the editor.\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	597 To avoid executing any commands, simply delete all the lines from the buffer\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	598 before leaving the editor.\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	599 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	600 When invoked with no arguments, edit the previously executed command;\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	601 With one argument, edit the specified command @var{cmd_number};\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	602 With two arguments, edit the list of commands between @var{first} and\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	603 @var{last}. Command number specifiers may also be negative where -1\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	604 refers to the most recently executed command.\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	605 The following are equivalent and edit the most recently executed command.\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	606 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	607 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	608 @group\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	609 edit_history\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	610 edit_history -1\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	611 @end group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	612 @end example\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	613 \n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	614 When using ranges, specifying a larger number for the first command than the\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	615 last command reverses the list of commands before they are placed in the\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	616 buffer to be edited.\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	617 @seealso{run_history, history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	618 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	619 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	620 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	621
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	622 do_edit_history (args);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	623
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	624 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	625 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	626
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	627 DEFUN (history, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	628 "-- texinfo --\n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	629 @deftypefn {Command} {} history\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	630 @deftypefnx {Command} {} history @var{opt1} @dots{}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	631 @deftypefnx {Built-in Function} {@var{h} =} history ()\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	632 @deftypefnx {Built-in Function} {@var{h} =} history (@var{opt1}, @dots{})\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	633 If invoked with no arguments, @code{history} displays a list of commands\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	634 that you have executed.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	635 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	636 Valid options are:\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	637 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	638 @table @code\n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	639 @item @var{n}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	640 @itemx -@var{n}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	641 Display only the most recent @var{n} lines of history.\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	642 \n\
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	643 @item -c\n\
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	644 Clear the history list.\n\
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	645 \n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	646 @item -q\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	647 Don't number the displayed lines of history. This is useful for cutting\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	648 and pasting commands using the X Window System.\n\
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	649 \n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	650 @item -r @var{file}\n\
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11586 diff changeset	651 Read the file @var{file}, appending its contents to the current\n\
11405 51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11368 diff changeset	652 history list. If the name is omitted, use the default history file\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	653 (normally @file{~/.octave_hist}).\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	654 \n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	655 @item -w @var{file}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	656 Write the current history to the file @var{file}. If the name is\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	657 omitted, use the default history file (normally @file{~/.octave_hist}).\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	658 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	659 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	660 For example, to display the five most recent commands that you have\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	661 typed without displaying line numbers, use the command\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	662 @kbd{history -q 5}.\n\
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	663 \n\
1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	664 If invoked with a single output argument, the history will be saved to that\n\
1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	665 argument as a cell string and will not be output to screen.\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	666 @seealso{edit_history, run_history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	667 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	668 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	669 octave_value retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	670
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	671 string_vector hlist = do_history (args, nargout);
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	672
15814 1eee8d8c59fd Return history as a cell string when called with an output argument (bug #37947) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15467 diff changeset	673 if (nargout > 0)
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	674 retval = Cell (hlist);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	675
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	676 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	677 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	678
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8286 diff changeset	679 DEFUN (run_history, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	680 "-- texinfo --\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	681 @deftypefn {Command} {} run_history\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	682 @deftypefnx {Command} {} run_history @var{cmd_number}\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	683 @deftypefnx {Command} {} run_history @var{first} @var{last}\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	684 Run commands from the history list.\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	685 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	686 When invoked with no arguments, run the previously executed command;\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	687 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	688 With one argument, run the specified command @var{cmd_number};\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	689 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	690 With two arguments, run the list of commands between @var{first} and\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	691 @var{last}. Command number specifiers may also be negative where -1\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	692 refers to the most recently executed command. For example, the command\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	693 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	694 @example\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	695 @group\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	696 run_history\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	697 OR\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	698 run_history -1\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	699 @end group\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	700 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	701 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	702 @noindent\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	703 executes the most recent command again.\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	704 The command\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	705 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	706 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	707 run_history 13 169\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	708 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	709 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	710 @noindent\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	711 executes commands 13 through 169.\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	712 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	713 Specifying a larger number for the first command than the last command\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	714 reverses the list of commands before executing them.\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	715 For example:\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	716 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	717 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	718 @group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	719 disp (1)\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	720 disp (2)\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	721 run_history -1 -2\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	722 @result{}\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	723 2\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	724 1\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	725 @end group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	726 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	727 \n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	728 @seealso{edit_history, history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	729 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	730 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	731 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	732
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	733 do_run_history (args);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	734
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	735 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	736 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	737
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	738 DEFUN (history_control, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	739 "-- texinfo --\n\
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	740 @deftypefn {Built-in Function} {@var{val} =} history_control ()\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	741 @deftypefnx {Built-in Function} {@var{old_val} =} history_control (@var{new_val})\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	742 Query or set the internal variable that specifies how commands are saved\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	743 to the history list.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	744 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	745 The default value is an empty character string, but may be overridden by the\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	746 environment variable @w{@env{OCTAVE_HISTCONTROL}}.\n\
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	747 \n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	748 The value of @code{history_control} is a colon-separated list of values\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11547 diff changeset	749 controlling how commands are saved on the history list. If the list\n\
7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11547 diff changeset	750 of values includes @code{ignorespace}, lines which begin with a space\n\
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	751 character are not saved in the history list. A value of @code{ignoredups}\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	752 causes lines matching the previous history entry to not be saved.\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	753 A value of @code{ignoreboth} is shorthand for @code{ignorespace} and\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	754 @code{ignoredups}. A value of @code{erasedups} causes all previous lines\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	755 matching the current line to be removed from the history list before that\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	756 line is saved. Any value not in the above list is ignored. If\n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	757 @code{history_control} is the empty string, all commands are saved on\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	758 the history list, subject to the value of @code{history_save}.\n\
9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	759 @seealso{history_file, history_size, history_timestamp_format_string, history_save}\n\
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	760 @end deftypefn")
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	761 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	762 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	763
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	764 std::string old_history_control = command_history::histcontrol ();
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	765
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	766 std::string tmp = old_history_control;
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	767
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	768 retval = set_internal_variable (tmp, args, nargout, "history_control");
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	769
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	770 if (tmp != old_history_control)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	771 command_history::process_histcontrol (tmp);
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	772
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	773 return retval;
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	774 }
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	775
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	776 DEFUN (history_size, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	777 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	778 @deftypefn {Built-in Function} {@var{val} =} history_size ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	779 @deftypefnx {Built-in Function} {@var{old_val} =} history_size (@var{new_val})\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	780 Query or set the internal variable that specifies how many entries\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	781 to store in the history file.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	782 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	783 The default value is @code{1000}, but may be overridden by the environment\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	784 variable @w{@env{OCTAVE_HISTSIZE}}.\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	785 @seealso{history_file, history_timestamp_format_string, history_save}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	786 @end deftypefn")
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	787 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	788 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	789
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	790 int old_history_size = command_history::size ();
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	791
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	792 int tmp = old_history_size;
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	793
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	794 retval = set_internal_variable (tmp, args, nargout,
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	795 "history_size", -1,
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	796 std::numeric_limits<int>::max ());
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	797
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	798 if (tmp != old_history_size)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	799 command_history::set_size (tmp);
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	801 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	802 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	803
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	804 DEFUN (history_file, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	805 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	806 @deftypefn {Built-in Function} {@var{val} =} history_file ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	807 @deftypefnx {Built-in Function} {@var{old_val} =} history_file (@var{new_val})\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	808 Query or set the internal variable that specifies the name of the\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	809 file used to store command history.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	810 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	811 The default value is @file{~/.octave_hist}, but may be overridden by the\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	812 environment variable @w{@env{OCTAVE_HISTFILE}}.\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	813 @seealso{history_size, history_save, history_timestamp_format_string}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	814 @end deftypefn")
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	815 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	816 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	817
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	818 std::string old_history_file = command_history::file ();
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	819
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	820 std::string tmp = old_history_file;
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	821
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	822 retval = set_internal_variable (tmp, args, nargout, "history_file");
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	823
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	824 if (tmp != old_history_file)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	825 command_history::set_file (tmp);
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	826
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	827 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	828 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	829
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	830 DEFUN (history_timestamp_format_string, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	831 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	832 @deftypefn {Built-in Function} {@var{val} =} history_timestamp_format_string ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	833 @deftypefnx {Built-in Function} {@var{old_val} =} history_timestamp_format_string (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12990 diff changeset	834 @deftypefnx {Built-in Function} {} history_timestamp_format_string (@var{new_val}, \"local\")\n\
6653 673686daec87 [project @ 2007-05-22 15:36:09 by jwe] jwe parents: 6615 diff changeset	835 Query or set the internal variable that specifies the format string\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	836 for the comment line that is written to the history file when Octave\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	837 exits.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	838 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	839 The format string is passed to @code{strftime}. The default value is\n\
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	840 \n\
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	841 @example\n\
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	842 \"# Octave VERSION, %a %b %d %H:%M:%S %Y %Z <USER@@HOST>\"\n\
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	843 @end example\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12990 diff changeset	844 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	845 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: 19731 diff changeset	846 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: 17219 diff changeset	847 The original variable value is restored when exiting the function.\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	848 @seealso{strftime, history_file, history_size, history_save}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	849 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	850 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	851 return SET_INTERNAL_VARIABLE (history_timestamp_format_string);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	852 }
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	853
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	854 DEFUN (history_save, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	855 "-- texinfo --\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	856 @deftypefn {Built-in Function} {@var{val} =} history_save ()\n\
9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	857 @deftypefnx {Built-in Function} {@var{old_val} =} history_save (@var{new_val})\n\
9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	858 @deftypefnx {Built-in Function} {} history_save (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	859 Query or set the internal variable that controls whether commands entered\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	860 on the command line are saved in the history file.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12990 diff changeset	861 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	862 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: 19731 diff changeset	863 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: 17219 diff changeset	864 The original variable value is restored when exiting the function.\n\
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	865 @seealso{history_control, history_file, history_size, history_timestamp_format_string}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	866 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	867 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	868 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	869
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	870 bool old_history_save = ! command_history::ignoring_entries ();
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	871
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	872 bool tmp = old_history_save;
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	873
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	874 retval = set_internal_variable (tmp, args, nargout, "history_save");
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	875
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	876 if (tmp != old_history_save)
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	877 command_history::ignore_entries (! tmp);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	878
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	879 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	880 }

Mercurial > octave-nkf

annotate libinterp/corefcn/oct-hist.cc @ 20612:7374a3a6d594