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

annotate libinterp/corefcn/oct-hist.cc @ 20617:ba2b07c13913

use new string_value method to handle value extraction errors * __dispatch__.cc, balance.cc, colloc.cc, conv2.cc, data.cc, debug.cc, graphics.cc, input.cc, matrix_type.cc, oct-hist.cc, schur.cc, spparms.cc, symtab.cc, sysdep.cc, toplev.cc, utils.cc: Use new string_value method.

author	John W. Eaton <jwe@octave.org>
date	Fri, 09 Oct 2015 10:06:39 -0400
parents	a9574e3c6e9e
children

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 {
20617 ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20267 diff changeset	174 std::string fname
ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20267 diff changeset	175 = args(++i).string_value ("history: expecting file name for %s option",
ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20267 diff changeset	176 option.c_str ());
ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20267 diff changeset	177
ba2b07c13913 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20267 diff changeset	178 command_history::set_file (fname);
16685 5c5c46a81ad5 Added default name usage for history -r,-w option (Bug #38986) John Donoghue <john.donoghue@ieee.org> parents: 16431 diff changeset	179 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	180 else
16687 f4d18d3f7fd7 * oct-hist.cc: Style fixes. Remove unused code. John W. Eaton <jwe@octave.org> parents: 16685 diff changeset	181 command_history::set_file (default_history_file ());
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	182
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	183 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	184 // Append 'new' lines to file.
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	185 command_history::append ();
2435 3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	186
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	187 else if (option == "-w")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	188 // Write entire history.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	189 command_history::write ();
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	190
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	191 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	192 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	193 // Read entire file.
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	194 command_history::read ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	195 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	196 }
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	197
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	198 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	199 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	200 // 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	201 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	202 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	203 }
777 a2f9d3fd720c [project @ 1994-10-07 14:01:53 by jwe] jwe parents: 641 diff changeset	204
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	205 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	206 panic_impossible ();
2435 3be97fe02051 [project @ 1996-10-27 21:31:29 by jwe] jwe parents: 2434 diff changeset	207
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	208 return hlist;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	209 }
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	210 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	211 {
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	212 command_history::clear ();
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	213 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	214 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	215 else if (option == "-q")
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	216 numbered_output = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	217 else if (option == "--")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	218 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	219 i++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	220 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	221 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	222 else
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	223 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	224 // 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	225 // an integer will be used
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	226 int tmp;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	227
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	228 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	229 {
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	230 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	231 limit = tmp;
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	232 else
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	233 limit = -tmp;
2a81ce01c383 Fix history() so that it shows all commands when called with no arguments. Rik <rik@octave.org> parents: 16196 diff changeset	234 }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	235
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	236 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	237 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	238 if (option.length () > 0 && option[0] == '-')
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	239 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	240 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	241 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	242
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	243 return hlist;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	244 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	245 }
15817 dbb7896f15c7 Fix argument passing to history() command Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15814 diff changeset	246 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	247
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	248 hlist = command_history::list (limit, numbered_output);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	249
20267 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20207 diff changeset	250 int len = hlist.numel ();
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	251
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	252 if (nargout == 0)
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	253 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	254 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	255 octave_stdout << hlist[i] << "\n";
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	256 }
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	257
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	258 return hlist;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	259 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	260
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	261 // 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	262 // 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	263 // caller should free the storage.
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	264
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	265 static char *
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	266 edit_history_readline (std::fstream& stream)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	267 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	268 char c;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	269 int line_len = 128;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	270 int lindex = 0;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	271 char *line = new char [line_len];
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	272 line[0] = '\0';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	273
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	274 while (stream.get (c))
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	275 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	276 if (lindex + 2 >= line_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	277 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	278 char *tmp_line = new char [line_len += 128];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	279 strcpy (tmp_line, line);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	280 delete [] line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	281 line = tmp_line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	282 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	283
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	284 if (c == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	285 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	286 line[lindex++] = '\n';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	287 line[lindex++] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	288 return line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	289 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	290 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	291 line[lindex++] = c;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	292 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	293
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	294 if (! lindex)
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 delete [] line;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	297 return 0;
1 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
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	300 if (lindex + 2 >= line_len)
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 char *tmp_line = new char [lindex+3];
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	303 strcpy (tmp_line, line);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	304 delete [] line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	305 line = tmp_line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	306 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	307
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	308 // Finish with newline if none in file.
1 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 line[lindex++] = '\n';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	311 line[lindex++] = '\0';
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	312 return line;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	313 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	314
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	315 static void
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	316 edit_history_add_hist (const std::string& line)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	317 {
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	318 if (! line.empty ())
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	319 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	320 std::string tmp = line;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	321
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	322 int len = tmp.length ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	323
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	324 if (len > 0 && tmp[len-1] == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	325 tmp.resize (len - 1);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	326
1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	327 if (! tmp.empty ())
17219 33ce8c381f2c make history widget respect history_control settings (bug #39728) Torsten <ttl@justmail.de> parents: 17215 diff changeset	328 if (command_history::add (tmp))
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	329 octave_link::append_history (tmp);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	330 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	331 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	332
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	333 static bool
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	334 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	335 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	336 bool ok = true;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	337
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	338 if (arg.is_string ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	339 {
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	340 std::string tmp = arg.string_value ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	341
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	342 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	343 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	344 else if (arg.is_numeric_type ())
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	345 val = arg.int_value ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	346 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	347 ok = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	348
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	349 return ok;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	350 }
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	351
3536 e8fbc8c3d6d9 [project @ 2000-02-02 12:01:00 by jwe] jwe parents: 3534 diff changeset	352 static std::string
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	353 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	354 bool insert_curr, const char *warn_for)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	355 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3503 diff changeset	356 std::string retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	357
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	358 string_vector hlist = command_history::list ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	359
20267 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20207 diff changeset	360 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	361
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	362 // 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	363 // 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	364 // 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	365 // but the actual commands performed will.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	366
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	367 if (! insert_curr)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2897 diff changeset	368 command_history::remove (hist_count);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	369
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	370 hist_count--; // skip last entry in history list
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	371
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	372 // 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	373 // last command in the history list.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	374
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	375 int hist_beg = hist_count;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	376 int hist_end = hist_count;
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	377
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	378 bool reverse = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	379
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	380 // Process options.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	381
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	382 int nargin = args.length ();
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	383
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	384 bool usage_error = false;
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	385 if (nargin == 2)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	386 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	387 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	388 && get_int_arg (args(1), hist_end))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	389 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	390 if (hist_beg < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	391 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	392 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	393 hist_beg--;
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	394 if (hist_end < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	395 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	396 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	397 hist_end--;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	398 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	399 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	400 usage_error = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	401 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	402 else if (nargin == 1)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	403 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	404 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	405 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	406 if (hist_beg < 0)
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	407 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	408 else
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	409 hist_beg--;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	410 hist_end = hist_beg;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	411 }
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	412 else
bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	413 usage_error = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	414 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	415
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	416 if (usage_error)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	417 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	418 usage ("%s [first] [last]", warn_for);
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	419 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	420 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	421
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	422 if (hist_beg > hist_count \|\| hist_end > hist_count)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	423 {
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	424 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	425 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	426 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	427
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	428 if (hist_end < hist_beg)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	429 {
16022 d8f216d241cf Fix off-by-1 error in run_history when called with no arguments. Rik <rik@octave.org> parents: 16016 diff changeset	430 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	431 reverse = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	432 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	433
10197 4d433bd2d4dc attempt to avoid trouble with gnulib #defines in a consistent way John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	434 std::string name = octave_tempnam ("", "oct-");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	435
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	436 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	437
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	438 if (! file)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	439 {
15466 d174210ce1ec use ' instead of ` in error messages, warnings and most comments John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	440 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	441 name.c_str ());
1799 1881b2a7d1e2 [project @ 1996-01-29 05:10:48 by jwe] jwe parents: 1766 diff changeset	442 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	443 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	444
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	445 if (reverse)
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 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	448 file << hlist[i] << "\n";
1 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 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	451 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	452 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	453 file << hlist[i] << "\n";
1 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
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	456 file.close ();
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	457
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	458 return name;
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	459 }
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	460
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	461 static void
479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	462 unlink_cleanup (const char *file)
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	463 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	464 gnulib::unlink (file);
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	465 }
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	466
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	467 static void
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	468 do_edit_history (const octave_value_list& args)
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	469 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	470 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	471
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	472 if (name.empty ())
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	473 return;
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	474
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	475 // 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	476
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	477 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	478 cmd.append (" \"" + name + "\"");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	479
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	480 // 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	481 // maybe avoid using system()?
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	482
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2554 diff changeset	483 volatile octave_interrupt_handler old_interrupt_handler
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2492 diff changeset	484 = octave_ignore_interrupts ();
1443 cd6c9be7337c [project @ 1995-09-19 21:54:56 by jwe] jwe parents: 1363 diff changeset	485
15990 696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	486 int status = system (cmd.c_str ());
1443 cd6c9be7337c [project @ 1995-09-19 21:54:56 by jwe] jwe parents: 1363 diff changeset	487
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2492 diff changeset	488 octave_set_interrupt_handler (old_interrupt_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	489
15990 696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	490 // 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	491 // 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	492 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	493 {
696e82182eba Check if history edition was successful, abort operation on failure. Júlio Hoffimann <julio.hoffimann@gmail.com> parents: 15823 diff changeset	494 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	495 return;
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
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	498 // 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	499 // disables command line history while it executes.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	500
3551 4833e231e05b [project @ 2000-02-03 02:30:44 by jwe] jwe parents: 3544 diff changeset	501 std::fstream file (name.c_str (), std::ios::in);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	502
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	503 char *line;
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	504 //int first = 1;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	505 while ((line = edit_history_readline (file)) != 0)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	506 {
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	507 // Skip blank lines.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	508
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	509 if (line[0] == '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	510 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	511 delete [] line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	512 continue;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10197 diff changeset	513 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	514
16051 3a06aa956d96 Fix off-by-1 error in history list when running 'edit_history'. Rik <rik@octave.org> parents: 16025 diff changeset	515 edit_history_add_hist (line);
16016 9194bb707d63 Plug memory leak in edit_history. Rik <rik@octave.org> parents: 15990 diff changeset	516
9194bb707d63 Plug memory leak in edit_history. Rik <rik@octave.org> parents: 15990 diff changeset	517 delete [] line;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	518 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	519
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	520 file.close ();
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	521
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	522 // 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	523 // sense.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	524
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	525 unwind_protect frame;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	526
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	527 frame.add_fcn (unlink_cleanup, name.c_str ());
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	528 frame.protect_var (Vecho_executing_commands);
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	529 frame.protect_var (input_from_tmp_history_file);
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	530
2205 bd389b53befa [project @ 1996-05-15 06:15:45 by jwe] jwe parents: 2095 diff changeset	531 Vecho_executing_commands = ECHO_CMD_LINE;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	532 input_from_tmp_history_file = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	533
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	534 source_file (name);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	535 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	536
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	537 static void
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	538 do_run_history (const octave_value_list& args)
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	539 {
16243 428da5debfe4 maint: Remove commented out lines from history fix in changeset 2a81ce01c383. Rik <rik@octave.org> parents: 16242 diff changeset	540 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	541
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	542 if (name.empty ())
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	543 return;
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	544
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	545 // 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	546
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	547 unwind_protect frame;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	548
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	549 frame.add_fcn (unlink_cleanup, name.c_str ());
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	550 frame.protect_var (Vecho_executing_commands);
2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9377 diff changeset	551 frame.protect_var (input_from_tmp_history_file);
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	552
2205 bd389b53befa [project @ 1996-05-15 06:15:45 by jwe] jwe parents: 2095 diff changeset	553 Vecho_executing_commands = ECHO_CMD_LINE;
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 3016 diff changeset	554 input_from_tmp_history_file = true;
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	555
7715 5b4d278ec828 parse scripts completely before executing John W. Eaton <jwe@octave.org> parents: 7272 diff changeset	556 source_file (name);
64 bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	557 }
bd04d91a7a4a [project @ 1993-08-15 05:08:48 by jwe] jwe parents: 1 diff changeset	558
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	559 void
8273 2c1ba965b486 skip reading history file with --no-history option John W. Eaton <jwe@octave.org> parents: 7715 diff changeset	560 initialize_history (bool read_history_file)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	561 {
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	562 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	563 default_history_file (),
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	564 default_history_size (),
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	565 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	566
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	567 octave_link::set_history (command_history::list ());
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	568 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	569
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	570 void
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	571 octave_history_write_timestamp (void)
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	572 {
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	573 octave_localtime now;
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	574
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	575 std::string timestamp = now.strftime (Vhistory_timestamp_format_string);
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	576
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	577 if (! timestamp.empty ())
17219 33ce8c381f2c make history widget respect history_control settings (bug #39728) Torsten <ttl@justmail.de> parents: 17215 diff changeset	578 if (command_history::add (timestamp))
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	579 octave_link::append_history (timestamp);
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	580 }
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	581
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8286 diff changeset	582 DEFUN (edit_history, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	583 "-- texinfo --\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	584 @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	585 @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	586 @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	587 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	588 \n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	589 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	590 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	591 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	592 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	593 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	594 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	595 before leaving the editor.\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	596 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	597 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	598 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	599 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	600 @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	601 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	602 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	603 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	604 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	605 @group\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	606 edit_history\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	607 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	608 @end group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	609 @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	610 \n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	611 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	612 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	613 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	614 @seealso{run_history, history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	615 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	616 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	617 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	618
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	619 do_edit_history (args);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	620
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	621 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	622 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	623
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	624 DEFUN (history, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	625 "-- texinfo --\n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	626 @deftypefn {Command} {} history\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	627 @deftypefnx {Command} {} history @var{opt1} @dots{}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	628 @deftypefnx {Built-in Function} {@var{h} =} history ()\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	629 @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	630 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	631 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	632 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	633 Valid options are:\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	634 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	635 @table @code\n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	636 @item @var{n}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	637 @itemx -@var{n}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	638 Display only the most recent @var{n} lines of history.\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	639 \n\
16431 5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	640 @item -c\n\
5982d469f79b use signal for setting, appending to, and clearing history widget John W. Eaton <jwe@octave.org> parents: 16243 diff changeset	641 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	642 \n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	643 @item -q\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	644 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	645 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	646 \n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	647 @item -r @var{file}\n\
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11586 diff changeset	648 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	649 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	650 (normally @file{~/.octave_hist}).\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	651 \n\
16052 a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	652 @item -w @var{file}\n\
a59cb5c06d79 doc: Update history() docstring. Rik <rik@octave.org> parents: 16051 diff changeset	653 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	654 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	655 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	656 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	657 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	658 typed without displaying line numbers, use the command\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	659 @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	660 \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	661 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	662 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	663 @seealso{edit_history, run_history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	664 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	665 {
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	666 octave_value retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	667
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	668 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	669
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	670 if (nargout > 0)
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	671 retval = Cell (hlist);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	672
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	673 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	674 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	675
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8286 diff changeset	676 DEFUN (run_history, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	677 "-- texinfo --\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	678 @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	679 @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	680 @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	681 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	682 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	683 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	684 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	685 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	686 \n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	687 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	688 @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	689 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	690 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	691 @example\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	692 @group\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	693 run_history\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	694 OR\n\
2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	695 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	696 @end group\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	697 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	698 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	699 @noindent\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	700 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	701 The command\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	702 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	703 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	704 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	705 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	706 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	707 @noindent\n\
16189 2825897a0c27 doc: Fix docstrings for edit_history, run_history to match true behavior. Rik <rik@octave.org> parents: 16188 diff changeset	708 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	709 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	710 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	711 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	712 For example:\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	713 \n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	714 @example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	715 @group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	716 disp (1)\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	717 disp (2)\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	718 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	719 @result{}\n\
16188 8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	720 2\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	721 1\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	722 @end group\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	723 @end example\n\
8366bc871d45 Allow negative numbers to be used in specifying edit_history commands. Rik <rik@octave.org> parents: 16052 diff changeset	724 \n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	725 @seealso{edit_history, history}\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	726 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	727 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	728 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	729
15823 bc7a130bbdfb allow history commands to take numeric arguments John W. Eaton <jwe@octave.org> parents: 15817 diff changeset	730 do_run_history (args);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	731
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	732 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	733 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 296 diff changeset	734
11486 a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	735 DEFUN (history_control, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	736 "-- 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	737 @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	738 @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	739 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	740 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	741 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	742 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	743 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	744 \n\
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	745 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	746 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	747 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	748 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	749 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	750 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	751 @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	752 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	753 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	754 @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	755 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	756 @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	757 @end deftypefn")
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	758 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	759 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	760
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	761 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	762
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	763 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	764
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	765 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	766
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	767 if (tmp != old_history_control)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	768 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	769
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	770 return retval;
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	771 }
a1deab9a6e71 bash-like history control Pascal Dupuis <Pascal.Dupuis@worldonline.be> and John W. Eaton <jwe@octave.org> parents: 11405 diff changeset	772
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	773 DEFUN (history_size, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	774 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	775 @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	776 @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	777 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	778 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	779 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	780 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	781 variable @w{@env{OCTAVE_HISTSIZE}}.\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	782 @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	783 @end deftypefn")
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	784 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	785 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	786
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	787 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	788
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	789 int tmp = old_history_size;
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	790
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	791 retval = set_internal_variable (tmp, args, nargout,
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	792 "history_size", -1,
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	793 std::numeric_limits<int>::max ());
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	794
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	795 if (tmp != old_history_size)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	796 command_history::set_size (tmp);
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	797
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	798 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	799 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	800
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	801 DEFUN (history_file, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	802 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	803 @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	804 @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	805 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	806 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	807 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	808 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	809 environment variable @w{@env{OCTAVE_HISTFILE}}.\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	810 @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	811 @end deftypefn")
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	812 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	813 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	814
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	815 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	816
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	817 std::string tmp = old_history_file;
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	818
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	819 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	820
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	821 if (tmp != old_history_file)
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	822 command_history::set_file (tmp);
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	823
5800 e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe] jwe parents: 5794 diff changeset	824 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	825 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	826
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	827 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	828 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	829 @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	830 @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	831 @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	832 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	833 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	834 exits.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	835 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	836 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	837 \n\
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	838 @example\n\
539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	839 \"# 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	840 @end example\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12990 diff changeset	841 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	842 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	843 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	844 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	845 @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	846 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	847 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	848 return SET_INTERNAL_VARIABLE (history_timestamp_format_string);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	849 }
5305 539428e4606a [project @ 2005-04-26 02:59:08 by jwe] jwe parents: 4469 diff changeset	850
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	851 DEFUN (history_save, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	852 "-- texinfo --\n\
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	853 @deftypefn {Built-in Function} {@var{val} =} history_save ()\n\
9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	854 @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	855 @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	856 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	857 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	858 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	859 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	860 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	861 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	862 @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	863 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	864 {
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	865 octave_value retval;
91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	866
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	867 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	868
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	869 bool tmp = old_history_save;
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	870
17345 91691d74845d oct-hist.cc: Wrap code lines > 80 characters. Rik <rik@octave.org> parents: 17281 diff changeset	871 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	872
16876 9e0618443c2b Rename saving_history() to history_save(). Rik <rik@octave.org> parents: 16687 diff changeset	873 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	874 command_history::ignore_entries (! tmp);
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	875
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	876 return retval;
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 2985 diff changeset	877 }

Mercurial > octave-nkf

annotate libinterp/corefcn/oct-hist.cc @ 20617:ba2b07c13913