Mercurial > hg > octave-nkf
diff src/variables.cc @ 3011:2ad9af85b89b
[project @ 1997-06-01 19:34:20 by jwe]
author | jwe |
---|---|
date | Sun, 01 Jun 1997 19:37:26 +0000 |
parents | fd2080b2800e |
children | 66a1cede95e7 |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -1196,82 +1196,6 @@ // List variable names. -static void -print_symbol_info_line (ostream& os, const symbol_record_info& s) -{ - os << (s.is_read_only () ? " -" : " w"); - os << (s.is_eternal () ? "- " : "d "); -#if 0 - os << (s.hides_fcn () ? "f" : (s.hides_builtin () ? "F" : "-")); -#endif - os.form (" %-16s", s.type_name ().c_str ()); - - int nr = s.rows (); - int nc = s.columns (); - - if (nr < 0) - os << " -"; - else - os.form ("%7d", nr); - - if (nc < 0) - os << " -"; - else - os.form ("%7d", nc); - - os << " " << s.name () << "\n"; -} - -static void -print_long_listing (ostream& os, symbol_record_info *s) -{ - if (! s) - return; - - symbol_record_info *ptr = s; - while (ptr->is_defined ()) - { - print_symbol_info_line (os, *ptr); - ptr++; - } -} - -static int -maybe_list (const char *header, const string_vector& argv, int argc, - ostream& os, bool show_verbose, symbol_table - *sym_tab, unsigned type, unsigned scope) -{ - int count; - int status = 0; - if (show_verbose) - { - symbol_record_info *symbols; - symbols = sym_tab->long_list (count, argv, argc, 1, type, scope); - if (symbols && count > 0) - { - os << "\n" << header << "\n\n" - << "prot type rows cols name\n" - << "==== ==== ==== ==== ====\n"; - - print_long_listing (os, symbols); - status = 1; - } - delete [] symbols; - } - else - { - string_vector symbols = sym_tab->list (count, argv, argc, 1, - type, scope); - if (symbols.length () > 0 && count > 0) - { - os << "\n" << header << "\n\n"; - symbols.list_in_columns (os); - status = 1; - } - } - return status; -} - DEFUN (document, args, , "document (NAME, STRING)\n\ \n\ @@ -1377,36 +1301,33 @@ if (show_builtins) { - pad_after += maybe_list ("*** built-in variables:", pats, npats, - octave_stdout, show_verbose, global_sym_tab, - symbol_def::BUILTIN_VARIABLE, - SYMTAB_ALL_SCOPES); + pad_after += global_sym_tab->maybe_list + ("*** built-in variables:", pats, npats, octave_stdout, + show_verbose, symbol_record::BUILTIN_VARIABLE, SYMTAB_ALL_SCOPES); - pad_after += maybe_list ("*** built-in functions:", pats, npats, - octave_stdout, show_verbose, global_sym_tab, - symbol_def::BUILTIN_FUNCTION, - SYMTAB_ALL_SCOPES); + pad_after += global_sym_tab->maybe_list + ("*** built-in functions:", pats, npats, octave_stdout, + show_verbose, symbol_record::BUILTIN_FUNCTION, SYMTAB_ALL_SCOPES); } if (show_functions) { - pad_after += maybe_list ("*** currently compiled functions:", - pats, npats, octave_stdout, show_verbose, - global_sym_tab, symbol_def::USER_FUNCTION, - SYMTAB_ALL_SCOPES); + pad_after += global_sym_tab->maybe_list + ("*** currently compiled functions:", pats, npats, + octave_stdout, show_verbose, symbol_record::USER_FUNCTION, + SYMTAB_ALL_SCOPES); } if (show_variables) { - pad_after += maybe_list ("*** local user variables:", pats, npats, - octave_stdout, show_verbose, curr_sym_tab, - symbol_def::USER_VARIABLE, - SYMTAB_LOCAL_SCOPE); + pad_after += curr_sym_tab->maybe_list + ("*** local user variables:", pats, npats, octave_stdout, + show_verbose, symbol_record::USER_VARIABLE, SYMTAB_LOCAL_SCOPE); - pad_after += maybe_list ("*** globally visible user variables:", - pats, npats, octave_stdout, show_verbose, - curr_sym_tab, symbol_def::USER_VARIABLE, - SYMTAB_GLOBAL_SCOPE); + pad_after += curr_sym_tab->maybe_list + ("*** globally visible user variables:", pats, npats, + octave_stdout, show_verbose, symbol_record::USER_VARIABLE, + SYMTAB_GLOBAL_SCOPE); } if (pad_after) @@ -1733,7 +1654,7 @@ SYMTAB_GLOBAL_SCOPE); fcns = global_sym_tab->list (fcount, 0, 0, 0, - symbol_def::USER_FUNCTION, + symbol_record::USER_FUNCTION, SYMTAB_ALL_SCOPES); }