From: Ben Pfaff <blp@gnu.org>
Date: Mon, 16 Oct 2006 02:39:32 +0000 (+0000)
Subject: 	* command.c: (do_parse_command) Issue an error for unimplemented
X-Git-Tag: v0.6.0~728
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=032126b098a3600655156bd26ded365953c5283e;p=pspp-builds.git

	* command.c: (do_parse_command) Issue an error for unimplemented
	commands, instead of silently ignoring them.  Reported by John
	Darrington.
---

diff --git a/src/language/ChangeLog b/src/language/ChangeLog
index 812491ba..91f3423d 100644
--- a/src/language/ChangeLog
+++ b/src/language/ChangeLog
@@ -1,3 +1,9 @@
+Sun Oct 15 19:38:55 2006  Ben Pfaff  <blp@gnu.org>
+
+	* command.c: (do_parse_command) Issue an error for unimplemented
+	commands, instead of silently ignoring them.  Reported by John
+	Darrington.
+
 Wed Jun 28 11:38:23 2006  Ben Pfaff  <blp@gnu.org>
 
 	Don't offer both the full and abbreviated names for a single
diff --git a/src/language/command.c b/src/language/command.c
index 16a663c5..ae16d9bb 100644
--- a/src/language/command.c
+++ b/src/language/command.c
@@ -178,8 +178,11 @@ do_parse_command (enum cmd_state state)
   command = parse_command_name ();
   if (command == NULL)
     return CMD_FAILURE;
-  else if (command->function == NULL)
-    return CMD_NOT_IMPLEMENTED;
+  else if (command->function == NULL) 
+    {
+      msg (SE, _("%s is unimplemented."), command->name);
+      return CMD_NOT_IMPLEMENTED; 
+    }
   else if ((command->flags & F_TESTING) && !get_testing_mode ()) 
     {
       msg (SE, _("%s may be used only in testing mode."), command->name);