[REBOL] help with GetTimezoneInformation needed ...

[Petr Krenzelok]

Hi,

I am trying to find out if red-icon-problem of IOS is caused by Rebol 
incorrectly interpreting timezone info or it is OS who does it in 
strange way, but I would need following routine to function :-) Sadly 
enough, I get crashes ....

Here's MSDN reference - 
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/gettimezoneinformation.asp

It survives the function call, but I can't touch structure, or I get 
crash ...

Thanks,
-pekr-

------------------------------

lib: load/library %kernel32.dll

get-timezone-information: make routine! [
   timezone [struct! [
                Bias [integer!]
                StandardName [string!]
                StandardDate [struct! [
                                 wYear [integer!]
                                 wMonth [integer!]
                                 wDayOfWeek [integer!]
                                 wDay [integer!]
                                 wHour [integer!]
                                 wMinute [integer!]
                                 wSecond [integer!]
                                 wMilliseconds [integer!]
                               ]
                ]
                StandardBias [integer!]
                DaylightName [string!]
                DaylightDate [struct! [
                                 wYear [integer!]
                                 wMonth [integer!]
                                 wDayOfWeek [integer!]
                                 wDay [integer!]
                                 wHour [integer!]
                                 wMinute [integer!]
                                 wSecond [integer!]
                                 wMilliseconds [integer!]
                               ]
                ]
                DaylightBias [integer!]
            ]
   ]
   return: [integer!]
]  lib "GetTimeZoneInformation"


tz: make struct! [
                Bias [integer!]
                StandardName [string!]
                StandardDate [struct! [
                                 wYear [integer!]
                                 wMonth [integer!]
                                 wDayOfWeek [integer!]
                                 wDay [integer!]
                                 wHour [integer!]
                                 wMinute [integer!]
                                 wSecond [integer!]
                                 wMilliseconds [integer!]
                               ]
                ]
                StandardBias [integer!]
                DaylightName [string!]
                DaylightDate [struct! [
                                 wYear [integer!]
                                 wMonth [integer!]
                                 wDayOfWeek [integer!]
                                 wDay [integer!]
                                 wHour [integer!]
                                 wMinute [integer!]
                                 wSecond [integer!]
                                 wMilliseconds [integer!]
                               ]
                ]
                DaylightBias [integer!]
] none

res: get-timezone-information tz
-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.