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";