/* $Id: timerinit.c,v 3.1 1994/03/29 12:56:35 ppessi Exp $ * * timerinit.c --- SAS C auto initialization functions for timer device * * Authors: ppessi , jraja * * Copyright © 1993 AmiTCP/IP Group, * Helsinki University of Technology, Finland. * All rights reserved. * * Created : Sat Mar 20 03:31:29 1993 ppessi * Last modified: Mon Mar 28 02:17:16 1994 ppessi * * $Log: timerinit.c,v $ * Revision 3.1 1994/03/29 12:56:35 ppessi * Fixed some SAS C 6.50 incompatibilities * * Revision 1.2 1994/02/17 09:42:00 ppessi * Fixed return type of autoinitialization function (return 0 on success) * * Revision 1.1 1993/10/18 06:22:50 jraja * Initial revision */ /****** net.lib/autoinit_timer.device ***************************************** NAME timerinit - SAS C Autoinitialization Functions for timer.device SYNOPSIS _STIopenTimer() LONG _STI_200_openTimer(void) _STDcloseTimer() void _STD_200_closeTimer(void) FUNCTION These functions open and close the timer.device at the startup and exit of the program, respectively. For a program to use these functions, it must be linked with netlib:net.lib. The opened device base is stored in the TimerBase global variable. If the device can be opened, the _STIopenTimer() sets up the time zone information, which is used by the gettimeofday() function. NOTES The time zone information is got from the environment variable named TZ. The format for this variable is: zzznnnddd where zzz is three letter identifier for the time zone (for example GMT), and the nnn is hours west from Greenwich on range [-23,24] (negative values are to east). The last field is the abbreviation for the local daylight saving time zone (which is not interpreted by this version). If the TZ environment variable cannot be found, Greenwich Mean Time (GMT) is used instead. The autoinitialization and autotermination functions are features specific to the SAS C6. However, these functions can be used with other (ANSI) C compilers, too. Example follows: \* at start of main() *\ atexit(_STDcloseTimer); _STDopenTimer(); BUGS TZ "hours west from GMT" should be interpreted as float. The same autoinitialization won't work for both SAS C 6.3 and SAS C 6.50 or latter. Only way to terminate an initialization function is by exit() call with SAS C 6.3 binary. If an autoinitialization function is terminated by exit() call with SAS C 6.50 binary, the autotermination functions won't be called. Due this braindamage these compilers require separate net.lib libraries. SEE ALSO net.lib/gettimeofday(), SAS/C 6 User's Guide p. 145 for details of autoinitialization and autotermination functions. ***************************************************************************** * */ #include #include #include #include #include #include #include #include /* SAS C 6.50 kludge */ #if __VERSION__ > 6 || __REVISION__ >= 50 #define exit(x) return(x) #endif struct Device *TimerBase = 0L; static void *unit; /* * Time zone support for the gettimeofday. Zeroes default to the GMT * without daylight saving. */ struct timezone __time_zone = {0,0}; /* * Seconds to to the system time (seconds from 00:00 1.1.1978) * to the GMT (seconds from 00:00 1.1.1970). * _STIopenTimer() adds the local time seconds west from GMT to this * value, so the local time gets converted to the GMT. */ long __local_to_GMT = ((8L*365 + 8/4)*24*60*60); /* * Locale information is included here, since the 2.1 includes may be hard * to find. */ /* This structure must only be allocated by locale.library and is READ-ONLY! */ struct Locale { STRPTR loc_LocaleName; /* locale's name */ STRPTR loc_LanguageName; /* language of this locale */ STRPTR loc_PrefLanguages[10]; /* preferred languages */ ULONG loc_Flags; /* always 0 for now */ ULONG loc_CodeSet; /* always 0 for now */ ULONG loc_CountryCode; /* user's country code */ ULONG loc_TelephoneCode; /* country's telephone code */ LONG loc_GMTOffset; /* minutes from GMT */ /* deleted the rest to save space */ }; void CloseLocale( struct Locale *locale ); struct Locale *OpenLocale( STRPTR name ); #pragma libcall LocaleBase CloseLocale 2A 801 #pragma libcall LocaleBase OpenLocale 9C 801 LONG __stdargs _STI_200_openTimer(void) { struct timerequest dummyTimer = { 0 }; if (!TimerBase && !OpenDevice("timer.device", UNIT_VBLANK, (struct IORequest *)&dummyTimer, 0L)) { TimerBase = dummyTimer.tr_node.io_Device; unit = dummyTimer.tr_node.io_Unit; if (TimerBase->dd_Library.lib_Version >= 36) { /* * Initialize time zone information for the gettimeofday() * First try to open locale (2.1 and up), and if that fails, * try to read environment variable TZ. */ void *LocaleBase; struct Locale *thisLocale = NULL; if ((LocaleBase = OpenLibrary("locale.library", 38)) != NULL) { if ((thisLocale = OpenLocale(NULL)) != NULL) { /* * Update time zone minutes west from GMT. */ __time_zone.tz_minuteswest = thisLocale->loc_GMTOffset; CloseLocale(thisLocale); } CloseLibrary(LocaleBase); } if (!thisLocale) { /* if locale information was not available */ short len; long value; char zone[10]; BPTR file = Open("ENV:TZ", MODE_OLDFILE); if (file) { len = Read(file, zone, sizeof(zone)); if (len > 3) { zone[len] = '\000'; /* should interpret floats as well! */ if (StrToLong(zone+3, &value) > 0) { /* * Update time zone minutes west from GMT. */ __time_zone.tz_minuteswest = (short)value * (short)60; } } Close(file); } } /* * Update local time seconds to GMT translation */ __local_to_GMT += (short)__time_zone.tz_minuteswest * (short)60; return 0; } } exit(20); } void __stdargs _STD_200_closeTimer(void) { struct timerequest dummyTimer = { 0 }; if (!TimerBase) return; dummyTimer.tr_node.io_Device = TimerBase; dummyTimer.tr_node.io_Unit = unit; CloseDevice((struct IORequest*)&dummyTimer); }