octave_packages/secs2d-0.0.8/PKG_DEL

   1
   2 # Run this only if the package is installed
   3 if (! exist (fullfile (fileparts (mfilename ("fullpath")), "inst"), "dir"))
   4 dirlist= {"Utilities","DDGOX","ThDDGOX","QDDGOX","METLINES","DDGOXT"};
   5
   6 for ii=1:length(dirlist)
   7 rmpath ( [ fileparts( mfilename("fullpath")) "/" dirlist{ii}])
   8 end
   9 end