# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1207318715 14400
# Node ID 0a362fa8f3c8b7bab7230fb6a4f7ecf888995ef3
# Parent  eacf87a24f552d8678b63c0413541d5e09202f51
Add warning to rest of deprecated functions

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,46 @@
+2008-04-04  David Bateman  <dbateman@free.fr>
+
+	* deprecated/beta_cdf.m deprecated/beta_inv.m
+	deprecated/beta_pdf.m deprecated/beta_rnd.m
+	deprecated/binomial_cdf.m deprecated/binomial_inv.m
+	deprecated/binomial_pdf.m deprecated/binomial_rnd.m
+	deprecated/chisquare_cdf.m deprecated/chisquare_inv.m
+	deprecated/chisquare_pdf.m deprecated/chisquare_rnd.m
+	deprecated/clearplot.m deprecated/clg.m deprecated/com2str.m
+	deprecated/exponential_cdf.m deprecated/exponential_inv.m
+	deprecated/exponential_pdf.m deprecated/exponential_rnd.m
+	deprecated/f_cdf.m deprecated/f_inv.m deprecated/f_pdf.m
+	deprecated/f_rnd.m deprecated/gamma_cdf.m deprecated/gamma_inv.m
+	deprecated/gamma_pdf.m deprecated/gamma_rnd.m
+	deprecated/geometric_cdf.m deprecated/geometric_inv.m
+	deprecated/geometric_pdf.m deprecated/geometric_rnd.m
+	deprecated/hypergeometric_cdf.m deprecated/hypergeometric_inv.m
+	deprecated/hypergeometric_pdf.m deprecated/hypergeometric_rnd.m
+	deprecated/intersection.m deprecated/is_bool.m
+	deprecated/is_complex.m deprecated/is_list.m
+	deprecated/is_matrix.m deprecated/is_scalar.m
+	deprecated/is_square.m deprecated/is_stream.m deprecated/isstr.m
+	deprecated/is_struct.m deprecated/is_symmetric.m
+	deprecated/is_vector.m deprecated/lognormal_cdf.m
+	deprecated/lognormal_inv.m deprecated/lognormal_pdf.m
+	deprecated/lognormal_rnd.m deprecated/meshdom.m
+	deprecated/normal_cdf.m deprecated/normal_inv.m
+	deprecated/normal_pdf.m deprecated/normal_rnd.m
+	deprecated/pascal_cdf.m deprecated/pascal_inv.m
+	deprecated/pascal_pdf.m deprecated/pascal_rnd.m
+	deprecated/poisson_cdf.m deprecated/poisson_inv.m
+	deprecated/poisson_pdf.m deprecated/poisson_rnd.m
+	deprecated/polyinteg.m deprecated/setstr.m
+	deprecated/struct_contains.m deprecated/struct_elements.m
+	deprecated/t_cdf.m deprecated/t_inv.m deprecated/t_pdf.m
+	deprecated/t_rnd.m deprecated/uniform_cdf.m
+	deprecated/uniform_inv.m deprecated/uniform_pdf.m
+	deprecated/uniform_rnd.m deprecated/weibcdf.m deprecated/weibinv.m
+	deprecated/weibpdf.m deprecated/weibrnd.m deprecated/weibull_cdf.m
+	deprecated/weibull_inv.m deprecated/weibull_pdf.m
+	deprecated/weibull_rnd.m deprecated/wiener_rnd.m: Add warning that
+	function will be removed in a future version.
+
 2008-04-03  John W. Eaton  <jwe@octave.org>
 
 	* deprecated/beta_cdf.m, deprecated/beta_inv.m,
diff --git a/scripts/deprecated/beta_cdf.m b/scripts/deprecated/beta_cdf.m
--- a/scripts/deprecated/beta_cdf.m
+++ b/scripts/deprecated/beta_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = beta_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["beta_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use betacdf instead"]);
+  endif
+
  cdf =  betacdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/beta_inv.m b/scripts/deprecated/beta_inv.m
--- a/scripts/deprecated/beta_inv.m
+++ b/scripts/deprecated/beta_inv.m
@@ -30,6 +30,14 @@
 
 function inv = beta_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["beta_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use betainv instead"]);
+  endif
+
  inv =  betainv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/beta_pdf.m b/scripts/deprecated/beta_pdf.m
