1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
nm = tmpnam ();
id = fopen (nm, "w");
if (id > 0)
fprintf (id, "%d\n", 1:100);
fclose (id);
id = fopen (nm, "r");
if (id > 0)
for i = 1:101
fgets (id);
endfor
if (feof (id))
fclose (id);
id = fopen (nm, "r");
pos_one = ftell (id);
s_one = fgets (id);
for i = 1:48
s = fgets (id);
endfor
pos_fifty = ftell (id);
s_fifty = fgets (id);
fseek (id, pos_one, SEEK_SET);
s_one_x = fgets (id);
fseek (id, pos_fifty, SEEK_SET);
s_fifty_x = fgets (id);
if (s_one == s_one_x && s_fifty == s_fifty_x)
frewind (id);
s_one_x = fgets (id);
if (s_one == s_one_x)
printf ("ok\n");
endif
endif
endif
endif
endif
unlink (nm);
|
