# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1591929328 14400
# Node ID ef8cf8dda0ba7707b1f361b86fe0594e10138771
# Parent  53d8e7ca99c5fefb64f00b400904f7c374bc7eb4
warn if legacy inline, genvarname or vectorize functions are used

* @inline/inline.m, genvarname.m, vectorize.m:
Issue legacy function warning.

diff -r 53d8e7ca99c5 -r ef8cf8dda0ba scripts/legacy/@inline/inline.m
--- a/scripts/legacy/@inline/inline.m	Thu Jun 11 16:34:34 2020 -0400
+++ b/scripts/legacy/@inline/inline.m	Thu Jun 11 22:35:28 2020 -0400
@@ -57,6 +57,13 @@
 
 function obj = inline (expr, varargin)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:legacy-function",
+             "inline is obsolete; use anonymous functions instead\n");
+  endif
+
   if (nargin == 0)
     print_usage ();
   endif
diff -r 53d8e7ca99c5 -r ef8cf8dda0ba scripts/legacy/genvarname.m
--- a/scripts/legacy/genvarname.m	Thu Jun 11 16:34:34 2020 -0400
+++ b/scripts/legacy/genvarname.m	Thu Jun 11 22:35:28 2020 -0400
@@ -107,6 +107,13 @@
 
 function varname = genvarname (str, exclusions = {})
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:legacy-function",
+             "genvarname is obsolete; use matlab.lang.makeValidName or matlab.lang.makeUniqueStrings instead\n");
+  endif
+
   if (nargin < 1 || nargin > 2)
     print_usage ();
   endif
diff -r 53d8e7ca99c5 -r ef8cf8dda0ba scripts/legacy/vectorize.m
--- a/scripts/legacy/vectorize.m	Thu Jun 11 16:34:34 2020 -0400
+++ b/scripts/legacy/vectorize.m	Thu Jun 11 22:35:28 2020 -0400
@@ -41,6 +41,13 @@
 
 function retval = vectorize (fun)
 
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:legacy-function",
+             "vectorize is unreliable; its use is strongly discouraged\n");
+  endif
+
   if (nargin != 1)
     print_usage ();
   endif