octave-dspies: libinterp/corefcn/input.cc annotate

annotate libinterp/corefcn/input.cc @ 18674:7bccc182e2f7 stable

doc: Update pause documentation and add seealso links between related functions. * input.cc (Finput): Put first sentence description on its own line. Add seealso links. * input.cc (Fyes_or_no):Put first sentence description on its own line. Add seealso links. * input.cc (Fkeyboard): Add seealso link to dbstop. * input.cc (Fkeyboard): Add seealso link to dbstop. * sysdep.cc (Fkbhit): Add seealso link to pause. * sysdep.cc (Fpause): Rewrite docstring. Add seealso links. * sysdep.cc (Fsleep): Add seealso links to usleep, pause. * sysdep.cc (Fusleep): Add seealso links to sleep, pause. * sysdep.cc (Fhave_window_system): Correct bad phrasing in docstring. * listdlg.m: Add seealso link to menu * menu.m: Add seealso link to listdlg.

author	Rik <rik@octave.org>
date	Thu, 24 Apr 2014 20:23:48 -0700
parents	708173343c50
children	1a5dabbaa559

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
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 17731 diff changeset	3 Copyright (C) 1993-2013 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: 7007 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: 7007 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: 7007 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: 7007 diff changeset	19 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	20
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	21 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	22
2939 f2feebf0eb7d [project @ 1997-05-06 16:36:34 by jwe] jwe parents: 2927 diff changeset	23 // Get command input interactively or from files.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	24
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 217 diff changeset	25 #ifdef HAVE_CONFIG_H
1192 b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe] jwe parents: 1125 diff changeset	26 #include <config.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	27 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	28
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	29 #include <cstdio>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	30 #include <cstdlib>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	31 #include <cstring>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	32 #include <cassert>
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	33
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3498 diff changeset	34 #include <iostream>
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5744 diff changeset	35 #include <sstream>
1728 42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1705 diff changeset	36 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe] jwe parents: 1705 diff changeset	37
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	38 #include <sys/types.h>
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	39 #include <unistd.h>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	40
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	41 #include "cmd-edit.h"
3189 bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	42 #include "file-ops.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4143 diff changeset	43 #include "quit.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	44 #include "str-vec.h"
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	45
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	46 #include "debug.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	47 #include "defun.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	48 #include "dirfns.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	49 #include "error.h"
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	50 #include "gripes.h"
3016 f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe] jwe parents: 3014 diff changeset	51 #include "help.h"
16381 f33dcbd6a005 move hook_function classes to separate file John W. Eaton <jwe@octave.org> parents: 16378 diff changeset	52 #include "hook-fcn.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	53 #include "input.h"
9999 653716f3d976 get_debug_input: force interactive input mode; don't get user input unless stdin is a tty John W. Eaton <jwe@octave.org> parents: 9485 diff changeset	54 #include "lex.h"
5832 5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	55 #include "load-path.h"
16416 169f71c9d9c8 use octave_link instead of hook functions in input.cc John W. Eaton <jwe@octave.org> parents: 16395 diff changeset	56 #include "octave-link.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	57 #include "oct-map.h"
1742 a02f140ed897 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: 1728 diff changeset	58 #include "oct-hist.h"
1670 6708c53892c1 [project @ 1995-12-27 04:33:00 by jwe] jwe parents: 1606 diff changeset	59 #include "toplev.h"
16528 9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	60 #include "octave-link.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	61 #include "oct-obj.h"
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	62 #include "ov-fcn-handle.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	63 #include "pager.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	64 #include "parse.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	65 #include "pathlen.h"
3772 e44ffad3d06c [project @ 2001-02-03 06:23:38 by jwe] jwe parents: 3741 diff changeset	66 #include "pt.h"
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	67 #include "pt-const.h"
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	68 #include "pt-eval.h"
3805 44386b0e53da [project @ 2001-03-01 16:54:31 by jwe] jwe parents: 3804 diff changeset	69 #include "pt-stmt.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	70 #include "sighandlers.h"
16468 0f143f68078d use signal/slot for updating workspace instead of using event listener John W. Eaton <jwe@octave.org> parents: 16438 diff changeset	71 #include "symtab.h"
1114 971f2289d6de [project @ 1995-02-15 04:58:06 by jwe] jwe parents: 1112 diff changeset	72 #include "sysdep.h"
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	73 #include "toplev.h"
3098 f4acdc9a77cc [project @ 1997-11-14 09:30:20 by jwe] jwe parents: 3081 diff changeset	74 #include "unwind-prot.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	75 #include "utils.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	76 #include "variables.h"
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	77
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	78 // Primary prompt string.
16528 9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	79 static std::string VPS1;
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	80
138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	81 // Secondary prompt string.
16528 9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	82 static std::string VPS2;
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	83
138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	84 // String printed before echoed input (enabled by --echo-input).
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	85 std::string VPS4 = "+ ";
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	86
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	87 // Echo commands as they are executed?
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	88 //
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	89 // 1 ==> echo commands read from script files
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	90 // 2 ==> echo commands from functions
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	91 // 4 ==> echo commands read from command line
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	92 //
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	93 // more than one state can be active at once.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	94 int Vecho_executing_commands = ECHO_OFF;
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	95
3165 e4bbfc196e53 [project @ 1998-04-16 03:01:47 by jwe] jwe parents: 3100 diff changeset	96 // The time we last printed a prompt.
5832 5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe] jwe parents: 5823 diff changeset	97 octave_time Vlast_prompt_time = 0.0;
3165 e4bbfc196e53 [project @ 1998-04-16 03:01:47 by jwe] jwe parents: 3100 diff changeset	98
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	99 // Character to append after successful command-line completion attempts.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	100 static char Vcompletion_append_char = ' ';
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	101
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	102 // TRUE means this is an interactive shell.
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	103 bool interactive = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	104
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	105 // TRUE means the user forced this shell to be interactive (-i).
92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	106 bool forced_interactive = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	107
3804 4073be5aefa1 [project @ 2001-02-28 08:36:04 by jwe] jwe parents: 3772 diff changeset	108 // TRUE after a call to completion_matches.
2299 f296bbc757a1 [project @ 1996-06-23 03:45:44 by jwe] jwe parents: 2287 diff changeset	109 bool octave_completion_matches_called = false;
f296bbc757a1 [project @ 1996-06-23 03:45:44 by jwe] jwe parents: 2287 diff changeset	110
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	111 // TRUE if the plotting system has requested a call to drawnow at
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	112 // the next user prompt.
7409 73036cdd855d [project @ 2008-01-22 20:31:59 by jwe] jwe parents: 7336 diff changeset	113 bool Vdrawnow_requested = false;
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	114
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	115 // TRUE if we are in debugging mode.
40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	116 bool Vdebugging = false;
40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	117
8841 c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	118 // If we are in debugging mode, this is the last command entered, so
c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	119 // that we can repeat the previous command if the user just types RET.
16336 0ce49f9fb171 "\n" is the new empty string (bug #38552) John W. Eaton <jwe@octave.org> parents: 16288 diff changeset	120 static std::string last_debugging_command = "\n";
8841 c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	121
7294 fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	122 // TRUE if we are running in the Emacs GUD mode.
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	123 static bool Vgud_mode = false;
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	124
7818 5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	125 // The filemarker used to separate filenames from subfunction names
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	126 char Vfilemarker = '>';
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	127
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	128 static hook_function_list input_event_hook_functions;
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	129
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	130 // For octave_quit.
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	131 void
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	132 remove_input_event_hook_functions (void)
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	133 {
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	134 input_event_hook_functions.clear ();
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	135 }
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	136
16209 e7ff32e7cf82 move global promptflag variable to octave_reader class John W. Eaton <jwe@octave.org> parents: 16208 diff changeset	137 void
16528 9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	138 set_default_prompts (void)
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	139 {
18037 708173343c50 use "octave" instead of "\\s" in default prompt John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	140 // Use literal "octave" instead of "\\s" to avoid setting the prompt
708173343c50 use "octave" instead of "\\s" in default prompt John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	141 // to "octave.exe" or "octave-gui", etc.
708173343c50 use "octave" instead of "\\s" in default prompt John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	142
708173343c50 use "octave" instead of "\\s" in default prompt John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	143 VPS1 = "octave:\\#> ";
16528 9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	144 VPS2 = "> ";
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	145 VPS4 = "+ ";
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	146
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	147 octave_link::set_default_prompts (VPS1, VPS2, VPS4);
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	148 }
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	149
9bc1f8278966 allow GUI to customize prompts at startup John W. Eaton <jwe@octave.org> parents: 16524 diff changeset	150 void
16209 e7ff32e7cf82 move global promptflag variable to octave_reader class John W. Eaton <jwe@octave.org> parents: 16208 diff changeset	151 octave_base_reader::do_input_echo (const std::string& input_string) const
1044 1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	152 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	153 int do_echo = reading_script_file ()
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	154 ? (Vecho_executing_commands & ECHO_SCRIPTS)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	155 : (Vecho_executing_commands & ECHO_CMD_LINE) && ! forced_interactive;
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	156
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	157 if (do_echo)
1044 1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	158 {
1403 69d15711b832 [project @ 1995-09-15 05:25:16 by jwe] jwe parents: 1363 diff changeset	159 if (forced_interactive)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	160 {
16209 e7ff32e7cf82 move global promptflag variable to octave_reader class John W. Eaton <jwe@octave.org> parents: 16208 diff changeset	161 if (pflag > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	162 octave_stdout << command_editor::decode_prompt_string (VPS1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	163 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	164 octave_stdout << command_editor::decode_prompt_string (VPS2);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	165 }
1403 69d15711b832 [project @ 1995-09-15 05:25:16 by jwe] jwe parents: 1363 diff changeset	166 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	167 octave_stdout << command_editor::decode_prompt_string (VPS4);
1044 1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	168
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	169 if (! input_string.empty ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	170 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	171 octave_stdout << input_string;
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	172
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	173 if (input_string[input_string.length () - 1] != '\n')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	174 octave_stdout << "\n";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	175 }
1044 1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	176 }
1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	177 }
1aa6f2edd975 [project @ 1995-01-18 16:35:01 by jwe] jwe parents: 1034 diff changeset	178
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	179 static std::string
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	180 gnu_readline (const std::string& s, bool& eof)
1822 3a47ca3dd227 [project @ 1996-02-01 08:06:35 by jwe] jwe parents: 1799 diff changeset	181 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10066 diff changeset	182 octave_quit ();
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5092 diff changeset	183
16097 2f4fa62089b3 improve end of file handling for lexer input John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	184 eof = false;
2f4fa62089b3 improve end of file handling for lexer input John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	185
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	186 std::string retval = command_editor::readline (s, eof);
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	187
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	188 if (! eof && retval.empty ())
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	189 retval = "\n";
1822 3a47ca3dd227 [project @ 1996-02-01 08:06:35 by jwe] jwe parents: 1799 diff changeset	190
3a47ca3dd227 [project @ 1996-02-01 08:06:35 by jwe] jwe parents: 1799 diff changeset	191 return retval;
3a47ca3dd227 [project @ 1996-02-01 08:06:35 by jwe] jwe parents: 1799 diff changeset	192 }
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	193
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	194 static inline std::string
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	195 interactive_input (const std::string& s, bool& eof)
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	196 {
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	197 Vlast_prompt_time.stamp ();
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	198
7459 d3fe4d466bc2 don't inhibit drawnow in debug mode John W. Eaton <jwe@octave.org> parents: 7409 diff changeset	199 if (Vdrawnow_requested && (interactive \|\| forced_interactive))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	200 {
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	201 feval ("drawnow");
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	202
6367 268bfc8a2755 [project @ 2007-02-28 20:16:05 by jwe] jwe parents: 6317 diff changeset	203 flush_octave_stdout ();
268bfc8a2755 [project @ 2007-02-28 20:16:05 by jwe] jwe parents: 6317 diff changeset	204
6305 48f8af442b8a [project @ 2007-02-14 22:16:53 by jwe] jwe parents: 6257 diff changeset	205 // We set Vdrawnow_requested to false even if there is an error
48f8af442b8a [project @ 2007-02-14 22:16:53 by jwe] jwe parents: 6257 diff changeset	206 // in drawnow so that the error doesn't reappear at every prompt.
48f8af442b8a [project @ 2007-02-14 22:16:53 by jwe] jwe parents: 6257 diff changeset	207
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	208 Vdrawnow_requested = false;
6305 48f8af442b8a [project @ 2007-02-14 22:16:53 by jwe] jwe parents: 6257 diff changeset	209
48f8af442b8a [project @ 2007-02-14 22:16:53 by jwe] jwe parents: 6257 diff changeset	210 if (error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	211 return "\n";
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	212 }
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	213
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	214 return gnu_readline (s, eof);
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	215 }
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	216
16195 b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	217 std::string
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	218 octave_base_reader::octave_gets (bool& eof)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	219 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10066 diff changeset	220 octave_quit ();
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5092 diff changeset	221
16097 2f4fa62089b3 improve end of file handling for lexer input John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	222 eof = false;
2f4fa62089b3 improve end of file handling for lexer input John W. Eaton <jwe@octave.org> parents: 16053 diff changeset	223
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	224 std::string retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	225
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	226 // Process pre input event hook function prior to flushing output and
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	227 // printing the prompt.
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	228
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	229 if (interactive \|\| forced_interactive)
16438 a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	230 {
a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	231 if (! Vdebugging)
a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	232 octave_link::exit_debugger_event ();
a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	233
a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	234 octave_link::pre_input_event ();
16468 0f143f68078d use signal/slot for updating workspace instead of using event listener John W. Eaton <jwe@octave.org> parents: 16438 diff changeset	235
16524 6a8e63dadfad provide octave_link::set_workspace function with default values John W. Eaton <jwe@octave.org> parents: 16502 diff changeset	236 octave_link::set_workspace ();
16438 a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	237 }
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	238
8841 c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	239 bool history_skip_auto_repeated_debugging_command = false;
c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	240
16209 e7ff32e7cf82 move global promptflag variable to octave_reader class John W. Eaton <jwe@octave.org> parents: 16208 diff changeset	241 std::string ps = (pflag > 0) ? VPS1 : VPS2;
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	242
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	243 std::string prompt = command_editor::decode_prompt_string (ps);
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	244
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	245 pipe_handler_error_count = 0;
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	246
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	247 flush_octave_stdout ();
2618 aa667ac18d12 [project @ 1997-01-23 03:16:28 by jwe] jwe parents: 2470 diff changeset	248
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	249 octave_pager_stream::reset ();
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	250 octave_diary_stream::reset ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	251
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	252 octave_diary << prompt;
13266 c053740eb2aa improve memory use for the pager and diary streams (bug #34431) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	253
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	254 retval = interactive_input (prompt, eof);
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	255
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	256 // There is no need to update the load_path cache if there is no
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	257 // user input.
16336 0ce49f9fb171 "\n" is the new empty string (bug #38552) John W. Eaton <jwe@octave.org> parents: 16288 diff changeset	258 if (retval != "\n"
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	259 && retval.find_first_not_of (" \t\n\r") != std::string::npos)
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	260 {
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	261 load_path::update ();
8841 c74389115610 auto repeat for debugging commands John W. Eaton <jwe@octave.org> parents: 8749 diff changeset	262
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	263 if (Vdebugging)
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	264 last_debugging_command = retval;
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	265 else
16336 0ce49f9fb171 "\n" is the new empty string (bug #38552) John W. Eaton <jwe@octave.org> parents: 16288 diff changeset	266 last_debugging_command = "\n";
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	267 }
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	268 else if (Vdebugging)
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	269 {
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	270 retval = last_debugging_command;
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	271 history_skip_auto_repeated_debugging_command = true;
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	272 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	273
16336 0ce49f9fb171 "\n" is the new empty string (bug #38552) John W. Eaton <jwe@octave.org> parents: 16288 diff changeset	274 if (retval != "\n")
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	275 {
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	276 if (! history_skip_auto_repeated_debugging_command)
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	277 {
17219 33ce8c381f2c make history widget respect history_control settings (bug #39728) Torsten <ttl@justmail.de> parents: 17215 diff changeset	278 if (command_history::add (retval))
17215 7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	279 octave_link::append_history (retval);
7c06875c2dcc Backed out changeset 3d1205d5771e John W. Eaton <jwe@octave.org> parents: 17214 diff changeset	280 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	281
16207 0467d68ca891 move current_input_line to lexical_feedback class John W. Eaton <jwe@octave.org> parents: 16203 diff changeset	282 octave_diary << retval;
3176 fccab8e7d35f [project @ 1998-05-18 20:33:31 by jwe] jwe parents: 3165 diff changeset	283
16207 0467d68ca891 move current_input_line to lexical_feedback class John W. Eaton <jwe@octave.org> parents: 16203 diff changeset	284 if (retval[retval.length () - 1] != '\n')
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	285 octave_diary << "\n";
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	286
16207 0467d68ca891 move current_input_line to lexical_feedback class John W. Eaton <jwe@octave.org> parents: 16203 diff changeset	287 do_input_echo (retval);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	288 }
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	289 else
3176 fccab8e7d35f [project @ 1998-05-18 20:33:31 by jwe] jwe parents: 3165 diff changeset	290 octave_diary << "\n";
9476 d9b25c5b8ee5 handle classdef syntax in lexer and parser Ryan Rusaw parents: 9396 diff changeset	291
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	292 // Process post input event hook function after the internal history
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	293 // list has been updated.
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	294
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	295 if (interactive \|\| forced_interactive)
16433 2c8860d563e5 fix incorrect call to octave_link::pre_input_event John W. Eaton <jwe@octave.org> parents: 16431 diff changeset	296 octave_link::post_input_event ();
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	297
1822 3a47ca3dd227 [project @ 1996-02-01 08:06:35 by jwe] jwe parents: 1799 diff changeset	298 return retval;
1 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
17731 f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	301 bool
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	302 octave_base_reader::reading_fcn_file (void) const
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	303 {
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	304 return lexer ? lexer->reading_fcn_file : false;
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	305 }
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	306
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	307 bool
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	308 octave_base_reader::reading_classdef_file (void) const
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	309 {
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	310 return lexer ? lexer->reading_classdef_file : false;
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	311 }
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	312
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	313 bool
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	314 octave_base_reader::reading_script_file (void) const
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	315 {
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	316 return lexer ? lexer->reading_script_file : false;
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	317 }
f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	318
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	319 // Fix things up so that input can come from the standard input. This
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	320 // may need to become much more complicated, which is why it's in a
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	321 // separate function.
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	322
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	323 FILE *
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	324 get_input_from_stdin (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	325 {
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	326 command_editor::set_input_stream (stdin);
8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	327 return command_editor::get_input_stream ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	328 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	329
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	330 // FIXME: make this generate file names when appropriate.
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	331
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	332 static string_vector
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	333 generate_possible_completions (const std::string& text, std::string& prefix,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	334 std::string& hint)
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	335 {
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	336 string_vector names;
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	337
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	338 prefix = "";
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	339
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	340 if (looks_like_struct (text))
1430 045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1403 diff changeset	341 names = generate_struct_completions (text, prefix, hint);
045e70a15a8f [project @ 1995-09-19 07:05:37 by jwe] jwe parents: 1403 diff changeset	342 else
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	343 names = make_name_list ();
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	344
2944 e9c24f32f175 [project @ 1997-05-08 02:42:22 by jwe] jwe parents: 2939 diff changeset	345 // Sort and remove duplicates.
2348 a88c5cc51f62 [project @ 1996-07-25 09:54:40 by jwe] jwe parents: 2327 diff changeset	346
8503 8ba2ee57c594 remove qsort in favor of sort Jaroslav Hajek <highegg@gmail.com> parents: 8447 diff changeset	347 names.sort (true);
2348 a88c5cc51f62 [project @ 1996-07-25 09:54:40 by jwe] jwe parents: 2327 diff changeset	348
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	349 return names;
b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	350 }
b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	351
9485 3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	352 static bool
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	353 is_completing_dirfns (void)
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	354 {
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	355 static std::string dirfns_commands[] = {"cd", "ls"};
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	356 static const size_t dirfns_commands_length = 2;
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	357
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	358 bool retval = false;
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	359
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	360 std::string line = command_editor::get_line_buffer ();
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	361
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	362 for (size_t i = 0; i < dirfns_commands_length; i++)
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	363 {
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	364 int index = line.find (dirfns_commands[i] + " ");
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	365
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	366 if (index == 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	367 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	368 retval = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	369 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	370 }
9485 3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	371 }
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	372
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	373 return retval;
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	374 }
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	375
3536 e8fbc8c3d6d9 [project @ 2000-02-02 12:01:00 by jwe] jwe parents: 3534 diff changeset	376 static std::string
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	377 generate_completion (const std::string& text, int state)
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	378 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	379 std::string retval;
2944 e9c24f32f175 [project @ 1997-05-08 02:42:22 by jwe] jwe parents: 2939 diff changeset	380
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	381 static std::string prefix;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	382 static std::string hint;
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	383
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	384 static size_t hint_len = 0;
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	385
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	386 static int list_index = 0;
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	387 static int name_list_len = 0;
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	388 static int name_list_total_len = 0;
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	389 static string_vector name_list;
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	390 static string_vector file_name_list;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	391
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	392 static int matches = 0;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	393
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	394 if (state == 0)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	395 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	396 list_index = 0;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	397
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	398 prefix = "";
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	399
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	400 hint = text;
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	401
9485 3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	402 // No reason to display symbols while completing a
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	403 // file/directory operation.
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	404
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	405 if (is_completing_dirfns ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	406 name_list = string_vector ();
9485 3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	407 else
3cee58bf4acf selectively complete filenames in some cases John W. Eaton <jwe@octave.org> parents: 9484 diff changeset	408 name_list = generate_possible_completions (text, prefix, hint);
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	409
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	410 name_list_len = name_list.length ();
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	411
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	412 file_name_list = command_editor::generate_filename_completions (text);
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	413
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	414 name_list.append (file_name_list);
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	415
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	416 name_list_total_len = name_list.length ();
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	417
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	418 hint_len = hint.length ();
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	419
b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	420 matches = 0;
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	421
2921 64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe] jwe parents: 2900 diff changeset	422 for (int i = 0; i < name_list_len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	423 if (hint == name_list[i].substr (0, hint_len))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	424 matches++;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	425 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	426
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	427 if (name_list_total_len > 0 && matches > 0)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	428 {
4604 cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe] jwe parents: 4565 diff changeset	429 while (list_index < name_list_total_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	430 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	431 std::string name = name_list[list_index];
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	432
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	433 list_index++;
2247 108d848901b4 [project @ 1996-05-22 07:39:29 by jwe] jwe parents: 2235 diff changeset	434
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	435 if (hint == name.substr (0, hint_len))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	436 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	437 if (list_index <= name_list_len && ! prefix.empty ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	438 retval = prefix + "." + name;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	439 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	440 retval = name;
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	441
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	442 // FIXME: looks_like_struct is broken for now,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	443 // so it always returns false.
4179 8734ba917fea [project @ 2002-11-14 04:31:19 by jwe] jwe parents: 4170 diff changeset	444
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	445 if (matches == 1 && looks_like_struct (retval))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	446 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	447 // Don't append anything, since we don't know
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	448 // whether it should be '(' or '.'.
4179 8734ba917fea [project @ 2002-11-14 04:31:19 by jwe] jwe parents: 4170 diff changeset	449
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	450 command_editor::set_completion_append_character ('\0');
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	451 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	452 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	453 command_editor::set_completion_append_character
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	454 (Vcompletion_append_char);
1280 b01f9577b0da [project @ 1995-04-26 17:49:19 by jwe] jwe parents: 1215 diff changeset	455
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	456 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	457 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	458 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	459 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	460
2944 e9c24f32f175 [project @ 1997-05-08 02:42:22 by jwe] jwe parents: 2939 diff changeset	461 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	462 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	463
6979 2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	464 static std::string
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	465 quoting_filename (const std::string &text, int, char quote)
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	466 {
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	467 if (quote)
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	468 return text;
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	469 else
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	470 return (std::string ("'") + text);
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	471 }
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	472
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	473 void
8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	474 initialize_command_input (void)
8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	475 {
8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	476 // If we are using readline, this allows conditional parsing of the
8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	477 // .inputrc file.
269 0febc87abbd4 [project @ 1994-01-05 08:17:07 by jwe] jwe parents: 252 diff changeset	478
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	479 command_editor::set_name ("Octave");
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	480
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	481 // FIXME: this needs to include a comma too, but that
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	482 // causes trouble for the new struct element completion code.
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	483
4272 fd406afe8a10 [project @ 2003-01-03 19:52:30 by jwe] jwe parents: 4253 diff changeset	484 static const char s = "\t\n !\"\'+-/:;<=>(){}[\\]^`~";
3933 f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	485
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	486 command_editor::set_basic_word_break_characters (s);
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	487
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	488 command_editor::set_completer_word_break_characters (s);
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe] jwe parents: 3877 diff changeset	489
3004 9a54159563de [project @ 1997-05-23 05:00:49 by jwe] jwe parents: 2944 diff changeset	490 command_editor::set_basic_quote_characters ("\"");
2944 e9c24f32f175 [project @ 1997-05-08 02:42:22 by jwe] jwe parents: 2939 diff changeset	491
6979 2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	492 command_editor::set_filename_quote_characters (" \t\n\\\"'@<>=;\|&()#$`?*[!:{");
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	493 command_editor::set_completer_quote_characters ("'\"");
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	494
2944 e9c24f32f175 [project @ 1997-05-08 02:42:22 by jwe] jwe parents: 2939 diff changeset	495 command_editor::set_completion_function (generate_completion);
6979 2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	496
2883ea1c5c18 [project @ 2007-10-08 20:23:48 by dbateman] dbateman parents: 6945 diff changeset	497 command_editor::set_quoting_function (quoting_filename);
269 0febc87abbd4 [project @ 1994-01-05 08:17:07 by jwe] jwe parents: 252 diff changeset	498 }
0febc87abbd4 [project @ 1994-01-05 08:17:07 by jwe] jwe parents: 252 diff changeset	499
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	500 static void
16438 a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	501 execute_in_debugger_handler (const std::pair<std::string, int>& arg)
16419 16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	502 {
16438 a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	503 octave_link::execute_in_debugger_event (arg.first, arg.second);
16419 16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	504 }
16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	505
16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	506 static void
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	507 get_debug_input (const std::string& prompt)
269 0febc87abbd4 [project @ 1994-01-05 08:17:07 by jwe] jwe parents: 252 diff changeset	508 {
16395 fc491da603f6 also provide a hook for exiting debugger John W. Eaton <jwe@octave.org> parents: 16386 diff changeset	509 unwind_protect frame;
fc491da603f6 also provide a hook for exiting debugger John W. Eaton <jwe@octave.org> parents: 16386 diff changeset	510
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	511 octave_user_code *caller = octave_call_stack::caller_user_code ();
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	512 std::string nm;
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	513
9484 bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	514 int curr_debug_line = octave_call_stack::current_line ();
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	515
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	516 bool have_file = false;
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	517
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	518 if (caller)
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	519 {
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	520 nm = caller->fcn_file_name ();
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	521
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	522 if (nm.empty ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	523 nm = caller->name ();
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	524 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	525 have_file = true;
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	526 }
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	527 else
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	528 curr_debug_line = -1;
3180 c17387059fd3 [project @ 1998-09-24 18:59:11 by jwe] jwe parents: 3176 diff changeset	529
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	530 std::ostringstream buf;
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	531
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	532 if (! nm.empty ())
3180 c17387059fd3 [project @ 1998-09-24 18:59:11 by jwe] jwe parents: 3176 diff changeset	533 {
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	534 if (Vgud_mode)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	535 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	536 static char ctrl_z = 'Z' & 0x1f;
269 0febc87abbd4 [project @ 1994-01-05 08:17:07 by jwe] jwe parents: 252 diff changeset	537
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	538 buf << ctrl_z << ctrl_z << nm << ":" << curr_debug_line;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	539 }
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	540 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	541 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	542 // FIXME: we should come up with a clean way to detect
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	543 // that we are stopped on the no-op command that marks the
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	544 // end of a function or script.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	545
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	546 buf << "stopped in " << nm;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	547
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	548 if (curr_debug_line > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	549 buf << " at line " << curr_debug_line;
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	550
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	551 if (have_file)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	552 {
16419 16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	553 octave_link::enter_debugger_event (nm, curr_debug_line);
16395 fc491da603f6 also provide a hook for exiting debugger John W. Eaton <jwe@octave.org> parents: 16386 diff changeset	554
16524 6a8e63dadfad provide octave_link::set_workspace function with default values John W. Eaton <jwe@octave.org> parents: 16502 diff changeset	555 octave_link::set_workspace ();
16468 0f143f68078d use signal/slot for updating workspace instead of using event listener John W. Eaton <jwe@octave.org> parents: 16438 diff changeset	556
16438 a971d8bdaadc use signals instead of event queue for entering/leaving debug mode John W. Eaton <jwe@octave.org> parents: 16433 diff changeset	557 frame.add_fcn (execute_in_debugger_handler,
16419 16bfbf9136d3 avoid creating unnecessary octave_value objects for octave_link calls John W. Eaton <jwe@octave.org> parents: 16416 diff changeset	558 std::pair<std::string, int> (nm, curr_debug_line));
16374 8b0a04cbdc9d provide hook function for dbstop events John W. Eaton <jwe@octave.org> parents: 16373 diff changeset	559
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	560 std::string line_buf
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	561 = get_file_line (nm, curr_debug_line);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 8503 diff changeset	562
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	563 if (! line_buf.empty ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	564 buf << "\n" << curr_debug_line << ": " << line_buf;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	565 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	566 }
3180 c17387059fd3 [project @ 1998-09-24 18:59:11 by jwe] jwe parents: 3176 diff changeset	567 }
c17387059fd3 [project @ 1998-09-24 18:59:11 by jwe] jwe parents: 3176 diff changeset	568
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	569 std::string msg = buf.str ();
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	570
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	571 if (! msg.empty ())
9484 bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	572 std::cerr << msg << std::endl;
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	573
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	574 frame.protect_var (VPS1);
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	575 VPS1 = prompt;
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	576
17731 f79bf671a493 eliminate global LEXER variable John W. Eaton <jwe@octave.org> parents: 17323 diff changeset	577 if (! (interactive \|\| forced_interactive))
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	578 {
12907 6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	579 frame.protect_var (forced_interactive);
6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	580 forced_interactive = true;
6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	581 }
6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	582
16187 490625211945 don't use new to create parser object John W. Eaton <jwe@octave.org> parents: 16177 diff changeset	583 octave_parser curr_parser;
16151 e309eb7940be parser tweaks John W. Eaton <jwe@octave.org> parents: 16149 diff changeset	584
12907 6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	585 while (Vdebugging)
6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	586 {
16127 f7eb13f14320 avoid using unwind_protect::run John W. Eaton <jwe@octave.org> parents: 16122 diff changeset	587 unwind_protect middle_frame;
f7eb13f14320 avoid using unwind_protect::run John W. Eaton <jwe@octave.org> parents: 16122 diff changeset	588
12907 6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	589 reset_error_handler ();
6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	590
16187 490625211945 don't use new to create parser object John W. Eaton <jwe@octave.org> parents: 16177 diff changeset	591 curr_parser.reset ();
9999 653716f3d976 get_debug_input: force interactive input mode; don't get user input unless stdin is a tty John W. Eaton <jwe@octave.org> parents: 9485 diff changeset	592
16187 490625211945 don't use new to create parser object John W. Eaton <jwe@octave.org> parents: 16177 diff changeset	593 int retval = curr_parser.run ();
9999 653716f3d976 get_debug_input: force interactive input mode; don't get user input unless stdin is a tty John W. Eaton <jwe@octave.org> parents: 9485 diff changeset	594
16382 389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	595 if (command_editor::interrupt (false))
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	596 break;
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	597 else
12907 6e1b9f079e0f allow debugging when input is not coming from a tty John W. Eaton <jwe@octave.org> parents: 12573 diff changeset	598 {
16382 389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	599 if (retval == 0 && curr_parser.stmt_list)
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	600 {
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	601 curr_parser.stmt_list->accept (*current_evaluator);
9999 653716f3d976 get_debug_input: force interactive input mode; don't get user input unless stdin is a tty John W. Eaton <jwe@octave.org> parents: 9485 diff changeset	602
16382 389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	603 if (octave_completion_matches_called)
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	604 octave_completion_matches_called = false;
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	605 }
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	606
389b09a914e2 allow gui to force readline to return from its idle/read loop John W. Eaton <jwe@octave.org> parents: 16381 diff changeset	607 octave_quit ();
9999 653716f3d976 get_debug_input: force interactive input mode; don't get user input unless stdin is a tty John W. Eaton <jwe@octave.org> parents: 9485 diff changeset	608 }
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	609 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	610 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	611
16195 b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	612 const std::string octave_base_reader::in_src ("invalid");
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	613
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	614 const std::string octave_terminal_reader::in_src ("terminal");
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	615
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	616 std::string
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	617 octave_terminal_reader::get_input (bool& eof)
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	618 {
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	619 octave_quit ();
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	620
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	621 eof = false;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	622
16207 0467d68ca891 move current_input_line to lexical_feedback class John W. Eaton <jwe@octave.org> parents: 16203 diff changeset	623 return octave_gets (eof);
16195 b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	624 }
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	625
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	626 const std::string octave_file_reader::in_src ("file");
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	627
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	628 std::string
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	629 octave_file_reader::get_input (bool& eof)
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	630 {
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	631 octave_quit ();
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	632
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	633 eof = false;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	634
16207 0467d68ca891 move current_input_line to lexical_feedback class John W. Eaton <jwe@octave.org> parents: 16203 diff changeset	635 return octave_fgets (file, eof);
16195 b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	636 }
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	637
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	638 const std::string octave_eval_string_reader::in_src ("eval_string");
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	639
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	640 std::string
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	641 octave_eval_string_reader::get_input (bool& eof)
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	642 {
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	643 octave_quit ();
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	644
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	645 eof = false;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	646
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	647 std::string retval;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	648
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	649 retval = eval_string;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	650
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	651 // Clear the eval string so that the next call will return
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	652 // an empty character string with EOF = true.
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	653 eval_string = "";
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	654
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	655 if (retval.empty ())
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	656 eof = true;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	657
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	658 return retval;
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	659 }
b52d2f9294b6 use class for reading lexer input John W. Eaton <jwe@octave.org> parents: 16187 diff changeset	660
581 bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	661 // If the user simply hits return, this will produce an empty matrix.
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe] jwe parents: 529 diff changeset	662
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	663 static octave_value_list
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	664 get_user_input (const octave_value_list& args, int nargout)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	665 {
3100 bea2f5be3eab [project @ 1997-11-14 10:07:50 by jwe] jwe parents: 3098 diff changeset	666 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	667
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	668 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	669
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	670 int read_as_string = 0;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	671
712 36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe] jwe parents: 661 diff changeset	672 if (nargin == 2)
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	673 read_as_string++;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	674
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	675 std::string prompt = args(0).string_value ();
4975 80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4802 diff changeset	676
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	677 if (error_state)
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	678 {
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	679 error ("input: unrecognized argument");
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	680 return retval;
4975 80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4802 diff changeset	681 }
80842ad3f85c [project @ 2004-09-08 18:37:58 by jwe] jwe parents: 4802 diff changeset	682
2095 36903d507b0e [project @ 1996-04-28 09:00:07 by jwe] jwe parents: 2086 diff changeset	683 flush_octave_stdout ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	684
13266 c053740eb2aa improve memory use for the pager and diary streams (bug #34431) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	685 octave_pager_stream::reset ();
c053740eb2aa improve memory use for the pager and diary streams (bug #34431) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	686 octave_diary_stream::reset ();
c053740eb2aa improve memory use for the pager and diary streams (bug #34431) John W. Eaton <jwe@octave.org> parents: 12989 diff changeset	687
4565 1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	688 octave_diary << prompt;
1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	689
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	690 bool eof = false;
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	691
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	692 std::string input_buf = interactive_input (prompt.c_str (), eof);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	693
7459 d3fe4d466bc2 don't inhibit drawnow in debug mode John W. Eaton <jwe@octave.org> parents: 7409 diff changeset	694 if (! (error_state \|\| input_buf.empty ()))
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	695 {
2927 8722c6284b72 [project @ 1997-05-05 03:44:04 by jwe] jwe parents: 2921 diff changeset	696 size_t len = input_buf.length ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	697
4565 1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	698 octave_diary << input_buf;
1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	699
1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	700 if (input_buf[len - 1] != '\n')
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	701 octave_diary << "\n";
4565 1db951a4fcd5 [project @ 2003-10-29 13:49:30 by jwe] jwe parents: 4526 diff changeset	702
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	703 if (len < 1)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	704 return read_as_string ? octave_value ("") : octave_value (Matrix ());
3772 e44ffad3d06c [project @ 2001-02-03 06:23:38 by jwe] jwe parents: 3741 diff changeset	705
e44ffad3d06c [project @ 2001-02-03 06:23:38 by jwe] jwe parents: 3741 diff changeset	706 if (read_as_string)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	707 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	708 // FIXME: fix gnu_readline and octave_gets instead!
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	709 if (input_buf.length () == 1 && input_buf[0] == '\n')
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	710 retval(0) = "";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	711 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	712 retval(0) = input_buf;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	713 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	714 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	715 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	716 int parse_status = 0;
2900 5ed088015839 [project @ 1997-04-30 03:26:56 by jwe] jwe parents: 2896 diff changeset	717
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	718 retval = eval_string (input_buf, true, parse_status, nargout);
3100 bea2f5be3eab [project @ 1997-11-14 10:07:50 by jwe] jwe parents: 3098 diff changeset	719
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	720 if (! Vdebugging && retval.length () == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	721 retval(0) = Matrix ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	722 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	723 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	724 else
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	725 error ("input: reading user-input failed!");
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	726
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	727 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	728 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	729
3100 bea2f5be3eab [project @ 1997-11-14 10:07:50 by jwe] jwe parents: 3098 diff changeset	730 DEFUN (input, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	731 "-- texinfo --\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	732 @deftypefn {Built-in Function} {@var{ans} =} input (@var{prompt})\n\
119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	733 @deftypefnx {Built-in Function} {@var{ans} =} input (@var{prompt}, \"s\")\n\
18674 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	734 Print @var{prompt} and wait for user input.\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	735 \n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	736 For example,\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	737 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	738 @example\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	739 input (\"Pick a number, any number! \")\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	740 @end example\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	741 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	742 @noindent\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	743 prints the prompt\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	744 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	745 @example\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	746 Pick a number, any number!\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	747 @end example\n\
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	748 \n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	749 @noindent\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	750 and waits for the user to enter a value. The string entered by the user\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	751 is evaluated as an expression, so it may be a literal constant, a\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	752 variable name, or any other valid expression.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	753 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	754 Currently, @code{input} only returns one value, regardless of the number\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	755 of values produced by the evaluation of the expression.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	756 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	757 If you are only interested in getting a literal string value, you can\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	758 call @code{input} with the character string @qcode{\"s\"} as the second\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	759 argument. This tells Octave to return the string entered by the user\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	760 directly, without evaluating it first.\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	761 \n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	762 Because there may be output waiting to be displayed by the pager, it is\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	763 a good idea to always call @code{fflush (stdout)} before calling\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	764 @code{input}. This will ensure that all pending output is written to\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	765 the screen before your prompt.\n\
18674 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	766 @seealso{yes_or_no, kbhit, pause, menu, listdlg}\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	767 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	768 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	769 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	770
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	771 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	772
712 36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe] jwe parents: 661 diff changeset	773 if (nargin == 1 \|\| nargin == 2)
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	774 retval = get_user_input (args, nargout);
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	775 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	776 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	777
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	778 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	779 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	780
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	781 bool
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	782 octave_yes_or_no (const std::string& prompt)
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	783 {
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	784 std::string prompt_string = prompt + "(yes or no) ";
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	785
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	786 while (1)
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	787 {
16198 2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	788 bool eof = false;
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	789
2c5c538be353 clean up input.cc and eliminate ff_instream global variable John W. Eaton <jwe@octave.org> parents: 16195 diff changeset	790 std::string input_buf = interactive_input (prompt_string, eof);
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	791
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	792 if (input_buf == "yes")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	793 return true;
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	794 else if (input_buf == "no")
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	795 return false;
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	796 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	797 message (0, "Please answer yes or no.");
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	798 }
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	799 }
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	800
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	801 DEFUN (yes_or_no, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	802 "-- texinfo --\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	803 @deftypefn {Built-in Function} {@var{ans} =} yes_or_no (\"@var{prompt}\")\n\
18674 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	804 Ask the user a yes-or-no question.\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	805 \n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	806 Return logical true if the answer is yes or false if the answer is no.\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	807 Takes one argument, @var{prompt}, which is the string to display when asking\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	808 the question. @var{prompt} should end in a space; @code{yes-or-no} adds the\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	809 string @samp{(yes or no) } to it. The user must confirm the answer with\n\
7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	810 @key{RET} and can edit it until it has been confirmed.\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	811 @seealso{input}\n\
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	812 @end deftypefn")
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	813 {
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	814 octave_value retval;
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	815
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	816 int nargin = args.length ();
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	817
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	818 if (nargin == 0 \|\| nargin == 1)
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	819 {
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	820 std::string prompt;
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	821
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	822 if (nargin == 1)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	823 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	824 prompt = args(0).string_value ();
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	825
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	826 if (error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	827 {
12483 7a5aacf65f81 Rewrite error strings in src/ to use variables named in documentation. Rik <octave@nomad.inbox5.com> parents: 12211 diff changeset	828 error ("yes_or_no: PROMPT must be a character string");
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	829 return retval;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	830 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	831 }
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	832
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	833 retval = octave_yes_or_no (prompt);
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	834 }
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	835 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	836 print_usage ();
5640 426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	837
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	838 return retval;
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	839 }
426719471ac6 [project @ 2006-03-04 06:02:14 by jwe] jwe parents: 5388 diff changeset	840
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	841 octave_value
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	842 do_keyboard (const octave_value_list& args)
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	843 {
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	844 octave_value retval;
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	845
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	846 int nargin = args.length ();
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	847
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	848 assert (nargin == 0 \|\| nargin == 1);
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	849
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	850 unwind_protect frame;
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	851
12989 00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12942 diff changeset	852 frame.add_fcn (command_history::ignore_entries,
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12942 diff changeset	853 command_history::ignoring_entries ());
00235a6446da eliminate duplication of internal variables controlling command history John W. Eaton <jwe@octave.org> parents: 12942 diff changeset	854
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	855 command_history::ignore_entries (false);
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	856
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	857 frame.protect_var (Vdebugging);
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	858
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11575 diff changeset	859 frame.add_fcn (octave_call_stack::restore_frame,
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	860 octave_call_stack::current_frame ());
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	861
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	862 // FIXME: probably we just want to print one line, not the
9484 bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	863 // entire statement, which might span many lines...
bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	864 //
bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	865 // tree_print_code tpc (octave_stdout);
bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	866 // stmt.accept (tpc);
bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	867
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	868 Vdebugging = true;
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	869
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	870 std::string prompt = "debug> ";
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	871 if (nargin > 0)
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	872 prompt = args(0).string_value ();
4233 ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe] jwe parents: 4208 diff changeset	873
7787 6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	874 if (! error_state)
6b521b1e3631 Add dbquit and make dbstep compatible. Use parser in debug mode to handle multi-line input David Bateman <dbateman@free.fr> parents: 7758 diff changeset	875 get_debug_input (prompt);
3707 58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	876
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	877 return retval;
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	878 }
58140935c812 [project @ 2000-07-28 09:40:52 by jwe] jwe parents: 3566 diff changeset	879
1957 0e6a0a271998 [project @ 1996-02-15 01:08:15 by jwe] jwe parents: 1900 diff changeset	880 DEFUN (keyboard, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	881 "-- texinfo --\n\
9300 fddb9f9f724b Correct documentation for keyboard function Rik <rdrider0-list@yahoo.com> parents: 9260 diff changeset	882 @deftypefn {Built-in Function} {} keyboard ()\n\
16053 119ce9f5e1a3 doc: Add seealso links between input, yes_or_no, kbhit. Rik <rik@octave.org> parents: 15469 diff changeset	883 @deftypefnx {Built-in Function} {} keyboard (\"@var{prompt}\")\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	884 This function is normally used for simple debugging. When the\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	885 @code{keyboard} function is executed, Octave prints a prompt and waits\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	886 for user input. The input strings are then evaluated and the results\n\
f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	887 are printed. This makes it possible to examine the values of variables\n\
9300 fddb9f9f724b Correct documentation for keyboard function Rik <rdrider0-list@yahoo.com> parents: 9260 diff changeset	888 within a function, and to assign new values if necessary. To leave the\n\
fddb9f9f724b Correct documentation for keyboard function Rik <rdrider0-list@yahoo.com> parents: 9260 diff changeset	889 prompt and return to normal execution type @samp{return} or @samp{dbcont}.\n\
fddb9f9f724b Correct documentation for keyboard function Rik <rdrider0-list@yahoo.com> parents: 9260 diff changeset	890 The @code{keyboard} function does not return an exit status.\n\
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	891 \n\
9300 fddb9f9f724b Correct documentation for keyboard function Rik <rdrider0-list@yahoo.com> parents: 9260 diff changeset	892 If @code{keyboard} is invoked without arguments, a default prompt of\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	893 @samp{debug> } is used.\n\
18674 7bccc182e2f7 doc: Update pause documentation and add seealso links between related functions. Rik <rik@octave.org> parents: 18037 diff changeset	894 @seealso{dbstop, dbcont, dbquit}\n\
3372 f16c2ce14886 [project @ 1999-11-23 19:07:09 by jwe] jwe parents: 3333 diff changeset	895 @end deftypefn")
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	896 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	897 octave_value_list retval;
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	898
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	899 int nargin = args.length ();
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	900
712 36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe] jwe parents: 661 diff changeset	901 if (nargin == 0 \|\| nargin == 1)
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	902 {
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	903 unwind_protect frame;
10186 095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	904
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11575 diff changeset	905 frame.add_fcn (octave_call_stack::restore_frame,
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9999 diff changeset	906 octave_call_stack::current_frame ());
9483 25c2e92ee03c correctly skip frame assigned to keyboard function John W. Eaton <jwe@octave.org> parents: 9482 diff changeset	907
25c2e92ee03c correctly skip frame assigned to keyboard function John W. Eaton <jwe@octave.org> parents: 9482 diff changeset	908 // Skip the frame assigned to the keyboard function.
9484 bbe033dcfe13 make dbwhere work when called at keyboard prompt John W. Eaton <jwe@octave.org> parents: 9483 diff changeset	909 octave_call_stack::goto_frame_relative (0);
9483 25c2e92ee03c correctly skip frame assigned to keyboard function John W. Eaton <jwe@octave.org> parents: 9482 diff changeset	910
10186 095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	911 tree_evaluator::debug_mode = true;
095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	912
095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	913 tree_evaluator::current_frame = octave_call_stack::current_frame ();
095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	914
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	915 do_keyboard (args);
40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7734 diff changeset	916 }
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	917 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	918 print_usage ();
529 7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	919
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	920 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	921 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe] jwe parents: 339 diff changeset	922
8746 5dd06f19e9be handle commands in the lexer John W. Eaton <jwe@octave.org> parents: 8658 diff changeset	923 DEFUN (echo, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	924 "-- texinfo --\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	925 @deftypefn {Command} {} echo options\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	926 Control whether commands are displayed as they are executed. Valid\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	927 options are:\n\
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	928 \n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	929 @table @code\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	930 @item on\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	931 Enable echoing of commands as they are executed in script files.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	932 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	933 @item off\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	934 Disable echoing of commands as they are executed in script files.\n\
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	935 \n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	936 @item on all\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	937 Enable echoing of commands as they are executed in script files and\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	938 functions.\n\
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	939 \n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	940 @item off all\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	941 Disable echoing of commands as they are executed in script files and\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	942 functions.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	943 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	944 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	945 @noindent\n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9064 diff changeset	946 With no arguments, @code{echo} toggles the current echo state.\n\
11547 e1851653d59c Eliminate @deffn macros. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	947 @end deftypefn")
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	948 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	949 octave_value_list retval;
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	950
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	951 int argc = args.length () + 1;
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	952
1968 a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe] jwe parents: 1957 diff changeset	953 string_vector argv = args.make_argv ("echo");
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	954
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	955 if (error_state)
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	956 return retval;
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	957
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	958 switch (argc)
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	959 {
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	960 case 1:
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	961 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	962 if ((Vecho_executing_commands & ECHO_SCRIPTS)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	963 \|\| (Vecho_executing_commands & ECHO_FUNCTIONS))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	964 Vecho_executing_commands = ECHO_OFF;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	965 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	966 Vecho_executing_commands = ECHO_SCRIPTS;
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	967 }
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	968 break;
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	969
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	970 case 2:
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	971 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	972 std::string arg = argv[1];
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	973
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	974 if (arg == "on")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	975 Vecho_executing_commands = ECHO_SCRIPTS;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	976 else if (arg == "off")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	977 Vecho_executing_commands = ECHO_OFF;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	978 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	979 print_usage ();
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	980 }
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	981 break;
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	982
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	983 case 3:
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	984 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	985 std::string arg = argv[1];
1755 3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe] jwe parents: 1750 diff changeset	986
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	987 if (arg == "on" && argv[2] == "all")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	988 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	989 int tmp = (ECHO_SCRIPTS \| ECHO_FUNCTIONS);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	990 Vecho_executing_commands = tmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	991 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	992 else if (arg == "off" && argv[2] == "all")
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	993 Vecho_executing_commands = ECHO_OFF;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	994 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	995 print_usage ();
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	996 }
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	997 break;
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	998
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	999 default:
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	1000 print_usage ();
1588 27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1001 break;
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1002 }
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1003
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1004 return retval;
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1005 }
27f5ac98fc4a [project @ 1995-10-31 06:04:47 by jwe] jwe parents: 1569 diff changeset	1006
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1007 DEFUN (completion_matches, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1008 "-- texinfo --\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1009 @deftypefn {Built-in Function} {} completion_matches (@var{hint})\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1010 Generate possible completions given @var{hint}.\n\
2299 f296bbc757a1 [project @ 1996-06-23 03:45:44 by jwe] jwe parents: 2287 diff changeset	1011 \n\
f296bbc757a1 [project @ 1996-06-23 03:45:44 by jwe] jwe parents: 2287 diff changeset	1012 This function is provided for the benefit of programs like Emacs which\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1013 might be controlling Octave and handling user input. The current\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1014 command number is not incremented when this function is called. This is\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1015 a feature, not a bug.\n\
3333 15cddaacbc2d [project @ 1999-11-03 19:53:59 by jwe] jwe parents: 3332 diff changeset	1016 @end deftypefn")
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1017 {
2281 7d11fd3aaaa1 [project @ 1996-05-24 19:58:59 by jwe] jwe parents: 2275 diff changeset	1018 octave_value retval;
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1019
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1020 int nargin = args.length ();
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1021
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1022 if (nargin == 1)
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1023 {
3523 b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe] jwe parents: 3519 diff changeset	1024 std::string hint = args(0).string_value ();
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1025
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1026 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1027 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1028 int n = 32;
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1029
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1030 string_vector list (n);
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1031
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1032 int k = 0;
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1033
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1034 for (;;)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1035 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1036 std::string cmd = generate_completion (hint, k);
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1037
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1038 if (! cmd.empty ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1039 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1040 if (k == n)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1041 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1042 n *= 2;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1043 list.resize (n);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1044 }
2235 896966940135 [project @ 1996-05-17 18:09:01 by jwe] jwe parents: 2234 diff changeset	1045
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1046 list[k++] = cmd;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1047 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1048 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1049 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1050 list.resize (k);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1051 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1052 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1053 }
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1054
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1055 if (nargout > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1056 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1057 if (! list.empty ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1058 retval = list;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1059 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1060 retval = "";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1061 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1062 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1063 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1064 // We don't use string_vector::list_in_columns here
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1065 // because it will be easier for Emacs if the names
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1066 // appear in a single column.
2235 896966940135 [project @ 1996-05-17 18:09:01 by jwe] jwe parents: 2234 diff changeset	1067
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1068 int len = list.length ();
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1069
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1070 for (int i = 0; i < len; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1071 octave_stdout << list[i] << "\n";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1072 }
2299 f296bbc757a1 [project @ 1996-06-23 03:45:44 by jwe] jwe parents: 2287 diff changeset	1073
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1074 octave_completion_matches_called = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1075 }
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1076 }
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1077 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	1078 print_usage ();
2234 a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1079
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1080 return retval;
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1081 }
a174011c96f2 [project @ 1996-05-17 17:51:20 by jwe] jwe parents: 2205 diff changeset	1082
16879 cc3743a91652 Rename read_readline_init_file to readline_read_init_file. Rik <rik@octave.org> parents: 16816 diff changeset	1083 DEFUN (readline_read_init_file, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1084 "-- texinfo --\n\
16879 cc3743a91652 Rename read_readline_init_file to readline_read_init_file. Rik <rik@octave.org> parents: 16816 diff changeset	1085 @deftypefn {Built-in Function} {} readline_read_init_file (@var{file})\n\
7007 6304d9ea0a30 [project @ 2007-10-11 16:26:36 by jwe] jwe parents: 6991 diff changeset	1086 Read the readline library initialization file @var{file}. If\n\
3448 0fb75d95b14f [project @ 2000-01-17 20:38:31 by jwe] jwe parents: 3373 diff changeset	1087 @var{file} is omitted, read the default initialization file (normally\n\
6615 687ae48b2253 [project @ 2007-05-13 06:24:57 by jwe] jwe parents: 6489 diff changeset	1088 @file{~/.inputrc}).\n\
687ae48b2253 [project @ 2007-05-13 06:24:57 by jwe] jwe parents: 6489 diff changeset	1089 \n\
687ae48b2253 [project @ 2007-05-13 06:24:57 by jwe] jwe parents: 6489 diff changeset	1090 @xref{Readline Init File, , , readline, GNU Readline Library},\n\
687ae48b2253 [project @ 2007-05-13 06:24:57 by jwe] jwe parents: 6489 diff changeset	1091 for details.\n\
16880 1aebb613a5ac Rename re_read_readline_init_file to readline_re_read_init_file. Rik <rik@octave.org> parents: 16879 diff changeset	1092 @seealso{readline_re_read_init_file}\n\
3448 0fb75d95b14f [project @ 2000-01-17 20:38:31 by jwe] jwe parents: 3373 diff changeset	1093 @end deftypefn")
3189 bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1094 {
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1095 octave_value_list retval;
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1096
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1097 int nargin = args.length ();
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1098
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1099 if (nargin == 0)
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1100 command_editor::read_init_file ();
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1101 else if (nargin == 1)
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1102 {
5872 44f24cf66b95 [project @ 2006-06-30 18:19:20 by jwe] jwe parents: 5832 diff changeset	1103 std::string file = args(0).string_value ();
3189 bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1104
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1105 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1106 command_editor::read_init_file (file);
3189 bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1107 }
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1108 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	1109 print_usage ();
3189 bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1110
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1111 return retval;
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1112 }
bef7b73c0724 [project @ 1998-10-16 18:05:26 by jwe] jwe parents: 3180 diff changeset	1113
16880 1aebb613a5ac Rename re_read_readline_init_file to readline_re_read_init_file. Rik <rik@octave.org> parents: 16879 diff changeset	1114 DEFUN (readline_re_read_init_file, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1115 "-- texinfo --\n\
16880 1aebb613a5ac Rename re_read_readline_init_file to readline_re_read_init_file. Rik <rik@octave.org> parents: 16879 diff changeset	1116 @deftypefn {Built-in Function} {} readline_re_read_init_file ()\n\
7758 8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1117 Re-read the last readline library initialization file that was read.\n\
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1118 @xref{Readline Init File, , , readline, GNU Readline Library},\n\
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1119 for details.\n\
16879 cc3743a91652 Rename read_readline_init_file to readline_read_init_file. Rik <rik@octave.org> parents: 16816 diff changeset	1120 @seealso{readline_read_init_file}\n\
7758 8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1121 @end deftypefn")
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1122 {
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1123 octave_value_list retval;
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1124
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1125 if (args.length () == 0)
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1126 command_editor::re_read_init_file ();
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1127 else
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1128 print_usage ();
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1129
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1130 return retval;
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1131 }
8e14a01ffe9f input.cc (Fre_read_readline_init_file): new function John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	1132
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1133 static int
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1134 internal_input_event_hook_fcn (void)
610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1135 {
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1136 input_event_hook_functions.run ();
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1137
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1138 if (input_event_hook_functions.empty ())
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1139 command_editor::remove_event_hook (internal_input_event_hook_fcn);
16152 c48847a781d5 * input.cc (input_event_hook): Return 0. John W. Eaton <jwe@octave.org> parents: 16151 diff changeset	1140
c48847a781d5 * input.cc (input_event_hook): Return 0. John W. Eaton <jwe@octave.org> parents: 16151 diff changeset	1141 return 0;
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1142 }
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1143
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1144 DEFUN (add_input_event_hook, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1145 "-- texinfo --\n\
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1146 @deftypefn {Built-in Function} {@var{id} =} add_input_event_hook (@var{fcn})\n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1147 @deftypefnx {Built-in Function} {@var{id} =} add_input_event_hook (@var{fcn}, @var{data})\n\
16816 12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16534 diff changeset	1148 Add the named function or function handle @var{fcn} to the list of functions\n\
12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16534 diff changeset	1149 to call periodically when Octave is waiting for input. The function should\n\
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1150 have the form\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1151 \n\
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1152 @example\n\
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1153 @var{fcn} (@var{data})\n\
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1154 @end example\n\
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1155 \n\
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1156 If @var{data} is omitted, Octave calls the function without any\n\
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1157 arguments.\n\
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1158 \n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1159 The returned identifier may be used to remove the function handle from\n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1160 the list of input hook functions.\n\
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1161 @seealso{remove_input_event_hook}\n\
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1162 @end deftypefn")
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1163 {
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1164 octave_value retval;
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1165
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1166 int nargin = args.length ();
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1167
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1168 if (nargin == 1 \|\| nargin == 2)
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1169 {
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1170 octave_value user_data;
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1171
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1172 if (nargin == 2)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1173 user_data = args(1);
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1174
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1175 hook_function hook_fcn (args(0), user_data);
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1176
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1177 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1178 {
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1179 if (input_event_hook_functions.empty ())
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1180 command_editor::add_event_hook (internal_input_event_hook_fcn);
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1181
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1182 input_event_hook_functions.insert (hook_fcn.id (), hook_fcn);
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1183
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1184 retval = hook_fcn.id ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1185 }
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1186 else
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1187 error ("add_input_event_hook: expecting function handle or character string as first argument");
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1188 }
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1189 else
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1190 print_usage ();
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1191
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1192 return retval;
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1193 }
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1194
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1195 DEFUN (remove_input_event_hook, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1196 "-- texinfo --\n\
16816 12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16534 diff changeset	1197 @deftypefn {Built-in Function} {} remove_input_event_hook (@var{name})\n\
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1198 @deftypefnx {Built-in Function} {} remove_input_event_hook (@var{fcn_id})\n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1199 Remove the named function or function handle with the given identifier\n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1200 from the list of functions to call periodically when Octave is waiting\n\
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1201 for input.\n\
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1202 @seealso{add_input_event_hook}\n\
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1203 @end deftypefn")
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1204 {
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1205 octave_value_list retval;
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1206
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1207 int nargin = args.length ();
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1208
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1209 if (nargin == 1 \|\| nargin == 2)
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1210 {
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1211 std::string hook_fcn_id = args(0).string_value ();
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1212
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1213 bool warn = (nargin < 2);
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1214
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1215 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1216 {
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1217 hook_function_list::iterator p
b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1218 = input_event_hook_functions.find (hook_fcn_id);
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1219
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1220 if (p != input_event_hook_functions.end ())
b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1221 input_event_hook_functions.erase (p);
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1222 else if (warn)
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1223 warning ("remove_input_event_hook: %s not found in list",
bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1224 hook_fcn_id.c_str ());
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1225
16378 b28ae106e316 use class for lists of input hook functions John W. Eaton <jwe@octave.org> parents: 16374 diff changeset	1226 if (input_event_hook_functions.empty ())
16349 610617eb84d1 provide pre- and post-input hook functions John W. Eaton <jwe@octave.org> parents: 16347 diff changeset	1227 command_editor::remove_event_hook (internal_input_event_hook_fcn);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10186 diff changeset	1228 }
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1229 else
16347 bf8397caeff1 allow add_input_event_hook to accept function handles John W. Eaton <jwe@octave.org> parents: 16336 diff changeset	1230 error ("remove_input_event_hook: argument not valid as a hook function name or id");
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1231 }
9215 1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1232 else
1500d0197484 allow multiple input event hook functions to be installed simultaneously John W. Eaton <jwe@octave.org> parents: 9134 diff changeset	1233 print_usage ();
3498 e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1234
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1235 return retval;
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1236 }
e391aeef2b3c [project @ 2000-01-31 03:17:14 by jwe] jwe parents: 3484 diff changeset	1237
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1238 DEFUN (PS1, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1239 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1240 @deftypefn {Built-in Function} {@var{val} =} PS1 ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1241 @deftypefnx {Built-in Function} {@var{old_val} =} PS1 (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1242 @deftypefnx {Built-in Function} {} PS1 (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1243 Query or set the primary prompt string. When executing interactively,\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1244 Octave displays the primary prompt when it is ready to read a command.\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1245 \n\
18037 708173343c50 use "octave" instead of "\\s" in default prompt John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	1246 The default value of the primary prompt string is @qcode{\"octave:\\#> \"}.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1247 To change it, use a command like\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1248 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1249 @example\n\
11405 51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1250 PS1 (\"\\\\u@@\\\\H> \")\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1251 @end example\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1252 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1253 @noindent\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1254 which will result in the prompt @samp{boris@@kremvax> } for the user\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1255 @samp{boris} logged in on the host @samp{kremvax.kgb.su}. Note that two\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1256 backslashes are required to enter a backslash into a double-quoted\n\
11413 ae0deb52af27 Correct use of xref macro to prevent Texinfo warning. Rik <octave@nomad.inbox5.com> parents: 11405 diff changeset	1257 character string. @xref{Strings}.\n\
11405 51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1258 \n\
51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1259 You can also use ANSI escape sequences if your terminal supports them.\n\
11575 d6619410e79c Spellcheck documentation before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11572 diff changeset	1260 This can be useful for coloring the prompt. For example,\n\
11405 51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1261 \n\
51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1262 @example\n\
14880 9e5df4d6cefa doc: typo on PS1 documentation example Carnë Draug <carandraug+dev@gmail.com> parents: 14138 diff changeset	1263 PS1 (\"\\\\[\\\\033[01;31m\\\\]\\\\s:\\\\#> \\\\[\\\\033[0m\\\\]\")\n\
11405 51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1264 @end example\n\
51b6193e90bb Documentation fixes Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11367 diff changeset	1265 \n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11547 diff changeset	1266 @noindent\n\
11575 d6619410e79c Spellcheck documentation before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11572 diff changeset	1267 will give the default Octave prompt a red coloring.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1268 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1269 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1270 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1271 The original variable value is restored when exiting the function.\n\
6373 b3c37bc17c5f [project @ 2007-03-01 15:49:03 by jwe] jwe parents: 6367 diff changeset	1272 @seealso{PS2, PS4}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1273 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1274 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1275 return SET_INTERNAL_VARIABLE (PS1);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1276 }
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	1277
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1278 DEFUN (PS2, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1279 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1280 @deftypefn {Built-in Function} {@var{val} =} PS2 ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1281 @deftypefnx {Built-in Function} {@var{old_val} =} PS2 (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1282 @deftypefnx {Built-in Function} {} PS2 (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1283 Query or set the secondary prompt string. The secondary prompt is\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1284 printed when Octave is expecting additional input to complete a\n\
9035 57649dcecb55 Documentation cleanup of basics.texi Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	1285 command. For example, if you are typing a @code{for} loop that spans several\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1286 lines, Octave will print the secondary prompt at the beginning of\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1287 each line after the first. The default value of the secondary prompt\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1288 string is @qcode{\"> \"}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1289 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1290 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1291 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1292 The original variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1293 @seealso{PS1, PS4}\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1294 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1295 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1296 return SET_INTERNAL_VARIABLE (PS2);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1297 }
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	1298
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1299 DEFUN (PS4, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1300 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1301 @deftypefn {Built-in Function} {@var{val} =} PS4 ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1302 @deftypefnx {Built-in Function} {@var{old_val} =} PS4 (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1303 @deftypefnx {Built-in Function} {} PS4 (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1304 Query or set the character string used to prefix output produced\n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9064 diff changeset	1305 when echoing commands is enabled.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1306 The default value is @qcode{\"+ \"}.\n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9064 diff changeset	1307 @xref{Diary and Echo Commands}, for a description of echoing commands.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1308 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1309 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1310 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1311 The original variable value is restored when exiting the function.\n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9064 diff changeset	1312 @seealso{echo, echo_executing_commands, PS1, PS2}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1313 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1314 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1315 return SET_INTERNAL_VARIABLE (PS4);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1316 }
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	1317
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1318 DEFUN (completion_append_char, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1319 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1320 @deftypefn {Built-in Function} {@var{val} =} completion_append_char ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1321 @deftypefnx {Built-in Function} {@var{old_val} =} completion_append_char (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1322 @deftypefnx {Built-in Function} {} completion_append_char (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1323 Query or set the internal character variable that is appended to\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1324 successful command-line completion attempts. The default\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1325 value is @qcode{\" \"} (a single space).\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1326 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1327 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1328 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1329 The original variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1330 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1331 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1332 return SET_INTERNAL_VARIABLE (completion_append_char);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1333 }
3019 92aa3d651723 [project @ 1997-06-03 22:07:16 by jwe] jwe parents: 3016 diff changeset	1334
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1335 DEFUN (echo_executing_commands, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1336 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1337 @deftypefn {Built-in Function} {@var{val} =} echo_executing_commands ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1338 @deftypefnx {Built-in Function} {@var{old_val} =} echo_executing_commands (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1339 @deftypefnx {Built-in Function} {} echo_executing_commands (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1340 Query or set the internal variable that controls the echo state.\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1341 It may be the sum of the following values:\n\
3332 7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1342 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1343 @table @asis\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1344 @item 1\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1345 Echo commands read from script files.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1346 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1347 @item 2\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1348 Echo commands from functions.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1349 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1350 @item 4\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1351 Echo commands read from command line.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1352 @end table\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1353 \n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1354 More than one state can be active at once. For example, a value of 3 is\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1355 equivalent to the command @kbd{echo on all}.\n\
7c03933635c6 [project @ 1999-11-02 06:57:12 by jwe] jwe parents: 3258 diff changeset	1356 \n\
9134 a3739e27b017 Update section 2.4 of basics.txi Rik <rdrider0-list@yahoo.com> parents: 9064 diff changeset	1357 The value of @code{echo_executing_commands} may be set by the @kbd{echo}\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1358 command or the command line option @option{--echo-commands}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1359 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1360 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1361 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1362 The original variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1363 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1364 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5775 diff changeset	1365 return SET_INTERNAL_VARIABLE (echo_executing_commands);
2181 138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	1366 }
138b3c98dc85 [project @ 1996-05-13 18:02:31 by jwe] jwe parents: 2114 diff changeset	1367
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1368 DEFUN (__request_drawnow__, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1369 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1370 @deftypefn {Built-in Function} {} __request_drawnow__ ()\n\
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1371 @deftypefnx {Built-in Function} {} __request_drawnow__ (@var{flag})\n\
6945 6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6913 diff changeset	1372 Undocumented internal function.\n\
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1373 @end deftypefn")
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1374 {
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1375 octave_value retval;
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1376
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1377 int nargin = args.length ();
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1378
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1379 if (nargin == 0)
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1380 Vdrawnow_requested = true;
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1381 else if (nargin == 1)
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1382 Vdrawnow_requested = args(0).bool_value ();
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1383 else
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1384 print_usage ();
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1385
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1386 return retval;
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1387 }
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6206 diff changeset	1388
7294 fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1389 DEFUN (__gud_mode__, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1390 "-- texinfo --\n\
7294 fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1391 @deftypefn {Built-in Function} {} __gud_mode__ ()\n\
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1392 Undocumented internal function.\n\
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1393 @end deftypefn")
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1394 {
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1395 octave_value retval;
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1396
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1397 int nargin = args.length ();
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1398
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1399 if (nargin == 0)
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1400 retval = Vgud_mode;
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1401 else if (nargin == 1)
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1402 Vgud_mode = args(0).bool_value ();
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1403 else
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1404 print_usage ();
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1405
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1406 return retval;
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1407 }
fb902b3b2a5d [project @ 2007-12-11 18:55:46 by jwe] jwe parents: 7097 diff changeset	1408
7818 5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1409 DEFUN (filemarker, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1410 "-- texinfo --\n\
12211 11faa69c4eaa Add S_ISBLK and family of functions to documentation. Rik <octave@nomad.inbox5.com> parents: 12179 diff changeset	1411 @deftypefn {Built-in Function} {@var{val} =} filemarker ()\n\
11faa69c4eaa Add S_ISBLK and family of functions to documentation. Rik <octave@nomad.inbox5.com> parents: 12179 diff changeset	1412 @deftypefnx {Built-in Function} {} filemarker (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1413 @deftypefnx {Built-in Function} {} filemarker (@var{new_val}, \"local\")\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11547 diff changeset	1414 Query or set the character used to separate filename from the\n\
9064 7c02ec148a3c Check grammar on all .cc files Rik <rdrider0-list@yahoo.com> parents: 9035 diff changeset	1415 the subfunction names contained within the file. This can be used in\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1416 a generic manner to interact with subfunctions. For example,\n\
7818 5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1417 \n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1418 @example\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1419 help ([\"myfunc\", filemarker, \"mysubfunc\"])\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1420 @end example\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1421 \n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1422 @noindent\n\
14852 53d2c3598d33 doc: Periodic spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	1423 returns the help string associated with the subfunction @code{mysubfunc}\n\
9064 7c02ec148a3c Check grammar on all .cc files Rik <rdrider0-list@yahoo.com> parents: 9035 diff changeset	1424 of the function @code{myfunc}. Another use of @code{filemarker} is when\n\
14852 53d2c3598d33 doc: Periodic spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	1425 debugging it allows easier placement of breakpoints within subfunctions.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10463 diff changeset	1426 For example,\n\
7818 5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1427 \n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1428 @example\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1429 dbstop ([\"myfunc\", filemarker, \"mysubfunc\"])\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1430 @end example\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1431 \n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1432 @noindent\n\
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1433 will set a breakpoint at the first line of the subfunction @code{mysubfunc}.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 13266 diff changeset	1434 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1435 When called from inside a function with the @qcode{\"local\"} option, the\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1436 variable is changed locally for the function and any subroutines it calls. \n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 17219 diff changeset	1437 The original variable value is restored when exiting the function.\n\
7818 5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1438 @end deftypefn")
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1439 {
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1440 char tmp = Vfilemarker;
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1441 octave_value retval = SET_INTERNAL_VARIABLE (filemarker);
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1442
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1443 // The character passed must not be a legal character for a function name
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1444 if (! error_state && (::isalnum (Vfilemarker) \|\| Vfilemarker == '_'))
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1445 {
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1446 Vfilemarker = tmp;
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1447 error ("filemarker: character can not be a valid character for a function name");
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1448 }
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1449
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1450 return retval;
5640a70cbab1 Add Ffilemarker and fix for 'dbstep in' David Bateman <dbateman@free.fr> parents: 7787 diff changeset	1451 }

Mercurial > octave-dspies

annotate libinterp/corefcn/input.cc @ 18674:7bccc182e2f7 stable