hellisabove
28 lines
400 B
Plaintext
28 lines
400 B
Plaintext
/*
|
|
* Tim Rice tim@trr.metro.net Mon Jun 3 16:57:26 PDT 1996
|
|
*
|
|
* a quick and dirty trancate()
|
|
* Altos System V (5.3.1) does not have one
|
|
* neither does SCO Open Server Enterprise 3.0
|
|
*
|
|
*/
|
|
|
|
truncate(fn, size)
|
|
char *fn ;
|
|
long size ;
|
|
{
|
|
int fdes;
|
|
int rc = -1 ;
|
|
|
|
if((fdes = open(fn, O_RDWR)) != -1)
|
|
{
|
|
rc = chsize(fdes, size) ;
|
|
|
|
if(close(fdes))
|
|
return(-1) ;
|
|
}
|
|
return(rc) ;
|
|
}
|
|
|
|
|