wolffd@0: function som_use_vs2()
wolffd@0: 
wolffd@0: % SOM_USE_VS2  Use SOM Toolbox version 2.
wolffd@0: %
wolffd@0: % Removes SOM Toolbox version 1 from the path and adds version 2
wolffd@0: % there instead. You can use function SOM_VS1TO2 to convert 
wolffd@0: % any version 1 structs to the corresponding version 2 structs.
wolffd@0: %
wolffd@0: % See also  SOM_USE_VS1, SOM_VS1TO2, SOM_VS2TO1, PATHTOOL.
wolffd@0: 
wolffd@0: s=path; p=findstr(s,'somtoolbox'); 
wolffd@0: while any(p), 
wolffd@0:   p=p(1); 
wolffd@0:   i=p; while i<length(s) & ~strcmp(s(i),':'), i=i+1; end
wolffd@0:   if strcmp(s(i),':'), i=i-1; end
wolffd@0:   j=p; while j>1         & ~strcmp(s(j),':'), j=j-1; end
wolffd@0:   if strcmp(s(j),':'), j=j+1; end
wolffd@0:   r=s(j:i);
wolffd@0:   rmpath(r);
wolffd@0:   s=path; p=findstr(s,'somtoolbox'); 
wolffd@0: end
wolffd@0: 
wolffd@0: addpath /share/somtoolbox/www/package/codes2
wolffd@0: 
wolffd@0: fprintf(1,'Version 2 of SOM Toolbox now in use.\n');
wolffd@0: fprintf(1,'Latest changes to SOM Toolbox: August 22nd 2000\n');
wolffd@0: fprintf(1,' see /share/somtoolbox/vs2/changelog.txt\n');
wolffd@0: fprintf(1,'Use som_vs1to2 function to convert any vs1 structs to vs2.\n')
wolffd@0: