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