1 files changed, 57 insertions, 0 deletions
diff --git a/CSXCAD/matlab/private/octave_struct2xml_2.m b/CSXCAD/matlab/private/octave_struct2xml_2.m
new file mode 100644
index 0000000..3ebc549
--- /dev/null
+++ b/CSXCAD/matlab/private/octave_struct2xml_2.m
@@ -0,0 +1,57 @@
+function out = octave_struct2xml_2( in, rootName, indent )
+
+out = [indent '<' rootName];
+
+float_accuracy = 15;
+
+% process attributes
+if isstruct( in )
+	fnames = fieldnames( in );
+	for n=1:numel(fnames)
+		current_field = fnames{n};
+		if strcmp( current_field, 'ATTRIBUTE' )
+			attributes = fieldnames( in.ATTRIBUTE );
+			for m=1:numel( attributes )
+				temp = in.ATTRIBUTE.(attributes{m});
+				if ~ischar( temp )
+					temp = vector2str( temp, float_accuracy );
+				end
+				out = [out ' ' attributes{m} '="' temp '"'];
+			end
+			break
+		end
+	end
+end
+
+out = [out '>'];
+
+
+% process content
+if ~isstruct( in )
+	if ~ischar( in )
+		temp = vector2str(in, float_accuracy);
+	else
+		temp = in;
+	end
+	out = [out temp '</' rootName '>\n'];
+	return
+end
+
+out = [out '\n'];
+
+fnames = fieldnames( in );
+for n=1:numel(fnames)
+	current_field = fnames{n};
+	if strcmp( current_field, 'ATTRIBUTE' )
+		continue
+	end
+	if iscell( in.(current_field) )
+		for m=1:numel( in.(current_field) )
+			out = [out octave_struct2xml_2( in.(current_field){m}, current_field, [indent '  '] )];
+		end
+	else
+		out = [out octave_struct2xml_2( in.(current_field), current_field, [indent '  '] )];
+	end
+end
+
+out = [out indent '</' rootName '>\n'];