home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / 2bsd.tar.gz / 2bsd.tar / upgrade / libretro / lseek.c < prev    next >
Encoding:
Text File  |  1979-04-19  |  239 b   |  14 lines
  1. lseek(f, o0, o1, p)
  2. {
  3.     register r;
  4.  
  5.     if((o0 == 0 && o1 >= 0) || (o0 == -1 && o1 < 0))
  6.         return(seek(f, o1, p));
  7.     if(p > 2)
  8.         return(-1);
  9.     r = (o0<<7) | ((o1>>9)&0177);
  10.     if(seek(f, r, p+3) < 0)
  11.         return(-1);
  12.     return(seek(f, o1&0777, 1));
  13. }
  14.