From ca17c1127030f0e961fd812fd42518bd4f37a454 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Oct 2008 02:27:39 -0500
Subject: [PATCH] try to add winnt space-free

---
 basis/io/windows/files/files.factor | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/basis/io/windows/files/files.factor b/basis/io/windows/files/files.factor
index 992d1f8d6a..9ddc2b1eae 100644
--- a/basis/io/windows/files/files.factor
+++ b/basis/io/windows/files/files.factor
@@ -246,6 +246,20 @@ M: winnt file-info ( path -- info )
 M: winnt link-info ( path -- info )
     file-info ;
 
+TUPLE: winnt-file-system-info < file-system-info
+total-bytes total-free-bytes ;
+
+M: winnt file-system-info ( path -- file-system-info )
+    normalize-path
+    "ULARGE_INTEGER" <c-object>
+    "ULARGE_INTEGER" <c-object>
+    "ULARGE_INTEGER" <c-object>
+    [ GetDiskFreeSpaceEx ] 3keep
+    \ winnt-file-system-info new
+        swap >>total-free-bytes
+        swap >>total-bytes
+        swap >>free-space ;
+
 : file-times ( path -- timestamp timestamp timestamp )
     [
         normalize-path open-existing &dispose handle>>