factor/basis/calendar/windows/windows.factor

14 lines
523 B
Factor
Raw Normal View History

USING: calendar namespaces alien.c-types system
2009-08-29 14:39:48 -04:00
windows.kernel32 kernel math combinators windows.errors
2009-08-29 18:41:08 -04:00
accessors classes.struct ;
2007-09-20 18:09:08 -04:00
IN: calendar.windows
2008-04-02 19:28:55 -04:00
M: windows gmt-offset ( -- hours minutes seconds )
2009-08-29 14:39:48 -04:00
TIME_ZONE_INFORMATION <struct>
2008-03-18 19:59:37 -04:00
dup GetTimeZoneInformation {
2008-04-11 15:25:37 -04:00
{ TIME_ZONE_ID_INVALID [ win32-error-string throw ] }
2009-08-29 14:39:48 -04:00
{ TIME_ZONE_ID_UNKNOWN [ Bias>> ] }
{ TIME_ZONE_ID_STANDARD [ Bias>> ] }
{ TIME_ZONE_ID_DAYLIGHT [ [ Bias>> ] [ DaylightBias>> ] bi + ] }
2008-04-11 13:55:57 -04:00
} case neg 60 /mod 0 ;