source: MML/trunk/machine/SOLEIL/common/configurations/mml_cc_appli.m @ 17

function mml_cc_appli(ApplicationName)
%MM_CC_APPLI - Compile a standalone MML/AT application
%
%  NOTES:
%  Each compiled programme is stored in a directory with the date of the day
%  Then a symbolic link has to be done to point on the new application
%  A shortcut to the application is done in the mouse menu
%  Available applications: plotfamily and SOFB

%
%% Written by Laurent S. Nadolski

ConfigFlag = 0;

if nargin == 0
    ApplicationName = questdlg('Choose programme to compile or deploy as a standalone application', ...
        'Compilation dialog box', ...
        'Plotfamily','SOFB', 'TuneFB', 'default');
    if isempty(ApplicationName)
        error('Abort: Unknown answer')
    end
end

% save current directory
CurrentDir = pwd;

% Directory to store application
DirName = getfamilydata('Directory', 'Standalone');

ApplicationName = lower(ApplicationName);

switch ApplicationName
    case 'plotfamily'
        ApplicationName = 'plotfamily';
    case 'sofb'
        ApplicationName = 'orbitcontrol';
    case 'fofb'
        ApplicationName = 'FOFBguiTango';
    case 'tunefb'
        ApplicationName = 'tuneFBgui';
    otherwise
        error('Unknown application name %s', ApplicationName); 
end

% check development directory name

if ~isdir(DirName)
    fprintf('Abort: directory %s does not exist!\n', DirName);
    return;
end

% Create and go to the directory
DirName = fullfile(DirName, ApplicationName);
gotodirectory(DirName);

if ~ConfigFlag
    DirDevName = [ApplicationName '_standalone_' datestr(date,29)];

    fullName = [DirName filesep DirDevName];
    if exist(fullName, 'dir') == 7
        answer = questdlg('Directory exists already!','Compilation dialog box','Continue','Abort','Default');
        switch answer
            case 'Continue'
                fprintf('Data will be erased\n')
            case 'Abort'
                fprintf('Application stopped on user request\n')
                return;
            otherwise
                fprintf('Application stopped on user request\n')
                return;
        end
    end

    gotodirectory(fullName);

    % Compilation part
    if strcmpi(ApplicationName,'synchro')
% Does not work as it should yet
%         eval(['mcc -mv -a AperturePass -a BndMPoleSymplectic4Pass -a BndMPoleSymplectic4RadPass ' ...
%             '-a CavityPass -a CorrectorPass -a DriftPass -a EAperturePass -a IdentityPass ' ...
%             '-a Matrix66Pass -a QuadLinearPass -a SolenoidLinearPass -a StrMPoleSymplectic4Pass ' ...
%             '-a StrMPoleSymplectic4RadPass -a ThinMPolePass -a findmpoleraddiffmatrix ' ...
%             '-a IdentityPass -a BendLinearPass ', 'synchro_injecteur7_rafale']);
    else
        % Add files in StorageRing (*.txt), AT, MML (wave files)
        eval(['mcc -mv  -a AperturePass -a BndMPoleSymplectic4Pass -a BndMPoleSymplectic4RadPass ' ...
            '-a CavityPass -a CorrectorPass -a DriftPass -a EAperturePass -a IdentityPass ' ...
            '-a Matrix66Pass -a QuadLinearPass -a SolenoidLinearPass -a StrMPoleSymplectic4Pass ' ...
            '-a StrMPoleSymplectic4RadPass -a ThinMPolePass -a findmpoleraddiffmatrix ' ...
            '-a IdentityPass -a BendLinearPass ', ApplicationName]);
    end

    
    [pathstr, name, ext, versn] = fileparts(DirName);
    fprintf('\nApplication %s compiled and saved in directory: %s\n', name, DirName)
    fprintf('Directory name is: %s\n\n', DirDevName);
else % Deploy programme
    cd(DirName); 
    VersionName = uigetdir;
    if isempty(VersionName)
        cd(CurrentDir);
        error('Abort: Unknown answer')
    end
    [tmp Appli2deploy] = fileparts(VersionName);
    system(sprintf('rm -v %s', ApplicationName));
    system(sprintf('ln -s -v %s %s', Appli2deploy, ApplicationName));
end

cd(CurrentDir);

%export
%LD_LIBRARY_PATH=/usr/Local/matlab/runtime/glnx86:/usr/Local/matlab/bin/glnx86:/usr/Local/matlab/sys/os/glnx86:/usr/Loca
%l/matlab/sys/java/jre/glnx86/jre1.5.0/lib/i386/native_threads:/usr/Local/matlab/sys/java/jre/glnx86/jre1.5.0/lib/i386/server:/usr/Local/matlab/sys/java/jre/glnx86/jre1.5.0/lib/i386/client:/usr/Local/matlab/sys/java/jre/glnx86/jre1.5.0/lib/i386:/lib:/lib/tls:/usr/lib:/usr/X11R6/lib:/usr/Local/soleil-root/tango/lib:/usr/Local/soleil-root/omniorb/lib:/usr/Local/soleil-root/bindings/python/python23:/usr/Local/soleil-root/hw-support/ace/lib:/usr/Local/DeviceServer