Changeset 24856

Timestamp:

05/15/20 14:27:50 (5 years ago)

Author:

Eric.Larour

Message:

CHG: allow for '<' in the range, when the runme file gets really big.

File:

• issm/trunk-jpl/scripts/ol.m (modified) (1 diff)

issm/trunk-jpl/scripts/ol.m

@@ +1 @@
+function ol(varargin)
 
-%Open runme.m file and read line by line
-fid=fopen('runme.m','r');
+        options=pairoptions(varargin{:});
 
-tline = fgets(fid);
-count=1;
-while ischar(tline)
+        range=getfieldvalue(options,'<',Inf);
+
+        %Open runme.m file and read line by line
+        fid=fopen('runme.m','r');
+
         tline = fgets(fid);
-        if strncmpi(tline,'if perform(org,',14),
-                lastchar = strfind(tline,')');
-                lastchar = lastchar(end)-1;
-                disp(sprintf('%2i: %s',count,tline(16:lastchar)));
-                count=count+1;
+        count=1;
+        while ischar(tline)
+                tline = fgets(fid);
+                if strncmpi(tline,'if perform(org,',14),
+                        lastchar = strfind(tline,')');
+                        lastchar = lastchar(end)-1;
+                        disp(sprintf('%2i: %s',count,tline(16:lastchar)));
+                        if count>range,
+                                break;
+                        end
+                        count=count+1;
+                end
         end
-end
+        fclose(fid);