# HG changeset patch
# User jwe
# Date 784404093 0
# Node ID 54921d0802953f53165f4f8a9c0e5ba3e9fbde44
# Parent  4a2133b26fa794f987ad884863c6f4cacde0d331
[project @ 1994-11-09 18:01:33 by jwe]

diff --git a/src/error.cc b/src/error.cc
--- a/src/error.cc
+++ b/src/error.cc
@@ -166,6 +166,35 @@
   return retval;
 }
 
+DEFUN ("warning", Fwarning, Swarning, 1, 1,
+  "warning (MESSAGE): print a warning MESSAGE.\n\
+\n\
+See also: error")
+{
+  Octave_object retval;
+
+  char *msg = "unspecified_error";
+
+  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;
+    }
+
+  warning (msg);
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***