Mercurial > octave

comparison test/io.tst @ 28226:822dc79a7e97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: merge stable to default.
author Rik <rik@octave.org>
date Thu, 16 Apr 2020 11:52:11 -0700
parents ebff357efd56 ad9252d7472b
children 713398d4a3c3
comparison
equal deleted inserted replaced
28222:1f07b80db239 28226:822dc79a7e97
931 %! w_mode = w_modes{i}; 931 %! w_mode = w_modes{i};
932 %! for j = 1:numel (r_modes); 932 %! for j = 1:numel (r_modes);
933 %! r_mode = r_modes{j}; 933 %! r_mode = r_modes{j};
934 %! for k = 1:numel (f_texts); 934 %! for k = 1:numel (f_texts);
935 %! f_text = f_texts{k}; 935 %! f_text = f_texts{k};
936 %! fname = tempname () 936 %! fname = tempname ();
937 %! fid = fopen (fname, w_mode); 937 %! fid = fopen (fname, w_mode);
938 %! unwind_protect 938 %! unwind_protect
939 %! fprintf (fid, "%s", f_text); 939 %! fprintf (fid, "%s", f_text);
940 %! fclose (fid); 940 %! fclose (fid);
941 %! fid = fopen (fname, r_mode) 941 %! fid = fopen (fname, r_mode);
942 %! fgetl (fid); 942 %! fgetl (fid);
943 %! pos = ftell (fid); 943 %! pos = ftell (fid);
944 %! buf1 = fgetl (fid); 944 %! buf1 = fgetl (fid);
945 %! fgetl (fid); 945 %! fgetl (fid);
946 %! fseek (fid, pos, SEEK_SET); 946 %! fseek (fid, pos, SEEK_SET);