source: MML/trunk/mml/copymachineconfigfile.m @ 4

function copymachineconfigfile(DataFileName, ToFileName)
%COPYMACHINECONFIGFILE - Copies a lattice file to the golden file 
%  copymachineconfigfile(DataFileName, ToFileName)
%
%  Written by Greg Portmann

if nargin < 1
    DataFileName = '';
end

if nargin < 2
    ToFileName = 'Golden';
end


% Get the file
if isempty(DataFileName)
    DataDirectoryName = getfamilydata('Directory','ConfigData');
    if isempty(DataDirectoryName)
        DataDirectoryName = getfamilydata('Directory','DataRoot');
    end
    [DataFileName, DataDirectoryName, FilterIndex] = uigetfile('*.mat','Select the Machine Configuration File to Copy', DataDirectoryName);
    if FilterIndex == 0 
        fprintf('   File not copied (copymachineconfigfile)\n');
        return;
    end
else
    [DataDirectoryName, DataFileName, ExtName] = fileparts(DataFileName);
    DataDirectoryName = [DataDirectoryName, filesep];
    DataFileName = [DataFileName, ExtName];
end


% Where is it going
if strcmpi(ToFileName, 'Golden')
    % Get the production file name (full path)
    % AD.OpsData.LatticeFile could have the full path else default to AD.Directory.OpsData
    FileName = getfamilydata('OpsData','LatticeFile');
    [DirectoryName, FileName, Ext, VerNumber] = fileparts(FileName);
    if isempty(DirectoryName)
        DirectoryName = getfamilydata('Directory', 'OpsData');
    end
    FileNameGolden = [FileName, '.mat'];
    FileName = fullfile(DirectoryName,[FileName, '.mat']);
   
    if exist(FileName, 'file')
        AnswerString = questdlg(strvcat(strvcat(strvcat('Are you sure you want to overwrite the default configuration file?',sprintf('%s',FileName)),'With file:'),[DataDirectoryName, DataFileName]),'Default Lattice','Yes','No','No');
    else
        AnswerString = 'Yes';
    end

    if strcmp(AnswerString,'Yes')
        DirStart = pwd;
        [DirectoryName, ErrorFlag] = gotodirectory(DirectoryName);
        cd(DirStart);
    else
        fprintf('   File not copied (copymachineconfigfile)\n');
        return;
    end
else
    FileName = ToFileName;
end


% Backup first
if exist(FileName,'file')
    DirStart = pwd;
    %BackupDirectoryName = [getfamilydata('Directory','DataRoot') 'Backup' filesep];
    %BackupDataFileName  = prependtimestamp(FileNameGolden);
    BackupDirectoryName = [getfamilydata('Directory','ConfigData'), 'GoldenBackup', filesep];

    try
        load(FileName,'ConfigSetpoint');
        Fields = fieldnames(ConfigSetpoint);
        BackupDataFileName = prependtimestamp(FileNameGolden, ConfigSetpoint.(Fields{1}).Setpoint.TimeStamp);
        clear ConfigSetpoint
    catch
        fprintf('   Unknown time stamp on the old production lattice file, so backup file has the present time in the filename.\n');
        BackupDataFileName = prependtimestamp(FileNameGolden);
    end

    [FinalDir, ErrorFlag] = gotodirectory(BackupDirectoryName);
    if ~ErrorFlag
        copyfile(FileName, [BackupDirectoryName, BackupDataFileName], 'f');
        fprintf('   File %s backup to %s\n', FileName, [BackupDirectoryName, BackupDataFileName]);
    else
        fprintf('   Problem finding/creating backup directory, hence backup made to the present directory.\n');
        copyfile(FileName, BackupDataFileName, 'f');
    end
    cd(DirStart);
    
    % BackupDirectoryName = [getfamilydata('Directory','DataRoot') 'Backup' filesep];
    % BackupDataFileName  = prependtimestamp(FileName);
    % DirStart = pwd;
    % [FinalDir, ErrorFlag] = gotodirectory(BackupDirectoryName);
    % if ~ErrorFlag
    %     copyfile([DirectoryName, FileName], [BackupDirectoryName, BackupDataFileName], 'f');
    %     fprintf('   File %s backup to %s\n', [DirectoryName, FileName], [BackupDirectoryName, BackupDataFileName]);
    % else
    %     fprintf('   Problem finding/creating backup directory, hence backup made to ops directory.\n');
    %     copyfile([DirectoryName, FileName], [DirectoryName, BackupDataFileName], 'f');
    % end
end

% Do the copy
copyfile([DataDirectoryName, DataFileName], FileName, 'f');
fprintf('   File %s copied to %s\n', [DataDirectoryName, DataFileName], FileName);