[octave] workaround for octave bug https://savannah.gnu.org/bugs/?66161

loadbidstsv.m

@@ -46,7 +46,7 @@
         fid = fid((endpos + 1):end);
     end
 else
-    fid = fopen(tsvfile, 'rt');
+    fid = fopen(tsvfile, 'rb');
     header = fgetl(fid);
     header = regexprep(header, '\s*$', '');
 end

readasc.m

@@ -19,7 +19,7 @@
 
 node = [];
 elem = [];
-fid = fopen(fname, 'rt');
+fid = fopen(fname, 'rb');
 if (fid == -1)
     error(['can not read file ' fname]);
 end

readgts.m

@@ -22,7 +22,7 @@
 
 node = [];
 elem = [];
-fid = fopen(fname, 'rt');
+fid = fopen(fname, 'rb');
 line = fgetl(fid);
 dim = sscanf(line, '%d', 3);
 node   = fscanf(fid, '%f', [3, dim(1)])';

readmedit.m

@@ -20,7 +20,7 @@
 node = [];
 elem = [];
 face = [];
-fid = fopen(filename, 'rt');
+fid = fopen(filename, 'rb');
 while (~feof(fid))
     key = fscanf(fid, '%s', 1);
     if (strcmp(key, 'End'))

readnirfast.m

@@ -58,7 +58,7 @@
 end
 
 fname = [filestub, '.excoef'];
-fid = fopen(fname, 'rt');
+fid = fopen(fname, 'rb');
 if (fid >= 0)
     linenum = 0;
     textheader = {};
@@ -82,7 +82,7 @@
 end
 
 fname = [filestub, '.param'];
-fid = fopen(fname, 'rt');
+fid = fopen(fname, 'rb');
 if (fid >= 0)
     linenum = 0;
     params = [];

readsmf.m

@@ -18,7 +18,7 @@
 %
 node = [];
 elem = [];
-fid = fopen(fname, 'rt');
+fid = fopen(fname, 'rb');
 while (~feof(fid))
     line = fgetl(fid);
     if (line(1) == 'v')

readtetgen.m

@@ -19,7 +19,7 @@
 %
 
 % read node file
-fp = fopen([fstub, '.node'], 'rt');
+fp = fopen([fstub, '.node'], 'rb');
 if (fp == 0)
     error('node file is missing!');
 end
@@ -33,7 +33,7 @@
 fclose(fp);
 
 % read element file
-fp = fopen([fstub, '.ele'], 'rt');
+fp = fopen([fstub, '.ele'], 'rb');
 if (fp == 0)
     error('elem file is missing!');
 end
@@ -48,7 +48,7 @@
 fclose(fp);
 
 % read surface mesh file
-fp = fopen([fstub, '.face'], 'rt');
+fp = fopen([fstub, '.face'], 'rb');
 if (fp == 0)
     error('surface data file is missing!');
 end