Compile_FWT

0001 function Compile_FWT
0002 
0003 MEX_OK = 0;
0004 
0005 % for file = {'fwt','ifwt','fwt2','ifwt2', 'fwt2_CWT', 'afwt2_CWT',  ...
0006 %         'ifwt2_CWT', 'afwt','afwt2'}
0007 %
0008 %     file = char(file);
0009 %     if exist(file)~=3,
0010 %         MEX_OK = 0;
0011 %         break;
0012 %     end
0013 % end
0014 disp('Compiling Wavelet mex files');
0015 
0016 if ~MEX_OK
0017     Friend = computer;
0018     isPC = 0;
0019     if strcmp(Friend(1:2),'PC')
0020         isPC = 1;
0021     end
0022     if isPC
0023         mex -c fwt_level.c
0024         mex fwt.c fwt_level.obj -output fwt
0025         mex ifwt.c fwt_level.obj -output ifwt
0026         mex fwt2.c fwt_level.obj -output fwt2
0027         mex ifwt2.c fwt_level.obj -output ifwt2
0028         
0029     else
0030         mex -c fwt_level.c
0031         mex fwt.c fwt_level.o -output fwt
0032         mex ifwt.c fwt_level.o -output ifwt
0033         mex fwt2.c fwt_level.o -output fwt2
0034         mex ifwt2.c fwt_level.o -output ifwt2
0035     end
0036 end