|
2758
|
1 arch_list = ["native"; "ieee-le"; "ieee-be"; "vaxd"; "vaxg"; "cray"]; |
|
|
2 |
|
|
3 status = 1; |
|
|
4 |
|
|
5 for i = 1:6 |
|
3881
|
6 arch = deblank (arch_list (i,:)); |
|
2758
|
7 for j = 1:2 |
|
|
8 if (j == 1) |
|
|
9 mode_list = ["w"; "r"; "a"]; |
|
|
10 else |
|
|
11 mode_list = ["w+"; "r+"; "a+"]; |
|
|
12 endif |
|
|
13 nm = tmpnam (); |
|
|
14 for k = 1:3 |
|
|
15 mode = deblank (mode_list (k,:)); |
|
3881
|
16 [id, err] = fopen (nm, mode, arch); |
|
|
17 if (id < 0) |
|
4036
|
18 printf ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err); |
|
|
19 status = 0; |
|
|
20 break; |
|
|
21 else |
|
|
22 fclose (id); |
|
3881
|
23 endif |
|
|
24 mode = strcat (mode, "b"); |
|
|
25 [id, err] = fopen (nm, mode, arch); |
|
|
26 if (id < 0) |
|
4036
|
27 printf ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err); |
|
|
28 status = 0; |
|
|
29 break; |
|
|
30 else |
|
|
31 fclose (id); |
|
2758
|
32 endif |
|
|
33 endfor |
|
|
34 if (status == 0) |
|
|
35 break; |
|
|
36 endif |
|
|
37 endfor |
|
|
38 if (status == 0) |
|
|
39 break; |
|
|
40 endif |
|
|
41 endfor |
|
|
42 |
|
|
43 status == 1 |
