Mercurial > hg > octave-nkf

diff scripts/deprecated/exponential_rnd.m @ 11737:dd93a39fa8fe release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add warning to rest of deprecated functions
author David Bateman <dbateman@free.fr>
date Fri, 04 Apr 2008 10:19:30 -0400
parents 9d412bc1d54f
children 1cdb42b372e8 72830070a17b
line wrap: on
line diff
--- a/scripts/deprecated/exponential_rnd.m
+++ b/scripts/deprecated/exponential_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = exponential_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["exponential_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use exprnd instead"]);
+  endif
+
  if (nargin > 0)
    varargin{1} = 1 ./ varargin{1};
  endif