# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1262672922 -3600
# Node ID 8f51a90eb8d1eb31b670a606d4437b0447972ff4
# Parent  665ad34efeedd69571e319d6829fa9cb4f69efe7
implement default opts query and register opts for qp

diff -r 665ad34efeed -r 8f51a90eb8d1 scripts/ChangeLog
--- a/scripts/ChangeLog	Tue Jan 05 01:18:50 2010 -0500
+++ b/scripts/ChangeLog	Tue Jan 05 07:28:42 2010 +0100
@@ -1,3 +1,8 @@
+2010-01-05  Jaroslav Hajek  <highegg@gmail.com>
+
+	* optimization/qp.m: Supply default values on request and register
+	options.
+
 2010-01-05  John W. Eaton  <jwe@octave.org>
 
 	* qp.m: Allow linear term and constraint arguments to be
diff -r 665ad34efeed -r 8f51a90eb8d1 scripts/optimization/qp.m
--- a/scripts/optimization/qp.m	Tue Jan 05 01:18:50 2010 -0500
+++ b/scripts/optimization/qp.m	Tue Jan 05 07:28:42 2010 +0100
@@ -98,10 +98,17 @@
 ## @end table
 ## @end deftypefn
 
+## PKG_ADD: __all_opts__ ("qp");
+
 function [x, obj, INFO, lambda] = qp (x0, H, varargin)
 
   nargs = nargin;
 
+  if (nargin == 1 && ischar (x0) && strcmp (x0, 'defaults'))
+    x = optimset ("MaxIter", 200);
+    return;
+  endif
+
   if (nargs > 2 && isstruct (varargin{end}))
     options = varargin{end};
     nargs--;