changeset 11407:ed827ffa5a43

optimset, optimget, __all_opts__: consistently use lower case for storing and searching options
author John W. Eaton <jwe@octave.org>
date Wed, 22 Dec 2010 04:16:01 -0500
parents a7e73f903ea6
children 6154672afa9a
files scripts/ChangeLog scripts/optimization/optimget.m scripts/optimization/optimset.m
diffstat 3 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,9 @@
+2010-12-22  John W. Eaton  <jwe@octave.org>
+
+	* optimization/optimset.m, optimization/optimget.m,
+	optimization/__all_opts__.m: Consistently use lower case for
+	storing and searching option names.
+
 2010-12-22  John W. Eaton  <jwe@octave.org>
 
 	* statistics/base/skewness.m: Make returned value have the same
--- a/scripts/optimization/optimget.m
+++ b/scripts/optimization/optimget.m
@@ -33,7 +33,7 @@
   endif
 
   opts = __all_opts__ ();
-  idx = lookup (toupper(opts), toupper(parname), "m");
+  idx = lookup (tolower (opts), tolower (parname), "m");
 
   if (idx)
     parname = opts{idx};
--- a/scripts/optimization/optimset.m
+++ b/scripts/optimization/optimset.m
@@ -47,7 +47,7 @@
     ## Return defaults for named function.
     fcn = varargin{1};
     try
-      retval = feval (fcn, 'defaults');
+      retval = feval (fcn, "defaults");
     catch
       error ("optimset: no defaults for function `%s'", fcn);
     end_try_catch
@@ -59,11 +59,11 @@
     fnames = fieldnames (old);
     ## skip validation if we're in the internal query
     validation = ! isempty (opts);
-    uopts = toupper(opts);
+    lopts = tolower (opts);
     for [val, key] = new
       if (validation)
         ## Case insensitive lookup in all options.
-        i = lookup (uopts, toupper(key), "i");
+        i = lookup (lopts, tolower (key), "i");
         ## Validate option.
         if (i > 0 && strcmpi (opts{i}, key))
           ## Use correct case.