File: file-pos-1.m

package info (click to toggle)
octave 2.0.16-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 26,276 kB
  • ctags: 16,450
  • sloc: cpp: 67,548; fortran: 41,514; ansic: 26,682; sh: 7,361; makefile: 4,077; lex: 2,008; yacc: 1,849; lisp: 1,702; perl: 1,676; exp: 123
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);