Tools: Tune: Common: Add checks for file open

This patch adds checks and errors for fopen failures. The check is
useful with setup scripts paths changes. Aborting the script
won't leave the error in blob export unnoticed.

Signed-off-by: Seppo Ingalsuo <seppo.ingalsuo@linux.intel.com>

Author: singalsu

tools/tune/common/alsactl_write.m

@@ -3,6 +3,10 @@ function alsactl_write(fn, blob8)
 %% Write blob
 check_create_dir(fn);
 fh = fopen(fn, 'w');
+if fh < 0
+	fprintf(1, 'Error: Could not open file %s\n', fn);
+	error("Failed.");
+end
 
 %% Pad blob length to multiple of four bytes
 n_orig = length(blob8);

tools/tune/common/blob_write.m

@@ -4,6 +4,11 @@ function blob_write(fn, blob8)
 %% Write blob
 check_create_dir(fn);
 fh = fopen(fn, 'wb');
+if fh < 0
+	fprintf(1, 'Error: Could not open file %s\n', fn);
+	error("Failed.");
+end
+
 fwrite(fh, blob8, 'uint8');
 fclose(fh);
 

tools/tune/common/sof_ucm_blob_write.m

@@ -25,6 +25,11 @@ function sof_ucm_blob_write(fn, blob8)
 %% Write blob
 check_create_dir(fn);
 fh = fopen(fn, 'wb');
+if fh < 0
+	fprintf(1, 'Error: Could not open file %s\n', fn);
+	error("Failed.");
+end
+
 fwrite(fh, ublob8, 'uint8');
 fclose(fh);
 

tools/tune/common/tplg2_write.m

@@ -24,6 +24,10 @@ function tplg2_write(fn, blob8, component, comment, howto)
 
 %% Write blob
 fh = fopen(fn, 'w');
+if fh < 0
+	fprintf(1, 'Error: Could not open file %s\n', fn);
+	error("Failed.");
+end
 nl = 8;
 fprintf(fh, '# %s %s\n', comment, date());
 if ~isempty(howto)

tools/tune/common/tplg_write.m

@@ -15,6 +15,10 @@ function tplg_write(fn, blob8, name, comment, howto)
 
 %% Write blob
 fh = fopen(fn, 'w');
+if fh < 0
+	fprintf(1, 'Error: Could not open file %s\n', fn);
+	error("Failed.");
+end
 nl = 8;
 fprintf(fh, '# %s %s\n', comment, date());
 if ~isempty(howto)