[yaml] make yaml functions run on older matlab

Author: fangq

saveyaml.m

@@ -93,7 +93,7 @@
     for i = 1:numel(obj)
         yamldocs{i} = obj2yaml('', obj{i}, rootlevel, opt);
     end
-    yaml = ['---' sprintf('\n') strjoin(yamldocs, [sprintf('\n') '---' sprintf('\n')])];
+    yaml = ['---' sprintf('\n') joinlines(yamldocs, [sprintf('\n') '---' sprintf('\n')])];
 else
     yaml = obj2yaml(rootname, obj, rootlevel, opt);
 end
@@ -171,7 +171,7 @@
             lines{i} = sprintf('%s- %s', repmat(' ', 1, (level + 1) * opt.indent), strtrim(lines{i}));
         end
     end
-    txt = sprintf('%s\n%s', txt, strjoin(lines, sprintf('\n')));
+    txt = sprintf('%s\n%s', txt, joinlines(lines, sprintf('\n')));
 else
     lines = cell(1, len);
     for i = 1:len
@@ -180,7 +180,7 @@
             lines{i} = sprintf('%s- %s', repmat(' ', 1, level * opt.indent), strtrim(lines{i}));
         end
     end
-    txt = strjoin(lines, sprintf('\n'));
+    txt = joinlines(lines, sprintf('\n'));
 end
 
 %% -------------------------------------------------------------------------
@@ -243,13 +243,13 @@
         for e = 1:length(names)
             lines{e} = obj2yaml(names{e}, item.(names{e}), level + 1, varargin{:});
         end
-        txt = sprintf('%s\n%s', txt, strjoin(lines, sprintf('\n')));
+        txt = sprintf('%s\n%s', txt, joinlines(lines, sprintf('\n')));
     else
         lines = cell(1, length(names));
         for e = 1:length(names)
             lines{e} = obj2yaml(names{e}, item.(names{e}), level, varargin{:});
         end
-        txt = strjoin(lines, sprintf('\n'));
+        txt = joinlines(lines, sprintf('\n'));
     end
 end
 
@@ -295,7 +295,7 @@
             lines{i} = obj2yaml(num2str(names{i}), val{i}, level + 1, varargin{:});
         end
     end
-    txt = sprintf('%s\n%s', txt, strjoin(lines, sprintf('\n')));
+    txt = sprintf('%s\n%s', txt, joinlines(lines, sprintf('\n')));
 else
     lines = cell(1, length(names));
     for i = 1:length(names)
@@ -305,7 +305,7 @@
             lines{i} = obj2yaml(num2str(names{i}), val{i}, level, varargin{:});
         end
     end
-    txt = strjoin(lines, sprintf('\n'));
+    txt = joinlines(lines, sprintf('\n'));
 end
 
 %% -------------------------------------------------------------------------
@@ -561,3 +561,9 @@
 else
     valstr = 'null';
 end
+
+%% -------------------------------------------------------------------------
+
+function str = joinlines(lines, sep)
+
+str = [sprintf(['%s' sep], lines{1:end - 1}) lines{end}];

yaml2json.m

@@ -1,7 +1,7 @@
 function jsonstr = yaml2json(yamlstr)
 % Convert YAML to JSON
 
-lines = strsplit(yamlstr, {'\n', '\r\n'}, 'CollapseDelimiters', false);
+lines = regexp(yamlstr, '\s*\r*\n', 'split');
 
 % Find document separators
 docstarts = [];
@@ -20,7 +20,7 @@
         doclines = lines(docstarts(i) + 1:docstarts(i + 1) - 1);
         documents{end + 1} = convertLines(doclines);
     end
-    jsonstr = strjoin(documents, newline);
+    jsonstr = sprintf('%s\n', documents{:});
 end
 
 %% -------------------------------------------------------------------------
@@ -115,7 +115,7 @@
                             break
                         end
                     end
-                    parts{end + 1} = ['{' strjoin(objparts, ',') '}'];
+                    parts{end + 1} = ['{' sprintf('%s,', objparts{1:end - 1}) objparts{end} '}'];
                     idx = childidx;
                 else
                     % Single key-value in object
@@ -134,8 +134,7 @@
             break
         end
     end
-
-    jsonstr = ['[' strjoin(parts, ',') ']'];
+    jsonstr = ['[' sprintf('%s,', parts{1:end - 1}) parts{end} ']'];
     nextidx = idx;
 else
     % Build object
@@ -163,8 +162,7 @@
             break
         end
     end
-
-    jsonstr = ['{' strjoin(parts, ',') '}'];
+    jsonstr = ['{' sprintf('%s,', parts{1:end - 1}) parts{end} '}'];
     nextidx = idx;
 end
 
@@ -185,12 +183,12 @@
 elseif str(1) == '['
     % Inline YAML array - need to parse and quote items
     content = str(2:end - 1); % Remove [ ]
-    items = strsplit(content, ',');
+    items = regexp(content, '\s*,\s*', 'split');
     formatted = {};
     for i = 1:length(items)
         formatted{i} = formatVal(strtrim(items{i}));
     end
-    val = ['[' strjoin(formatted, ',') ']'];
+    val = ['[', sprintf('%s,', formatted{1:end - 1}), formatted{end}, ']'];
 elseif str(1) == '{'
     % Inline YAML object - pass through for now
     val = str;