--- a/scripts/deprecated/beta_pdf.m
+++ b/scripts/deprecated/beta_pdf.m
@@ -29,6 +29,14 @@
 
 function pdf = beta_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["beta_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use betapdf instead"]);
+  endif
+
  pdf =  betapdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/beta_rnd.m b/scripts/deprecated/beta_rnd.m
--- a/scripts/deprecated/beta_rnd.m
+++ b/scripts/deprecated/beta_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = beta_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["beta_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use betarnd instead"]);
+  endif
+
  rnd =  betarnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/binomial_cdf.m b/scripts/deprecated/binomial_cdf.m
--- a/scripts/deprecated/binomial_cdf.m
+++ b/scripts/deprecated/binomial_cdf.m
@@ -29,6 +29,14 @@
 
 function cdf = binomial_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["binomial_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use binocdf instead"]);
+  endif
+
  cdf =  binocdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/binomial_inv.m b/scripts/deprecated/binomial_inv.m
--- a/scripts/deprecated/binomial_inv.m
+++ b/scripts/deprecated/binomial_inv.m
@@ -29,6 +29,14 @@
 
 function inv = binomial_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["binomial_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use binoinv instead"]);
+  endif
+
  inv =  binoinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/binomial_pdf.m b/scripts/deprecated/binomial_pdf.m
--- a/scripts/deprecated/binomial_pdf.m
+++ b/scripts/deprecated/binomial_pdf.m
@@ -30,6 +30,14 @@
 
 function pdf = binomial_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["binomial_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use binopdf instead"]);
+  endif
+
  pdf =  binopdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/binomial_rnd.m b/scripts/deprecated/binomial_rnd.m
--- a/scripts/deprecated/binomial_rnd.m
+++ b/scripts/deprecated/binomial_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = binomial_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["binomial_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use binornd instead"]);
+  endif
+
  rnd =  binornd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/chisquare_cdf.m b/scripts/deprecated/chisquare_cdf.m
--- a/scripts/deprecated/chisquare_cdf.m
+++ b/scripts/deprecated/chisquare_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = chisquare_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["chisquare_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use chi2cdf instead"]);
+  endif
+
  cdf =  chi2cdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/chisquare_inv.m b/scripts/deprecated/chisquare_inv.m
--- a/scripts/deprecated/chisquare_inv.m
+++ b/scripts/deprecated/chisquare_inv.m
@@ -30,6 +30,14 @@
 
 function inv = chisquare_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["chisquare_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use chi2inv instead"]);
+  endif
+
  inv =  chi2inv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/chisquare_pdf.m b/scripts/deprecated/chisquare_pdf.m
--- a/scripts/deprecated/chisquare_pdf.m
+++ b/scripts/deprecated/chisquare_pdf.m
@@ -30,6 +30,14 @@
 
 function pdf = chisquare_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["chisquare_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use chi2pdf instead"]);
+  endif
+
  pdf =  chi2pdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/chisquare_rnd.m b/scripts/deprecated/chisquare_rnd.m
--- a/scripts/deprecated/chisquare_rnd.m
+++ b/scripts/deprecated/chisquare_rnd.m
@@ -34,6 +34,14 @@
 
 function rnd = chisquare_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["chisquare_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use chi2rnd instead"]);
+  endif
+
  rnd =  chi2rnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/clearplot.m b/scripts/deprecated/clearplot.m
--- a/scripts/deprecated/clearplot.m
+++ b/scripts/deprecated/clearplot.m
@@ -27,6 +27,14 @@
 
 function clearplot ()
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["function clearplot () is obsolete and will be removed from a future\n",
+	       "version of Octave, please use clf instead"]);
+  endif
+
   clf ();
 
 endfunction
diff --git a/scripts/deprecated/clg.m b/scripts/deprecated/clg.m
--- a/scripts/deprecated/clg.m
+++ b/scripts/deprecated/clg.m
@@ -27,6 +27,14 @@
 
 function clg ()
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["function clg () is obsolete and will be removed from a future\n",
+	       "version of Octave, please use clf instead"]);
+  endif
+
   clf ();
 
 endfunction
diff --git a/scripts/deprecated/com2str.m b/scripts/deprecated/com2str.m
--- a/scripts/deprecated/com2str.m
+++ b/scripts/deprecated/com2str.m
@@ -37,6 +37,14 @@
 
 function retval = com2str (zz, flg)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["com2str is obsolete and will be removed from a future\n",
+	       "version of Octave, please use num2str instead"]);
+  endif
+
   if (nargin < 1 || nargin > 2)
     print_usage ();
   endif
