/*

*/

#include <sys/cdefs.h>

#ifndef lint

#ifndef NOID

static char	elsieid[] __unused = "@(#)localtime.c	7.78";

#endif /* !defined NOID */

#endif /* !defined lint */

__FBSDID("$FreeBSD: src/lib/libc/stdtime/localtime.c,v 1.40 2004/08/24 00:15:37 peter Exp $");

/*

** Leap second handling from Bradley White (bww@k.gp.cs.cmu.edu).

** POSIX-style TZ environment variable handling from Guy Harris

** (guy@auspex.com).

*/

#include <time.h>

/*LINTLIBRARY*/

#include <unistd.h>

#include "namespace.h"

#include <sys/types.h>  

#include <pthread.h>

#include "private.h"

#include "un-namespace.h"

#include "tzfile.h"

#include <fcntl.h>

#include <sys/stat.h>

#include "libc_private.h"

#include "common_def.h"

#include <wchar.h>

#include "timefuncs.h"

#if (defined(__SYMBIAN32__) && (defined(__WINSCW__) || defined(__WINS__)))

#include "libc_wsd_defs.h"

#endif

#define	_MUTEX_LOCK(x)		if (__isthreaded) _pthread_mutex_lock(x)

#define	_MUTEX_UNLOCK(x)	if (__isthreaded) _pthread_mutex_unlock(x)

/*

** SunOS 4.1.1 headers lack O_BINARY.

*/

#ifdef O_BINARY

#define OPEN_MODE	(O_RDONLY | O_BINARY)

#endif /* defined O_BINARY */

#ifndef O_BINARY

#define OPEN_MODE	O_RDONLY

#endif /* !defined O_BINARY */

#ifndef WILDABBR

/*

** Someone might make incorrect use of a time zone abbreviation:

**	1.	They might reference tzname[0] before calling tzset (explicitly

**		or implicitly).

**	2.	They might reference tzname[1] before calling tzset (explicitly

**		or implicitly).

**	3.	They might reference tzname[1] after setting to a time zone

**		in which Daylight Saving Time is never observed.

**	4.	They might reference tzname[0] after setting to a time zone

**		in which Standard Time is never observed.

**	5.	They might reference tm.TM_ZONE after calling offtime.

** What's best to do in the above cases is open to debate;

** for now, we just set things up so that in any of the five cases

** WILDABBR is used.  Another possibility:  initialize tzname[0] to the

** string "tzname[0] used before set", and similarly for the other cases.

** And another:  initialize tzname[0] to "ERA", with an explanation in the

** manual page of what this "time zone abbreviation" means (doing this so

** that tzname[0] has the "normal" length of three characters).

*/

#define WILDABBR	"   "

#endif /* !defined WILDABBR */

#ifdef __SYMBIAN32__

extern int GetStdOffset(void);

extern int GetIsDst(void);

#endif //__SYMBIAN32__

#ifdef __SYMBIAN32__

#ifndef EMULATOR

static char		wildabbr[] = "WILDABBR";

#else //EMULATOR

GET_STATIC_ARRAY_FROM_TLS(wildabbr, char)

#define wildabbr (GET_WSD_VAR_NAME(wildabbr, s)())

#endif //EMULATOR

#else

static char		wildabbr[] = "WILDABBR";

#endif //__SYMBIAN32__

/*

 * In June 2004 it was decided UTC was a more appropriate default time

 * zone than GMT.

 */

#ifdef __SYMBIAN32__

#if !(defined(EMULATOR))

static const char	gmt[] = "UTC";

#endif //EMULATOR

#else

static const char	gmt[] = "UTC";

#endif //__SYMBIAN32__

/*

** The DST rules to use if TZ has no rules and we can't load TZDEFRULES.

** We default to US rules as of 1999-08-17.

** POSIX 1003.1 section 8.1.1 says that the default DST rules are

** implementation dependent; for historical reasons, US rules are a

** common default.

*/

#ifndef TZDEFRULESTRING

#define TZDEFRULESTRING ",M4.1.0,M10.5.0"

#endif /* !defined TZDEFDST */

#ifdef __SYMBIAN32__

#ifndef EMULATOR

struct ttinfo {				/* time type information */

	long		tt_gmtoff;	/* UTC offset in seconds */

	int		tt_isdst;	/* used to set tm_isdst */

	int		tt_abbrind;	/* abbreviation list index */

	int		tt_ttisstd;	/* TRUE if transition is std time */

	int		tt_ttisgmt;	/* TRUE if transition is UTC */

};

struct lsinfo {				/* leap second information */

	time_t		ls_trans;	/* transition time */

	long		ls_corr;	/* correction to apply */

};

#endif //EMULATOR

#else

struct ttinfo {				/* time type information */

