1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)SEEK.c 1.2 06/10/81"; 4 5 #include "h00vars.h" 6 7 /* 8 * Random access routine 9 */ 10 SEEK(curfile, loc) 11 12 register struct iorec *curfile; 13 long loc; 14 { 15 curfile->funit |= SYNC; 16 if (fseek(curfile->fbuf, loc, 0) == -1) { 17 PERROR("Could not reset ", curfile->pfname); 18 return; 19 } 20 } 21