modules/src/system/seek.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: seek.c,v 1.3 1994/06/24 11:24:53 ceriel Exp $ */
   6
   7 #include <system.h>
   8
   9 long lseek();
  10
  11 int
  12 sys_seek(fp, off, whence, poff)
  13         File *fp;
  14         long off;
  15         long *poff;
  16 {
  17         if (! fp) return 0;
  18         return (*poff = lseek(fp->o_fd, off, whence)) >= 0;
  19 }