	long		tt_gmtoff;	/* UTC offset in seconds */

	int		tt_isdst;	/* used to set tm_isdst */

	int		tt_abbrind;	/* abbreviation list index */

	int		tt_ttisstd;	/* TRUE if transition is std time */

	int		tt_ttisgmt;	/* TRUE if transition is UTC */

};

struct lsinfo {				/* leap second information */

	time_t		ls_trans;	/* transition time */

	long		ls_corr;	/* correction to apply */

};

#endif //__SYMBIAN32__

#define BIGGEST(a, b)	(((a) > (b)) ? (a) : (b))

#ifdef TZNAME_MAX

#define MY_TZNAME_MAX	TZNAME_MAX

#endif /* defined TZNAME_MAX */

#ifndef TZNAME_MAX

#define MY_TZNAME_MAX	255

#endif /* !defined TZNAME_MAX */

#ifdef __SYMBIAN32__

#ifndef EMULATOR

struct state {

	int		leapcnt;

	int		timecnt;

	int		typecnt;

	int		charcnt;

	time_t		ats[TZ_MAX_TIMES];

	unsigned char	types[TZ_MAX_TIMES];

	struct ttinfo	ttis[TZ_MAX_TYPES];

	char		chars[BIGGEST(BIGGEST(TZ_MAX_CHARS + 1, sizeof gmt),

				(2 * (MY_TZNAME_MAX + 1)))];

	struct lsinfo	lsis[TZ_MAX_LEAPS];

};

#endif //EMULATOR

#else

struct state {

	int		leapcnt;

	int		timecnt;

	int		typecnt;

	int		charcnt;

	time_t		ats[TZ_MAX_TIMES];

	unsigned char	types[TZ_MAX_TIMES];

	struct ttinfo	ttis[TZ_MAX_TYPES];

	char		chars[BIGGEST(BIGGEST(TZ_MAX_CHARS + 1, sizeof gmt),

				(2 * (MY_TZNAME_MAX + 1)))];

	struct lsinfo	lsis[TZ_MAX_LEAPS];

};

#endif //__SYMBIAN32__

struct rule {

	int		r_type;		/* type of rule--see below */

	int		r_day;		/* day number of rule */

	int		r_week;		/* week number of rule */

	int		r_mon;		/* month number of rule */

	long		r_time;		/* transition time of rule */

};

#define JULIAN_DAY		0	/* Jn - Julian day */

#define DAY_OF_YEAR		1	/* n - day of year */

#define MONTH_NTH_DAY_OF_WEEK	2	/* Mm.n.d - month, week, day of week */

/*

** Prototypes for static functions.

*/

#ifndef __SYMBIAN32__

static long		detzcode(const char * codep);

#endif //__SYMBIAN32__

static const char *	getzname(const char * strp);

static const char *	getnum(const char * strp, int * nump, int min,

				int max);

static const char *	getsecs(const char * strp, long * secsp);

static const char *	getoffset(const char * strp, long * offsetp);

static const char *	getrule(const char * strp, struct rule * rulep);

static void		gmtload(struct state * sp);

static void		gmtsub(const time_t * timep, long offset,

				struct tm * tmp);

static void		localsub(const time_t * timep, long offset,

				struct tm * tmp);

static int		increment_overflow(int * number, int delta);

static int		normalize_overflow(int * tensptr, int * unitsptr,

				int base);

static void		settzname(void);

static time_t		time1(struct tm * tmp,

				void(*funcp) (const time_t *,

				long, struct tm *),

				long offset);

static time_t		time2(struct tm *tmp,

				void(*funcp) (const time_t *,

				long, struct tm*),

				long offset, int * okayp);

static time_t		time2sub(struct tm *tmp,

				void(*funcp) (const time_t *,

				long, struct tm*),

				long offset, int * okayp, int do_norm_secs);

static void		timesub(const time_t * timep, long offset,

				const struct state * sp, struct tm * tmp);

static int		tmcomp(const struct tm * atmp,

				const struct tm * btmp);

static time_t		transtime(time_t janfirst, int year,

				const struct rule * rulep, long offset);

static int		tzload(const char * name, struct state * sp);

static int		tzparse(const char * name, struct state * sp,

				int lastditch);

#ifdef ALL_STATE

#ifdef __SYMBIAN32__

#ifndef EMULATOR

static struct state *	lclptr;

static struct state *	gmtptr;

#else //EMULATOR

GET_STATIC_VAR_FROM_TLS(lclptr, state *)

GET_STATIC_VAR_FROM_TLS(gmtptr, state *)

#define lclptr (*GET_WSD_VAR_NAME(lclptr, s)())

#define gmtptr (*GET_WSD_VAR_NAME(gmtptr, s)())

#endif //EMULATOR

#else //__SYMBIAN32__

