From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/SNIP/ftime.c | 58 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/ftime.c

(limited to 'reference/C/CONTRIB/SNIP/ftime.c')

diff --git a/reference/C/CONTRIB/SNIP/ftime.c b/reference/C/CONTRIB/SNIP/ftime.c
new file mode 100755
index 0000000..74690a9
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/ftime.c
@@ -0,0 +1,58 @@
+/*
+**  Public domain by Jeff Dunlop & Bob Stout
+*/
+
+#ifndef __TURBOC__
+
+#include <dos.h>
+#include "ftime.h"
+
+#ifdef __ZTC__
+ #pragma ZTC align 1
+ #define DOS_GETFTIME dos_getftime
+ #define DOS_SETFTIME dos_setftime
+#else
+ #pragma pack(1)
+ #define DOS_GETFTIME _dos_getftime
+ #define DOS_SETFTIME _dos_setftime
+#endif
+
+int _cdecl getftime (int handle, struct ftime *ftimep)
+{
+      int retval = 0;
+      union
+      {
+            struct
+            {
+                  unsigned time;
+                  unsigned date;
+            } msc_time;
+            struct ftime bc_time;
+      } FTIME;
+
+      if (0 == (retval = DOS_GETFTIME(handle, &FTIME.msc_time.date,
+            &FTIME.msc_time.time)))
+      {
+            *ftimep = FTIME.bc_time;
+      }
+      return retval;
+}
+
+int _cdecl setftime (int handle, struct ftime *ftimep)
+{
+      union
+      {
+            struct
+            {
+                  unsigned time;
+                  unsigned date;
+            } msc_time;
+            struct ftime bc_time;
+      } FTIME;
+
+      FTIME.bc_time = *ftimep;
+
+      return DOS_SETFTIME(handle, FTIME.msc_time.date, FTIME.msc_time.time);
+}
+
+#endif /* __TURBOC__ */
-- 
cgit v1.2.3-54-g00ecf