home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / unix / pine4.10.tar.gz / pine4.10.tar / pine4.10 / pico / osdep / truncate < prev    next >
Text File  |  1997-02-13  |  400b  |  28 lines
  1. /*
  2.  *    Tim Rice    tim@trr.metro.net    Mon Jun  3 16:57:26 PDT 1996
  3.  *
  4.  *    a quick and dirty trancate()
  5.  *    Altos System V (5.3.1) does not have one
  6.  *    neither does SCO Open Server Enterprise 3.0
  7.  *
  8.  */
  9.  
  10. truncate(fn, size)
  11. char    *fn ;
  12. long size ;
  13. {
  14.     int    fdes;
  15.     int    rc = -1 ;
  16.  
  17.     if((fdes = open(fn, O_RDWR)) != -1)
  18.     {
  19.         rc = chsize(fdes, size) ;
  20.  
  21.         if(close(fdes))
  22.             return(-1) ;
  23.     }
  24.     return(rc) ;
  25. }
  26.  
  27.  
  28.