Tools: Tune: Common: Add checks for file open failures

This patch adds checks and errors for fopen() failures. The check
is useful with setup scripts paths changes. Aborting the script
avoids the errors in blob exports to be missed.

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)