Changeset 28230

Timestamp:

04/19/24 09:33:07 (12 months ago)

Author:

Mathieu Morlighem

Message:

CHG: removing functionname which is very inefficient according to MATLAB

File:

• issm/trunk-jpl/src/m/classes/pairoptions.m (modified) (4 diffs)

issm/trunk-jpl/src/m/classes/pairoptions.m

@@ -7 +7 @@
 classdef pairoptions < matlab.mixin.Copyable
         properties (SetAccess = private,GetAccess = private) 
-                functionname = '';
-                list         = cell(0,3);
+                list = cell(0,3);
         end
         methods
                 function self = pairoptions(varargin) % {{{
 
-                        %get calling function name
-                        a=dbstack;
-                        if length(a)>1,
-                                self.functionname=a(2).file(1:end-2);
-                        else
-                                self.functionname='';
-                        end
-
                         %initialize list
                         if nargin==0,
@@ -32 +23 @@
 
                         %check length of input
-                        if mod((nargin-1),2),
+                        if mod((nargin-1),2)
                                 error('Invalid parameter/value pair arguments') 
                         end
@@ -41 +32 @@
 
                         %go through varargin and build list of obj
-                        for i=1:numoptions,
-                                if ischar(varargin{2*i-1}),
+                        for i=1:numoptions
+                                if ischar(varargin{2*i-1})
                                         self.list{i,1}=varargin{2*i-1};
                                         self.list{i,2}=varargin{2*i};
@@ -132 +123 @@
                 end % }}}
                 function disp(self) % {{{
-                        disp(sprintf('   functionname: %s',self.functionname));
                         if ~isempty(self.list),
                                 disp(sprintf('   list: (%ix%i)\n',size(self.list,1),size(self.list,2)));