File: patch

package info (click to toggle)
grass 6.0.2-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 40,044 kB
  • ctags: 31,303
  • sloc: ansic: 321,125; tcl: 25,676; sh: 11,176; cpp: 10,098; makefile: 5,025; fortran: 1,846; yacc: 493; lex: 462; perl: 133; sed: 1
file content (60 lines) | stat: -rw-r--r-- 1,653 bytes parent folder | download | duplicates (2)
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
*** put_row.c	Thu Sep 16 03:41:41 1999
--- put_row.c	Thu Oct 14 20:13:34 1999
***************
*** 18,28 ****
      for (col = 0; col < ncols; col += scols)
      {
  	segment_address (SEG, row, col, &n, &index) ;
! 	if(segment_seek (SEG, n, index) < 0)
  	    return -1;
  	if(write (SEG->fd, buf, size) != size)
  	{
! 	    fprintf (stderr, "can't write segment file\n");
  	    return -1;
  	}
  	buf += size;
--- 18,32 ----
      for (col = 0; col < ncols; col += scols)
      {
  	segment_address (SEG, row, col, &n, &index) ;
! 	if(segment_seek (SEG, n, index) < 0) {
! 	    G_warning (
! 	        "Failed seek in segment file for index = %d n = %d at col:row %d:%d\n",
! 	        index,n,col,row);
  	    return -1;
+ 	}
  	if(write (SEG->fd, buf, size) != size)
  	{
! 	    G_warning ("can't write segment file col:row %d:%d\n",col,row);
  	    return -1;
  	}
  	buf += size;
***************
*** 30,40 ****
      if ((size = SEG->spill * SEG->len))
      {
  	segment_address (SEG, row, col, &n, &index) ;
! 	if(segment_seek (SEG, n, index) < 0)
  	    return -1;
  	if(write (SEG->fd, buf, size) != size)
  	{
! 	    fprintf (stderr, "can't write segment file\n");
  	    return -1;
  	}
      }
--- 34,48 ----
      if ((size = SEG->spill * SEG->len))
      {
  	segment_address (SEG, row, col, &n, &index) ;
! 	if(segment_seek (SEG, n, index) < 0) {
! 	    G_warning (
! 	        "Failed seek in segment file for index = %d n = %d at col:row %d:%d\n",
! 	        index,n,col,row);
  	    return -1;
+ 	}
  	if(write (SEG->fd, buf, size) != size)
  	{
! 	    G_warning ("Final write failed for segment file\n");
  	    return -1;
  	}
      }