Mercurial > hg > octave-nkf

diff scripts/deprecated/hypergeometric_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/hypergeometric_rnd.m
+++ b/scripts/deprecated/hypergeometric_rnd.m
@@ -31,6 +31,14 @@
 
 function rnd = hypergeometric_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["hypergeometric_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use hygernd instead"]);
+  endif
+
   rnd = hygernd (varargin{:});
 
 endfunction