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>

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 @@ ublob8(9:end) = 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 @@ end
 
 %% 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 @@ blob8_new(1:n_orig) = blob8;
 
 %% 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)