Mercurial > octave-nkf
view test/octave.test/io/fopen-1.m @ 5431:6ddb5a7f399e
[project @ 2005-08-29 20:48:29 by jwe]
author | jwe |
---|---|
date | Mon, 29 Aug 2005 20:48:52 +0000 |
parents | 1432e11733d1 |
children | a42806a03f8f |
line wrap: on
line source
arch_list = ["native"; "ieee-le"; "ieee-be"; "vaxd"; "vaxg"; "cray"]; status = 1; for i = 1:6 arch = deblank (arch_list (i,:)); for j = 1:6 if (j == 1) mode_list = ["w"; "r"; "a"]; elseif (j == 2) mode_list = ["w+"; "r+"; "a+"]; elseif (j == 3) mode_list = ["wb"; "rb"; "ab"]; elseif (j == 4) mode_list = ["w+b"; "r+b"; "a+b"]; elseif (j == 5) mode_list = ["wt"; "rt"; "at"]; elseif (j == 6) mode_list = ["w+t"; "r+t"; "a+t"]; endif nm = tmpnam (); for k = 1:3 mode = deblank (mode_list (k,:)); [id, err] = fopen (nm, mode, arch); if (id < 0) printf ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err); status = 0; break; else fclose (id); endif mode = strcat (mode, "b"); [id, err] = fopen (nm, mode, arch); if (id < 0) printf ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err); status = 0; break; else fclose (id); endif endfor if (status == 0) break; endif endfor if (status == 0) break; endif endfor status == 1