static struct state *	lclptr;

static struct state *	gmtptr;

#endif //__SYMBIAN32__

#endif /* defined ALL_STATE */

#ifndef ALL_STATE

#ifdef __SYMBIAN32__

#ifndef EMULATOR

static struct state	lclmem;

static struct state	gmtmem;

#else //EMULATOR

GET_STATIC_VAR_FROM_TLS(lclmem, struct state)

GET_STATIC_VAR_FROM_TLS(gmtmem, struct state)

#define lclmem (*GET_WSD_VAR_NAME(lclmem, s)())

#define gmtmem (*GET_WSD_VAR_NAME(gmtmem, s)())

#endif //EMULATOR

#else //__SYMBIAN32__

static struct state	lclmem;

static struct state	gmtmem;

#endif //__SYMBIAN32__

#define lclptr		(&lclmem)

#define gmtptr		(&gmtmem)

#endif /* State Farm */

#ifndef TZ_STRLEN_MAX

#define TZ_STRLEN_MAX 255

#endif /* !defined TZ_STRLEN_MAX */

#ifdef __SYMBIAN32__

#ifndef EMULATOR

static char		lcl_TZname[TZ_STRLEN_MAX + 1];

static int		lcl_is_set;

static int		gmt_is_set;

static pthread_mutex_t	lcl_mutex = PTHREAD_MUTEX_INITIALIZER;

static pthread_mutex_t	gmt_mutex = PTHREAD_MUTEX_INITIALIZER;

char **_tzname = NULL;

#else //EMULATOR

GET_STATIC_ARRAY_FROM_TLS(lcl_TZname, char)

GET_STATIC_VAR_FROM_TLS(lcl_is_set, int)

GET_STATIC_VAR_FROM_TLS(gmt_is_set, int)

GET_STATIC_VAR_FROM_TLS(lcl_mutex, pthread_mutex_t)

GET_STATIC_VAR_FROM_TLS(gmt_mutex, pthread_mutex_t)

#define lcl_TZname (GET_WSD_VAR_NAME(lcl_TZname, s)())

#define lcl_is_set	    (*GET_WSD_VAR_NAME(lcl_is_set, s)())

#define gmt_is_set  (*GET_WSD_VAR_NAME(gmt_is_set, s)())

#define lcl_mutex    (*GET_WSD_VAR_NAME(lcl_mutex, s)())

#define gmt_mutex  (*GET_WSD_VAR_NAME(gmt_mutex, s)())

#endif //EMULATOR

#else //__SYMBIAN32__

static char		lcl_TZname[TZ_STRLEN_MAX + 1];

static int		lcl_is_set;

static int		gmt_is_set;

static pthread_mutex_t	lcl_mutex = PTHREAD_MUTEX_INITIALIZER;

static pthread_mutex_t	gmt_mutex = PTHREAD_MUTEX_INITIALIZER;

char *			tzname[2] = {

	wildabbr,

	wildabbr

};

#endif //__SYMBIAN32__

/*

** Section 4.12.3 of X3.159-1989 requires that

**	Except for the strftime function, these functions [asctime,

**	ctime, gmtime, localtime] return values in one of two static

**	objects: a broken-down time structure and an array of char.

** Thanks to Paul Eggert (eggert@twinsun.com) for noting this.

*/

#ifdef __SYMBIAN32__

#ifndef EMULATOR

struct tm	stm;

#else //EMULATOR

GET_GLOBAL_VAR_FROM_TLS(stm, struct tm)

#define stm (*GET_WSD_VAR_NAME(stm, g)())

#endif //EMULATOR

#else //__SYMBIAN32__

static struct tm	tm;

#endif //__SYMBIAN32__

#ifdef USG_COMPAT

#ifdef __SYMBIAN32__

#ifndef EMULATOR

time_t			timezone = 0;

int			daylight = 0;

#else //EMULATOR

GET_GLOBAL_VAR_FROM_TLS(timezone, time_t)

GET_GLOBAL_VAR_FROM_TLS(daylight, int)

#define timezone (*GET_WSD_VAR_NAME(timezone, g)())

#define daylight  (*GET_WSD_VAR_NAME(daylight, g)())

#endif //EMULATOR

#else //__SYMBIAN32__

time_t			timezone = 0;

int			daylight = 0;

#endif //__SYMBIAN32__

#endif /* defined USG_COMPAT */

#ifdef ALTZONE

#ifdef __SYMBIAN32__

#ifndef EMULATOR

time_t			altzone = 0;

#else //EMULATOR

GET_GLOBAL_VAR_FROM_TLS(altzone, time_t)

#define altzone (*GET_WSD_VAR_NAME(altzone, g)())

#endif //EMULATOR

#else  //__SYMBIAN32__

time_t			altzone = 0;

