making options case insensitive

git-svn-id: http://svn.code.sf.net/p/iso2mesh/code/trunk/jsonlab@484 786e58fb-9377-0410-9ff7-e4ac0ac0635c

jsonopt.m

@@ -26,7 +26,10 @@ function val=jsonopt(key,default,varargin)
 val=default;
 if(nargin<=2) return; end
 opt=varargin{1};
-if(isstruct(opt) && isfield(opt,key))
+if(isstruct(opt))
+    if(isfield(opt,key))
        val=getfield(opt,key);
+    elseif(isfield(opt,lower(key)))
+       val=getfield(opt,lower(key));
+    end
 end
-

varargin2struct.m

@@ -30,7 +30,7 @@ while(i<=len)
     if(isstruct(varargin{i}))
         opt=mergestruct(opt,varargin{i});
     elseif(ischar(varargin{i}) && i<len)
-        opt=setfield(opt,varargin{i},varargin{i+1});
+        opt=setfield(opt,lower(varargin{i}),varargin{i+1});
         i=i+1;
     else
         error('input must be in the form of ...,''name'',value,... pairs or structs');