home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / unixlib / src / truncate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-28  |  340 b   |  22 lines
  1. #include "amiga.h"
  2. #include "amigaos.h"
  3.  
  4. int truncate(char *path, off_t length)
  5. {
  6.   BPTR fh = Open(path, MODE_OLDFILE);
  7.   int err;
  8.  
  9.   chkabort();
  10.   if (fh)
  11.     {
  12.       int ret = _do_truncate(fh, length);
  13.  
  14.       if (Close(fh) || ret) return ret;
  15.       err = IoErr();
  16.     }
  17.   else err = IoErr();
  18.  
  19.   errno = convert_oserr(err);
  20.   return -1;
  21. }
  22.