/usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/SeekBin_.hc

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/SeekBin_.hc


#include <haskell2c.h>
#include "cLowBinary.h"

void hs_seekBin (BinHandle bh,unsigned int p)
{ 
   /* fprintf(stderr,"seekBinFile %d: ",p); */
   bh->cptr = p - forceCacheTo(bh,p)*8;
   /* fprintf(stderr,"bh->cptr=%d\n",bh->cptr); */
  return;
}

(Return to Plan 9 Home Page)