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