[Octave-cvsupdate] SF.net SVN: octave:[10469] trunk/octave-forge/extra/control-devel/inst

[<par...@us...>]

Revision: 10469
          http://octave.svn.sourceforge.net/octave/?rev=10469&view=rev
Author:   paramaniac
Date:     2012-05-20 15:13:10 +0000 (Sun, 20 May 2012)
Log Message:
-----------
control-devel: minor enhancements for error messages

Modified Paths:
--------------
    trunk/octave-forge/extra/control-devel/inst/__slicot_identification__.m
    trunk/octave-forge/extra/control-devel/inst/moen4.m
    trunk/octave-forge/extra/control-devel/inst/moesp.m
    trunk/octave-forge/extra/control-devel/inst/n4sid.m

Modified: trunk/octave-forge/extra/control-devel/inst/__slicot_identification__.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/__slicot_identification__.m	2012-05-20 14:49:09 UTC (rev 10468)
+++ trunk/octave-forge/extra/control-devel/inst/__slicot_identification__.m	2012-05-20 15:13:10 UTC (rev 10469)
@@ -10,6 +10,10 @@
     otherwise
       error ("ident: invalid method");  # should never happen
   endswitch
+  
+  if (! isa (dat, "iddata"))
+    error ("%s: first argument must be an 'iddata' dataset", method);
+  endif
 
   alg = 0;
   conct = 1;

Modified: trunk/octave-forge/extra/control-devel/inst/moen4.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/moen4.m	2012-05-20 14:49:09 UTC (rev 10468)
+++ trunk/octave-forge/extra/control-devel/inst/moen4.m	2012-05-20 15:13:10 UTC (rev 10469)
@@ -28,6 +28,10 @@
 
 function [sys, x0] = moen4 (varargin)
 
+  if (nargin == 0)
+    print_usage ();
+  endif
+
   [sys, x0] = __slicot_identification__ ("moen4", varargin{:});
 
 endfunction
\ No newline at end of file

Modified: trunk/octave-forge/extra/control-devel/inst/moesp.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/moesp.m	2012-05-20 14:49:09 UTC (rev 10468)
+++ trunk/octave-forge/extra/control-devel/inst/moesp.m	2012-05-20 15:13:10 UTC (rev 10469)
@@ -26,6 +26,10 @@
 
 function [sys, x0] = moesp (varargin)
 
+  if (nargin == 0)
+    print_usage ();
+  endif
+
   [sys, x0] = __slicot_identification__ ("moesp", varargin{:});
 
 endfunction
\ No newline at end of file

Modified: trunk/octave-forge/extra/control-devel/inst/n4sid.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/n4sid.m	2012-05-20 14:49:09 UTC (rev 10468)
+++ trunk/octave-forge/extra/control-devel/inst/n4sid.m	2012-05-20 15:13:10 UTC (rev 10469)
@@ -26,6 +26,10 @@
 
 function [sys, x0] = n4sid (varargin)
 
+  if (nargin == 0)
+    print_usage ();
+  endif
+
   [sys, x0] = __slicot_identification__ ("n4sid", varargin{:});
 
 endfunction
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.