# HG changeset patch
# User jwe
# Date 784404416 0
# Node ID 00e903c955349d9fca75c9aa567ae9c6b73e6f51
# Parent  4733b101ce3fbae559dcd444333818547cd7acec
[project @ 1994-11-09 18:06:56 by jwe]

diff -r 4733b101ce3f -r 00e903c95534 src/error.cc
--- a/src/error.cc	Wed Nov 09 18:04:15 1994 +0000
+++ b/src/error.cc	Wed Nov 09 18:06:56 1994 +0000
@@ -144,7 +144,7 @@
 {
   Octave_object retval;
 
-  char *msg = "unspecified_error";
+  char *msg = "unspecified error";
 
   int nargin = args.length ();
 
@@ -173,7 +173,7 @@
 {
   Octave_object retval;
 
-  char *msg = "unspecified_error";
+  char *msg = "unspecified warning";
 
   int nargin = args.length ();
 
@@ -195,6 +195,35 @@
   return retval;
 }
 
+DEFUN ("usage", Fusage, Susage, 1, 1,
+  "usage (MESSAGE): print a usage MESSAGE.\n\
+\n\
+See also: error")
+{
+  Octave_object retval;
+
+  char *msg = "unknown";
+
+  int nargin = args.length ();
+
+  if (nargin == 1 && args(0).is_defined ())
+    {
+      if (args(0).is_string ())
+	{
+	  msg = args(0).string_value ();
+
+	  if (! msg || ! *msg)
+	    return retval;
+	}
+      else if (args(0).is_empty ())
+	return retval;
+    }
+
+  usage (msg);
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***