Mercurial > hg > octave-nkf

diff src/parse.y @ 341:4115f7713851

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-02-07 07:59:44 by jwe]
author jwe
date Mon, 07 Feb 1994 08:00:18 +0000
parents 57cdcf21c1df
children fa0453b25410
line wrap: on
line diff
--- a/src/parse.y
+++ b/src/parse.y
@@ -907,7 +907,7 @@
 			if (strcmp (curr_fcn_file_name, id_name) != 0)
 			  {
 			    warning ("function name `%s' does not agree\
- with function file name `%s'", id_name, curr_fcn_file_name);
+ with function file name `%s.m'", id_name, curr_fcn_file_name);
 
 			    $1->rename (curr_fcn_file_name);
 			    id_name = $1->name ();
@@ -923,7 +923,7 @@
 			     && strcmp (curr_fcn_file_name, id_name) == 0)
 		      {
 			warning ("function `%s' defined within\
- script file `%s'", id_name, curr_fcn_file_name);
+ script file `%s.m'", id_name, curr_fcn_file_name);
 		      }
 
 		    top_level_sym_tab->clear (id_name);
@@ -1118,7 +1118,7 @@
 
 // Maybe print the line number and file name.
   if (reading_fcn_file || reading_script_file)
-    fprintf (stderr, " near line %d of file %s", input_line_number,
+    fprintf (stderr, " near line %d of file %s.m", input_line_number,
 	     curr_fcn_file_name);
 
   if (line != (char *) NULL)