Changeset 2270

Timestamp:

09/22/09 10:38:57 (15 years ago)

Author:

Mathieu Morlighem

Message:

simplified clearall

File:

• issm/trunk/src/m/utils/OS/clearall.m (modified) (1 diff)

issm/trunk/src/m/utils/OS/clearall.m

@@ -1 +1 @@
 %script that erases all variables except ISSM_DIR
-list=whos;
-for i=1:length(list),
-        if ~strcmpi(list(i).name,'ISSM_DIR'),
-                clear(list(i).name);
-        end
-end
-clear list;
-clear i;
 
+%get all localvariables
+Lvariables=evalin('base','who');
+
+%remove ISSM_DIR from this list
+Lvariables=Lvariables(find(~strcmp(Lvariables,'ISSM_DIR')));
+
+%clear all
+clear(Lvariables{:},'Lvariables')