blob: 1226df122d2f86ae1d2327faeb0641a8028c7a78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#include <mlvalues.h>
#include "unix.h"
#ifdef HAS_TRUNCATE
value unix_truncate(path, len) /* ML */
value path, len;
{
if (truncate(String_val(path), Long_val(len)) == -1)
uerror("truncate", path);
return Val_unit;
}
#else
value unix_truncate() { invalid_argument("truncate not implemented"); }
#endif
|