Mercurial > hg > octave-nkf
diff src/t-builtins.cc @ 338:82d30a23c979
[project @ 1994-02-07 07:09:33 by jwe]
author | jwe |
---|---|
date | Mon, 07 Feb 1994 07:21:43 +0000 |
parents | 069ae2896cf7 |
children | 528943cab4e6 |
line wrap: on
line diff
--- a/src/t-builtins.cc +++ b/src/t-builtins.cc @@ -404,8 +404,8 @@ while (*ptr != (char *) NULL) { int count; - char **names = get_m_file_names (count, *ptr, 0); - output_buf << "\n*** M-files in " + char **names = get_fcn_file_names (count, *ptr, 0); + output_buf << "\n*** function files in " << make_absolute (*ptr, the_current_working_directory) << ":\n\n"; if (names != (char **) NULL && count > 0) @@ -538,7 +538,7 @@ { ostrstream output_buf; - char *m_file_name = (char *) NULL; + char *fcn_file_name = (char *) NULL; symbol_record *sym_rec; help_list *op_help_list = operator_help (); help_list *kw_help_list = keyword_help (); @@ -581,18 +581,18 @@ } } -// Try harder to find M-files that might not be defined yet, or that -// appear to be out of date. Don\'t execute commands from the file if -// it turns out to be a script file. +// Try harder to find function files that might not be defined yet, or +// that appear to be out of date. Don\'t execute commands from the +// file if it turns out to be a script file. - m_file_name = m_file_in_path (*argv); - if (m_file_name != (char *) NULL) + fcn_file_name = fcn_file_in_path (*argv); + if (fcn_file_name != (char *) NULL) { sym_rec = global_sym_tab->lookup (*argv, 1, 0); if (sym_rec != (symbol_record *) NULL) { tree_identifier tmp (sym_rec); - tmp.parse_m_file (0); + tmp.parse_fcn_file (0); char *h = sym_rec->help (); if (h != (char *) NULL && *h != '\0') { @@ -602,7 +602,7 @@ } } } - delete [] m_file_name; + delete [] fcn_file_name; output_buf << "\nhelp: sorry, `" << *argv << "' is not documented\n";