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