Mercurial > hg > octave-nkf

annotate src/variables.cc @ 12007:dc56a38b5a64 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
var.m: fix typos (thinkos?) in previous change
author John W. Eaton <jwe@octave.org>
date Tue, 23 Jun 2009 12:57:57 +0200
parents 854863bb29e8
children 610bf90fce2a 22bc7fc7ff4d
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
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
267 unwind_protect::begin_frame ("generate_struct_completions");
3935
1ea29376e43e [project @ 2002-05-16 05:30:51 by jwe]
jwe
parents: 3933
diff changeset
268
4452
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
269 unwind_protect_int (error_state);
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
270 unwind_protect_int (warning_state);
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
271
4179
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
272 unwind_protect_bool (discard_error_messages);
4452
f3c21a1d1c62 [project @ 2003-07-09 23:20:18 by jwe]
jwe
parents: 4438
diff changeset
273 unwind_protect_bool (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
8734ba917fea [project @ 2002-11-14 04:31:19 by jwe]
jwe
parents: 4143
diff changeset
280 unwind_protect::run_frame ("generate_struct_completions");
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
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
309 unwind_protect::begin_frame ("looks_like_struct");
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
310
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
311 unwind_protect_bool (discard_error_messages);
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
312 unwind_protect_int (error_state);
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
4143
62afb31c1f85 [project @ 2002-11-01 17:27:38 by jwe]
jwe
parents: 4108
diff changeset
318 unwind_protect::run_frame ("looks_like_struct");
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
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
398 octave_value_list evaluated_args;
7753
e76a4a6e3c47 initialize args_evaluated; delete useless statement
John W. Eaton <jwe@octave.org>
parents: 7752
diff changeset
399 bool args_evaluated = false;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
400
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
401 octave_value val = symbol_table::find (symbol_name, 0, string_vector (),
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
402 evaluated_args, args_evaluated);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
403
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
404 if (val.is_defined ())
1277
db4f4009d6e8 [project @ 1995-04-24 20:35:06 by jwe]
jwe
parents: 1271
diff changeset
405 {
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
406 bool not_a_struct = struct_elts.empty ();
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
407 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
408
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
409 if (! retval
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
410 && var_ok
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
411 && (type == "any" || type == "var")
11977
854863bb29e8 fix exist for function handles and inline functions
John W. Eaton <jwe@octave.org>
parents: 11973
diff changeset
412 && (val.is_constant () || val.is_object ()
854863bb29e8 fix exist for function handles and inline functions
John W. Eaton <jwe@octave.org>
parents: 11973
diff changeset
413 || val.is_inline_function () || val.is_function_handle ()))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
414 {
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
415 retval = 1;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
416 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
417
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
418 if (! retval
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
419 && (type == "any" || type == "builtin"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
420 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
421 if (not_a_struct && val.is_builtin_function ())
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 retval = 5;
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
424 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
425 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
426
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
427 if (! retval
4357
d700cfed902a [project @ 2003-02-22 18:48:18 by jwe]
jwe
parents: 4345
diff changeset
428 && not_a_struct
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
429 && (type == "any" || type == "file")
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
430 && (val.is_user_function () || val.is_dld_function ()))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
431 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
432 octave_function *f = val.function_value (true);
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
433 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
434
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
435 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
436 }
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
437 }
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
438
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
439 if (! (type == "var" || type == "builtin"))
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
440 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
441 if (! retval)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
442 {
5484
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
443 std::string file_name = lookup_autoload (name);
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
444
2ff5363a16bd [project @ 2005-10-06 17:12:12 by jwe]
jwe
parents: 5437
diff changeset
445 if (file_name.empty ())
5832
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe]
jwe
parents: 5823
diff changeset
446 file_name = load_path::find_fcn (name);
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
447
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
448 size_t len = file_name.length ();
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
449
5832
5e41e06f6a78 [project @ 2006-05-26 21:41:32 by jwe]
jwe
parents: 5823
diff changeset
450 if (len > 0)
4437
0a59e4de215e [project @ 2003-06-24 19:28:48 by jwe]
jwe
parents: 4435
diff changeset
451 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
452 if (type == "any" || type == "file")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
453 {
5864
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
454 if (len > 4 && (file_name.substr (len-4) == ".oct"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe]
jwe
parents: 5832
diff changeset
455 || file_name.substr (len-4) == ".mex"))
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
456 retval = 3;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
457 else
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
458 retval = 2;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
459 }
4437
0a59e4de215e [project @ 2003-06-24 19:28:48 by jwe]
jwe
parents: 4435
diff changeset
460 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
461 }
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
462
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
463 if (! retval)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
464 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
465 std::string file_name = file_in_path (name, "");
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
466
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
467 if (file_name.empty ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
468 file_name = name;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
469
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
470 file_stat fs (file_name);
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
471
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
472 if (fs)
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
473 {
5140
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
474 if ((type == "any" || type == "file")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
475 && fs.is_reg ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
476 {
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
477 retval = 2;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
478 }
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
479 else if ((type == "any" || type == "dir")
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
480 && fs.is_dir ())
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
481 {
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
482 retval = 7;
550b12564a74 [project @ 2005-02-10 15:12:37 by jwe]
jwe
parents: 5138
diff changeset
483 }
1421
3b77015d7f42 [project @ 1995-09-16 01:39:45 by jwe]
jwe
parents: 1419
diff changeset
484 }
593
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 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
487
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
488 return retval;
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
489 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
490
4962
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
491 #define GET_IDX(LEN) \
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
492 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
493
4954
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
494 std::string
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
495 unique_symbol_name (const std::string& basename)
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
496 {
4962
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
497 static const std::string alpha
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
498 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
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 static size_t len = alpha.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 std::string nm = basename + alpha[GET_IDX (len)];
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
503
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
504 size_t pos = nm.length ();
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
505
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
506 if (nm.substr (0, 2) == "__")
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
507 nm.append ("__");
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
508
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
509 while (symbol_exist (nm, "any"))
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
510 nm.insert (pos++, 1, alpha[GET_IDX (len)]);
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
511
0ab18cbe8b5f [project @ 2004-09-02 16:56:17 by jwe]
jwe
parents: 4954
diff changeset
512 return nm;
4954
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
513 }
ed0f3cb6d3d4 [project @ 2004-09-01 21:24:53 by jwe]
jwe
parents: 4930
diff changeset
514
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
515 DEFUN (exist, args, ,
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
516 "-*- texinfo -*-\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
517 @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
518 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
519 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
520 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
521 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
522 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
523 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
524 the command line).\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
525 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
526 Otherwise, return 0.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
527 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
528 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
529 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
530 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
531 @code{file_in_path} and @code{stat} instead.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
532 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
533 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
534 symbols of the specified type. Valid types are\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
535 \n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
536 @table @samp\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
537 @item \"var\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
538 Check only for variables.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
539 @item \"builtin\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
540 Check only for built-in functions.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
541 @item \"file\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
542 Check only for files.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
543 @item \"dir\"\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
544 Check only for directories.\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
545 @end table\n\
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
546 @end deftypefn")
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
547 {
4233
ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe]
jwe
parents: 4224
diff changeset
548 octave_value retval = false;
4016
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 int nargin = args.length ();
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 (nargin == 1 || nargin == 2)
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 name = args(0).string_value ();
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
555
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
556 if (! error_state)
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
557 {
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
558 std::string type
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
559 = (nargin == 2) ? args(1).string_value () : std::string ("any");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
560
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
561 if (! error_state)
4233
ccfdb55c8156 [project @ 2002-12-20 22:43:54 by jwe]
jwe
parents: 4224
diff changeset
562 retval = symbol_exist (name, type);
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
563 else
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
564 error ("exist: expecting second argument to be a string");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
565 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
566 else
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
567 error ("exist: expecting first argument to be a string");
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
568 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
569 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
570 print_usage ();
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
571
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
572 return retval;
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
573 }
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
574
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
575 octave_value
4988
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
576 lookup_function_handle (const std::string& nm)
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
577 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
578 octave_value val = symbol_table::varval (nm);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
579
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
580 return val.is_function_handle () ? val : octave_value ();
4988
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
581 }
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
582
352d228d409b [project @ 2004-09-11 13:05:38 by jwe]
jwe
parents: 4962
diff changeset
583 octave_value
5027
da607e9daf12 [project @ 2004-09-23 01:37:57 by jwe]
jwe
parents: 5004
diff changeset
584 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
585 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
586 octave_value val = symbol_table::global_varval (nm);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
587
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
588 if (val.is_undefined () && ! silent)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
589 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
590
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
591 return val;
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
592 }
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
593
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
594 void
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
595 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
596 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
597 symbol_table::global_varref (nm) = val;
2849
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
598 }
5338beb20eb9 [project @ 1997-03-28 21:33:27 by jwe]
jwe
parents: 2847
diff changeset
599
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
600 // Variable values.
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
601
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
602 octave_value
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
603 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
604 int nargout, const char *nm)
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
605 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
606 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
607
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
608 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
609
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
610 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
611 retval = var;
5791
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 (nargin == 1)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
614 {
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
615 bool bval = args(0).bool_value ();
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
616
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
617 if (! error_state)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
618 var = bval;
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
619 else
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
620 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
621 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
622 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
623 print_usage ();
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
624
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
625 return retval;
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
626 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
627
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
628 octave_value
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
629 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
630 int nargout, const char *nm)
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
631 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
632 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
633
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
634 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
635
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
636 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
637 retval = var;
5791
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 (nargin == 1)
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
640 {
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
641 std::string sval = args(0).string_value ();
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
642
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
643 if (! error_state)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
644 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
645 switch (sval.length ())
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 1:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
648 var = sval[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 case 0:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
652 var = '\0';
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 default:
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
656 error ("%s: argument must be a single character", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
657 break;
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 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
660 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
661 error ("%s: argument must be a single character", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
662 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
663 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
664 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
665
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
666 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
667 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
668
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
669 octave_value
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
670 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
671 int nargout, const char *nm,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
672 int minval, int maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
673 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
674 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
675
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
676 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
677
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
678 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
679 retval = var;
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 (nargin == 1)
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 int ival = args(0).int_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
684
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
685 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
686 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
687 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
688 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
689 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
690 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
691 nm, maxval);
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
692 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
693 var = ival;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
694 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
695 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
696 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
697 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
698 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
699 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
700
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
701 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
702 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
703
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
704 octave_value
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
705 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
706 int nargout, const char *nm,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
707 double minval, double maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
708 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
709 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
710
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
711 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
712
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
713 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
714 retval = var;
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 (nargin == 1)
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 double dval = args(0).scalar_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
719
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
720 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
721 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
722 if (dval < minval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
723 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
724 else if (dval > maxval)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
725 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
726 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
727 var = dval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
728 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
729 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
730 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
731 }
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
732 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
733 print_usage ();
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
734
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
735 return retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
736 }
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
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
739 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
740 int nargout, const char *nm, bool empty_ok)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
741 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
742 octave_value retval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
743
5800
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
744 int nargin = args.length ();
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
745
e8be7fe586f9 [project @ 2006-05-10 06:50:45 by jwe]
jwe
parents: 5794
diff changeset
746 if (nargout > 0 || nargin == 0)
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
747 retval = var;
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 (nargin == 1)
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 std::string sval = args(0).string_value ();
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
752
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
753 if (! error_state)
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
754 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
755 if (empty_ok || ! sval.empty ())
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
756 var = sval;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
757 else
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
758 error ("%s: value must not be empty", nm);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
759 }
5791
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
760 else
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
761 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
762 }
70215aff5ccf [project @ 2006-05-04 18:38:45 by jwe]
jwe
parents: 5781
diff changeset
763 else if (nargin > 1)
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
764 print_usage ();
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
765
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
766 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
767 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
768
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
769 struct
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
770 whos_parameter
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
771 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
772 char command;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
773 char modifier;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
774 int parameter_length;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
775 int first_parameter_length;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
776 int balance;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
777 std::string text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
778 std::string line;
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
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
781 static void
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
782 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
783 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
784 // 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
785 std::list<whos_parameter>::iterator i = params.begin ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
786 std::ostringstream param_buf;
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 while (i != params.end ())
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
789 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
790 whos_parameter param = *i;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
791
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
792 if (param.command != '\0')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
793 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
794 // Do the actual printing
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
795 switch (param.modifier)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
796 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
797 case 'l':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
798 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
799 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
800 break;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
801
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
802 case 'r':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
803 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
804 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
805 break;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
806
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
807 case 'c':
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
808 if (param.command != 's')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
809 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
810 os << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
811 << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
812 param_buf << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
813 << std::setw (param.parameter_length);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
814 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
815 break;
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 default:
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
818 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
819 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
820 }
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.command == 's' && 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 int a, b;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
825
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
826 if (param.modifier == 'c')
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
827 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
828 a = param.first_parameter_length - param.balance;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
829 a = (a < 0 ? 0 : a);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
830 b = param.parameter_length - a - param.text . length ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
831 b = (b < 0 ? 0 : b);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
832 os << std::setiosflags (std::ios::left) << std::setw (a)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
833 << "" << std::resetiosflags (std::ios::left) << param.text
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
834 << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
835 << std::setw (b) << ""
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
836 << std::resetiosflags (std::ios::left);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
837 param_buf << std::setiosflags (std::ios::left) << std::setw (a)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
838 << "" << std::resetiosflags (std::ios::left) << param.line
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
839 << std::setiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
840 << std::setw (b) << ""
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
841 << std::resetiosflags (std::ios::left);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
842 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
843 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
844 else
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
845 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
846 os << param.text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
847 param_buf << param.line;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
848 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
849 os << std::resetiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
850 << std::resetiosflags (std::ios::right);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
851 param_buf << std::resetiosflags (std::ios::left)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
852 << std::resetiosflags (std::ios::right);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
853 i++;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
854 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
855 else
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
856 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
857 os << param.text;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
858 param_buf << param.line;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
859 i++;
2975
b9c107cbe388 [project @ 1997-05-15 20:01:00 by jwe]
jwe
parents: 2963
diff changeset
860 }
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
861 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
862
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
863 os << param_buf.str ();
195
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
864 }
13c6086c325c [project @ 1993-11-06 10:12:29 by jwe]
jwe
parents: 191
diff changeset
865
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
866 class
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
867 symbol_info_list
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
868 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
869 private:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
870 struct symbol_info
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
871 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
872 symbol_info (const symbol_table::symbol_record& sr,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
873 const std::string& expr_str = std::string (),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
874 const octave_value& expr_val = octave_value ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
875 : name (expr_str.empty () ? sr.name () : expr_str),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
876 is_automatic (sr.is_automatic ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
877 is_formal (sr.is_formal ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
878 is_global (sr.is_global ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
879 is_persistent (sr.is_persistent ()),
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
880 varval (expr_val.is_undefined () ? sr.varval () : expr_val)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
881 { }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
882
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
883 void display_line (std::ostream& os,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
884 const std::list<whos_parameter>& params) const
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
885 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
886 dim_vector dims = varval.dims ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
887 std::string dims_str = dims.str ();
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 std::list<whos_parameter>::const_iterator i = params.begin ();
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 while (i != params.end ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
892 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
893 whos_parameter param = *i;
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 if (param.command != '\0')
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 // Do the actual printing.
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
898
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
899 switch (param.modifier)
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
900 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
901 case 'l':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
902 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
903 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
904 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
905
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
906 case 'r':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
907 os << std::setiosflags (std::ios::right)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
908 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
909 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
910
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
911 case 'c':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
912 if (param.command == 's')
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
913 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
914 int front = param.first_parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
915 - dims_str.find ('x');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
916 int back = param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
917 - dims_str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
918 - front;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
919 front = (front > 0) ? front : 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
920 back = (back > 0) ? back : 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
921
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
922 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
923 << std::setw (front)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
924 << ""
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
925 << std::resetiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
926 << dims_str
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
927 << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
928 << std::setw (back)
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 << std::resetiosflags (std::ios::left);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
931 }
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
932 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
933 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
934 os << std::setiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
935 << std::setw (param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
936 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
937 break;
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 default:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
940 error ("whos_line_format: modifier `%c' unknown",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
941 param.modifier);
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 os << std::setiosflags (std::ios::right)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
944 << std::setw (param.parameter_length);
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
945 }
7586
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 switch (param.command)
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 case 'a':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
950 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
951 char tmp[5];
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
952
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
953 tmp[0] = (is_automatic ? 'a' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
954 tmp[1] = (is_formal ? 'f' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
955 tmp[2] = (is_global ? 'g' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
956 tmp[3] = (is_persistent ? 'p' : ' ');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
957 tmp[4] = 0;
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 os << tmp;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
960 }
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 'b':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
964 os << varval.byte_size ();
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 'c':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
968 os << varval.class_name ();
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 'e':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
972 os << varval.capacity ();
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 'n':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
976 os << name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
977 break;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
978
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
979 case 's':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
980 if (param.modifier != 'c')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
981 os << dims_str;
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 case 't':
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
985 os << varval.type_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
986 break;
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 default:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
989 error ("whos_line_format: command `%c' unknown",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
990 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
991 }
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 os << std::resetiosflags (std::ios::left)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
994 << std::resetiosflags (std::ios::right);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
995 i++;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
996 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
997 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
998 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
999 os << param.text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1000 i++;
2294
46839fa1fcf3 [project @ 1996-06-13 09:12:58 by jwe]
jwe
parents: 2233
diff changeset
1001 }
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1002 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1003 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1004
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1005 std::string name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1006 bool is_automatic;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1007 bool is_formal;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1008 bool is_global;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1009 bool is_persistent;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1010 octave_value varval;
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
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1013 public:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1014 symbol_info_list (void) : lst () { }
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 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
1017
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1018 symbol_info_list& operator = (const symbol_info_list& sil)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1019 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1020 if (this != &sil)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1021 lst = sil.lst;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1022
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1023 return *this;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1024 }
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 ~symbol_info_list (void) { }
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 void append (const symbol_table::symbol_record& sr)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1029 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1030 lst.push_back (symbol_info (sr));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1031 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1032
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1033 void append (const symbol_table::symbol_record& sr,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1034 const std::string& expr_str,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1035 const octave_value& expr_val)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1036 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1037 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
1038 }
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 size_t size (void) const { return lst.size (); }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1041
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1042 bool empty (void) const { return lst.empty (); }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1043
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1044 Octave_map
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1045 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
1046 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1047 size_t len = lst.size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1048
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1049 Array<octave_value> name_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1050 Array<octave_value> size_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1051 Array<octave_value> bytes_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1052 Array<octave_value> class_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1053 Array<octave_value> global_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1054 Array<octave_value> sparse_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1055 Array<octave_value> complex_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1056 Array<octave_value> nesting_info (len, 1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1057 Array<octave_value> persistent_info (len, 1);
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 std::list<symbol_info>::const_iterator p = lst.begin ();
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 for (size_t j = 0; j < len; j++)
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 const symbol_info& si = *p++;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1064
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1065 Octave_map ni;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1066
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1067 ni.assign ("function", caller_function_name);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1068 ni.assign ("level", nesting_level);
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 name_info(j) = si.name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1071 global_info(j) = si.is_global;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1072 persistent_info(j) = si.is_persistent;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1073
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1074 octave_value val = si.varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1075
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1076 size_info(j) = val.size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1077 bytes_info(j) = val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1078 class_info(j) = val.class_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1079 sparse_info(j) = val.is_sparse_type ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1080 complex_info(j) = val.is_complex_type ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1081 nesting_info(j) = ni;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1082 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1083
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1084 Octave_map info;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1085
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1086 info.assign ("name", name_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1087 info.assign ("size", size_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1088 info.assign ("bytes", bytes_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1089 info.assign ("class", class_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1090 info.assign ("global", global_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1091 info.assign ("sparse", sparse_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1092 info.assign ("complex", complex_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1093 info.assign ("nesting", nesting_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1094 info.assign ("persistent", persistent_info);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1095
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1096 return info;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1097 }
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 void display (std::ostream& os)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1100 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1101 if (! lst.empty ())
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1102 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1103 size_t bytes = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1104 size_t elements = 0;
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 std::list<whos_parameter> params = parse_whos_line_format ();
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 print_descriptor (os, params);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1109
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1110 octave_stdout << "\n";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1111
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1112 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
1113 p != lst.end (); p++)
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 p->display_line (os, params);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1116
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1117 octave_value val = p->varval;
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 elements += val.capacity ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1120 bytes += val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1121 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1122
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1123 os << "\nTotal is " << elements
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1124 << (elements == 1 ? " element" : " elements")
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1125 << " using " << bytes << (bytes == 1 ? " byte" : " bytes")
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1126 << "\n";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1127 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1128 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1129
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1130 // 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
1131 // containing all information needed to print the given
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1132 // attributtes of the symbols.
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1133 std::list<whos_parameter> parse_whos_line_format (void)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1134 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1135 int idx;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1136 size_t format_len = Vwhos_line_format.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1137 char garbage;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1138 std::list<whos_parameter> params;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1139
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1140 size_t bytes1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1141 int elements1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1142
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1143 std::string param_string = "abcenst";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1144 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
1145 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
1146 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
1147
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1148 pos_a = param_string.find ('a'); // Attributes
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1149 pos_b = param_string.find ('b'); // Bytes
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1150 pos_c = param_string.find ('c'); // Class
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1151 pos_e = param_string.find ('e'); // Elements
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1152 pos_n = param_string.find ('n'); // Name
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1153 pos_s = param_string.find ('s'); // Size
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1154 pos_t = param_string.find ('t'); // Type
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1155
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1156 param_names(pos_a) = "Attr";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1157 param_names(pos_b) = "Bytes";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1158 param_names(pos_c) = "Class";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1159 param_names(pos_e) = "Elements";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1160 param_names(pos_n) = "Name";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1161 param_names(pos_s) = "Size";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1162 param_names(pos_t) = "Type";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1163
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1164 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
1165 param_length(i) = param_names(i) . length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1166
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1167 // Calculating necessary spacing for name column,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1168 // bytes column, elements column and class column
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1169
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1170 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
1171 p != lst.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1172 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1173 std::stringstream ss1, ss2;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1174 std::string str;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1175
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1176 str = p->name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1177 param_length(pos_n) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1178 > static_cast<size_t> (param_length(pos_n)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1179 ? str.length () : param_length(pos_n));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1180
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1181 octave_value val = p->varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1182
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1183 str = val.type_name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1184 param_length(pos_t) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1185 > static_cast<size_t> (param_length(pos_t)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1186 ? str.length () : param_length(pos_t));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1187
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1188 elements1 = val.capacity ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1189 ss1 << elements1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1190 str = ss1.str ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1191 param_length(pos_e) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1192 > static_cast<size_t> (param_length(pos_e)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1193 ? str.length () : param_length(pos_e));
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1194
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1195 bytes1 = val.byte_size ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1196 ss2 << bytes1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1197 str = ss2.str ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1198 param_length(pos_b) = ((str.length ()
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1199 > static_cast<size_t> (param_length(pos_b)))
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1200 ? str.length () : param_length (pos_b));
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
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1203 idx = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1204 while (static_cast<size_t> (idx) < format_len)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1205 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1206 whos_parameter param;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1207 param.command = '\0';
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1208
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1209 if (Vwhos_line_format[idx] == '%')
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 bool error_encountered = false;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1212 param.modifier = 'r';
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1213 param.parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1214
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1215 int a = 0, b = -1, balance = 1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1216 unsigned int items;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1217 size_t pos;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1218 std::string cmd;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1219
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1220 // Parse one command from whos_line_format
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1221 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
1222 pos = cmd.find (';');
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1223 if (pos != std::string::npos)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1224 cmd = cmd.substr (0, pos+1);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1225 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1226 error ("parameter without ; in whos_line_format");
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 idx += cmd.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1229
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1230 // FIXME -- use iostream functions instead of sscanf!
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1231
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1232 if (cmd.find_first_of ("crl") != 1)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1233 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
1234 &garbage, &param.command, &a, &b, &balance);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1235 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1236 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
1237 &garbage, &param.modifier, &param.command,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1238 &a, &b, &balance) - 1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1239
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1240 if (items < 2)
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 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
1243 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1244 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1245
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1246 // Insert data into parameter
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1247 param.first_parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1248 pos = param_string.find (param.command);
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1249 if (pos != std::string::npos)
7586
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 = param_length(pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1252 param.text = param_names(pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1253 param.line.assign (param_names(pos).length (), '=');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1254
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1255 param.parameter_length = (a > param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1256 ? a : param.parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1257 if (param.command == 's' && param.modifier == 'c' && b > 0)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1258 param.first_parameter_length = b;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1259 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1260 else
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 error ("whos_line_format: '%c' is not a command",
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1263 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1264 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1265 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1266
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1267 if (param.command == 's')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1268 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1269 // Have to calculate space needed for printing
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1270 // matrix dimensions Space needed for Size column is
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1271 // hard to determine in prior, because it depends on
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1272 // dimensions to be shown. That is why it is
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1273 // recalculated for each Size-command int first,
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1274 // rest = 0, total;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1275 int rest = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1276 int first = param.first_parameter_length;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1277 int total = param.parameter_length;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1278
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1279 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
1280 p != lst.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1281 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1282 octave_value val = p->varval;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1283 dim_vector dims = val.dims ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1284 std::string dims_str = dims.str ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1285 int first1 = dims_str.find ('x');
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1286 int total1 = dims_str.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1287 int rest1 = total1 - first1;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1288 rest = (rest1 > rest ? rest1 : rest);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1289 first = (first1 > first ? first1 : first);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1290 total = (total1 > total ? total1 : total);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1291 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1292
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1293 if (param.modifier == 'c')
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1294 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1295 if (first < balance)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1296 first += balance - first;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1297 if (rest + balance < param.parameter_length)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1298 rest += param.parameter_length - rest - 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 param.parameter_length = first + rest;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1301 param.first_parameter_length = first;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1302 param.balance = balance;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1303 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1304 else
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 param.parameter_length = total;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1307 param.first_parameter_length = 0;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1308 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1309 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1310 else if (param.modifier == 'c')
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 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
1313 param.command);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1314 error_encountered = true;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1315 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1316
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1317 // What happens if whos_line_format contains negative numbers
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1318 // at param_length positions?
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1319 param.balance = (b < 0 ? 0 : param.balance);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1320 param.first_parameter_length = (b < 0 ? 0 :
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1321 param.first_parameter_length);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1322 param.parameter_length = (a < 0
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1323 ? 0
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1324 : (param.parameter_length
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1325 < param_length(pos_s)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1326 ? param_length(pos_s)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1327 : param.parameter_length));
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 // Parameter will not be pushed into parameter list if ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1330 if (! error_encountered)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1331 params.push_back (param);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1332 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1333 else
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1334 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1335 // Text string, to be printed as it is ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1336 std::string text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1337 size_t pos;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1338 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
1339 pos = text.find ('%');
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1340 if (pos != std::string::npos)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1341 text = text.substr (0, pos);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1342
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1343 // Push parameter into list ...
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1344 idx += text.length ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1345 param.text=text;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1346 param.line.assign (text.length(), ' ');
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1347 params.push_back (param);
7586
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
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1351 return params;
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
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1354 private:
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1355 std::list<symbol_info> lst;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1356
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1357 };
5659
960f4b9a26af [project @ 2006-03-10 15:35:20 by jwe]
jwe
parents: 5642
diff changeset
1358
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1359 static octave_value
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1360 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
1361 bool verbose = false, std::string msg = std::string ())
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1362 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1363 octave_value retval;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1364
3523
b80bbb43a1a9 [project @ 2000-02-02 10:25:52 by jwe]
jwe
parents: 3476
diff changeset
1365 std::string my_name = argv[0];
584
4057f845c1ee [project @ 1994-08-07 04:40:03 by jwe]
jwe
parents: 581
diff changeset
1366
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1367 bool global_only = false;
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1368 bool have_regexp = false;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1369
1857
99d5b59cb855 [project @ 1996-02-04 08:02:58 by jwe]
jwe
parents: 1827
diff changeset
1370 int i;
99d5b59cb855 [project @ 1996-02-04 08:02:58 by jwe]
jwe
parents: 1827
diff changeset
1371 for (i = 1; i < argc; i++)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1372 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1373 if (argv[i] == "-file")
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1374 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1375 // 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
1376 // 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
1377 // 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
1378 // 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
1379 // 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
1380 // stored at all.
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1381 if (i == argc - 1)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1382 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
1383 else
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1384 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1385 std::string nm = argv [i + 1];
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1386
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1387 unwind_protect::begin_frame ("do_who_file");
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1388
9144
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1389 // Set up temporary scope.
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1390
9144
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1391 symbol_table::scope_id tmp_scope = symbol_table::alloc_scope ();
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1392 unwind_protect::add (symbol_table::erase_scope, &tmp_scope);
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1393
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1394 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
1395
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin
John W. Eaton <jwe@octave.org>
parents: 9037
diff changeset
1396 octave_call_stack::push (tmp_scope, 0);
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1397 unwind_protect::add (octave_call_stack::unwind_pop, 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 unwind_protect::add (symbol_table::clear_variables);
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 feval ("load", octave_value (nm), 0);
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1402
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1403 if (! error_state)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1404 {
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1405 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
1406 nm + ":\n\n";
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1407
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1408 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
1409 }
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1410
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1411 unwind_protect::run_frame ("do_who_file");
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1412 }
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1413
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1414 return retval;
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1415 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1416 else if (argv[i] == "-regexp")
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1417 have_regexp = true;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1418 else if (argv[i] == "global")
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1419 global_only = true;
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1420 else if (argv[i][0] == '-')
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1421 warning ("%s: unrecognized option `%s'", my_name.c_str (),
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1422 argv[i].c_str ());
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1423 else
867
b6b78f85743a [project @ 1994-11-02 14:20:02 by jwe]
jwe
parents: 864
diff changeset
1424 break;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1425 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1426
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1427 int npats = argc - i;
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1428 string_vector pats;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1429 if (npats > 0)
3248
68259f410026 [project @ 1999-07-13 03:34:54 by jwe]
jwe
parents: 3239
diff changeset
1430 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1431 pats.resize (npats);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1432 for (int j = 0; j < npats; j++)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1433 pats[j] = argv[i+j];
3248
68259f410026 [project @ 1999-07-13 03:34:54 by jwe]
jwe
parents: 3239
diff changeset
1434 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1435 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1436 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1437 pats.resize (++npats);
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1438 pats[0] = "*";
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1439 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1440
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1441 symbol_info_list symbol_stats;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1442 std::list<std::string> symbol_names;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1443
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1444 for (int j = 0; j < npats; j++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1445 {
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1446 std::string pat = pats[j];
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1447
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1448 if (have_regexp)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1449 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1450 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
1451 ? symbol_table::regexp_global_variables (pat)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1452 : symbol_table::regexp_variables (pat);
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1453
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1454 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
1455 p != tmp.end (); p++)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1456 {
9260
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1457 if (p->is_variable ())
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1458 {
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1459 if (verbose)
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1460 symbol_stats.append (*p);
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1461 else
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1462 symbol_names.push_back (p->name ());
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1463 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1464 }
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1465 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1466 else
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 size_t pos = pat.find_first_of (".({");
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1469
8021
85184151822e fix typo in NPOS change
John W. Eaton <jwe@octave.org>
parents: 8019
diff changeset
1470 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
1471 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1472 if (verbose)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1473 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1474 // NOTE: we can only display information for
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1475 // 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
1476 // 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
1477 // 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
1478 // 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
1479 // current scope.
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 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
1482
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1483 if (symbol_table::is_variable (base_name))
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1484 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1485 symbol_table::symbol_record sr
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1486 = symbol_table::find_symbol (base_name);
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 if (! global_only || sr.is_global ())
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1489 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1490 int parse_status;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1491
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1492 octave_value expr_val
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1493 = eval_string (pat, true, parse_status);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1494
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1495 if (! error_state)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1496 symbol_stats.append (sr, pat, expr_val);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1497 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1498 return retval;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1499 }
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 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1502 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1503 else
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 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
1506 ? symbol_table::glob_global_variables (pat)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1507 : symbol_table::glob_variables (pat);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1508
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1509 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
1510 p != tmp.end (); p++)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1511 {
9260
9c2349a51218 properly unmark forced variables
John W. Eaton <jwe@octave.org>
parents: 9250
diff changeset
1512 if (p->is_variable ())
9250
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1513 {
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1514 if (verbose)
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1515 symbol_stats.append (*p);
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1516 else
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1517 symbol_names.push_back (p->name ());
80c299c84796 don't print undefined symbols in who
Jaroslav Hajek <highegg@gmail.com>
parents: 9240
diff changeset
1518 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1519 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1520 }
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1521 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1522 }
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1523
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1524 if (return_list)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1525 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1526 if (verbose)
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1527 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1528 std::string caller_function_name;
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1529 octave_function *caller = octave_call_stack::caller ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1530 if (caller)
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1531 caller_function_name = caller->name ();
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1532
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1533 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
1534 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1535 else
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1536 retval = Cell (string_vector (symbol_names));
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1537 }
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1538 else if (! (symbol_stats.empty () && symbol_names.empty ()))
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1539 {
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1540 if (msg.length () == 0)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1541 if (global_only)
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1542 octave_stdout << "Global variables:\n\n";
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1543 else
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1544 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
1545 else
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1546 octave_stdout << msg;
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1547
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1548 if (verbose)
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1549 symbol_stats.display (octave_stdout);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1550 else
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1551 {
7586
84122fb29c75 whos: handle index expressions
John W. Eaton <jwe@octave.org>
parents: 7531
diff changeset
1552 string_vector names (symbol_names);
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1553
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1554 names.list_in_columns (octave_stdout);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1555 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1556
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1557 octave_stdout << "\n";
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1558 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1559
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1560 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1561 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1562
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1563 DEFUN (who, args, nargout,
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1564 "-*- texinfo -*-\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1565 @deffn {Command} who\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1566 @deffnx {Command} who pattern @dots{}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1567 @deffnx {Command} who option pattern @dots{}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1568 @deffnx {Command} C = who(\"pattern\", @dots{})\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1569 List currently defined variables matching the given patterns. Valid\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1570 pattern syntax is the same as described for the @code{clear} command.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1571 If no patterns are supplied, all variables are listed.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1572 By default, only variables visible in the local scope are displayed.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1573 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1574 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
1575 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1576 @table @code\n\
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1577 @item global\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1578 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
1579 @item -regexp\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1580 The patterns are considered to be regular expressions when matching the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1581 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
1582 the @code{regexp} function is used.\n\
8131
10b63c4fd413 Add -file option to who/whos
David Bateman <dbateman@free.fr>
parents: 8083
diff changeset
1583 @item -file\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1584 The next argument is treated as a filename. All variables found within the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1585 specified file are listed. No patterns are accepted when reading variables\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1586 from a file.\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1587 @end table\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1588 \n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1589 If called as a function, return a cell array of defined variable names\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1590 matching the given patterns.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1591 @seealso{whos, regexp}\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
1592 @end deffn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1593 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1594 octave_value retval;
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1595
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1596 if (nargout < 2)
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1597 {
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1598 int argc = args.length () + 1;
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1599
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1600 string_vector argv = args.make_argv ("who");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
1601
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1602 if (! error_state)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1603 retval = do_who (argc, argv, nargout == 1);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1604 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1605 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1606 print_usage ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1607
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1608 return retval;
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1609 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1610
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1611 DEFUN (whos, args, nargout,
3458
d25bc039237b [project @ 2000-01-19 09:36:14 by jwe]
jwe
parents: 3446
diff changeset
1612 "-*- texinfo -*-\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1613 @deffn {Command} whos\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1614 @deffnx {Command} whos pattern @dots{}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1615 @deffnx {Command} whos option pattern @dots{}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1616 @deffnx {Command} S = whos(\"pattern\", @dots{})\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1617 Provide detailed information on currently defined variables matching the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1618 given patterns. Options and pattern syntax are the same as for the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1619 @code{who} command. Extended information about each variable is\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1620 summarized in a table with the following default entries.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1621 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1622 @table @asis\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1623 @item Attr\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1624 Attributes of the listed variable. Possible attributes are:\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1625 @table @asis\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1626 @item blank\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1627 Variable in local scope\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1628 @item @code{g}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1629 Variable with global scope\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1630 @item @code{p}\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1631 Persistent variable\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1632 @end table\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1633 @item Name\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1634 The name of the variable.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1635 @item Size\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1636 The logical size of the variable. A scalar is 1x1, a vector is 1xN or Nx1,\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1637 a 2-D matrix is MxN.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1638 @item Bytes\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1639 The amount of memory currently used to store the variable.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1640 @item Class\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1641 The class of the variable. Examples include double, single, char, uint16,\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1642 cell, and struct.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1643 @end table\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1644 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1645 The table can be customized to display more or less information through\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1646 the function @code{whos_line_format}.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1647 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1648 If @code{whos} is called as a function, return a struct array of defined\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1649 variable names matching the given patterns. Fields in the structure\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1650 describing each variable are: name, size, bytes, class, global, sparse, \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1651 complex, nesting, persistent.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
1652 @seealso{who, whos_line_format}\n\
3458
d25bc039237b [project @ 2000-01-19 09:36:14 by jwe]
jwe
parents: 3446
diff changeset
1653 @end deffn")
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1654 {
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1655 octave_value retval;
712
36ba0576bd1b [project @ 1994-09-19 14:18:15 by jwe]
jwe
parents: 704
diff changeset
1656
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1657 if (nargout < 2)
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1658 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1659 int argc = args.length () + 1;
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1660
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1661 string_vector argv = args.make_argv ("whos");
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1662
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1663 if (! error_state)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1664 retval = do_who (argc, argv, nargout == 1, true);
4435
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1665 }
dd7af4fa1942 [project @ 2003-06-23 17:52:36 by jwe]
jwe
parents: 4357
diff changeset
1666 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1667 print_usage ();
581
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1668
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1669 return retval;
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1670 }
bc813f5eb025 [project @ 1994-08-07 01:02:15 by jwe]
jwe
parents: 572
diff changeset
1671
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1672 // Defining variables.
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1673
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1674 void
2856
8c516da3c1f7 [project @ 1997-03-31 06:37:21 by jwe]
jwe
parents: 2849
diff changeset
1675 bind_ans (const octave_value& val, bool print)
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1676 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1677 static std::string ans = "ans";
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1678
2978
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1679 if (val.is_defined ())
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1680 {
7531
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1681 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
1682 {
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1683 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
1684
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1685 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
1686 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
1687 }
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1688 else
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1689 {
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1690 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
1691
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1692 if (print)
c9a476b1e664 correctly set ans for cs-lists and simplify printing them
John W. Eaton <jwe@octave.org>
parents: 7347
diff changeset
1693 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
1694 }
2978
49de01238638 [project @ 1997-05-15 21:13:42 by jwe]
jwe
parents: 2975
diff changeset
1695 }
1162
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1696 }
c210c5a25a48 [project @ 1995-02-27 17:36:16 by jwe]
jwe
parents: 1161
diff changeset
1697
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1698 void
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1699 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
1700 {
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1701 octave_value_list args;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1702
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1703 args(0) = val;
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1704
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
1705 feval (fname, args, 0);
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1706 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
1707
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1708 void
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1709 mlock (void)
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1710 {
8083
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1711 octave_function *fcn = octave_call_stack::current ();
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1712
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1713 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1714 fcn->lock ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1715 else
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1716 error ("mlock: invalid use outside a function");
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1717 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1718
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1719 void
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1720 munlock (const std::string& nm)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1721 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1722 octave_value val = symbol_table::find_function (nm);
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 (val.is_defined ())
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1725 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1726 octave_function *fcn = val.function_value ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1727
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1728 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1729 fcn->unlock ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1730 }
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1731 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1732
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1733 bool
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1734 mislocked (const std::string& nm)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1735 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1736 bool retval = false;
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_value val = symbol_table::find_function (nm);
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 (val.is_defined ())
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1741 {
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1742 octave_function *fcn = val.function_value ();
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 if (fcn)
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1745 retval = fcn->islocked ();
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1746 }
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1747
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1748 return retval;
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1749 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1750
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1751 DEFUN (mlock, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1752 "-*- texinfo -*-\n\
7875
bff8dbc1be11 mlock: doc fix
John W. Eaton <jwe@octave.org>
parents: 7779
diff changeset
1753 @deftypefn {Built-in Function} {} mlock ()\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1754 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
1755 @seealso{munlock, mislocked, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1756 @end deftypefn")
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1757 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1758 octave_value_list retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1759
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1760 if (args.length () == 0)
8083
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1761 {
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1762 octave_function *fcn = octave_call_stack::caller ();
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1763
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1764 if (fcn)
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1765 fcn->lock ();
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1766 else
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1767 error ("mlock: invalid use outside a function");
16ab78b816bc variables.cc (mlock): lock current function
John W. Eaton <jwe@octave.org>
parents: 8021
diff changeset
1768 }
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1769 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1770 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1771
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1772 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1773 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1774
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1775 DEFUN (munlock, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1776 "-*- texinfo -*-\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1777 @deftypefn {Built-in Function} {} munlock (@var{fcn})\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1778 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
1779 then unlock the current function.\n\
5642
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1780 @seealso{mlock, mislocked, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1781 @end deftypefn")
4319
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 octave_value_list retval;
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 (args.length() == 1)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1786 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1787 std::string name = args(0).string_value ();
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1788
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1789 if (! error_state)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1790 munlock (name);
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1791 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1792 error ("munlock: expecting argument to be a function name");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1793 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1794 else if (args.length () == 0)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1795 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1796 octave_function *fcn = octave_call_stack::caller ();
5743
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1797
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1798 if (fcn)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1799 fcn->unlock ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1800 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1801 error ("munlock: invalid use outside a function");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1802 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1803 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1804 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1805
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1806 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1807 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1808
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1809
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
1810 DEFUN (mislocked, args, ,
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1811 "-*- texinfo -*-\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1812 @deftypefn {Built-in Function} {} mislocked (@var{fcn})\n\
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1813 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
1814 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
1815 @seealso{mlock, munlock, persistent}\n\
2618a0750ae6 [project @ 2006-03-06 21:26:48 by jwe]
jwe
parents: 5534
diff changeset
1816 @end deftypefn")
4319
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 octave_value retval;
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 (args.length() == 1)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1821 {
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1822 std::string name = args(0).string_value ();
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1823
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1824 if (! error_state)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1825 retval = mislocked (name);
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1826 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1827 error ("mislocked: expecting argument to be a function name");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1828 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1829 else if (args.length () == 0)
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1830 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1831 octave_function *fcn = octave_call_stack::caller ();
5743
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1832
a527e0f77aa5 [project @ 2006-04-06 08:20:21 by jwe]
jwe
parents: 5685
diff changeset
1833 if (fcn)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1834 retval = fcn->islocked ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1835 else
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1836 error ("mislocked: invalid use outside a function");
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1837 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1838 else
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
1839 print_usage ();
4319
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1840
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1841 return retval;
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1842 }
05973ead74eb [project @ 2003-02-13 21:03:04 by jwe]
jwe
parents: 4280
diff changeset
1843
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1844 // Deleting names from the symbol tables.
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
1845
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1846 static inline bool
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1847 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
1848 int argc, int idx, bool have_regexp = false)
3681
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 bool retval = false;
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1851
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1852 for (int k = idx; k < argc; k++)
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1853 {
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1854 std::string patstr = argv[k];
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1855 if (! patstr.empty ())
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1856 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1857 if (have_regexp)
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1858 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1859 regex_match pattern (patstr);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1860
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1861 if (pattern.match (nm))
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 retval = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1864 break;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1865 }
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 else
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 glob_match pattern (patstr);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1870
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1871 if (pattern.match (nm))
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1872 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1873 retval = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1874 break;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1875 }
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1876 }
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 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1879
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1880 return retval;
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1881 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
1882
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1883 static inline void
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1884 maybe_warn_exclusive (bool exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1885 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1886 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1887 warning ("clear: ignoring --exclusive option");
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1888 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1889
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1890 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1891 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
1892 bool exclusive = false)
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 (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1895 symbol_table::clear_functions ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1896 else
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 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1899 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1900 string_vector fcns = symbol_table::user_function_names ();
4009
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 int fcount = fcns.length ();
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 for (int i = 0; i < fcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1905 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1906 std::string nm = fcns[i];
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 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
1909 symbol_table::clear_function (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1910 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1911 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1912 else
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 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1915 symbol_table::clear_function_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1916 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1917 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1918 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1919
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1920 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1921 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
1922 bool exclusive = false)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1923 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1924 if (idx == argc)
7752
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 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
1927
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1928 int gcount = gvars.length ();
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1929
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1930 for (int i = 0; i < gcount; i++)
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1931 symbol_table::clear_global (gvars[i]);
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1932 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1933 else
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 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1936 {
7752
40c428ea3408 initial implementation of dbup and dbdown
John W. Eaton <jwe@octave.org>
parents: 7626
diff changeset
1937 string_vector gvars = symbol_table::global_variable_names ();
4009
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 int gcount = gvars.length ();
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 for (int i = 0; i < gcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1942 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1943 std::string nm = gvars[i];
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 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
1946 symbol_table::clear_global (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1947 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1948 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1949 else
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 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1952 symbol_table::clear_global_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1953 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1954 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1955 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1956
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1957 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1958 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
1959 bool exclusive = false, bool have_regexp = false)
4009
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 (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1962 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1963 else
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 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1966 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1967 string_vector lvars = symbol_table::variable_names ();
4009
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 int lcount = lvars.length ();
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1970
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1971 for (int i = 0; i < lcount; i++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1972 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1973 std::string nm = lvars[i];
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1974
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1975 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
1976 symbol_table::clear_variable (nm);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1977 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1978 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1979 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1980 {
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1981 if (have_regexp)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1982 while (idx < argc)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1983 symbol_table::clear_variable_regexp (argv[idx++]);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1984 else
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1985 while (idx < argc)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
1986 symbol_table::clear_variable_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1987 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1988 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1989 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1990
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1991 static void
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1992 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
1993 bool exclusive = false)
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 (idx == argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
1996 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1997 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1998 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
1999 if (exclusive)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2000 {
5775
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe]
jwe
parents: 5760
diff changeset
2001 // 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
2002 // 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
2003 // 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
2004 // bit harder to do.
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2005
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2006 do_clear_variables (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2007 do_clear_functions (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2008 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2009 else
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 while (idx < argc)
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2012 symbol_table::clear_symbol_pattern (argv[idx++]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2013 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2014 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2015 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2016
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2017 static void
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2018 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
2019 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2020 // This is supposed to be mostly Matlab compatible.
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2021
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2022 for (; idx < argc; idx++)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2023 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2024 if (argv[idx] == "all"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2025 && ! symbol_table::is_local_variable ("all"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2026 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2027 symbol_table::clear_all ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2028 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2029 else if (argv[idx] == "functions"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2030 && ! symbol_table::is_local_variable ("functions"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2031 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2032 do_clear_functions (argv, argc, ++idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2033 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2034 else if (argv[idx] == "global"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2035 && ! symbol_table::is_local_variable ("global"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2036 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2037 do_clear_globals (argv, argc, ++idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2038 }
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2039 else if (argv[idx] == "variables"
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2040 && ! symbol_table::is_local_variable ("variables"))
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2041 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2042 symbol_table::clear_variables ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2043 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2044 else if (argv[idx] == "classes"
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2045 && ! symbol_table::is_local_variable ("classes"))
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2046 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2047 symbol_table::clear_objects ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2048 octave_class::clear_exemplar_map ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2049 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2050 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2051 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2052 symbol_table::clear_symbol_pattern (argv[idx]);
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2053 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2054 }
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
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2057 #define CLEAR_OPTION_ERROR(cond) \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2058 do \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2059 { \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2060 if (cond) \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2061 { \
5823
080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe]
jwe
parents: 5814
diff changeset
2062 print_usage (); \
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2063 return retval; \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2064 } \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2065 } \
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2066 while (0)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2067
8746
5dd06f19e9be handle commands in the lexer
John W. Eaton <jwe@octave.org>
parents: 8677
diff changeset
2068 DEFUN (clear, args, ,
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2069 "-*- texinfo -*-\n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2070 @deffn {Command} clear [options] pattern @dots{}\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2071 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
2072 pattern may contain the following special characters:\n\
4016
139f5273d0f8 [project @ 2002-08-02 22:55:51 by jwe]
jwe
parents: 4010
diff changeset
2073 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2074 @table @code\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2075 @item ?\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2076 Match any single character.\n\
668
d63a1354f319 [project @ 1994-09-07 14:39:43 by jwe]
jwe
parents: 666
diff changeset
2077 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2078 @item *\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2079 Match zero or more characters.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2080 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2081 @item [ @var{list} ]\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2082 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
2083 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
2084 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
2085 match all lower and upper case alphabetic characters.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2086 @end table\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2087 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2088 For example, the command\n\
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2089 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2090 @example\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2091 clear foo b*r\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2092 @end example\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2093 \n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2094 @noindent\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2095 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
2096 @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
2097 \n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2098 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
2099 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
2100 @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
2101 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
2102 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
2103 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
2104 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
2105 @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
2106 clear the function definition.\n\
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2107 \n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2108 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
2109 @table @code\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2110 @item -all, -a\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2111 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
2112 from the symbol table.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2113 \n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2114 @item -exclusive, -x\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2115 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
2116 \n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2117 @item -functions, -f\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2118 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
2119 @item -global, -g\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2120 Clears the global symbol names.\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2121 @item -variables, -v\n\
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2122 Clears the local variable names.\n\
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2123 @item -classes, -c\n\
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2124 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
2125 @item -regexp, -r\n\
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2126 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
2127 match will be cleared.\n\
7347
0fa079d04772 [project @ 2008-01-04 21:09:11 by jwe]
jwe
parents: 7336
diff changeset
2128 @end table\n\
8325
b93ac0586e4b spelling corrections
Brian Gough<bjg@network-theory.co.uk>
parents: 8131
diff changeset
2129 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
2130 without the dash as well.\n\
3361
4f40efa995c1 [project @ 1999-11-19 21:19:37 by jwe]
jwe
parents: 3355
diff changeset
2131 @end deffn")
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2132 {
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 2076
diff changeset
2133 octave_value_list retval;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2134
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
2135 int argc = args.length () + 1;
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2136
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1957
diff changeset
2137 string_vector argv = args.make_argv ("clear");
1755
3a9462b655f1 [project @ 1996-01-22 04:47:22 by jwe]
jwe
parents: 1742
diff changeset
2138
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2139 if (! error_state)
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2140 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2141 if (argc == 1)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2142 {
11973
5b967e2c319a fix behavior of clear
Jaroslav Hajek <highegg@gmail.com>
parents: 11963
diff changeset
2143 do_clear_globals (argv, argc, 1);
5b967e2c319a fix behavior of clear
Jaroslav Hajek <highegg@gmail.com>
parents: 11963
diff changeset
2144 do_clear_variables (argv, argc, 1);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2145 }
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2146 else
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2147 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2148 int idx = 0;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2149
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2150 bool clear_all = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2151 bool clear_functions = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2152 bool clear_globals = false;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2153 bool clear_variables = false;
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2154 bool clear_objects = false;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2155 bool exclusive = false;
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2156 bool have_regexp = false;
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2157 bool have_dash_option = false;
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2158
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2159 while (++idx < argc)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2160 {
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2161 if (argv[idx] == "-all" || argv[idx] == "-a")
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2162 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2163 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2164
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2165 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2166 clear_all = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2167 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2168 else if (argv[idx] == "-exclusive" || argv[idx] == "-x")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2169 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2170 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2171 exclusive = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2172 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2173 else if (argv[idx] == "-functions" || argv[idx] == "-f")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2174 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2175 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2176
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2177 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2178 clear_functions = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2179 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2180 else if (argv[idx] == "-global" || argv[idx] == "-g")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2181 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2182 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2183
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2184 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2185 clear_globals = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2186 }
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2187 else if (argv[idx] == "-variables" || argv[idx] == "-v")
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2188 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2189 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2190
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2191 have_dash_option = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2192 clear_variables = true;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2193 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2194 else if (argv[idx] == "-classes" || argv[idx] == "-c")
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2195 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2196 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2197
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2198 have_dash_option = true;
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2199 clear_objects = true;
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2200 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2201 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
2202 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2203 CLEAR_OPTION_ERROR (have_dash_option && ! exclusive);
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2204
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2205 have_dash_option = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2206 have_regexp = true;
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2207 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2208 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2209 break;
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2210 }
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2211
4224
0179e6309248 [project @ 2002-12-18 00:34:29 by jwe]
jwe
parents: 4208
diff changeset
2212 if (idx <= argc)
4009
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 if (! have_dash_option)
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 do_matlab_compatible_clear (argv, argc, idx);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2217 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2218 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2219 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2220 if (clear_all)
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2221 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2222 maybe_warn_exclusive (exclusive);
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2223
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2224 if (++idx < argc)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2225 warning
4010
0a30852e0249 [project @ 2002-07-31 16:20:35 by jwe]
jwe
parents: 4009
diff changeset
2226 ("clear: ignoring extra arguments after -all");
3681
df54d394acc0 [project @ 2000-06-26 17:46:58 by jwe]
jwe
parents: 3618
diff changeset
2227
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2228 symbol_table::clear_all ();
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2229 }
7779
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2230 else if (have_regexp)
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2231 {
791231dac333 Add regexp matching to Fwho and Fclear
David Bateman <dbateman@free.fr>
parents: 7761
diff changeset
2232 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
2233 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2234 else if (clear_functions)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2235 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2236 do_clear_functions (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_globals)
593
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2239 {
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2240 do_clear_globals (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2241 }
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2242 else if (clear_variables)
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2243 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2244 do_clear_variables (argv, argc, idx, exclusive);
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2245 }
9240
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2246 else if (clear_objects)
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2247 {
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2248 symbol_table::clear_objects ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2249 octave_class::clear_exemplar_map ();
f27a8c07f0b2 clear -classes and support.
Robert T. Short <octave@phaselockedsystems.com>
parents: 9180
diff changeset
2250 }
4009
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2251 else
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2252 {
27e461aed956 [project @ 2002-07-31 09:33:03 by jwe]
jwe
parents: 3968
diff changeset
2253 do_clear_symbols (argv, argc, idx, exclusive);
593
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 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2257 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2258 }
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2259
6f948c6251a9 [project @ 1994-08-09 04:29:10 by jwe]
jwe
parents: 584
diff changeset
2260 return retval;
529
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2261 }
7ea224e713cd [project @ 1994-07-20 18:54:27 by jwe]
jwe
parents: 506
diff changeset
2262
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2263 DEFUN (whos_line_format, args, nargout,
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2264 "-*- texinfo -*-\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2265 @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
2266 @deftypefnx {Built-in Function} {@var{old_val} =} whos_line_format (@var{new_val})\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2267 Query or set the format string used by the command @code{whos}.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2268 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2269 A full format string is:\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2270 \n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2271 @c Set example in small font to prevent overfull line\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2272 @smallexample\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2273 %[modifier]<command>[:width[:left-min[:balance]]];\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2274 @end smallexample\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2275 \n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2276 The following command sequences are available:\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2277 \n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2278 @table @code\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2279 @item %a\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2280 Prints attributes of variables (g=global, p=persistent,\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2281 f=formal parameter, a=automatic variable).\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2282 @item %b\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2283 Prints number of bytes occupied by variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2284 @item %c\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2285 Prints class names of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2286 @item %e\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2287 Prints elements held by variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2288 @item %n\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2289 Prints variable names.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2290 @item %s\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2291 Prints dimensions of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2292 @item %t\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2293 Prints type names of variables.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2294 @end table\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2295 \n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2296 Every command may also have an alignment modifier:\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2297 \n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2298 @table @code\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2299 @item l\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2300 Left alignment.\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2301 @item r\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2302 Right alignment (default).\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2303 @item c\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2304 Column-aligned (only applicable to command %s).\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2305 @end table\n\
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2306 \n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2307 The @code{width} parameter is a positive integer specifying the minimum\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2308 number of columns used for printing. No maximum is needed as the field will\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2309 auto-expand as required.\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2310 \n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2311 The parameters @code{left-min} and @code{balance} are only available when the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2312 column-aligned modifier is used with the command @samp{%s}.\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2313 @code{balance} specifies the column number within the field width which will\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2314 be aligned between entries. Numbering starts from 0 which indicates the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2315 leftmost column. @code{left-min} specifies the minimum field width to the\n\
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2316 left of the specified balance column.\n\
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2317 \n\
8516
e2a179415bac doc fixes
John W. Eaton <jwe@octave.org>
parents: 8503
diff changeset
2318 The default format is\n\
e2a179415bac doc fixes
John W. Eaton <jwe@octave.org>
parents: 8503
diff changeset
2319 @code{\" %a:4; %ln:6; %cs:16:6:1; %rb:12; %lc:-1;\\n\"}.\n\
11963
2ae447eb03ed Update documentation for 'who' family of functions.
Rik <rdrider0-list@yahoo.com>
parents: 9260
diff changeset
2320 @seealso{whos}\n\
5794
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
2321 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe]
jwe
parents: 5791
diff changeset
2322 {
7336
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe]
jwe
parents: 7065
diff changeset
2323 return SET_INTERNAL_VARIABLE (whos_line_format);
3016
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe]
jwe
parents: 3013
diff changeset
2324 }
f512c16826d1 [project @ 1997-06-03 03:16:13 by jwe]
jwe
parents: 3013
diff changeset
2325
1
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2326 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2327 ;;; Local Variables: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2328 ;;; mode: C++ ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2329 ;;; End: ***
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe]
jwe
parents:
diff changeset
2330 */