From 6204f5698130c8d35056593e60b7c8ac79dab282 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 7 Feb 2008 13:48:49 -0600
Subject: [PATCH 1/2] fix gmt-offset on windows

---
 extra/calendar/windows/windows.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/calendar/windows/windows.factor b/extra/calendar/windows/windows.factor
index 320400822c..afc040ef75 100755
--- a/extra/calendar/windows/windows.factor
+++ b/extra/calendar/windows/windows.factor
@@ -9,5 +9,4 @@ T{ windows-calendar } calendar-backend set-global
 M: windows-calendar gmt-offset ( -- float )
     "TIME_ZONE_INFORMATION" <c-object>
     [ GetTimeZoneInformation win32-error=0/f ] keep
-    [ TIME_ZONE_INFORMATION-Bias ] keep
-    TIME_ZONE_INFORMATION-DaylightBias + 60 /f neg ;
+    TIME_ZONE_INFORMATION-Bias 60 / neg ;

From e05bb24a697b5721be7ed6d5caa9e1136b05f1ee Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 7 Feb 2008 14:17:07 -0600
Subject: [PATCH 2/2] make rfc822-string print fractional times fix windows
 gmt-offset yet again -- bad return value

---
 extra/calendar/calendar.factor        | 16 +++++++++++-----
 extra/calendar/windows/windows.factor |  5 ++++-
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/extra/calendar/calendar.factor b/extra/calendar/calendar.factor
index 32c5c0233c..012080d3b7 100755
--- a/extra/calendar/calendar.factor
+++ b/extra/calendar/calendar.factor
@@ -349,17 +349,23 @@ M: timestamp year. ( timestamp -- )
 : timestamp>string ( timestamp -- str )
     [ (timestamp>string) ] string-out ;
 
+: (write-gmt-offset) ( ratio -- )
+    1 /mod swap write-00 60 * write-00 ;
+
+: write-gmt-offset ( gmt-offset -- )
+    {
+        { [ dup zero? ] [ drop "GMT" write ] }
+        { [ dup 0 < ] [ "-" write neg (write-gmt-offset) ] }
+        { [ dup 0 > ] [ "+" write (write-gmt-offset) ] }
+    } cond ;
+
 : timestamp>rfc822-string ( timestamp -- str )
     #! RFC822 timestamp format
     #! Example: Tue, 15 Nov 1994 08:12:31 +0200
     [
         dup (timestamp>string)
         " " write
-        timestamp-gmt-offset {
-            { [ dup zero? ] [ drop "GMT" write ] }
-            { [ dup 0 < ] [ "-" write neg write-00 "00" write ] }
-            { [ dup 0 > ] [ "+" write write-00 "00" write ] }
-        } cond
+        timestamp-gmt-offset write-gmt-offset
     ] string-out ;
 
 : timestamp>http-string ( timestamp -- str )
diff --git a/extra/calendar/windows/windows.factor b/extra/calendar/windows/windows.factor
index afc040ef75..9e34fdac00 100755
--- a/extra/calendar/windows/windows.factor
+++ b/extra/calendar/windows/windows.factor
@@ -6,7 +6,10 @@ TUPLE: windows-calendar ;
 
 T{ windows-calendar } calendar-backend set-global
 
+: TIME_ZONE_ID_INVALID HEX: ffffffff ; inline
+
 M: windows-calendar gmt-offset ( -- float )
     "TIME_ZONE_INFORMATION" <c-object>
-    [ GetTimeZoneInformation win32-error=0/f ] keep
+    dup GetTimeZoneInformation
+    TIME_ZONE_ID_INVALID = [ win32-error ] when
     TIME_ZONE_INFORMATION-Bias 60 / neg ;