diff --git a/scripts/deprecated/exponential_cdf.m b/scripts/deprecated/exponential_cdf.m
--- a/scripts/deprecated/exponential_cdf.m
+++ b/scripts/deprecated/exponential_cdf.m
@@ -32,6 +32,14 @@
 
 function cdf = exponential_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["exponential_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use expcdf instead"]);
+  endif
+
  if (nargin > 1)
    varargin{2} = 1 ./ varargin{2};
  endif
diff --git a/scripts/deprecated/exponential_inv.m b/scripts/deprecated/exponential_inv.m
--- a/scripts/deprecated/exponential_inv.m
+++ b/scripts/deprecated/exponential_inv.m
@@ -30,6 +30,14 @@
 
 function inv = exponential_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["exponential_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use expinv instead"]);
+  endif
+
  if (nargin > 1)
    varargin{2} = 1 ./ varargin{2};
  endif
diff --git a/scripts/deprecated/exponential_pdf.m b/scripts/deprecated/exponential_pdf.m
--- a/scripts/deprecated/exponential_pdf.m
+++ b/scripts/deprecated/exponential_pdf.m
@@ -29,6 +29,14 @@
 
 function pdf = exponential_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["exponential_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use exppdf instead"]);
+  endif
+
  if (nargin > 1)
    varargin{2} = 1 ./ varargin{2};
  endif
diff --git a/scripts/deprecated/exponential_rnd.m b/scripts/deprecated/exponential_rnd.m
--- 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
diff --git a/scripts/deprecated/f_cdf.m b/scripts/deprecated/f_cdf.m
--- a/scripts/deprecated/f_cdf.m
+++ b/scripts/deprecated/f_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = f_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["f_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use fcdf instead"]);
+  endif
+
  cdf =  fcdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/f_inv.m b/scripts/deprecated/f_inv.m
--- a/scripts/deprecated/f_inv.m
+++ b/scripts/deprecated/f_inv.m
@@ -30,6 +30,14 @@
 
 function inv = f_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["f_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use finv instead"]);
+  endif
+
  inv =  finv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/f_pdf.m b/scripts/deprecated/f_pdf.m
--- a/scripts/deprecated/f_pdf.m
+++ b/scripts/deprecated/f_pdf.m
@@ -30,6 +30,14 @@
 
 function pdf = f_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["f_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use fpdf instead"]);
+  endif
+
  pdf =  fpdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/f_rnd.m b/scripts/deprecated/f_rnd.m
--- a/scripts/deprecated/f_rnd.m
+++ b/scripts/deprecated/f_rnd.m
@@ -36,6 +36,14 @@
 
 function rnd = f_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["f_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use frnd instead"]);
+  endif
+
  rnd =  frnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/gamma_cdf.m b/scripts/deprecated/gamma_cdf.m
--- a/scripts/deprecated/gamma_cdf.m
+++ b/scripts/deprecated/gamma_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = gamma_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["gamma_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use gamcdf instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = 1 ./ varargin{3};
  endif
diff --git a/scripts/deprecated/gamma_inv.m b/scripts/deprecated/gamma_inv.m
--- a/scripts/deprecated/gamma_inv.m
+++ b/scripts/deprecated/gamma_inv.m
@@ -30,6 +30,14 @@
 
 function inv = gamma_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["gamma_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use gaminv instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = 1 ./ varargin{3};
  endif
diff --git a/scripts/deprecated/gamma_pdf.m b/scripts/deprecated/gamma_pdf.m
--- a/scripts/deprecated/gamma_pdf.m
+++ b/scripts/deprecated/gamma_pdf.m
@@ -30,6 +30,14 @@
 
 function pdf = gamma_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["gamma_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use gampdf instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = 1 ./ varargin{3};
  endif
diff --git a/scripts/deprecated/gamma_rnd.m b/scripts/deprecated/gamma_rnd.m
--- a/scripts/deprecated/gamma_rnd.m
+++ b/scripts/deprecated/gamma_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = gamma_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["gamma_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use gamrnd instead"]);
+  endif
+
  if (nargin > 1)
    varargin{2} = 1 ./ varargin{2};
  endif
diff --git a/scripts/deprecated/geometric_cdf.m b/scripts/deprecated/geometric_cdf.m
--- a/scripts/deprecated/geometric_cdf.m
+++ b/scripts/deprecated/geometric_cdf.m
@@ -29,6 +29,14 @@
 
 function cdf = geometric_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["geometric_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use geocdf instead"]);
+  endif
+
  cdf =  geocdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/geometric_inv.m b/scripts/deprecated/geometric_inv.m
--- a/scripts/deprecated/geometric_inv.m
+++ b/scripts/deprecated/geometric_inv.m
@@ -29,6 +29,14 @@
 
 function inv = geometric_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["geometric_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use geoinv instead"]);
