FixupSmadarData.m

function FixupSmadarData(rootDir, infoDir)
    fList = dir(infoDir);
    bValidDir = arrayfun(@(x)(~strncmp(x.name, '.',1)&&x.isdir>0), fList);
    
    expList = fList(bValidDir);
    for i=1:length(expList)
        infoFiles = dir(fullfile(infoDir, expList(i).name, '*.txt'));
        for j=1:length(infoFiles)
            tok = regexp(infoFiles(j).name, '(.*)_flist\.txt', 'tokens','once');
            if ( isempty(tok) )
                continue;
            end
            datasetName = [expList(i).name '_' tok{1}];
            
            if ( ~exist(fullfile(rootDir, datasetName), 'dir') )
                continue;
            end
            
            updateSubdirs(fullfile(rootDir, datasetName), datasetName, fullfile(infoDir, expList(i).name, infoFiles(j).name));
        end
    end
end

function updateSubdirs(dataDir, datasetName, infoFile)
    fprintf('Updating %s ...\n', dataDir);
    orgFilenames = importdata(infoFile);

    fList = dir(dataDir);
    bValidDir = arrayfun(@(x)(~strncmp(x.name, '.',1)&&x.isdir>0), fList);
    
    dataSubdirs = fList(bValidDir);
    for i=1:length(dataSubdirs)
        imDir = [fullfile(dataDir,dataSubdirs(i).name) filesep];
        LLSM.FixupMetadata(imDir, orgFilenames);
%         LLSM.RenameDataset(imDir, datasetName);
%         
%         if ( endsWith(dataSubdirs(i).name,'KLB') )
%             dropKLB = dataSubdirs(i).name(1:end-3);
%             movefile(fullfile(dataDir,dataSubdirs(i).name),fullfile(dataDir,dropKLB));
%         end
    end
end