Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1.  
  2. #include <errno.h>
  3. #include <sys/types.h>
  4. #include <sys/ksys.h>
  5. #include "glue.h"
  6. #include "io.h"
  7.  
  8. int
  9. _DEFUN (ftruncate, (fd, len),
  10.     int fd _AND
  11.     off_t len)
  12. {
  13.     __io_handle *ioh;
  14.     if ((fd < 0) || (fd >=64))
  15.     {
  16.         errno = EBADF;
  17.         return (-1);
  18.     }
  19.     ioh = &__io_tab[fd];
  20.     if (_ksys_file_set_size(ioh->name, len))
  21.         return (-1);
  22.  
  23.     return 0;
  24. }
  25.