/usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHSetPosn.c

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHSetPosn.c


#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include "haskell2c.h"


/* foreign import hSetPosnC :: Handle -> HandlePosn -> IO Int */
int hSetPosnC (FileDesc *f, fpos_t *p)
{
  return fsetpos(f->fp,p);
}

(Return to Plan 9 Home Page)