camir-aes2014: toolboxes/MIRtoolbox1.3.2/somtoolbox/som_use

first hg version after svn

rev	line source
wolffd@0	1 function som_use_vs2()
wolffd@0	2
wolffd@0	3 % SOM_USE_VS2 Use SOM Toolbox version 2.
wolffd@0	4 %
wolffd@0	5 % Removes SOM Toolbox version 1 from the path and adds version 2
wolffd@0	6 % there instead. You can use function SOM_VS1TO2 to convert
wolffd@0	7 % any version 1 structs to the corresponding version 2 structs.
wolffd@0	8 %
wolffd@0	9 % See also SOM_USE_VS1, SOM_VS1TO2, SOM_VS2TO1, PATHTOOL.
wolffd@0	10
wolffd@0	11 s=path; p=findstr(s,'somtoolbox');
wolffd@0	12 while any(p),
wolffd@0	13 p=p(1);
wolffd@0	14 i=p; while i<length(s) & ~strcmp(s(i),':'), i=i+1; end
wolffd@0	15 if strcmp(s(i),':'), i=i-1; end
wolffd@0	16 j=p; while j>1 & ~strcmp(s(j),':'), j=j-1; end
wolffd@0	17 if strcmp(s(j),':'), j=j+1; end
wolffd@0	18 r=s(j:i);
wolffd@0	19 rmpath(r);
wolffd@0	20 s=path; p=findstr(s,'somtoolbox');
wolffd@0	21 end
wolffd@0	22
wolffd@0	23 addpath /share/somtoolbox/www/package/codes2
wolffd@0	24
wolffd@0	25 fprintf(1,'Version 2 of SOM Toolbox now in use.\n');
wolffd@0	26 fprintf(1,'Latest changes to SOM Toolbox: August 22nd 2000\n');
wolffd@0	27 fprintf(1,' see /share/somtoolbox/vs2/changelog.txt\n');
wolffd@0	28 fprintf(1,'Use som_vs1to2 function to convert any vs1 structs to vs2.\n')
wolffd@0	29

Mercurial > hg > camir-aes2014