|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)SEEK.c 1.4 11/22/81"; ! 4: ! 5: #include "h00vars.h" ! 6: ! 7: /* ! 8: * Random access routine ! 9: */ ! 10: SEEK(curfile, loc) ! 11: ! 12: register struct iorec *curfile; ! 13: struct seekptr *loc; ! 14: { ! 15: curfile->funit |= SYNC; ! 16: curfile->funit &= ~(EOFF | EOLN | SPEOLN); ! 17: if (fseek(curfile->fbuf, loc->cnt, 0) == -1) { ! 18: PERROR("Could not seek ", curfile->pfname); ! 19: return; ! 20: } ! 21: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.