File: file-pos-1.m

package info (click to toggle)
octave2.1 1%3A2.1.73-13
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 37,028 kB
  • ctags: 20,874
  • sloc: cpp: 106,508; fortran: 46,978; ansic: 5,720; sh: 4,800; makefile: 3,186; yacc: 3,132; lex: 2,892; lisp: 1,715; perl: 778; awk: 174; exp: 134
file content (35 lines) | stat: -rw-r--r-- 734 bytes parent folder | download | duplicates (9) 
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);