Changeset 22895

Timestamp:

07/03/18 07:58:03 (7 years ago)

Author:

Mathieu Morlighem

Message:

CHG: improved ol

File:

• issm/trunk-jpl/scripts/ol.m (modified) (2 diffs)

issm/trunk-jpl/scripts/ol.m ¶

@@ -1 +1 @@
 
+%Open runme.m file and read line by line
 fid=fopen('runme.m','r');
 
@@ -6 +7 @@
 while ischar(tline)
         tline = fgets(fid);
-        if length(tline)>15,
-                if strcmpi(tline(1:15),'if perform(org,'),
-                        disp(sprintf('%i: %s',count,tline(17:end-4)));
-                        count=count+1;
-                end
+        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;
         end
 end