#endif //__SYMBIAN32__

#endif /* defined ALTZONE */

#ifdef __SYMBIAN32__

#ifdef EMULATOR

GET_STATIC_VAR_FROM_TLS(localtime_key, pthread_key_t)

GET_STATIC_VAR_FROM_TLS(localtime_mutex, pthread_mutex_t)

GET_STATIC_VAR_FROM_TLS(gmtime_key, pthread_key_t)

GET_STATIC_VAR_FROM_TLS(gmtime_mutex, pthread_mutex_t)

#define localtime_mutex (*GET_WSD_VAR_NAME(localtime_mutex, s)())

#define localtime_key (*GET_WSD_VAR_NAME(localtime_key, s)())

#define gmtime_mutex (*GET_WSD_VAR_NAME(gmtime_mutex, s)())

#define gmtime_key (*GET_WSD_VAR_NAME(gmtime_key, s)())

#endif //EMULATOR

#endif //__SYMBIAN32__

#if !defined(__SYMBIAN32__) || defined(__SYMBIAN_COMPILE_UNUSED__)

static long

detzcode(codep)

const char * const	codep;

{

	long	result;

	int	i;

	result = (codep[0] & 0x80) ? ~0L : 0L;

	for (i = 0; i < 4; ++i)

		result = (result << 8) | (codep[i] & 0xff);

	return result;

}

#endif //if defined(__SYMBIAN32__) || defined (__SYMBIAN_COMPILE_UNUSED__)

static void

settzname(void)

{

	struct state * 	sp = lclptr;

	int			i;

	tzname[0] = wildabbr;

	tzname[1] = wildabbr;

#ifdef USG_COMPAT

	daylight = 0;

	timezone = 0;

#endif /* defined USG_COMPAT */

#ifdef ALTZONE

	altzone = 0;

#endif /* defined ALTZONE */

#ifdef ALL_STATE

	if (sp == NULL) {

		tzname[0] = tzname[1] = gmt;

		return;

	}

#endif /* defined ALL_STATE */

	for (i = 0; i < sp->typecnt; ++i) {

		const struct ttinfo * const	ttisp = &sp->ttis[i];

		tzname[ttisp->tt_isdst] =

			&sp->chars[ttisp->tt_abbrind];

#ifdef USG_COMPAT

		if (ttisp->tt_isdst)

			daylight = 1;

		if (i == 0 || !ttisp->tt_isdst)

			timezone = -(ttisp->tt_gmtoff);

#endif /* defined USG_COMPAT */

#ifdef ALTZONE

		if (i == 0 || ttisp->tt_isdst)

			altzone = -(ttisp->tt_gmtoff);

#endif /* defined ALTZONE */

	}

	/*

	** And to get the latest zone names into tzname. . .

	*/

	for (i = 0; i < sp->timecnt; ++i) {

		const struct ttinfo * const	ttisp =

							&sp->ttis[

								sp->types[i]];

		tzname[ttisp->tt_isdst] =

			&sp->chars[ttisp->tt_abbrind];

	}

}

static int

tzload(name, sp)

const char *		name;

struct state * const	sp;

{

#ifndef __SYMBIAN32__

	const char *	p;

	int		i;

	int		fid;

#else//__SYMBIAN32__	

	if(sp) { }//dummy implementation

#endif//__SYMBIAN32__

	/* XXX The following is from OpenBSD, and I'm not sure it is correct */

	if (name != NULL && issetugid() != 0)

		if ((name[0] == ':' && name[1] == '/') || 

		    name[0] == '/' || strchr(name, '.'))

			name = NULL;

	if (name == NULL && (name = TZDEFAULT) == NULL)

		return -1;

	#ifdef __SYMBIAN32__

		return -1; //We are doing this for the simple reason that these files

				   //do not exist in the Symbian environment and we really dont

				   //need to try accessing them

	#else //__SYMBIAN32__

	{

		int	doaccess;

		struct stat	stab;

		/*

		** Section 4.9.1 of the C standard says that

		** "FILENAME_MAX expands to an integral constant expression

		** that is the size needed for an array of char large enough

		** to hold the longest file name string that the implementation

		** guarantees can be opened."

		*/

		char		fullname[FILENAME_MAX + 1];

		if (name[0] == ':')

			++name;

		doaccess = name[0] == '/';

		if (!doaccess) {

			if ((p = TZDIR) == NULL)

				return -1;

			if ((strlen(p) + 1 + strlen(name) + 1) >= sizeof fullname)

				return -1;

			(void) strcpy(fullname, p);

			(void) strcat(fullname, "/");

			(void) strcat(fullname, name);

			/*

			** Set doaccess if '.' (as in "../") shows up in name.

			*/

			if (strchr(name, '.') != NULL)

				doaccess = TRUE;