+  endif
+
  inv =  geoinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/geometric_pdf.m b/scripts/deprecated/geometric_pdf.m
--- a/scripts/deprecated/geometric_pdf.m
+++ b/scripts/deprecated/geometric_pdf.m
@@ -29,6 +29,14 @@
 
 function pdf = geometric_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["geometric_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use geopdf instead"]);
+  endif
+
  pdf =  geopdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/geometric_rnd.m b/scripts/deprecated/geometric_rnd.m
--- a/scripts/deprecated/geometric_rnd.m
+++ b/scripts/deprecated/geometric_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = geometric_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["geometric_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use geornd instead"]);
+  endif
+
  rnd =  geornd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/hypergeometric_cdf.m b/scripts/deprecated/hypergeometric_cdf.m
--- a/scripts/deprecated/hypergeometric_cdf.m
+++ b/scripts/deprecated/hypergeometric_cdf.m
@@ -36,6 +36,14 @@
 
 function cdf = hypergeometric_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["hypergeometric_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use hygecdf instead"]);
+  endif
+
  cdf =  hygecdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/hypergeometric_inv.m b/scripts/deprecated/hypergeometric_inv.m
--- a/scripts/deprecated/hypergeometric_inv.m
+++ b/scripts/deprecated/hypergeometric_inv.m
@@ -33,6 +33,14 @@
 
 function inv = hypergeometric_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["hypergeometric_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use hygeinv instead"]);
+  endif
+
  inv =  hygeinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/hypergeometric_pdf.m b/scripts/deprecated/hypergeometric_pdf.m
--- a/scripts/deprecated/hypergeometric_pdf.m
+++ b/scripts/deprecated/hypergeometric_pdf.m
@@ -34,6 +34,14 @@
 
 function pdf = hypergeometric_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["hypergeometric_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use hygepdf instead"]);
+  endif
+
  pdf =  hygepdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/hypergeometric_rnd.m b/scripts/deprecated/hypergeometric_rnd.m
