compile_tsbase

   Compilation of mexfile for loading experimental data of Tore Supra tokamak (tsdate, tsbase, tsmat, tsdernier_choc)

    Input: 
       - fname: function name -> 'tsdate', 'tsbase', 'tsmat' or 'tsdernier_choc' [1,n]
           (default = empty or none, all are build)

    Output: None

 By Yves Peysson (CEA-DRFC, yves.peysson@cea.fr) and Joan Decker (CEA-DRFC, joan.decker@cea.fr)

0001 function [] = compile_tsbase(fname)
0002 %
0003 %   Compilation of mexfile for loading experimental data of Tore Supra tokamak (tsdate, tsbase, tsmat, tsdernier_choc)
0004 %
0005 %    Input:
0006 %       - fname: function name -> 'tsdate', 'tsbase', 'tsmat' or 'tsdernier_choc' [1,n]
0007 %           (default = empty or none, all are build)
0008 %
0009 %    Output: None
0010 %
0011 % By Yves Peysson (CEA-DRFC, yves.peysson@cea.fr) and Joan Decker (CEA-DRFC, joan.decker@cea.fr)
0012 %
0013 if nargin == 0, fname = '';end
0014 %
0015 [dkepath] = load_structures_yp('dkepath','','');
0016 dirinit = pwd;
0017 cd([dkepath.luke_root,'Project_DKE/Database/EXTERNAL_files/TSBase']);
0018 %
0019 % compilation of the TSLib first
0020 %
0021 cd TSLib
0022 ! make
0023 cd ..
0024 %
0025 % build mexfiles
0026 %
0027 cd TSBase
0028 if isempty(fname),
0029     mex -v tsdate.c tsignit.c tsparse.c -L../TSLib/ -lTS
0030     mex -v tsbase.c tsignit.c tsparse.c -L../TSLib/ -lTS
0031     mex -v tsmat.c tsignit.c tsparse.c -L../TSLib/ -lTS
0032     mex -v tsdernier_choc.c tsignit.c tsparse.c -L../TSLib/ -lTS
0033 else
0034     eval(['mex -v ',fname,'.c tsignit.c tsparse.c -L../TSLib/ -lTS']);   
0035 end
0036 cd ..
0037 %
0038 cd(dirinit)