Store the wanted data persistently:
function Out = DataVault(Cmd, Name, Data)
persistent Stored
mlock;
switch lower(Cmd)
case 'store'
Stored.(Name) = Data;
case 'get'
Out = Stored.(Name);
case 'clear'
Stored = [];
munlock;
otherwise
error('Jan:DataValut:BadCmd', 'Unknown command: [%s]', Cmd);
end
Now call it:
ValuableData = 4711;
DataVault('store', 'Box1', ValuableData);
clear all
ValuableData = DataValut('get', 'Box1')
Of course, clean code would simply omit all clear all calls, because they remove all (unlocked) functions from the memory. You say, that this is not an option. I resist on preferring trustworthy code, which does not contain junk.
If the clear all comes from evil subfunctions, you can either shadow the clear command by defining your own clear function, or if they are scripts, define a variable "all", such that "clear all" clears this variable only. Brrr.
