Changeset 2392

Timestamp:

10/08/09 09:00:37 (15 years ago)

Author:

Mathieu Morlighem

Message:

Added some useful routines in pairoptions

Location:

issm/trunk/src/m/classes/@pairoptions

Files:

• buildlist.m (modified) (1 diff)
• changefieldvalue.m (added)
• deleteduplicates.m (added)
• display.m (modified) (1 diff)
• getfieldvalue.m (added)
• getoption.m (deleted)

issm/trunk/src/m/classes/@pairoptions/buildlist.m

@@ -1 @@
-function options=buildlist(options,varargin),
-%BUILDLIST - build list of options from input
+function pairoptions=buildlist(pairoptions,varargin),
+%BUILDLIST - build list of pairoptions from input
 %
 %   Usage:
-%      options=buildlist(options,varargin)
+%      pairoptions=buildlist(pairoptions,varargin)
 
 %check length of input
 if mod((nargin-1),2),
-        error('buildlist error message: an even number of options is required')
+        error('buildlist error message: an even number of pairoptions is required')
 end
 
-%go through varargin and build list of options
+%go through varargin and build list of pairoptions
 for i=1:(nargin-1)/2,
         if ischar(varargin{2*i-1}),
-                options.list{end+1,1}=varargin{2*i-1};
-                options.list{end,2}=varargin{2*i};
+                pairoptions.list{end+1,1}=varargin{2*i-1};
+                pairoptions.list{end,2}=varargin{2*i};
         else
                 %option is not a string, ignore it
-                disp(['pairoptions info: option number ' num2str(i) ' is not a string, it will be ignored']);
+                disp(['buildlist info: option number ' num2str(i) ' is not a string, it will be ignored']);
                 continue
         end

issm/trunk/src/m/classes/@pairoptions/display.m

@@ -6 +6 @@
 disp(sprintf('\n%s = \n',inputname(1)));
 disp(sprintf('   type: %s',pairoptions.type));
-disp(sprintf('   options: (%ix%i)',size(pairoptions.list,1),size(pairoptions.list,2)));
+if ~isempty(pairoptions.list),
+        disp(sprintf('   list: (%ix%i)\n',size(pairoptions.list,1),size(pairoptions.list,2)));
+        for i=1:size(pairoptions.list,1),
+                if ischar(pairoptions.list{i,2}),
+                        disp(sprintf('     field: %-10s value: ''%s''',pairoptions.list{i,1},pairoptions.list{i,2}));
+                elseif isnumeric(pairoptions.list{i,2}) & length(pairoptions.list{i,2})==1,
+                        disp(sprintf('     field: %-10s value: %g',pairoptions.list{i,1},pairoptions.list{i,2}));
+                else
+                        disp(sprintf('     field: %-10s value: (%ix%i)',pairoptions.list{i,1},size(pairoptions.list{i,2},1),size(pairoptions.list{i,2},2)));
+                end
+        end
+else
+        disp(sprintf('   list: empty'));
+end