--- 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
diff --git a/scripts/deprecated/intersection.m b/scripts/deprecated/intersection.m
--- a/scripts/deprecated/intersection.m
+++ b/scripts/deprecated/intersection.m
@@ -27,6 +27,14 @@
 
 function y = intersection (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["intersection is obsolete and will be removed from a future\n",
+	       "version of Octave, please use intersect instead"]);
+  endif
+
   y = intersect (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_bool.m b/scripts/deprecated/is_bool.m
--- a/scripts/deprecated/is_bool.m
+++ b/scripts/deprecated/is_bool.m
@@ -27,6 +27,14 @@
 
 function retval = is_bool (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_bool is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isbool instead"]);
+  endif
+
   retval = isbool (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_complex.m b/scripts/deprecated/is_complex.m
--- a/scripts/deprecated/is_complex.m
+++ b/scripts/deprecated/is_complex.m
@@ -27,6 +27,14 @@
 
 function retval = is_complex (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_complex is obsolete and will be removed from a future\n",
+	       "version of Octave, please use iscomplex instead"]);
+  endif
+
   retval = iscomplex (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_list.m b/scripts/deprecated/is_list.m
--- a/scripts/deprecated/is_list.m
+++ b/scripts/deprecated/is_list.m
@@ -27,6 +27,14 @@
 
 function retval = is_list (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_list is obsolete and will be removed from a future\n",
+	       "version of Octave, please use islist instead"]);
+  endif
+
   retval = islist (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_matrix.m b/scripts/deprecated/is_matrix.m
--- a/scripts/deprecated/is_matrix.m
+++ b/scripts/deprecated/is_matrix.m
@@ -27,6 +27,14 @@
 
 function retval = is_matrix (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_matrix is obsolete and will be removed from a future\n",
+	       "version of Octave, please use ismatrix instead"]);
+  endif
+
   retval = ismatrix (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_scalar.m b/scripts/deprecated/is_scalar.m
--- a/scripts/deprecated/is_scalar.m
+++ b/scripts/deprecated/is_scalar.m
@@ -27,6 +27,14 @@
 
 function retval = is_scalar (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_scalar is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isscalar instead"]);
+  endif
+
   retval = isscalar (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_square.m b/scripts/deprecated/is_square.m
--- a/scripts/deprecated/is_square.m
+++ b/scripts/deprecated/is_square.m
@@ -27,6 +27,14 @@
 
 function retval = is_square (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_square is obsolete and will be removed from a future\n",
+	       "version of Octave, please use issquare instead"]);
+  endif
+
   retval = issquare (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_stream.m b/scripts/deprecated/is_stream.m
--- a/scripts/deprecated/is_stream.m
+++ b/scripts/deprecated/is_stream.m
@@ -27,6 +27,14 @@
 
 function retval = is_stream (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_stream is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isstream instead"]);
+  endif
+
   retval = isstream(varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_struct.m b/scripts/deprecated/is_struct.m
--- a/scripts/deprecated/is_struct.m
+++ b/scripts/deprecated/is_struct.m
@@ -27,6 +27,14 @@
 
 function retval = is_struct (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_struct is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isstruct instead"]);
+  endif
+
   retval = isstruct (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_symmetric.m b/scripts/deprecated/is_symmetric.m
--- a/scripts/deprecated/is_symmetric.m
+++ b/scripts/deprecated/is_symmetric.m
@@ -27,6 +27,14 @@
 
 function retval = is_symmetric (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_symmetric is obsolete and will be removed from a future\n",
+	       "version of Octave, please use issymmetric instead"]);
+  endif
+
   retval = issymmetric (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/is_vector.m b/scripts/deprecated/is_vector.m
--- a/scripts/deprecated/is_vector.m
+++ b/scripts/deprecated/is_vector.m
@@ -27,6 +27,14 @@
 
 function retval = is_vector (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["is_vector is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isvector instead"]);
+  endif
+
   retval = isvector (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/isstr.m b/scripts/deprecated/isstr.m
--- a/scripts/deprecated/isstr.m
+++ b/scripts/deprecated/isstr.m
@@ -27,6 +27,14 @@
 
 function retval = isstr (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["isstr is obsolete and will be removed from a future\n",
+	       "version of Octave, please use ischar instead"]);
+  endif
+
   retval = ischar (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/lognormal_cdf.m b/scripts/deprecated/lognormal_cdf.m
--- a/scripts/deprecated/lognormal_cdf.m
+++ b/scripts/deprecated/lognormal_cdf.m
@@ -34,6 +34,14 @@
 
 function cdf = lognormal_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["lognormal_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use logncdf instead"]);
+  endif
+
   if (nargin > 1)
     a = varargin{2};
     idx = a >= 0;
diff --git a/scripts/deprecated/lognormal_inv.m b/scripts/deprecated/lognormal_inv.m
--- a/scripts/deprecated/lognormal_inv.m
+++ b/scripts/deprecated/lognormal_inv.m
@@ -34,6 +34,14 @@
 
 function inv = lognormal_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["lognormal_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use logninv instead"]);
+  endif
+
   if (nargin > 1)
     a = varargin{2};
     idx = a >= 0;
diff --git a/scripts/deprecated/lognormal_pdf.m b/scripts/deprecated/lognormal_pdf.m
--- a/scripts/deprecated/lognormal_pdf.m
+++ b/scripts/deprecated/lognormal_pdf.m
@@ -34,6 +34,14 @@
 
 function pdf = lognormal_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["lognormal_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use lognpdf instead"]);
+  endif
+
   if (nargin > 1)
     a = varargin{2};
     idx = a >= 0;
diff --git a/scripts/deprecated/lognormal_rnd.m b/scripts/deprecated/lognormal_rnd.m
--- a/scripts/deprecated/lognormal_rnd.m
+++ b/scripts/deprecated/lognormal_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = lognormal_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["lognormal_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use lognrnd instead"]);
+  endif
+
   if (nargin > 1)
     a = varargin{2};
     idx = a >= 0;
diff --git a/scripts/deprecated/meshdom.m b/scripts/deprecated/meshdom.m
--- a/scripts/deprecated/meshdom.m
+++ b/scripts/deprecated/meshdom.m
@@ -27,6 +27,14 @@
 
 function [xx, yy] = meshdom (x, y)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["meshdom is obsolete and will be removed from a future\n",
+	       "version of Octave, please use meshgrid instead"]);
+  endif
+
   if (nargin == 2)
     if (isvector (x) && isvector (y))
       xx = ones (length (y), 1) * x(:).';
diff --git a/scripts/deprecated/normal_cdf.m b/scripts/deprecated/normal_cdf.m
--- a/scripts/deprecated/normal_cdf.m
+++ b/scripts/deprecated/normal_cdf.m
@@ -32,6 +32,14 @@
 
 function cdf = normal_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["normal_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use normcdf instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = sqrt (varargin{3});
  endif
diff --git a/scripts/deprecated/normal_inv.m b/scripts/deprecated/normal_inv.m
--- a/scripts/deprecated/normal_inv.m
+++ b/scripts/deprecated/normal_inv.m
@@ -32,6 +32,14 @@
 
 function inv = normal_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["normal_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use norminv instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = sqrt (varargin{3});
  endif
diff --git a/scripts/deprecated/normal_pdf.m b/scripts/deprecated/normal_pdf.m
--- a/scripts/deprecated/normal_pdf.m
+++ b/scripts/deprecated/normal_pdf.m
@@ -32,6 +32,14 @@
 
 function pdf = normal_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["normal_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use normpdf instead"]);
+  endif
+
  if (nargin > 2)
    varargin{3} = sqrt (varargin{3});
  endif
diff --git a/scripts/deprecated/normal_rnd.m b/scripts/deprecated/normal_rnd.m
--- a/scripts/deprecated/normal_rnd.m
+++ b/scripts/deprecated/normal_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = normal_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["normal_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use normrnd instead"]);
+  endif
+
  if (nargin > 1)
    varargin{2} = sqrt (varargin{2});
  endif
diff --git a/scripts/deprecated/pascal_cdf.m b/scripts/deprecated/pascal_cdf.m
--- a/scripts/deprecated/pascal_cdf.m
+++ b/scripts/deprecated/pascal_cdf.m
@@ -33,6 +33,14 @@
 
 function cdf = pascal_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["pascal_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use nbincdf instead"]);
+  endif
+
   cdf = nbincdf(varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/pascal_inv.m b/scripts/deprecated/pascal_inv.m
--- a/scripts/deprecated/pascal_inv.m
+++ b/scripts/deprecated/pascal_inv.m
@@ -34,6 +34,14 @@
 
 function inv = pascal_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["pascal_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use nbininv instead"]);
+  endif
+
   inv = nbininv(varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/pascal_pdf.m b/scripts/deprecated/pascal_pdf.m
--- a/scripts/deprecated/pascal_pdf.m
+++ b/scripts/deprecated/pascal_pdf.m
@@ -34,6 +34,14 @@
 
 function pdf = pascal_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["pascal_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use nbinpdf instead"]);
+  endif
+
   pdf = nbinpdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/pascal_rnd.m b/scripts/deprecated/pascal_rnd.m
--- a/scripts/deprecated/pascal_rnd.m
+++ b/scripts/deprecated/pascal_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = pascal_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["pascal_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use nbinrnd instead"]);
+  endif
+
   rnd = nbinrnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/poisson_cdf.m b/scripts/deprecated/poisson_cdf.m
--- a/scripts/deprecated/poisson_cdf.m
+++ b/scripts/deprecated/poisson_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = poisson_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["poisson_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use poisscdf instead"]);
+  endif
+
  cdf =  poisscdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/poisson_inv.m b/scripts/deprecated/poisson_inv.m
--- a/scripts/deprecated/poisson_inv.m
+++ b/scripts/deprecated/poisson_inv.m
@@ -30,6 +30,14 @@
 
 function inv = poisson_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["poisson_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use poissinv instead"]);
+  endif
+
  inv =  poissinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/poisson_pdf.m b/scripts/deprecated/poisson_pdf.m
--- a/scripts/deprecated/poisson_pdf.m
+++ b/scripts/deprecated/poisson_pdf.m
@@ -29,6 +29,14 @@
 
 function pdf = poisson_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["poisson_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use poisspdf instead"]);
+  endif
+
  pdf =  poisspdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/poisson_rnd.m b/scripts/deprecated/poisson_rnd.m
--- a/scripts/deprecated/poisson_rnd.m
+++ b/scripts/deprecated/poisson_rnd.m
@@ -33,6 +33,14 @@
 
 function rnd = poisson_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["poisson_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use poissrnd instead"]);
