Support truncate() in VOS port

Message-Id: <200201220428.XAA15304@mailhub1.stratus.com>

p4raw-id: //depot/perl@14376

1 files changed, 22 insertions, 0 deletions

diff --git a/vos/vos.c b/vos/vos.c
new file mode 100644
index 0000000000..c3566d4a8e
--- /dev/null
+++ b/vos/vos.c
@@ -0,0 +1,22 @@
+/* Beginning of modification history */
+/* Written 02-01-02 by Nick Ing-Simmons (nick@ing-simmons.net) */
+/* End of modification history */
+
+/* VOS doesn't supply a truncate function, so we build one up
+   from the available POSIX functions.  */
+
+#include <fcntl.h>
+#include <sys/types.h>
+#include <unistd.h>
+
+int
+truncate(const char *path, off_t len)
+{
+ int fd = open(path,O_WRONLY);
+ int code = -1;
+ if (fd >= 0) {
+   code = ftruncate(fd,len);
+   close(fd); 
+ }
+ return code;
+}