factor/basis/calendar/windows/windows.factor

USING: calendar namespaces alien.c-types system windows
windows.kernel32 kernel math combinators ;
IN: calendar.windows

M: windows gmt-offset ( -- hours minutes seconds )
    "TIME_ZONE_INFORMATION" <c-object>
    dup GetTimeZoneInformation {
        { TIME_ZONE_ID_INVALID [ win32-error-string throw ] }
        { TIME_ZONE_ID_UNKNOWN [ TIME_ZONE_INFORMATION-Bias ] }
        { TIME_ZONE_ID_STANDARD [ TIME_ZONE_INFORMATION-Bias ] }
        { TIME_ZONE_ID_DAYLIGHT [
            [ TIME_ZONE_INFORMATION-Bias ]
            [ TIME_ZONE_INFORMATION-DaylightBias ] bi +
        ] }
    } case neg 60 /mod 0 ;