+  endif
+
  rnd =  poissrnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/polyinteg.m b/scripts/deprecated/polyinteg.m
--- a/scripts/deprecated/polyinteg.m
+++ b/scripts/deprecated/polyinteg.m
@@ -34,6 +34,14 @@
 
 function y = polyinteg (p)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["polyinteg is obsolete and will be removed from a future\n",
+	       "version of Octave, please use polyint instead"]);
+  endif
+
   y = polyint (p);
 
 endfunction
diff --git a/scripts/deprecated/setstr.m b/scripts/deprecated/setstr.m
--- a/scripts/deprecated/setstr.m
+++ b/scripts/deprecated/setstr.m
@@ -27,6 +27,14 @@
 
 function retval = setstr (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["setstr is obsolete and will be removed from a future\n",
+	       "version of Octave, please use char instead"]);
+  endif
+
   retval = char (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/struct_contains.m b/scripts/deprecated/struct_contains.m
--- a/scripts/deprecated/struct_contains.m
+++ b/scripts/deprecated/struct_contains.m
@@ -27,6 +27,14 @@
 
 function retval = struct_contains (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["struct_contains is obsolete and will be removed from a future\n",
+	       "version of Octave, please use isfield instead"]);
+  endif
+
   retval = isfield (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/struct_elements.m b/scripts/deprecated/struct_elements.m
--- a/scripts/deprecated/struct_elements.m
+++ b/scripts/deprecated/struct_elements.m
@@ -27,6 +27,14 @@
 
 function retval = struct_elements (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["struct_elements is obsolete and will be removed from a future\n",
+	       "version of Octave, please use fieldnames instead"]);
+  endif
+
   retval = char (fieldnames (varargin{:}));
 
 endfunction
diff --git a/scripts/deprecated/t_cdf.m b/scripts/deprecated/t_cdf.m
--- a/scripts/deprecated/t_cdf.m
+++ b/scripts/deprecated/t_cdf.m
@@ -30,6 +30,14 @@
 
 function cdf = t_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["t_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use tcdf instead"]);
+  endif
+
  cdf =  tcdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/t_inv.m b/scripts/deprecated/t_inv.m
--- a/scripts/deprecated/t_inv.m
+++ b/scripts/deprecated/t_inv.m
@@ -34,6 +34,14 @@
 
 function inv = t_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["t_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use tinv instead"]);
