Mercurial > octave-nkf

annotate src/variables.cc @ 9445:c5f03874ea2a

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