dictionary substitutions

ReadYaml.m

@@ -22,7 +22,9 @@
 %                                           exception and halts the process
 %   makeords         ... Determines whether to convert cell array to
 %                        ordinary matrix whenever possible (1).
-function result = ReadYaml(filename, nosuchfileaction, makeords, treatasdata)
+%   dictionary       ... Dictionary of of labels that will be replaced,
+%                        struct is expected
+function result = ReadYaml(filename, nosuchfileaction, makeords, treatasdata, dictionary)
     if ~exist('nosuchfileaction','var')
         nosuchfileaction = 0;
     end;
@@ -41,6 +43,8 @@
     if ~ismember(treatasdata,[0,1])
         error('treatasdata parameter must be 0,1 or missing.');
     end; 
+
+
     ry = ReadYamlRaw(filename, 0, nosuchfileaction, treatasdata);
     ry = deflateimports(ry);
     if iscell(ry) && ...
@@ -52,7 +56,11 @@
     end;
     ry = mergeimports(ry);    
     ry = doinheritance(ry);
-    ry = makematrices(ry, makeords);
+    ry = makematrices(ry, makeords);    
+    if exist('dictionary','var')
+        ry = dosubstitution(ry, dictionary);
+    end;
+
     result = ry;
     clear global nsfe;
 end

dosubstitution.m

@@ -0,0 +1,36 @@
+%==========================================================================
+
+%==========================================================================
+function result = dosubstitution(r, dictionary)
+    if ~exist('dictionary','var')
+        dictionary = {};
+    end;
+    result = recurse(r, 0, dictionary);
+end
+
+function result = recurse(data, level, dictionary)
+    if iscell(data) && ~ismymatrix(data)
+        result = iter_cell(data, level, dictionary);
+    elseif isstruct(data)
+        result = iter_struct(data, level, dictionary);
+    elseif ischar(data) && isfield(dictionary, data)
+        result = dictionary.(data);
+    else
+        result = data;
+    end;
+end
+
+function result = iter_cell(data, level, dictionary)
+    result = {};
+    for i = 1:length(data)
+        result{i} = recurse(data{i}, level + 1, dictionary);
+    end;
+end
+
+function result = iter_struct(data, level, dictionary)
+    result = data;
+    for i = fields(data)'
+        fld = char(i);
+        result.(fld) = recurse(data.(fld), level + 1, dictionary);
+    end;
+end