Work in progress on centralized

example.m

@@ -45,8 +45,8 @@ set(gca, 'TickDir', 'out', 'YLim', [0,4]);
 [figs, ID] = TagPlot(fig, ProjectID);
 
 %% call dummy function
-a=1;
-a = test_2(a);
+% a=1;
+% a = test_2(a);
 
 %% publishing
 

fcn_core/CreateID.m

@@ -20,6 +20,4 @@ switch method
         error('The requested method is not defined yet');
 end
 
-
-
 end

fcn_core/Publish.m

@@ -33,7 +33,7 @@ end
 
 disp('Publishing started');
 
-%% Create a Copy of the script and User functions
+%% Create a Copy of the script and User functions(optional)
 createFileCopy({[DataPaths.script,'.m']},folderName,storPath,ID, 'script');
 
 if options.CopyUserFCN
@@ -52,12 +52,15 @@ switch options.Method
         %check if data folder exists
         if ~isfolder(fullfile(storPath,'data'))
             mkdir(fullfile(storPath,'data'));
+        else %list all files
+            fList = dir(fullfile(storPath,'data', '**\*.*'));  %get list of files and folders in any subfolder
+            fList = fList(~[fList.isdir]);  %remove folders from list
         end
         % Check if the new plot is based on the original data-set    
             % copy the data(once)
         for i=1:numel(DataPaths.rdata)
-            if fileCompare(filename1,filename2) % identical file exists
-               createLinkedHDF5(SourceFile,storPath,ID)
+            if fileCompare(DataPaths.rdata{i},{fList.name}) % identical file exists
+               createLinkedHDF5(DataPaths.rdata{i},storPath,ID)
             else % no identical file exists
                createFileCopy(DataPaths.rdata{i},'data',storPath,ID,'data');
             end

fcn_help/FileCompare.m

-function [status] = fileCompare(filename1,filename2)
-%fileCompare checks if file1 is (binary) identical to file 2
+function [status, id] = fileCompare(filename,fileList)
+%fileCompare checks if file1 is (binary) identical to a file in filelist
+% it returns a sttus and the id of the identical file
 % the functions uses the windows system function fc or the unix function
 % diff
 
-[~,~,ext1] = fileparts(filename1); 
-[~,~,ext2] = fileparts(filename2);
+%% Not working!!!
+
+[~,~,ext1] = fileparts(filename); 
+id = zeros(numel(fileList),1);
+
+for i=1:numel(fileList)
+    [~,~,ext2] = fileparts(fileList{i});
 
     if ~isequal(ext1,ext2)
         %warning('File extension are not identical');
@@ -13,14 +19,18 @@ if ~isequal(ext1,ext2)
     end
 
     if ispc
-    [status,result] = system(['fc ' filename1 ' ' filename2]);
+        [status,~] = system(['fc ' filename ' ' fileList{i}]);
+        % 0 -> identical, 1 -> not identical
+         id(i) = ~status; % false (not identical), true(identical)
           
     elseif isunix %untested!
-    [status,result] = system(['diff ' filename1 ' ' filename2]);
+        [status,~] = system(['diff ' filename ' ' fileList{i}]);
+        id(i) = ~status; % ???
     else
         warning('Platform not supported')
     end
 
+end
 
 end
 

fcn_help/createLinkedHDF5.m

@@ -16,5 +16,6 @@ plist_id = 'H5P_DEFAULT';
 %     warning('No linked HDF file was created');
 %     status = 0;
 % end
+
 end