Mercurial > octave-nkf

annotate src/variables.cc @ 10071:e42b1bbd1052

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
variables.cc (get_top_level_value, set_top_level_value): new functions
author John W. Eaton <jwe@octave.org>
date Thu, 07 Jan 2010 15:07:19 -0500
parents 2cd940306a06
children cd96d29c5efa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2
7017
a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe]
jwe
parents: 7016
diff changeset
3 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002,
8920
eb63fbe60fab update copyright notices
John W. Eaton <jwe@octave.org>
parents: 8746
diff changeset
4 2003, 2004, 2005, 2006, 2007, 2008, 2009 John W. Eaton
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
5
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
6 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
7
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
8 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
9 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: 7001
diff changeset
10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 7001
diff changeset
11 option) any later version.
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
12
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
13 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
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
15 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
16 for more details.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
17
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
18 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: 7001
diff changeset
19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 7001
diff changeset
20 <http://www.gnu.org/licenses/>.
1
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 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
23
240
a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe]
jwe
parents: 217
diff changeset
24 #ifdef HAVE_CONFIG_H
1192
b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe]
jwe
parents: 1162
diff changeset
25 #include <config.h>
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
26 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
27
1468
cdb87ef617e8 [project @ 1995-09-22 08:09:53 by jwe]
jwe
parents: 1465
diff changeset
28 #include <cstdio>
1343
94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe]
jwe
parents: 1315
diff changeset
29 #include <cstring>
605
4f65175911a6 [project @ 1994-08-13 20:10:39 by jwe]
jwe
parents: 598
diff changeset
30
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
31 #include <iomanip>
4207
fa3482b34599 [project @ 2002-12-03 18:22:05 by jwe]
jwe
parents: 4179
diff changeset
32 #include <set>
1728
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe]
jwe
parents: 1719
diff changeset
33 #include <string>
42b4f904f1af [project @ 1996-01-09 11:36:01 by jwe]
jwe
parents: 1719
diff changeset
34
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
35 #include "file-stat.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
36 #include "oct-env.h"
4604
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe]
jwe
parents: 4587
diff changeset
37 #include "file-ops.h"
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
38 #include "glob-match.h"
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
39 #include "regex-match.h"
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
40 #include "str-vec.h"
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
41
2492
06595bc7f2d0 [project @ 1996-11-09 00:13:50 by jwe]
jwe
parents: 2487
diff changeset
42 #include <defaults.h>
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
43 #include "Cell.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
44 #include "defun.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
45 #include "dirfns.h"
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
46 #include "error.h"
2205
bd389b53befa [project @ 1996-05-15 06:15:45 by jwe]
jwe
parents: 2181
diff changeset
47 #include "gripes.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
48 #include "help.h"
3165
e4bbfc196e53 [project @ 1998-04-16 03:01:47 by jwe]
jwe
parents: 3162
diff changeset
49 #include "input.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
50 #include "lex.h"
5832
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe]
jwe
parents: 5823
diff changeset
51 #include "load-path.h"
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
52 #include "oct-map.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
53 #include "oct-obj.h"
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
54 #include "ov.h"
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
55 #include "ov-class.h"
3933
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3681
diff changeset
56 #include "ov-usr-fcn.h"
605
4f65175911a6 [project @ 1994-08-13 20:10:39 by jwe]
jwe
parents: 598
diff changeset
57 #include "pager.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
58 #include "parse.h"
2926
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe]
jwe
parents: 2921
diff changeset
59 #include "symtab.h"
2205
bd389b53befa [project @ 1996-05-15 06:15:45 by jwe]
jwe
parents: 2181
diff changeset
60 #include "toplev.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
61 #include "unwind-prot.h"
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
62 #include "utils.h"
1352
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe]
jwe
parents: 1350
diff changeset
63 #include "variables.h"
2205
bd389b53befa [project @ 1996-05-15 06:15:45 by jwe]
jwe
parents: 2181
diff changeset
64
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
65 // Defines layout for the whos/who -long command
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
66 static std::string Vwhos_line_format
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
67 = " %a:4; %ln:6; %cs:16:6:1; %rb:12; %lc:-1;\n";
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
68
6068
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe]
jwe
parents: 5930
diff changeset
69 void
6072
4036e6fca790 [project @ 2006-10-24 01:00:12 by jwe]
jwe
parents: 6068
diff changeset
70 clear_mex_functions (void)
6068
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe]
jwe
parents: 5930
diff changeset
71 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
72 symbol_table::clear_mex_functions ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
73 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
74
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
75 void
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
76 clear_function (const std::string& nm)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
77 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
78 symbol_table::clear_function (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
79 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
80
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
81 void
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
82 clear_variable (const std::string& nm)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
83 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
84 symbol_table::clear_variable (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
85 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
86
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
87 void
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
88 clear_symbol (const std::string& nm)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
89 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
90 symbol_table::clear_symbol (nm);
6068
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe]
jwe
parents: 5930
diff changeset
91 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe]
jwe
parents: 5930
diff changeset
92
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
93 // Attributes of variables and functions.
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
94
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 2076
diff changeset
95 // Is this octave_value a valid function?
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
96
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
97 octave_function *
4345
4e23bfdd6172 [project @ 2003-02-20 20:45:49 by jwe]
jwe
parents: 4342
diff changeset
98 is_valid_function (const std::string& fcn_name,
4e23bfdd6172 [project @ 2003-02-20 20:45:49 by jwe]
jwe
parents: 4342
diff changeset
99 const std::string& warn_for, bool warn)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
100 {
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
101 octave_function *ans = 0;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
102
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
103 if (! fcn_name.empty ())
3618
8cea69ad95ae [project @ 2000-03-22 20:51:45 by jwe]
jwe
parents: 3565
diff changeset
104 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
105 octave_value val = symbol_table::find_function (fcn_name);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
106
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
107 if (val.is_defined ())
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
108 ans = val.function_value (true);
3618
8cea69ad95ae [project @ 2000-03-22 20:51:45 by jwe]
jwe
parents: 3565
diff changeset
109 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
110
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
111 if (! ans && warn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
112 error ("%s: the symbol `%s' is not valid as a function",
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
113 warn_for.c_str (), fcn_name.c_str ());
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
114
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
115 return ans;
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
116 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
117
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
118 octave_function *
4345
4e23bfdd6172 [project @ 2003-02-20 20:45:49 by jwe]
jwe
parents: 4342
diff changeset
119 is_valid_function (const octave_value& arg,
4e23bfdd6172 [project @ 2003-02-20 20:45:49 by jwe]
jwe
parents: 4342
diff changeset
120 const std::string& warn_for, bool warn)
3178
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
121 {
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
122 octave_function *ans = 0;
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
123
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
124 std::string fcn_name;
3178
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
125
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
126 if (arg.is_string ())
4700
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
127 {
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
128 fcn_name = arg.string_value ();
3178
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
129
4700
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
130 if (! error_state)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
131 ans = is_valid_function (fcn_name, warn_for, warn);
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
132 else if (warn)
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
133 error ("%s: expecting function name as argument", warn_for.c_str ());
ca3a1d687bba [project @ 2004-01-21 03:28:31 by jwe]
jwe
parents: 4604
diff changeset
134 }
3178
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
135 else if (warn)
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
136 error ("%s: expecting function name as argument", warn_for.c_str ());
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
137
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
138 return ans;
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
139 }
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
140
09a3064a3a17 [project @ 1998-06-23 03:46:42 by jwe]
jwe
parents: 3165
diff changeset
141 octave_function *
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
142 extract_function (const octave_value& arg, const std::string& warn_for,
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
143 const std::string& fname, const std::string& header,
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
144 const std::string& trailer)
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
145 {
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
146 octave_function *retval = 0;
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
147
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
148 retval = is_valid_function (arg, warn_for, 0);
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
149
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
150 if (! retval)
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
151 {
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
152 std::string s = arg.string_value ();
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
153
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
154 std::string cmd = header;
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
155 cmd.append (s);
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
156 cmd.append (trailer);
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
157
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
158 if (! error_state)
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
159 {
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
160 int parse_status;
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
161
9727
04386b72d3df fix extract_function & add obsoleteness warning
Jaroslav Hajek <highegg@gmail.com>
parents: 9724
diff changeset
162 eval_string (cmd, true, parse_status, 0);
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
163
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
164 if (parse_status == 0)
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
165 {
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
166 retval = is_valid_function (fname, warn_for, 0);
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
167
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
168 if (! retval)
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
169 {
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
170 error ("%s: `%s' is not valid as a function",
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
171 warn_for.c_str (), fname.c_str ());
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
172 return retval;
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
173 }
9727
04386b72d3df fix extract_function & add obsoleteness warning
Jaroslav Hajek <highegg@gmail.com>
parents: 9724
diff changeset
174
04386b72d3df fix extract_function & add obsoleteness warning
Jaroslav Hajek <highegg@gmail.com>
parents: 9724
diff changeset
175 warning ("%s: passing function body as a string is obsolete."
04386b72d3df fix extract_function & add obsoleteness warning
Jaroslav Hajek <highegg@gmail.com>
parents: 9724
diff changeset
176 " Please use anonymous functions.", warn_for.c_str ());
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
177 }
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
178 else
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
179 error ("%s: `%s' is not valid as a function",
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
180 warn_for.c_str (), fname.c_str ());
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
181 }
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
182 else
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
183 error ("%s: expecting first argument to be a string",
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
184 warn_for.c_str ());
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
185 }
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
186
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
187 return retval;
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
188 }
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
189
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
190 string_vector
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
191 get_struct_elts (const std::string& text)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
192 {
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
193 int n = 1;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
194
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
195 size_t pos = 0;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
196
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
197 size_t len = text.length ();
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
198
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
199 while ((pos = text.find ('.', pos)) != std::string::npos)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
200 {
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
201 if (++pos == len)
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
202 break;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
203
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
204 n++;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
205 }
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
206
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
207 string_vector retval (n);
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
208
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
209 pos = 0;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
210
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
211 for (int i = 0; i < n; i++)
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
212 {
4587
7b957b442818 [project @ 2003-11-10 15:50:39 by jwe]
jwe
parents: 4526
diff changeset
213 len = text.find ('.', pos);
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
214
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
215 if (len != std::string::npos)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
216 len -= pos;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
217
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
218 retval[i] = text.substr (pos, len);
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
219
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
220 if (len != std::string::npos)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
221 pos += len + 1;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
222 }
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
223
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
224 return retval;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
225 }
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
226
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
227 static inline bool
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
228 is_variable (const std::string& name)
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
229 {
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
230 bool retval = false;
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
231
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
232 if (! name.empty ())
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
233 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
234 octave_value val = symbol_table::varval (name);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
235
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
236 retval = val.is_defined ();
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
237 }
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
238
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
239 return retval;
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
240 }
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
241
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
242 string_vector
3933
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3681
diff changeset
243 generate_struct_completions (const std::string& text,
f9ea3dcf58ee [project @ 2002-05-15 03:21:00 by jwe]
jwe
parents: 3681
diff changeset
244 std::string& prefix, std::string& hint)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
245 {
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
246 string_vector names;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
247
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
248 size_t pos = text.rfind ('.');
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
249
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
250 if (pos != std::string::npos)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
251 {
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
252 if (pos == text.length ())
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
253 hint = "";
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
254 else
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
255 hint = text.substr (pos+1);
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
256
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
257 prefix = text.substr (0, pos);
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
258
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
259 std::string base_name = prefix;
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
260
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
261 pos = base_name.find_first_of ("{(.");
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
262
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
263 if (pos != std::string::npos)
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
264 base_name = base_name.substr (0, pos);
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
265
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
266 if (is_variable (base_name))
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
267 {
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
268 int parse_status;
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
269
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
270 unwind_protect frame;
3935
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe]
jwe
parents: 3933
diff changeset
271
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
272 frame.protect_var (error_state);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
273 frame.protect_var (warning_state);
4452
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
274
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
275 frame.protect_var (discard_error_messages);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
276 frame.protect_var (discard_warning_messages);
3935
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe]
jwe
parents: 3933
diff changeset
277
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
278 discard_error_messages = true;
4452
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
279 discard_warning_messages = true;
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
280
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
281 octave_value tmp = eval_string (prefix, true, parse_status);
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
282
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
283 frame.run ();
3935
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe]
jwe
parents: 3933
diff changeset
284
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
285 if (tmp.is_defined () && tmp.is_map ())
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
286 names = tmp.map_keys ();
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
287 }
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
288 }
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
289
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
290 return names;
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
291 }
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
292
5775
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe]
jwe
parents: 5760
diff changeset
293 // FIXME -- this will have to be much smarter to work
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
294 // "correctly".
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
295
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
296 bool
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
297 looks_like_struct (const std::string& text)
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
298 {
4604
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe]
jwe
parents: 4587
diff changeset
299 bool retval = (! text.empty ()
cba347c642e2 [project @ 2003-11-13 04:38:05 by jwe]
jwe
parents: 4587
diff changeset
300 && text != "."
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
301 && text.find_first_of (file_ops::dir_sep_chars ()) == std::string::npos
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
302 && text.find ("..") == std::string::npos
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
303 && text.rfind ('.') != std::string::npos);
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
304
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
305 #if 0
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
306 symbol_record *sr = curr_sym_tab->lookup (text);
2963
c0c280cda856 [project @ 1997-05-12 03:25:07 by jwe]
jwe
parents: 2956
diff changeset
307
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
308 if (sr && ! sr->is_function ())
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
309 {
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
310 int parse_status;
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
311
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
312 unwind_protect frame;
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
313
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
314 frame.protect_var (discard_error_messages);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
315 frame.protect_var (error_state);
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
316
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
317 discard_error_messages = true;
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
318
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
319 octave_value tmp = eval_string (text, true, parse_status);
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
320
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
321 frame.run ();
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
322
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
323 retval = (tmp.is_defined () && tmp.is_map ());
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
324 }
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
325 #endif
3968
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
326
cef0ea4d1b3a [project @ 2002-07-01 19:16:01 by jwe]
jwe
parents: 3935
diff changeset
327 return retval;
2921
64dd86522a1d [project @ 1997-05-02 02:52:54 by jwe]
jwe
parents: 2909
diff changeset
328 }
2796
74bc1ede3c3d [project @ 1997-03-07 06:55:47 by jwe]
jwe
parents: 2790
diff changeset
329
5930
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
330 static octave_value
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
331 do_isglobal (const octave_value_list& args)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
332 {
4233
ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe]
jwe
parents: 4224
diff changeset
333 octave_value retval = false;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
334
712
36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe]
jwe
parents: 704
diff changeset
335 int nargin = args.length ();
36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe]
jwe
parents: 704
diff changeset
336
36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe]
jwe
parents: 704
diff changeset
337 if (nargin != 1)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
338 {
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
339 print_usage ();
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
340 return retval;
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
341 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
342
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
343 std::string name = args(0).string_value ();
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
344
636
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
345 if (error_state)
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
346 {
4028
ef75c970c8f5 [project @ 2002-08-09 07:19:02 by jwe]
jwe
parents: 4016
diff changeset
347 error ("isglobal: expecting std::string argument");
636
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
348 return retval;
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
349 }
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
350
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
351 return symbol_table::is_global (name);
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
352 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
353
5930
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
354 DEFUN (isglobal, args, ,
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
355 "-*- texinfo -*-\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
356 @deftypefn {Built-in Function} {} isglobal (@var{name})\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
357 Return 1 if @var{name} is globally visible. Otherwise, return 0. For\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
358 example,\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
359 \n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
360 @example\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
361 @group\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
362 global x\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
363 isglobal (\"x\")\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
364 @result{} 1\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
365 @end group\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
366 @end example\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
367 @end deftypefn")
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
368 {
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
369 return do_isglobal (args);
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
370 }
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
371
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
372 DEFUN (is_global, args, ,
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
373 "-*- texinfo -*-\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
374 @deftypefn {Built-in Function} {} isglobal (@var{name})\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
375 This function has been deprecated. Use isglobal instead.\n\
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
376 @end deftypefn")
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
377 {
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
378 return do_isglobal (args);
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
379 }
a703198cb8b8 [project @ 2006-08-15 06:06:15 by jwe]
jwe
parents: 5929
diff changeset
380
9454
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
381 static octave_value
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
382 safe_symbol_lookup (const std::string& symbol_name)
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
383 {
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
384 octave_value retval;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
385
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
386 unwind_protect frame;
9454
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
387
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
388 frame.protect_var (buffer_error_messages);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
389 frame.protect_var (Vdebug_on_error);
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
390 frame.protect_var (Vdebug_on_warning);
9454
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
391
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
392 buffer_error_messages++;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
393 Vdebug_on_error = false;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
394 Vdebug_on_warning = false;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
395
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
396 retval = symbol_table::find (symbol_name);
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
397
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
398 error_state = 0;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
399
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
400 return retval;
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
401 }
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
402
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
403 int
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
404 symbol_exist (const std::string& name, const std::string& type)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
405 {
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
406 int retval = 0;
636
fae2bd91c027 [project @ 1994-08-23 18:39:50 by jwe]
jwe
parents: 628
diff changeset
407
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
408 std::string struct_elts;
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
409 std::string symbol_name = name;
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
410
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
411 size_t pos = name.find ('.');
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
412
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
413 if (pos != std::string::npos && pos > 0)
1277
db4f4009d6e8 [project @ 1995-04-24 20:35:06 by jwe]
jwe
parents: 1271
diff changeset
414 {
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
415 struct_elts = name.substr (pos+1);
2790
ecc1a12678de [project @ 1997-03-05 02:47:54 by jwe]
jwe
parents: 2517
diff changeset
416 symbol_name = name.substr (0, pos);
1277
db4f4009d6e8 [project @ 1995-04-24 20:35:06 by jwe]
jwe
parents: 1271
diff changeset
417 }
db4f4009d6e8 [project @ 1995-04-24 20:35:06 by jwe]
jwe
parents: 1271
diff changeset
418
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
419 // We shouldn't need to look in the global symbol table, since any
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
420 // name that is visible in the current scope will be in the local
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
421 // symbol table.
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
422
9454
c58b8960c7d0 variables.cc (symbol_exist): ignore errors when parsing functions
John W. Eaton <jwe@octave.org>
parents: 9445
diff changeset
423 octave_value val = safe_symbol_lookup (symbol_name);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
424
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
425 if (val.is_defined ())
1277
db4f4009d6e8 [project @ 1995-04-24 20:35:06 by jwe]
jwe
parents: 1271
diff changeset
426 {
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
427 bool not_a_struct = struct_elts.empty ();
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
428 bool var_ok = not_a_struct /* || val.is_map_element (struct_elts) */;
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
429
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
430 if (! retval
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
431 && var_ok
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
432 && (type == "any" || type == "var")
9318
1a1c839625b3 fix exist for function handles and inline functions
John W. Eaton <jwe@octave.org>
parents: 9314
diff changeset
433 && (val.is_constant () || val.is_object ()
1a1c839625b3 fix exist for function handles and inline functions
John W. Eaton <jwe@octave.org>
parents: 9314
diff changeset
434 || val.is_inline_function () || val.is_function_handle ()))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
435 {
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
436 retval = 1;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
437 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
438
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
439 if (! retval
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
440 && (type == "any" || type == "builtin"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
441 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
442 if (not_a_struct && val.is_builtin_function ())
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
443 {
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
444 retval = 5;
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
445 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
446 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
447
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
448 if (! retval
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
449 && not_a_struct
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
450 && (type == "any" || type == "file")
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
451 && (val.is_user_function () || val.is_dld_function ()))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
452 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
453 octave_function *f = val.function_value (true);
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
454 std::string s = f ? f->fcn_file_name () : std::string ();
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
455
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
456 retval = s.empty () ? 103 : (val.is_user_function () ? 2 : 3);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
457 }
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
458 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
459
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
460 if (! (type == "var" || type == "builtin"))
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
461 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
462 if (! retval)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
463 {
5484
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
464 std::string file_name = lookup_autoload (name);
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
465
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
466 if (file_name.empty ())
5832
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe]
jwe
parents: 5823
diff changeset
467 file_name = load_path::find_fcn (name);
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
468
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
469 size_t len = file_name.length ();
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
470
5832
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe]
jwe
parents: 5823
diff changeset
471 if (len > 0)
4437
0a59e4de215e [project @ 2003-06-24 19:28:48 by jwe]
jwe
parents: 4435
diff changeset
472 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
473 if (type == "any" || type == "file")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
474 {
5864
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
475 if (len > 4 && (file_name.substr (len-4) == ".oct"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
476 || file_name.substr (len-4) == ".mex"))
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
477 retval = 3;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
478 else
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
479 retval = 2;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
480 }
4437
0a59e4de215e [project @ 2003-06-24 19:28:48 by jwe]
jwe
parents: 4435
diff changeset
481 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
482 }
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
483
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
484 if (! retval)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
485 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
486 std::string file_name = file_in_path (name, "");
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
487
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
488 if (file_name.empty ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
489 file_name = name;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
490
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
491 file_stat fs (file_name);
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
492
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
493 if (fs)
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
494 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
495 if ((type == "any" || type == "file")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
496 && fs.is_reg ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
497 {
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
498 retval = 2;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
499 }
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
500 else if ((type == "any" || type == "dir")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
501 && fs.is_dir ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
502 {
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
503 retval = 7;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
504 }
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
505 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
506 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
507 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
508
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
509 return retval;
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
510 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
511
4962
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
512 #define GET_IDX(LEN) \
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
513 static_cast<int> ((LEN-1) * static_cast<double> (rand ()) / RAND_MAX)
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
514
4954
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
515 std::string
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
516 unique_symbol_name (const std::string& basename)
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
517 {
4962
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
518 static const std::string alpha
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
519 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
520
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
521 static size_t len = alpha.length ();
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
522
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
523 std::string nm = basename + alpha[GET_IDX (len)];
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
524
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
525 size_t pos = nm.length ();
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
526
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
527 if (nm.substr (0, 2) == "__")
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
528 nm.append ("__");
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
529
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
530 while (symbol_exist (nm, "any"))
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
531 nm.insert (pos++, 1, alpha[GET_IDX (len)]);
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
532
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
533 return nm;
4954
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
534 }
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
535
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
536 DEFUN (exist, args, ,
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
537 "-*- texinfo -*-\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
538 @deftypefn {Built-in Function} {} exist (@var{name}, @var{type})\n\
7626
ec78d83a7fde variables.cc (exist): Clarify help.
Ben Abbott <bpabbott@mac.com>
parents: 7586
diff changeset
539 Return 1 if the name exists as a variable, 2 if the name is an\n\
ec78d83a7fde variables.cc (exist): Clarify help.
Ben Abbott <bpabbott@mac.com>
parents: 7586
diff changeset
540 absolute file name, an ordinary file in Octave's @code{path}, or (after\n\
ec78d83a7fde variables.cc (exist): Clarify help.
Ben Abbott <bpabbott@mac.com>
parents: 7586
diff changeset
541 appending @samp{.m}) a function file in Octave's @code{path}, 3 if the\n\
5864
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
542 name is a @samp{.oct} or @samp{.mex} file in Octave's @code{path},\n\
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
543 5 if the name is a built-in function, 7 if the name is a directory, or 103\n\
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
544 if the name is a function not associated with a file (entered on\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
545 the command line).\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
546 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
547 Otherwise, return 0.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
548 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
549 This function also returns 2 if a regular file called @var{name}\n\
5814
67bf9b4f2ae2 [project @ 2006-05-11 21:58:34 by jwe]
jwe
parents: 5800
diff changeset
550 exists in Octave's search path. If you want information about\n\
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
551 other types of files, you should use some combination of the functions\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
552 @code{file_in_path} and @code{stat} instead.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
553 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
554 If the optional argument @var{type} is supplied, check only for\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
555 symbols of the specified type. Valid types are\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
556 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
557 @table @samp\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
558 @item \"var\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
559 Check only for variables.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
560 @item \"builtin\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
561 Check only for built-in functions.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
562 @item \"file\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
563 Check only for files.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
564 @item \"dir\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
565 Check only for directories.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
566 @end table\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
567 @end deftypefn")
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
568 {
4233
ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe]
jwe
parents: 4224
diff changeset
569 octave_value retval = false;
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
570
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
571 int nargin = args.length ();
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
572
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
573 if (nargin == 1 || nargin == 2)
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
574 {
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
575 std::string name = args(0).string_value ();
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
576
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
577 if (! error_state)
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
578 {
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
579 std::string type
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
580 = (nargin == 2) ? args(1).string_value () : std::string ("any");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
581
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
582 if (! error_state)
4233
ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe]
jwe
parents: 4224
diff changeset
583 retval = symbol_exist (name, type);
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
584 else
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
585 error ("exist: expecting second argument to be a string");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
586 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
587 else
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
588 error ("exist: expecting first argument to be a string");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
589 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
590 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
591 print_usage ();
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
592
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
593 return retval;
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
594 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
595
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
596 octave_value
4988
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
597 lookup_function_handle (const std::string& nm)
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
598 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
599 octave_value val = symbol_table::varval (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
600
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
601 return val.is_function_handle () ? val : octave_value ();
4988
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
602 }
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
603
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
604 octave_value
5027
da607e9daf12 [project @ 2004-09-23 01:37:57 by jwe]
jwe
parents: 5004
diff changeset
605 get_global_value (const std::string& nm, bool silent)
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
606 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
607 octave_value val = symbol_table::global_varval (nm);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
608
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
609 if (val.is_undefined () && ! silent)
10071
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
610 error ("get_global_value: undefined symbol `%s'", nm.c_str ());
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
611
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
612 return val;
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
613 }
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
614
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
615 void
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
616 set_global_value (const std::string& nm, const octave_value& val)
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
617 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
618 symbol_table::global_varref (nm) = val;
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
619 }
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
620
10071
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
621 octave_value
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
622 get_top_level_value (const std::string& nm, bool silent)
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
623 {
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
624 octave_value val = symbol_table::top_level_varval (nm);
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
625
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
626 if (val.is_undefined () && ! silent)
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
627 error ("get_top_level_value: undefined symbol `%s'", nm.c_str ());
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
628
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
629 return val;
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
630 }
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
631
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
632 void
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
633 set_top_level_value (const std::string& nm, const octave_value& val)
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
634 {
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
635 symbol_table::top_level_varref (nm) = val;
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
636 }
e42b1bbd1052 variables.cc (get_top_level_value, set_top_level_value): new functions
John W. Eaton <jwe@octave.org>
parents: 10066
diff changeset
637
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
638 // Variable values.
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
639
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
640 octave_value
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
641 set_internal_variable (bool& var, const octave_value_list& args,
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
642 int nargout, const char *nm)
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
643 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
644 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
645
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
646 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
647
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
648 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
649 retval = var;
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
650
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
651 if (nargin == 1)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
652 {
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
653 bool bval = args(0).bool_value ();
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
654
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
655 if (! error_state)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
656 var = bval;
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
657 else
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
658 error ("%s: expecting arg to be a logical value", nm);
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
659 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
660 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
661 print_usage ();
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
662
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
663 return retval;
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
664 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
665
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
666 octave_value
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
667 set_internal_variable (char& var, const octave_value_list& args,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
668 int nargout, const char *nm)
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
669 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
670 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
671
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
672 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
673
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
674 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
675 retval = var;
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
676
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
677 if (nargin == 1)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
678 {
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
679 std::string sval = args(0).string_value ();
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
680
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
681 if (! error_state)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
682 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
683 switch (sval.length ())
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
684 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
685 case 1:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
686 var = sval[0];
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
687 break;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
688
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
689 case 0:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
690 var = '\0';
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
691 break;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
692
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
693 default:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
694 error ("%s: argument must be a single character", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
695 break;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
696 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
697 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
698 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
699 error ("%s: argument must be a single character", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
700 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
701 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
702 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
703
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
704 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
705 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
706
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
707 octave_value
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
708 set_internal_variable (int& var, const octave_value_list& args,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
709 int nargout, const char *nm,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
710 int minval, int maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
711 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
712 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
713
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
714 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
715
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
716 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
717 retval = var;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
718
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
719 if (nargin == 1)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
720 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
721 int ival = args(0).int_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
722
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
723 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
724 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
725 if (ival < minval)
9180
2669527e0ce5 variables.cc (set_internal_variable): Pass NM in call to error
John W. Eaton <jwe@octave.org>
parents: 9153
diff changeset
726 error ("%s: expecting arg to be greater than %d", nm, minval);
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
727 else if (ival > maxval)
9180
2669527e0ce5 variables.cc (set_internal_variable): Pass NM in call to error
John W. Eaton <jwe@octave.org>
parents: 9153
diff changeset
728 error ("%s: expecting arg to be less than or equal to %d",
2669527e0ce5 variables.cc (set_internal_variable): Pass NM in call to error
John W. Eaton <jwe@octave.org>
parents: 9153
diff changeset
729 nm, maxval);
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
730 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
731 var = ival;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
732 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
733 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
734 error ("%s: expecting arg to be an integer value", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
735 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
736 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
737 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
738
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
739 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
740 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
741
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
742 octave_value
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
743 set_internal_variable (double& var, const octave_value_list& args,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
744 int nargout, const char *nm,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
745 double minval, double maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
746 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
747 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
748
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
749 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
750
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
751 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
752 retval = var;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
753
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
754 if (nargin == 1)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
755 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
756 double dval = args(0).scalar_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
757
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
758 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
759 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
760 if (dval < minval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
761 error ("%s: expecting arg to be greater than %g", minval);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
762 else if (dval > maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
763 error ("%s: expecting arg to be less than or equal to %g", maxval);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
764 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
765 var = dval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
766 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
767 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
768 error ("%s: expecting arg to be a scalar value", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
769 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
770 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
771 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
772
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
773 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
774 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
775
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
776 octave_value
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
777 set_internal_variable (std::string& var, const octave_value_list& args,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
778 int nargout, const char *nm, bool empty_ok)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
779 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
780 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
781
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
782 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
783
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
784 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
785 retval = var;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
786
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
787 if (nargin == 1)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
788 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
789 std::string sval = args(0).string_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
790
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
791 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
792 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
793 if (empty_ok || ! sval.empty ())
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
794 var = sval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
795 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
796 error ("%s: value must not be empty", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
797 }
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
798 else
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
799 error ("%s: expecting arg to be a character string", nm);
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
800 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
801 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
802 print_usage ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
803
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
804 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
805 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
806
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
807 struct
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
808 whos_parameter
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
809 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
810 char command;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
811 char modifier;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
812 int parameter_length;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
813 int first_parameter_length;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
814 int balance;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
815 std::string text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
816 std::string line;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
817 };
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
818
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
819 static void
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
820 print_descriptor (std::ostream& os, std::list<whos_parameter> params)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
821 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
822 // This method prints a line of information on a given symbol
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
823 std::list<whos_parameter>::iterator i = params.begin ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
824 std::ostringstream param_buf;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
825
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
826 while (i != params.end ())
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
827 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
828 whos_parameter param = *i;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
829
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
830 if (param.command != '\0')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
831 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
832 // Do the actual printing
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
833 switch (param.modifier)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
834 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
835 case 'l':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
836 os << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
837 param_buf << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
838 break;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
839
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
840 case 'r':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
841 os << std::setiosflags (std::ios::right) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
842 param_buf << std::setiosflags (std::ios::right) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
843 break;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
844
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
845 case 'c':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
846 if (param.command != 's')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
847 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
848 os << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
849 << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
850 param_buf << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
851 << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
852 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
853 break;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
854
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
855 default:
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
856 os << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
857 param_buf << std::setiosflags (std::ios::left) << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
858 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
859
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
860 if (param.command == 's' && param.modifier == 'c')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
861 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
862 int a, b;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
863
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
864 if (param.modifier == 'c')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
865 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
866 a = param.first_parameter_length - param.balance;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
867 a = (a < 0 ? 0 : a);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
868 b = param.parameter_length - a - param.text . length ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
869 b = (b < 0 ? 0 : b);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
870 os << std::setiosflags (std::ios::left) << std::setw (a)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
871 << "" << std::resetiosflags (std::ios::left) << param.text
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
872 << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
873 << std::setw (b) << ""
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
874 << std::resetiosflags (std::ios::left);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
875 param_buf << std::setiosflags (std::ios::left) << std::setw (a)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
876 << "" << std::resetiosflags (std::ios::left) << param.line
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
877 << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
878 << std::setw (b) << ""
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
879 << std::resetiosflags (std::ios::left);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
880 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
881 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
882 else
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
883 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
884 os << param.text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
885 param_buf << param.line;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
886 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
887 os << std::resetiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
888 << std::resetiosflags (std::ios::right);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
889 param_buf << std::resetiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
890 << std::resetiosflags (std::ios::right);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
891 i++;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
892 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
893 else
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
894 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
895 os << param.text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
896 param_buf << param.line;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
897 i++;
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
898 }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
899 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
900
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
901 os << param_buf.str ();
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
902 }
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
903
9704
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
904 // FIXME -- This is a bit of a kluge. We'd like to just use val.dims()
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
905 // and if val is an object, expect that dims will call size if it is
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
906 // overloaded by a user-defined method. But there are currently some
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
907 // unresolved const issues that prevent that solution from working.
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
908
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
909 std::string
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
910 get_dims_str (const octave_value& val)
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
911 {
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
912 octave_value tmp = val;
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
913
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
914 Matrix sz = tmp.size ();
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
915
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
916 dim_vector dv (sz.numel ());
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
917
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
918 for (octave_idx_type i = 0; i < dv.length (); i++)
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
919 dv(i) = sz(i);
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
920
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
921 return dv.str ();
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
922 }
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
923
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
924 class
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
925 symbol_info_list
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
926 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
927 private:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
928 struct symbol_info
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
929 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
930 symbol_info (const symbol_table::symbol_record& sr,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
931 const std::string& expr_str = std::string (),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
932 const octave_value& expr_val = octave_value ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
933 : name (expr_str.empty () ? sr.name () : expr_str),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
934 is_automatic (sr.is_automatic ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
935 is_formal (sr.is_formal ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
936 is_global (sr.is_global ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
937 is_persistent (sr.is_persistent ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
938 varval (expr_val.is_undefined () ? sr.varval () : expr_val)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
939 { }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
940
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
941 void display_line (std::ostream& os,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
942 const std::list<whos_parameter>& params) const
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
943 {
9704
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
944 std::string dims_str = get_dims_str (varval);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
945
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
946 std::list<whos_parameter>::const_iterator i = params.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
947
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
948 while (i != params.end ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
949 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
950 whos_parameter param = *i;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
951
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
952 if (param.command != '\0')
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
953 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
954 // Do the actual printing.
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
955
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
956 switch (param.modifier)
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
957 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
958 case 'l':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
959 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
960 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
961 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
962
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
963 case 'r':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
964 os << std::setiosflags (std::ios::right)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
965 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
966 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
967
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
968 case 'c':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
969 if (param.command == 's')
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
970 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
971 int front = param.first_parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
972 - dims_str.find ('x');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
973 int back = param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
974 - dims_str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
975 - front;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
976 front = (front > 0) ? front : 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
977 back = (back > 0) ? back : 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
978
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
979 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
980 << std::setw (front)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
981 << ""
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
982 << std::resetiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
983 << dims_str
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
984 << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
985 << std::setw (back)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
986 << ""
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
987 << std::resetiosflags (std::ios::left);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
988 }
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
989 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
990 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
991 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
992 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
993 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
994 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
995
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
996 default:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
997 error ("whos_line_format: modifier `%c' unknown",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
998 param.modifier);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
999
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1000 os << std::setiosflags (std::ios::right)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1001 << std::setw (param.parameter_length);
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
1002 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1003
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1004 switch (param.command)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1005 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1006 case 'a':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1007 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1008 char tmp[5];
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1009
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1010 tmp[0] = (is_automatic ? 'a' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1011 tmp[1] = (is_formal ? 'f' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1012 tmp[2] = (is_global ? 'g' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1013 tmp[3] = (is_persistent ? 'p' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1014 tmp[4] = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1015
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1016 os << tmp;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1017 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1018 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1019
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1020 case 'b':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1021 os << varval.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1022 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1023
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1024 case 'c':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1025 os << varval.class_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1026 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1027
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1028 case 'e':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1029 os << varval.capacity ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1030 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1031
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1032 case 'n':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1033 os << name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1034 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1035
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1036 case 's':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1037 if (param.modifier != 'c')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1038 os << dims_str;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1039 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1040
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1041 case 't':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1042 os << varval.type_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1043 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1044
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1045 default:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1046 error ("whos_line_format: command `%c' unknown",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1047 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1048 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1049
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1050 os << std::resetiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1051 << std::resetiosflags (std::ios::right);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1052 i++;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1053 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1054 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1055 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1056 os << param.text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1057 i++;
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
1058 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1059 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1060 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1061
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1062 std::string name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1063 bool is_automatic;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1064 bool is_formal;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1065 bool is_global;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1066 bool is_persistent;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1067 octave_value varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1068 };
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1069
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1070 public:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1071 symbol_info_list (void) : lst () { }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1072
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1073 symbol_info_list (const symbol_info_list& sil) : lst (sil.lst) { }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1074
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1075 symbol_info_list& operator = (const symbol_info_list& sil)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1076 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1077 if (this != &sil)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1078 lst = sil.lst;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1079
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1080 return *this;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1081 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1082
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1083 ~symbol_info_list (void) { }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1084
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1085 void append (const symbol_table::symbol_record& sr)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1086 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1087 lst.push_back (symbol_info (sr));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1088 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1089
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1090 void append (const symbol_table::symbol_record& sr,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1091 const std::string& expr_str,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1092 const octave_value& expr_val)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1093 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1094 lst.push_back (symbol_info (sr, expr_str, expr_val));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1095 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1096
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1097 size_t size (void) const { return lst.size (); }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1098
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1099 bool empty (void) const { return lst.empty (); }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1100
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1101 Octave_map
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1102 map_value (const std::string& caller_function_name, int nesting_level) const
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1103 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1104 size_t len = lst.size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1105
9732
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1106 Cell name_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1107 Cell size_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1108 Cell bytes_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1109 Cell class_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1110 Cell global_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1111 Cell sparse_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1112 Cell complex_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1113 Cell nesting_info (len, 1);
b4fdfee405b5 remove ArrayN<T> + fix nonhom. diag-scalar ops
Jaroslav Hajek <highegg@gmail.com>
parents: 9727
diff changeset
1114 Cell persistent_info (len, 1);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1115
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1116 std::list<symbol_info>::const_iterator p = lst.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1117
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1118 for (size_t j = 0; j < len; j++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1119 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1120 const symbol_info& si = *p++;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1121
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1122 Octave_map ni;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1123
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1124 ni.assign ("function", caller_function_name);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1125 ni.assign ("level", nesting_level);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1126
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1127 name_info(j) = si.name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1128 global_info(j) = si.is_global;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1129 persistent_info(j) = si.is_persistent;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1130
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1131 octave_value val = si.varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1132
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1133 size_info(j) = val.size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1134 bytes_info(j) = val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1135 class_info(j) = val.class_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1136 sparse_info(j) = val.is_sparse_type ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1137 complex_info(j) = val.is_complex_type ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1138 nesting_info(j) = ni;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1139 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1140
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1141 Octave_map info;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1142
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1143 info.assign ("name", name_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1144 info.assign ("size", size_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1145 info.assign ("bytes", bytes_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1146 info.assign ("class", class_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1147 info.assign ("global", global_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1148 info.assign ("sparse", sparse_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1149 info.assign ("complex", complex_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1150 info.assign ("nesting", nesting_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1151 info.assign ("persistent", persistent_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1152
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1153 return info;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1154 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1155
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1156 void display (std::ostream& os)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1157 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1158 if (! lst.empty ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1159 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1160 size_t bytes = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1161 size_t elements = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1162
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1163 std::list<whos_parameter> params = parse_whos_line_format ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1164
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1165 print_descriptor (os, params);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1166
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1167 octave_stdout << "\n";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1168
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1169 for (std::list<symbol_info>::const_iterator p = lst.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1170 p != lst.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1171 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1172 p->display_line (os, params);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1173
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1174 octave_value val = p->varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1175
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1176 elements += val.capacity ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1177 bytes += val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1178 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1179
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1180 os << "\nTotal is " << elements
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1181 << (elements == 1 ? " element" : " elements")
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1182 << " using " << bytes << (bytes == 1 ? " byte" : " bytes")
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1183 << "\n";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1184 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1185 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1186
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1187 // Parse the string whos_line_format, and return a parameter list,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1188 // containing all information needed to print the given
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1189 // attributtes of the symbols.
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1190 std::list<whos_parameter> parse_whos_line_format (void)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1191 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1192 int idx;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1193 size_t format_len = Vwhos_line_format.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1194 char garbage;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1195 std::list<whos_parameter> params;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1196
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1197 size_t bytes1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1198 int elements1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1199
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1200 std::string param_string = "abcenst";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1201 Array<int> param_length (dim_vector (param_string.length (), 1));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1202 Array<std::string> param_names (dim_vector (param_string.length (), 1));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1203 size_t pos_a, pos_b, pos_c, pos_e, pos_n, pos_s, pos_t;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1204
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1205 pos_a = param_string.find ('a'); // Attributes
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1206 pos_b = param_string.find ('b'); // Bytes
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1207 pos_c = param_string.find ('c'); // Class
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1208 pos_e = param_string.find ('e'); // Elements
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1209 pos_n = param_string.find ('n'); // Name
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1210 pos_s = param_string.find ('s'); // Size
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1211 pos_t = param_string.find ('t'); // Type
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1212
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1213 param_names(pos_a) = "Attr";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1214 param_names(pos_b) = "Bytes";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1215 param_names(pos_c) = "Class";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1216 param_names(pos_e) = "Elements";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1217 param_names(pos_n) = "Name";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1218 param_names(pos_s) = "Size";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1219 param_names(pos_t) = "Type";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1220
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1221 for (size_t i = 0; i < param_string.length (); i++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1222 param_length(i) = param_names(i) . length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1223
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1224 // Calculating necessary spacing for name column,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1225 // bytes column, elements column and class column
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1226
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1227 for (std::list<symbol_info>::const_iterator p = lst.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1228 p != lst.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1229 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1230 std::stringstream ss1, ss2;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1231 std::string str;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1232
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1233 str = p->name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1234 param_length(pos_n) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1235 > static_cast<size_t> (param_length(pos_n)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1236 ? str.length () : param_length(pos_n));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1237
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1238 octave_value val = p->varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1239
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1240 str = val.type_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1241 param_length(pos_t) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1242 > static_cast<size_t> (param_length(pos_t)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1243 ? str.length () : param_length(pos_t));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1244
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1245 elements1 = val.capacity ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1246 ss1 << elements1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1247 str = ss1.str ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1248 param_length(pos_e) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1249 > static_cast<size_t> (param_length(pos_e)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1250 ? str.length () : param_length(pos_e));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1251
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1252 bytes1 = val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1253 ss2 << bytes1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1254 str = ss2.str ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1255 param_length(pos_b) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1256 > static_cast<size_t> (param_length(pos_b)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1257 ? str.length () : param_length (pos_b));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1258 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1259
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1260 idx = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1261 while (static_cast<size_t> (idx) < format_len)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1262 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1263 whos_parameter param;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1264 param.command = '\0';
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1265
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1266 if (Vwhos_line_format[idx] == '%')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1267 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1268 bool error_encountered = false;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1269 param.modifier = 'r';
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1270 param.parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1271
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1272 int a = 0, b = -1, balance = 1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1273 unsigned int items;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1274 size_t pos;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1275 std::string cmd;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1276
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1277 // Parse one command from whos_line_format
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1278 cmd = Vwhos_line_format.substr (idx, Vwhos_line_format.length ());
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1279 pos = cmd.find (';');
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1280 if (pos != std::string::npos)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1281 cmd = cmd.substr (0, pos+1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1282 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1283 error ("parameter without ; in whos_line_format");
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1284
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1285 idx += cmd.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1286
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1287 // FIXME -- use iostream functions instead of sscanf!
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1288
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1289 if (cmd.find_first_of ("crl") != 1)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1290 items = sscanf (cmd.c_str (), "%c%c:%d:%d:%d;",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1291 &garbage, &param.command, &a, &b, &balance);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1292 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1293 items = sscanf (cmd.c_str (), "%c%c%c:%d:%d:%d;",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1294 &garbage, &param.modifier, &param.command,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1295 &a, &b, &balance) - 1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1296
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1297 if (items < 2)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1298 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1299 error ("whos_line_format: parameter structure without command in whos_line_format");
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1300 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1301 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1302
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1303 // Insert data into parameter
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1304 param.first_parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1305 pos = param_string.find (param.command);
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1306 if (pos != std::string::npos)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1307 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1308 param.parameter_length = param_length(pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1309 param.text = param_names(pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1310 param.line.assign (param_names(pos).length (), '=');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1311
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1312 param.parameter_length = (a > param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1313 ? a : param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1314 if (param.command == 's' && param.modifier == 'c' && b > 0)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1315 param.first_parameter_length = b;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1316 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1317 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1318 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1319 error ("whos_line_format: '%c' is not a command",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1320 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1321 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1322 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1323
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1324 if (param.command == 's')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1325 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1326 // Have to calculate space needed for printing
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1327 // matrix dimensions Space needed for Size column is
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1328 // hard to determine in prior, because it depends on
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1329 // dimensions to be shown. That is why it is
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1330 // recalculated for each Size-command int first,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1331 // rest = 0, total;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1332 int rest = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1333 int first = param.first_parameter_length;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1334 int total = param.parameter_length;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1335
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1336 for (std::list<symbol_info>::const_iterator p = lst.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1337 p != lst.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1338 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1339 octave_value val = p->varval;
9704
bb413c0d0d6d whos: kluge fix to get size right for objects
John W. Eaton <jwe@octave.org>
parents: 9454
diff changeset
1340 std::string dims_str = get_dims_str (val);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1341 int first1 = dims_str.find ('x');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1342 int total1 = dims_str.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1343 int rest1 = total1 - first1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1344 rest = (rest1 > rest ? rest1 : rest);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1345 first = (first1 > first ? first1 : first);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1346 total = (total1 > total ? total1 : total);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1347 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1348
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1349 if (param.modifier == 'c')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1350 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1351 if (first < balance)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1352 first += balance - first;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1353 if (rest + balance < param.parameter_length)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1354 rest += param.parameter_length - rest - balance;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1355
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1356 param.parameter_length = first + rest;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1357 param.first_parameter_length = first;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1358 param.balance = balance;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1359 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1360 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1361 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1362 param.parameter_length = total;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1363 param.first_parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1364 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1365 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1366 else if (param.modifier == 'c')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1367 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1368 error ("whos_line_format: modifier 'c' not available for command '%c'",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1369 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1370 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1371 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1372
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1373 // What happens if whos_line_format contains negative numbers
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1374 // at param_length positions?
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1375 param.balance = (b < 0 ? 0 : param.balance);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1376 param.first_parameter_length = (b < 0 ? 0 :
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1377 param.first_parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1378 param.parameter_length = (a < 0
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1379 ? 0
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1380 : (param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1381 < param_length(pos_s)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1382 ? param_length(pos_s)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1383 : param.parameter_length));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1384
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1385 // Parameter will not be pushed into parameter list if ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1386 if (! error_encountered)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1387 params.push_back (param);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1388 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1389 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1390 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1391 // Text string, to be printed as it is ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1392 std::string text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1393 size_t pos;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1394 text = Vwhos_line_format.substr (idx, Vwhos_line_format.length ());
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1395 pos = text.find ('%');
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1396 if (pos != std::string::npos)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1397 text = text.substr (0, pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1398
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1399 // Push parameter into list ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1400 idx += text.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1401 param.text=text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1402 param.line.assign (text.length(), ' ');
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1403 params.push_back (param);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1404 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1405 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1406
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1407 return params;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1408 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1409
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1410 private:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1411 std::list<symbol_info> lst;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1412
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1413 };
5659
960f4b9a26af [project @ 2006-03-10 15:35:20 by jwe]
jwe
parents: 5642
diff changeset
1414
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1415 static octave_value
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1416 do_who (int argc, const string_vector& argv, bool return_list,
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1417 bool verbose = false, std::string msg = std::string ())
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1418 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1419 octave_value retval;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1420
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
1421 std::string my_name = argv[0];
584
4057f845c1ee [project @ 1994-08-07 04:40:03 by jwe]
jwe
parents: 581
diff changeset
1422
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1423 bool global_only = false;
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1424 bool have_regexp = false;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1425
1857
99d5b59cb855 [project @ 1996-02-04 08:02:58 by jwe]
jwe
parents: 1827
diff changeset
1426 int i;
99d5b59cb855 [project @ 1996-02-04 08:02:58 by jwe]
jwe
parents: 1827
diff changeset
1427 for (i = 1; i < argc; i++)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1428 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1429 if (argv[i] == "-file")
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1430 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1431 // FIXME. This is an inefficient manner to implement this as the
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1432 // variables are loaded in to a temporary context and then treated.
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1433 // It would be better to refecat symbol_info_list to not store the
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1434 // symbol records and then use it in load-save.cc (do_load) to
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1435 // implement this option there so that the variables are never
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1436 // stored at all.
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1437 if (i == argc - 1)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1438 error ("whos: -file argument must be followed by a file name");
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1439 else
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1440 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1441 std::string nm = argv [i + 1];
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1442
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
1443 unwind_protect frame;
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1444
9144
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1445 // Set up temporary scope.
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1446
9144
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1447 symbol_table::scope_id tmp_scope = symbol_table::alloc_scope ();
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
1448 frame.add_fcn (symbol_table::erase_scope, tmp_scope);
9144
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1449
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1450 symbol_table::set_scope (tmp_scope);
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1451
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1452 octave_call_stack::push (tmp_scope, 0);
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
1453 frame.add_fcn (octave_call_stack::pop);
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1454
10066
2cd940306a06 make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents: 9750
diff changeset
1455 frame.add_fcn (symbol_table::clear_variables);
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1456
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1457 feval ("load", octave_value (nm), 0);
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1458
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1459 if (! error_state)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1460 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1461 std::string newmsg = std::string ("Variables in the file ") +
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1462 nm + ":\n\n";
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1463
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1464 retval = do_who (i, argv, return_list, verbose, newmsg);
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1465 }
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1466 }
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1467
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1468 return retval;
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1469 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1470 else if (argv[i] == "-regexp")
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1471 have_regexp = true;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1472 else if (argv[i] == "global")
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1473 global_only = true;
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1474 else if (argv[i][0] == '-')
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1475 warning ("%s: unrecognized option `%s'", my_name.c_str (),
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1476 argv[i].c_str ());
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1477 else
867
b6b78f85743a [project @ 1994-11-02 14:20:02 by jwe]
jwe
parents: 864
diff changeset
1478 break;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1479 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1480
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1481 int npats = argc - i;
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1482 string_vector pats;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1483 if (npats > 0)
3248
68259f410026 [project @ 1999-07-13 03:34:54 by jwe]
jwe
parents: 3239
diff changeset
1484 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1485 pats.resize (npats);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1486 for (int j = 0; j < npats; j++)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1487 pats[j] = argv[i+j];
3248
68259f410026 [project @ 1999-07-13 03:34:54 by jwe]
jwe
parents: 3239
diff changeset
1488 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1489 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1490 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1491 pats.resize (++npats);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1492 pats[0] = "*";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1493 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1494
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1495 symbol_info_list symbol_stats;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1496 std::list<std::string> symbol_names;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1497
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1498 for (int j = 0; j < npats; j++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1499 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1500 std::string pat = pats[j];
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1501
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1502 if (have_regexp)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1503 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1504 std::list<symbol_table::symbol_record> tmp = global_only
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1505 ? symbol_table::regexp_global_variables (pat)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1506 : symbol_table::regexp_variables (pat);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1507
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1508 for (std::list<symbol_table::symbol_record>::const_iterator p = tmp.begin ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1509 p != tmp.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1510 {
9260
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1511 if (p->is_variable ())
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1512 {
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1513 if (verbose)
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1514 symbol_stats.append (*p);
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1515 else
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1516 symbol_names.push_back (p->name ());
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1517 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1518 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1519 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1520 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1521 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1522 size_t pos = pat.find_first_of (".({");
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1523
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1524 if (pos != std::string::npos && pos > 0)
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1525 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1526 if (verbose)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1527 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1528 // NOTE: we can only display information for
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1529 // expressions based on global values if the variable is
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1530 // global in the current scope because we currently have
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1531 // no way of looking up the base value in the global
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1532 // scope and then evaluating the arguments in the
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1533 // current scope.
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1534
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1535 std::string base_name = pat.substr (0, pos);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1536
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1537 if (symbol_table::is_variable (base_name))
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1538 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1539 symbol_table::symbol_record sr
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1540 = symbol_table::find_symbol (base_name);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1541
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1542 if (! global_only || sr.is_global ())
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1543 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1544 int parse_status;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1545
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1546 octave_value expr_val
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1547 = eval_string (pat, true, parse_status);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1548
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1549 if (! error_state)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1550 symbol_stats.append (sr, pat, expr_val);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1551 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1552 return retval;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1553 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1554 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1555 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1556 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1557 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1558 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1559 std::list<symbol_table::symbol_record> tmp = global_only
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1560 ? symbol_table::glob_global_variables (pat)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1561 : symbol_table::glob_variables (pat);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1562
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1563 for (std::list<symbol_table::symbol_record>::const_iterator p = tmp.begin ();
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1564 p != tmp.end (); p++)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1565 {
9260
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1566 if (p->is_variable ())
9250
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1567 {
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1568 if (verbose)
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1569 symbol_stats.append (*p);
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1570 else
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1571 symbol_names.push_back (p->name ());
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1572 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1573 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1574 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1575 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1576 }
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1577
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1578 if (return_list)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1579 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1580 if (verbose)
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1581 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1582 std::string caller_function_name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1583 octave_function *caller = octave_call_stack::caller ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1584 if (caller)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1585 caller_function_name = caller->name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1587 retval = symbol_stats.map_value (caller_function_name, 1);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1588 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1589 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1590 retval = Cell (string_vector (symbol_names));
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1591 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1592 else if (! (symbol_stats.empty () && symbol_names.empty ()))
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1593 {
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1594 if (msg.length () == 0)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1595 if (global_only)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1596 octave_stdout << "Global variables:\n\n";
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1597 else
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1598 octave_stdout << "Variables in the current scope:\n\n";
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1599 else
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1600 octave_stdout << msg;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1601
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1602 if (verbose)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1603 symbol_stats.display (octave_stdout);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1604 else
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1605 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1606 string_vector names (symbol_names);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1607
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1608 names.list_in_columns (octave_stdout);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1609 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1610
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1611 octave_stdout << "\n";
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1612 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1613
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1614 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1615 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1616
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1617 DEFUN (who, args, nargout,
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1618 "-*- texinfo -*-\n\
9724
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1619 @deftypefn {Command} {} who\n\
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1620 @deftypefnx {Command} {} who pattern @dots{}\n\
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1621 @deftypefnx {Command} {} who option pattern @dots{}\n\
9750
7bf4f3d64955 Fix unbalanced parentheses warning during creation of pdf documentation.
Rik <rdrider0-list@yahoo.com>
parents: 9732
diff changeset
1622 @deftypefnx {Command} {C =} who (\"pattern\", @dots{})\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1623 List currently defined variables matching the given patterns. Valid\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1624 pattern syntax is the same as described for the @code{clear} command.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1625 If no patterns are supplied, all variables are listed.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1626 By default, only variables visible in the local scope are displayed.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1627 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1628 The following are valid options but may not be combined.\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1629 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1630 @table @code\n\
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1631 @item global\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1632 List variables in the global scope rather than the current scope.\n\
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1633 @item -regexp\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1634 The patterns are considered to be regular expressions when matching the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1635 variables to display. The same pattern syntax accepted by\n\
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1636 the @code{regexp} function is used.\n\
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1637 @item -file\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1638 The next argument is treated as a filename. All variables found within the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1639 specified file are listed. No patterns are accepted when reading variables\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1640 from a file.\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1641 @end table\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1642 \n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1643 If called as a function, return a cell array of defined variable names\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1644 matching the given patterns.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1645 @seealso{whos, regexp}\n\
9724
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1646 @end deftypefn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1647 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1648 octave_value retval;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1649
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1650 if (nargout < 2)
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1651 {
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1652 int argc = args.length () + 1;
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1653
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1654 string_vector argv = args.make_argv ("who");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1655
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1656 if (! error_state)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1657 retval = do_who (argc, argv, nargout == 1);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1658 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1659 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1660 print_usage ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1661
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1662 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1663 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1664
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1665 DEFUN (whos, args, nargout,
3458
d25bc039237b [project @ 2000-01-19 09:36:14 by jwe]
jwe
parents: 3446
diff changeset
1666 "-*- texinfo -*-\n\
9724
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1667 @deftypefn {Command} {} whos\n\
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1668 @deftypefnx {Command} {} whos pattern @dots{}\n\
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1669 @deftypefnx {Command} {} whos option pattern @dots{}\n\
9750
7bf4f3d64955 Fix unbalanced parentheses warning during creation of pdf documentation.
Rik <rdrider0-list@yahoo.com>
parents: 9732
diff changeset
1670 @deftypefnx {Command} {S =} whos (\"pattern\", @dots{})\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1671 Provide detailed information on currently defined variables matching the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1672 given patterns. Options and pattern syntax are the same as for the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1673 @code{who} command. Extended information about each variable is\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1674 summarized in a table with the following default entries.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1675 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1676 @table @asis\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1677 @item Attr\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1678 Attributes of the listed variable. Possible attributes are:\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1679 @table @asis\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1680 @item blank\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1681 Variable in local scope\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1682 @item @code{g}\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1683 Variable with global scope\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1684 @item @code{p}\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1685 Persistent variable\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1686 @end table\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1687 @item Name\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1688 The name of the variable.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1689 @item Size\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1690 The logical size of the variable. A scalar is 1x1, a vector is 1xN or Nx1,\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1691 a 2-D matrix is MxN.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1692 @item Bytes\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1693 The amount of memory currently used to store the variable.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1694 @item Class\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1695 The class of the variable. Examples include double, single, char, uint16,\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1696 cell, and struct.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1697 @end table\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1698 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1699 The table can be customized to display more or less information through\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1700 the function @code{whos_line_format}.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1701 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1702 If @code{whos} is called as a function, return a struct array of defined\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1703 variable names matching the given patterns. Fields in the structure\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1704 describing each variable are: name, size, bytes, class, global, sparse, \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1705 complex, nesting, persistent.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1706 @seealso{who, whos_line_format}\n\
9724
f22bbc5d56e9 Fix various incorrect usages of TeXinfo deffn and deftypefn macros
Rik <rdrider0-list@yahoo.com>
parents: 9704
diff changeset
1707 @end deftypefn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1708 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1709 octave_value retval;
712
36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe]
jwe
parents: 704
diff changeset
1710
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1711 if (nargout < 2)
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1712 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1713 int argc = args.length () + 1;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1714
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1715 string_vector argv = args.make_argv ("whos");
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1716
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1717 if (! error_state)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1718 retval = do_who (argc, argv, nargout == 1, true);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1719 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1720 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1721 print_usage ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1722
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1723 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1724 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1725
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1726 // Defining variables.
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1727
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1728 void
2856
8c516da3c1f7 [project @ 1997-03-31 06:37:21 by jwe]
jwe
parents: 2849
diff changeset
1729 bind_ans (const octave_value& val, bool print)
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1730 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1731 static std::string ans = "ans";
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1732
2978
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1733 if (val.is_defined ())
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1734 {
7531
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1735 if (val.is_cs_list ())
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1736 {
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1737 octave_value_list lst = val.list_value ();
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1738
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1739 for (octave_idx_type i = 0; i < lst.length (); i++)
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1740 bind_ans (lst(i), print);
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1741 }
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1742 else
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1743 {
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1744 symbol_table::varref (ans) = val;
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1745
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1746 if (print)
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1747 val.print_with_name (octave_stdout, ans);
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1748 }
2978
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1749 }
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1750 }
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1751
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1752 void
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1753 bind_internal_variable (const std::string& fname, const octave_value& val)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1754 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1755 octave_value_list args;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1756
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1757 args(0) = val;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1758
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1759 feval (fname, args, 0);
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1760 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1761
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1762 void
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1763 mlock (void)
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1764 {
8083
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1765 octave_function *fcn = octave_call_stack::current ();
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1766
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1767 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1768 fcn->lock ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1769 else
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1770 error ("mlock: invalid use outside a function");
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1771 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1772
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1773 void
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1774 munlock (const std::string& nm)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1775 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1776 octave_value val = symbol_table::find_function (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1777
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1778 if (val.is_defined ())
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1779 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1780 octave_function *fcn = val.function_value ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1781
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1782 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1783 fcn->unlock ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1784 }
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1785 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1786
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1787 bool
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1788 mislocked (const std::string& nm)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1789 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1790 bool retval = false;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1791
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1792 octave_value val = symbol_table::find_function (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1793
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1794 if (val.is_defined ())
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1795 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1796 octave_function *fcn = val.function_value ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1797
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1798 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1799 retval = fcn->islocked ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1800 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1801
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1802 return retval;
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1803 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1804
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1805 DEFUN (mlock, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1806 "-*- texinfo -*-\n\
7875
bff8dbc1be11 mlock: doc fix
John W. Eaton <jwe@octave.org>
parents: 7779
diff changeset
1807 @deftypefn {Built-in Function} {} mlock ()\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1808 Lock the current function into memory so that it can't be cleared.\n\
5642
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1809 @seealso{munlock, mislocked, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1810 @end deftypefn")
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1811 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1812 octave_value_list retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1813
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1814 if (args.length () == 0)
8083
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1815 {
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1816 octave_function *fcn = octave_call_stack::caller ();
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1817
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1818 if (fcn)
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1819 fcn->lock ();
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1820 else
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1821 error ("mlock: invalid use outside a function");
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1822 }
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1823 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1824 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1825
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1826 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1827 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1828
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1829 DEFUN (munlock, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1830 "-*- texinfo -*-\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1831 @deftypefn {Built-in Function} {} munlock (@var{fcn})\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1832 Unlock the named function. If no function is named\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1833 then unlock the current function.\n\
5642
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1834 @seealso{mlock, mislocked, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1835 @end deftypefn")
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1836 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1837 octave_value_list retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1838
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1839 if (args.length() == 1)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1840 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1841 std::string name = args(0).string_value ();
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1842
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1843 if (! error_state)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1844 munlock (name);
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1845 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1846 error ("munlock: expecting argument to be a function name");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1847 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1848 else if (args.length () == 0)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1849 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1850 octave_function *fcn = octave_call_stack::caller ();
5743
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1851
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1852 if (fcn)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1853 fcn->unlock ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1854 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1855 error ("munlock: invalid use outside a function");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1856 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1857 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1858 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1859
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1860 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1861 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1862
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1863
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1864 DEFUN (mislocked, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1865 "-*- texinfo -*-\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1866 @deftypefn {Built-in Function} {} mislocked (@var{fcn})\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1867 Return true if the named function is locked. If no function is named\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1868 then return true if the current function is locked.\n\
5642
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1869 @seealso{mlock, munlock, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1870 @end deftypefn")
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1871 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1872 octave_value retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1873
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1874 if (args.length() == 1)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1875 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1876 std::string name = args(0).string_value ();
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1877
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1878 if (! error_state)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1879 retval = mislocked (name);
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1880 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1881 error ("mislocked: expecting argument to be a function name");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1882 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1883 else if (args.length () == 0)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1884 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1885 octave_function *fcn = octave_call_stack::caller ();
5743
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1886
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1887 if (fcn)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1888 retval = fcn->islocked ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1889 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1890 error ("mislocked: invalid use outside a function");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1891 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1892 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1893 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1894
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1895 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1896 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1897
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1898 // Deleting names from the symbol tables.
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1899
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1900 static inline bool
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1901 name_matches_any_pattern (const std::string& nm, const string_vector& argv,
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1902 int argc, int idx, bool have_regexp = false)
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1903 {
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1904 bool retval = false;
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1905
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1906 for (int k = idx; k < argc; k++)
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1907 {
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1908 std::string patstr = argv[k];
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1909 if (! patstr.empty ())
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1910 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1911 if (have_regexp)
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1912 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1913 regex_match pattern (patstr);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1914
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1915 if (pattern.match (nm))
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1916 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1917 retval = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1918 break;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1919 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1920 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1921 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1922 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1923 glob_match pattern (patstr);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1924
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1925 if (pattern.match (nm))
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1926 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1927 retval = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1928 break;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1929 }
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1930 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1931 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1932 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1933
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1934 return retval;
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1935 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1936
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1937 static inline void
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1938 maybe_warn_exclusive (bool exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1939 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1940 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1941 warning ("clear: ignoring --exclusive option");
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1942 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1943
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1944 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1945 do_clear_functions (const string_vector& argv, int argc, int idx,
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1946 bool exclusive = false)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1947 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1948 if (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1949 symbol_table::clear_functions ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1950 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1951 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1952 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1953 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1954 string_vector fcns = symbol_table::user_function_names ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1955
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1956 int fcount = fcns.length ();
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1957
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1958 for (int i = 0; i < fcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1959 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1960 std::string nm = fcns[i];
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1961
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1962 if (! name_matches_any_pattern (nm, argv, argc, idx))
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1963 symbol_table::clear_function (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1964 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1965 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1966 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1967 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1968 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1969 symbol_table::clear_function_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1970 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1971 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1972 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1973
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1974 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1975 do_clear_globals (const string_vector& argv, int argc, int idx,
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1976 bool exclusive = false)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1977 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1978 if (idx == argc)
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1979 {
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1980 string_vector gvars = symbol_table::global_variable_names ();
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1981
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1982 int gcount = gvars.length ();
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1983
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1984 for (int i = 0; i < gcount; i++)
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1985 symbol_table::clear_global (gvars[i]);
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1986 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1987 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1988 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1989 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1990 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1991 string_vector gvars = symbol_table::global_variable_names ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1992
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1993 int gcount = gvars.length ();
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1994
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1995 for (int i = 0; i < gcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1996 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1997 std::string nm = gvars[i];
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1998
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1999 if (! name_matches_any_pattern (nm, argv, argc, idx))
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2000 symbol_table::clear_global (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2001 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2002 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2003 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2004 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2005 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2006 symbol_table::clear_global_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2007 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2008 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2009 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2010
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2011 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2012 do_clear_variables (const string_vector& argv, int argc, int idx,
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2013 bool exclusive = false, bool have_regexp = false)
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2014 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2015 if (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2016 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2017 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2018 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2019 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2020 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2021 string_vector lvars = symbol_table::variable_names ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2022
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2023 int lcount = lvars.length ();
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2024
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2025 for (int i = 0; i < lcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2026 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2027 std::string nm = lvars[i];
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2028
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2029 if (! name_matches_any_pattern (nm, argv, argc, idx, have_regexp))
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2030 symbol_table::clear_variable (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2031 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2032 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2033 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2034 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2035 if (have_regexp)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2036 while (idx < argc)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2037 symbol_table::clear_variable_regexp (argv[idx++]);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2038 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2039 while (idx < argc)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2040 symbol_table::clear_variable_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2041 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2042 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2043 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2044
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2045 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2046 do_clear_symbols (const string_vector& argv, int argc, int idx,
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2047 bool exclusive = false)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2048 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2049 if (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2050 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2051 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2052 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2053 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2054 {
5775
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe]
jwe
parents: 5760
diff changeset
2055 // FIXME -- is this really what we want, or do we
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2056 // somehow want to only clear the functions that are not
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2057 // shadowed by local variables? It seems that would be a
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2058 // bit harder to do.
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2059
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2060 do_clear_variables (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2061 do_clear_functions (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2062 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2063 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2064 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2065 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2066 symbol_table::clear_symbol_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2067 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2068 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2069 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2070
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2071 static void
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2072 do_matlab_compatible_clear (const string_vector& argv, int argc, int idx)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2073 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2074 // This is supposed to be mostly Matlab compatible.
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2075
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2076 for (; idx < argc; idx++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2077 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2078 if (argv[idx] == "all"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2079 && ! symbol_table::is_local_variable ("all"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2080 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2081 symbol_table::clear_all ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2082 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2083 else if (argv[idx] == "functions"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2084 && ! symbol_table::is_local_variable ("functions"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2085 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2086 do_clear_functions (argv, argc, ++idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2087 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2088 else if (argv[idx] == "global"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2089 && ! symbol_table::is_local_variable ("global"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2090 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2091 do_clear_globals (argv, argc, ++idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2092 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2093 else if (argv[idx] == "variables"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2094 && ! symbol_table::is_local_variable ("variables"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2095 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2096 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2097 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2098 else if (argv[idx] == "classes"
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2099 && ! symbol_table::is_local_variable ("classes"))
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2100 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2101 symbol_table::clear_objects ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2102 octave_class::clear_exemplar_map ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2103 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2104 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2105 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2106 symbol_table::clear_symbol_pattern (argv[idx]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2107 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2108 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2109 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2110
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2111 #define CLEAR_OPTION_ERROR(cond) \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2112 do \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2113 { \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2114 if (cond) \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2115 { \
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
2116 print_usage (); \
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2117 return retval; \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2118 } \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2119 } \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2120 while (0)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2121
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
2122 DEFUN (clear, args, ,
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2123 "-*- texinfo -*-\n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2124 @deffn {Command} clear [options] pattern @dots{}\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2125 Delete the names matching the given patterns from the symbol table. The\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2126 pattern may contain the following special characters:\n\
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
2127 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2128 @table @code\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2129 @item ?\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2130 Match any single character.\n\
668
d63a1354f319 [project @ 1994-09-07 14:39:43 by jwe]
jwe
parents: 666
diff changeset
2131 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2132 @item *\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2133 Match zero or more characters.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2134 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2135 @item [ @var{list} ]\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2136 Match the list of characters specified by @var{list}. If the first\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2137 character is @code{!} or @code{^}, match all characters except those\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2138 specified by @var{list}. For example, the pattern @samp{[a-zA-Z]} will\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2139 match all lower and upper case alphabetic characters.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2140 @end table\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2141 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2142 For example, the command\n\
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2143 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2144 @example\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2145 clear foo b*r\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2146 @end example\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2147 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2148 @noindent\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2149 clears the name @code{foo} and all names that begin with the letter\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2150 @code{b} and end with the letter @code{r}.\n\
668
d63a1354f319 [project @ 1994-09-07 14:39:43 by jwe]
jwe
parents: 666
diff changeset
2151 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2152 If @code{clear} is called without any arguments, all user-defined\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2153 variables (local and global) are cleared from the symbol table. If\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2154 @code{clear} is called with at least one argument, only the visible\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2155 names matching the arguments are cleared. For example, suppose you have\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2156 defined a function @code{foo}, and then hidden it by performing the\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2157 assignment @code{foo = 2}. Executing the command @kbd{clear foo} once\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2158 will clear the variable definition and restore the definition of\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2159 @code{foo} as a function. Executing @kbd{clear foo} a second time will\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2160 clear the function definition.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2161 \n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2162 The following options are available in both long and short form\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2163 @table @code\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2164 @item -all, -a\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2165 Clears all local and global user-defined variables and all functions\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2166 from the symbol table.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2167 \n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2168 @item -exclusive, -x\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2169 Clears the variables that don't match the following pattern.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2170 \n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2171 @item -functions, -f\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2172 Clears the function names and the built-in symbols names.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2173 @item -global, -g\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2174 Clears the global symbol names.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2175 @item -variables, -v\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2176 Clears the local variable names.\n\
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2177 @item -classes, -c\n\
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2178 Clears the class structure table and clears all objects.\n\
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2179 @item -regexp, -r\n\
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2180 The arguments are treated as regular expressions as any variables that\n\
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2181 match will be cleared.\n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2182 @end table\n\
8325
b93ac0586e4b spelling corrections
Brian Gough<bjg@network-theory.co.uk>
parents: 8131
diff changeset
2183 With the exception of @code{exclusive}, all long options can be used \n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2184 without the dash as well.\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2185 @end deffn")
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2186 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 2076
diff changeset
2187 octave_value_list retval;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2188
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
2189 int argc = args.length () + 1;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2190
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1957
diff changeset
2191 string_vector argv = args.make_argv ("clear");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
2192
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2193 if (! error_state)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2194 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2195 if (argc == 1)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2196 {
9314
3a447ea9e77b fix behavior of clear
Jaroslav Hajek <highegg@gmail.com>
parents: 9304
diff changeset
2197 do_clear_globals (argv, argc, 1);
3a447ea9e77b fix behavior of clear
Jaroslav Hajek <highegg@gmail.com>
parents: 9304
diff changeset
2198 do_clear_variables (argv, argc, 1);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2199 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2200 else
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2201 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2202 int idx = 0;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2203
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2204 bool clear_all = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2205 bool clear_functions = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2206 bool clear_globals = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2207 bool clear_variables = false;
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2208 bool clear_objects = false;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2209 bool exclusive = false;
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2210 bool have_regexp = false;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2211 bool have_dash_option = false;
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2212
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2213 while (++idx < argc)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2214 {
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2215 if (argv[idx] == "-all" || argv[idx] == "-a")
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2216 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2217 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2218
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2219 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2220 clear_all = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2221 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2222 else if (argv[idx] == "-exclusive" || argv[idx] == "-x")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2223 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2224 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2225 exclusive = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2226 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2227 else if (argv[idx] == "-functions" || argv[idx] == "-f")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2228 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2229 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2230
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2231 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2232 clear_functions = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2233 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2234 else if (argv[idx] == "-global" || argv[idx] == "-g")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2235 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2236 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2237
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2238 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2239 clear_globals = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2240 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2241 else if (argv[idx] == "-variables" || argv[idx] == "-v")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2242 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2243 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2244
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2245 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2246 clear_variables = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2247 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2248 else if (argv[idx] == "-classes" || argv[idx] == "-c")
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2249 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2250 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2251
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2252 have_dash_option = true;
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2253 clear_objects = true;
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2254 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2255 else if (argv[idx] == "-regexp" || argv[idx] == "-r")
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2256 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2257 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2258
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2259 have_dash_option = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2260 have_regexp = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2261 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2262 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2263 break;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2264 }
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2265
4224
0179e6309248 [project @ 2002-12-18 00:34:29 by jwe]
jwe
parents: 4208
diff changeset
2266 if (idx <= argc)
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2267 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2268 if (! have_dash_option)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2269 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2270 do_matlab_compatible_clear (argv, argc, idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2271 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2272 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2273 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2274 if (clear_all)
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2275 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2276 maybe_warn_exclusive (exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2277
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2278 if (++idx < argc)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2279 warning
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2280 ("clear: ignoring extra arguments after -all");
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2281
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2282 symbol_table::clear_all ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2283 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2284 else if (have_regexp)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2285 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2286 do_clear_variables (argv, argc, idx, exclusive, true);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2287 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2288 else if (clear_functions)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2289 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2290 do_clear_functions (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2291 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2292 else if (clear_globals)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2293 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2294 do_clear_globals (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2295 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2296 else if (clear_variables)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2297 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2298 do_clear_variables (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2299 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2300 else if (clear_objects)
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2301 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2302 symbol_table::clear_objects ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2303 octave_class::clear_exemplar_map ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2304 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2305 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2306 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2307 do_clear_symbols (argv, argc, idx, exclusive);
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2308 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2309 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2310 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2311 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2312 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2313
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2314 return retval;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2315 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2316
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2317 DEFUN (whos_line_format, args, nargout,
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2318 "-*- texinfo -*-\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2319 @deftypefn {Built-in Function} {@var{val} =} whos_line_format ()\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2320 @deftypefnx {Built-in Function} {@var{old_val} =} whos_line_format (@var{new_val})\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2321 Query or set the format string used by the command @code{whos}.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2322 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2323 A full format string is:\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2324 \n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2325 @c Set example in small font to prevent overfull line\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2326 @smallexample\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2327 %[modifier]<command>[:width[:left-min[:balance]]];\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2328 @end smallexample\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2329 \n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2330 The following command sequences are available:\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2331 \n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2332 @table @code\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2333 @item %a\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2334 Prints attributes of variables (g=global, p=persistent,\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2335 f=formal parameter, a=automatic variable).\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2336 @item %b\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2337 Prints number of bytes occupied by variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2338 @item %c\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2339 Prints class names of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2340 @item %e\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2341 Prints elements held by variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2342 @item %n\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2343 Prints variable names.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2344 @item %s\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2345 Prints dimensions of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2346 @item %t\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2347 Prints type names of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2348 @end table\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2349 \n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2350 Every command may also have an alignment modifier:\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2351 \n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2352 @table @code\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2353 @item l\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2354 Left alignment.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2355 @item r\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2356 Right alignment (default).\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2357 @item c\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2358 Column-aligned (only applicable to command %s).\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2359 @end table\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2360 \n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2361 The @code{width} parameter is a positive integer specifying the minimum\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2362 number of columns used for printing. No maximum is needed as the field will\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2363 auto-expand as required.\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2364 \n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2365 The parameters @code{left-min} and @code{balance} are only available when the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2366 column-aligned modifier is used with the command @samp{%s}.\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2367 @code{balance} specifies the column number within the field width which will\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2368 be aligned between entries. Numbering starts from 0 which indicates the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2369 leftmost column. @code{left-min} specifies the minimum field width to the\n\
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2370 left of the specified balance column.\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2371 \n\
8516
e2a179415bac doc fixes
John W. Eaton <jwe@octave.org>
parents: 8503
diff changeset
2372 The default format is\n\
e2a179415bac doc fixes
John W. Eaton <jwe@octave.org>
parents: 8503
diff changeset
2373 @code{\" %a:4; %ln:6; %cs:16:6:1; %rb:12; %lc:-1;\\n\"}.\n\
9304
b6235c6cfb83 Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2374 @seealso{whos}\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
2375 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
2376 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2377 return SET_INTERNAL_VARIABLE (whos_line_format);
3016
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe]
jwe
parents: 3013
diff changeset
2378 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe]
jwe
parents: 3013
diff changeset
2379
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2380 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2381 ;;; Local Variables: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2382 ;;; mode: C++ ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2383 ;;; End: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2384 */