Mercurial > hg > octave-lyh

diff scripts/deprecated/spkron.m @ 7691:4a01572f4268

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add versions of removed dispatched sparse function in the deprecated directory
author David Bateman <dbateman@free.fr>
date Thu, 03 Apr 2008 17:10:15 -0400
parents fe332ce262b5
children 8e5371d47da6
line wrap: on
line diff
--- a/scripts/deprecated/spkron.m
+++ b/scripts/deprecated/spkron.m
@@ -24,6 +24,13 @@
 ## Author: jwe
 
 function retval = spkron (varargin)
+  persistent warned = false;
+  if (! warned)
+    warned = true;
+    warning ("Octave:deprecated-function",
+	     ["spkron is obsolete and will be removed from a future\n",
+	      "version of Octave, please use kron instead"]);
+  endif
 
   retval = kron (varargin{:});