+  endif
+
  inv =  tinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/t_pdf.m b/scripts/deprecated/t_pdf.m
--- a/scripts/deprecated/t_pdf.m
+++ b/scripts/deprecated/t_pdf.m
@@ -30,6 +30,14 @@
 
 function pdf = t_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["t_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use tpdf instead"]);
+  endif
+
  pdf =  tpdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/t_rnd.m b/scripts/deprecated/t_rnd.m
--- a/scripts/deprecated/t_rnd.m
+++ b/scripts/deprecated/t_rnd.m
@@ -35,6 +35,14 @@
 
 function rnd = t_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["t_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use trnd instead"]);
+  endif
+
  rnd =  trnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/uniform_cdf.m b/scripts/deprecated/uniform_cdf.m
--- a/scripts/deprecated/uniform_cdf.m
+++ b/scripts/deprecated/uniform_cdf.m
@@ -31,6 +31,14 @@
 
 function cdf = uniform_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["uniform_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use unifcdf instead"]);
+  endif
+
  cdf =  unifcdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/uniform_inv.m b/scripts/deprecated/uniform_inv.m
--- a/scripts/deprecated/uniform_inv.m
+++ b/scripts/deprecated/uniform_inv.m
@@ -31,6 +31,14 @@
 
 function inv = uniform_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["uniform_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use unifinv instead"]);
+  endif
+
  inv =  unifinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/uniform_pdf.m b/scripts/deprecated/uniform_pdf.m
--- a/scripts/deprecated/uniform_pdf.m
+++ b/scripts/deprecated/uniform_pdf.m
@@ -31,6 +31,14 @@
 
 function pdf = uniform_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["uniform_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use unifpdf instead"]);
+  endif
+
  pdf =  unifpdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/uniform_rnd.m b/scripts/deprecated/uniform_rnd.m
--- a/scripts/deprecated/uniform_rnd.m
+++ b/scripts/deprecated/uniform_rnd.m
@@ -34,6 +34,14 @@
 
 function rnd = uniform_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["uniform_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use unifrnd instead"]);
+  endif
+
  rnd =  unifrnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/weibcdf.m b/scripts/deprecated/weibcdf.m
--- a/scripts/deprecated/weibcdf.m
+++ b/scripts/deprecated/weibcdf.m
@@ -34,6 +34,14 @@
 
 function cdf = weibcdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibcdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblcdf instead"]);
+  endif
+
   cdf = wblcdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/weibinv.m b/scripts/deprecated/weibinv.m
--- a/scripts/deprecated/weibinv.m
+++ b/scripts/deprecated/weibinv.m
@@ -27,6 +27,14 @@
 
 function inv = weibinv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibinv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblinv instead"]);
+  endif
+
   inv = wblinv (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/weibpdf.m b/scripts/deprecated/weibpdf.m
--- a/scripts/deprecated/weibpdf.m
+++ b/scripts/deprecated/weibpdf.m
@@ -34,6 +34,14 @@
 
 function pdf = weibpdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibpdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblpdf instead"]);
+  endif
+
   pdf = wblpdf (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/weibrnd.m b/scripts/deprecated/weibrnd.m
--- a/scripts/deprecated/weibrnd.m
+++ b/scripts/deprecated/weibrnd.m
@@ -32,6 +32,14 @@
 
 function rnd = weibrnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibrnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblrnd instead"]);
+  endif
+
   rnd = wblrnd (varargin{:});
 
 endfunction
diff --git a/scripts/deprecated/weibull_cdf.m b/scripts/deprecated/weibull_cdf.m
--- a/scripts/deprecated/weibull_cdf.m
+++ b/scripts/deprecated/weibull_cdf.m
@@ -34,6 +34,14 @@
 
 function cdf = weibull_cdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibull_cdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblcdf instead"]);
+  endif
+
   if (nargin == 2)
     varargin{3} = varargin{2};
     varargin{2} = 1;
diff --git a/scripts/deprecated/weibull_inv.m b/scripts/deprecated/weibull_inv.m
--- a/scripts/deprecated/weibull_inv.m
+++ b/scripts/deprecated/weibull_inv.m
@@ -27,6 +27,14 @@
 
 function inv = weibull_inv (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibull_inv is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblinv instead"]);
+  endif
+
   if (nargin == 2)
     varargin{3} = varargin{2};
     varargin{2} = 1;
diff --git a/scripts/deprecated/weibull_pdf.m b/scripts/deprecated/weibull_pdf.m
--- a/scripts/deprecated/weibull_pdf.m
+++ b/scripts/deprecated/weibull_pdf.m
@@ -34,6 +34,14 @@
 
 function pdf = weibull_pdf (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibull_pdf is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblpdf instead"]);
+  endif
+
   if (nargin == 2)
     varargin{3} = varargin{2};
     varargin{2} = 1;
diff --git a/scripts/deprecated/weibull_rnd.m b/scripts/deprecated/weibull_rnd.m
--- a/scripts/deprecated/weibull_rnd.m
+++ b/scripts/deprecated/weibull_rnd.m
@@ -32,6 +32,14 @@
 
 function rnd = weibull_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["weibull_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wblrnd instead"]);
+  endif
+
   if (nargin > 1)
     tmp = varargin{2};
     varargin{2} = varargin{1};
diff --git a/scripts/deprecated/wiener_rnd.m b/scripts/deprecated/wiener_rnd.m
--- a/scripts/deprecated/wiener_rnd.m
+++ b/scripts/deprecated/wiener_rnd.m
@@ -35,6 +35,14 @@
 
 function retval = wiener_rnd (varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+        ["wiener_rnd is obsolete and will be removed from a future\n",
+	       "version of Octave, please use wienrnd instead"]);
+  endif
+
  retval =  wienrnd (varargin{:});
 
 endfunction