ttisstdcnt = (int) detzcode(u.tzhead.tzh_ttisgmtcnt); ttisgmtcnt = (int) detzcode(u.tzhead.tzh_ttisstdcnt);
ttisstdcnt = (int) detzcode(u.tzhead.tzh_ttisstdcnt); ttisgmtcnt = (int) detzcode(u.tzhead.tzh_ttisgmtcnt);
static const char *	getrule P((const char * strp, struct rule * rulep));static void		gmtload P((struct state * sp));static void		gmtsub P((const time_t * timep, long offset,				struct tm * tmp));static void		localsub P((const time_t * timep, long offset,				struct tm * tmp));static int		increment_overflow P((int * number, int delta));static int		normalize_overflow P((int * tensptr, int * unitsptr,				int base));static void		settzname P((void));static time_t		time1 P((struct tm * tmp,				void(*funcp) P((const time_t *,				long, struct tm *)),				long offset));static time_t		time2 P((struct tm *tmp,				void(*funcp) P((const time_t *,				long, struct tm*)),				long offset, int * okayp));static time_t		time2sub P((struct tm *tmp,				void(*funcp) P((const time_t *,				long, struct tm*)),				long offset, int * okayp, int do_norm_secs));static void		timesub P((const time_t * timep, long offset,				const struct state * sp, struct tm * tmp));static int		tmcomp P((const struct tm * atmp,				const struct tm * btmp));static time_t		transtime P((time_t janfirst, int year,				const struct rule * rulep, long offset));static int		tzload P((const char * name, struct state * sp));static int		tzparse P((const char * name, struct state * sp,				int lastditch));#ifdef ALL_STATEstatic struct state *	lclptr;static struct state *	gmtptr;#endif /* defined ALL_STATE */#ifndef ALL_STATEstatic struct state	lclmem;static struct state	gmtmem;#define lclptr		(&lclmem)#define gmtptr		(&gmtmem)#endif /* State Farm */#ifndef TZ_STRLEN_MAX#define TZ_STRLEN_MAX 255#endif /* !defined TZ_STRLEN_MAX */static char		lcl_TZname[TZ_STRLEN_MAX + 1];static int		lcl_is_set;static int		gmt_is_set;_THREAD_PRIVATE_MUTEX(lcl);_THREAD_PRIVATE_MUTEX(gmt);char *			tzname[2] = {	wildabbr,	wildabbr};/*** 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.*/static struct tm	tm;#ifdef USG_COMPATtime_t			timezone = 0;int			daylight = 0;#endif /* defined USG_COMPAT */#ifdef ALTZONEtime_t			altzone = 0;#endif /* defined ALTZONE */static longdetzcode(codep)const char * const	codep;{	register long	result;	register int	i;	result = (codep[0] & 0x80) ? ~0L : 0L;	for (i = 0; i < 4; ++i)		result = (result << 8) | (codep[i] & 0xff);	return result;}static voidsettzname P((void)){	register struct state * const	sp = lclptr;	register 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) {		register 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) {		register const struct ttinfo * const	ttisp =							&sp->ttis[								sp->types[i]];		tzname[ttisp->tt_isdst] =			&sp->chars[ttisp->tt_abbrind];	}}static inttzload(name, sp)register const char *		name;register struct state * const	sp;{	register const char *	p;	register int		i;	register int		fid;	if (name != NULL && issetugid() != 0)		if ((name[0] == ':' && (strchr(name, '/') || strstr(name, ".."))) ||		    name[0] == '/' || strchr(name, '.'))			name = NULL;	if (name == NULL && (name = TZDEFAULT) == NULL)		return -1;	{		register int	doaccess;		/*		** 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];		if (name[0] == ':')			++name;		doaccess = name[0] == '/';		if (!doaccess) {			if ((p = TZDIR) == NULL)				return -1;			if ((strlen(p) + strlen(name) + 1) >= sizeof fullname)				return -1;			(void) strlcpy(fullname, p, sizeof fullname);			(void) strlcat(fullname, "/", sizeof fullname);			(void) strlcat(fullname, name, sizeof fullname);			/*			** Set doaccess if '.' (as in "../") shows up in name.			*/			if (strchr(name, '.') != NULL)				doaccess = TRUE;			name = fullname;		}		if (doaccess && access(name, R_OK) != 0)			return -1;		if ((fid = open(name, OPEN_MODE)) == -1)			return -1;	}	{		struct tzhead *	tzhp;		union {			struct tzhead	tzhead;			char		buf[sizeof *sp + sizeof *tzhp];		} u;		int		ttisstdcnt;		int		ttisgmtcnt;		i = read(fid, u.buf, sizeof u.buf);		if (close(fid) != 0)			return -1;		ttisstdcnt = (int) detzcode(u.tzhead.tzh_ttisgmtcnt);		ttisgmtcnt = (int) detzcode(u.tzhead.tzh_ttisstdcnt);		sp->leapcnt = (int) detzcode(u.tzhead.tzh_leapcnt);		sp->timecnt = (int) detzcode(u.tzhead.tzh_timecnt);		sp->typecnt = (int) detzcode(u.tzhead.tzh_typecnt);		sp->charcnt = (int) detzcode(u.tzhead.tzh_charcnt);		p = u.tzhead.tzh_charcnt + sizeof u.tzhead.tzh_charcnt;		if (sp->leapcnt < 0 || sp->leapcnt > TZ_MAX_LEAPS ||			sp->typecnt <= 0 || sp->typecnt > TZ_MAX_TYPES ||			sp->timecnt < 0 || sp->timecnt > TZ_MAX_TIMES ||			sp->charcnt < 0 || sp->charcnt > TZ_MAX_CHARS ||			(ttisstdcnt != sp->typecnt && ttisstdcnt != 0) ||			(ttisgmtcnt != sp->typecnt && ttisgmtcnt != 0))				return -1;		if (i - (p - u.buf) < sp->timecnt * 4 +	/* ats */			sp->timecnt +			/* types */			sp->typecnt * (4 + 2) +		/* ttinfos */			sp->charcnt +			/* chars */			sp->leapcnt * (4 + 4) +		/* lsinfos */			ttisstdcnt +			/* ttisstds */			ttisgmtcnt)			/* ttisgmts */				return -1;		for (i = 0; i < sp->timecnt; ++i) {			sp->ats[i] = detzcode(p);			p += 4;		}		for (i = 0; i < sp->timecnt; ++i) {			sp->types[i] = (unsigned char) *p++;			if (sp->types[i] >= sp->typecnt)				return -1;		}		for (i = 0; i < sp->typecnt; ++i) {			register struct ttinfo *	ttisp;			ttisp = &sp->ttis[i];			ttisp->tt_gmtoff = detzcode(p);			p += 4;			ttisp->tt_isdst = (unsigned char) *p++;			if (ttisp->tt_isdst != 0 && ttisp->tt_isdst != 1)				return -1;			ttisp->tt_abbrind = (unsigned char) *p++;			if (ttisp->tt_abbrind < 0 ||				ttisp->tt_abbrind > sp->charcnt)					return -1;		}		for (i = 0; i < sp->charcnt; ++i)			sp->chars[i] = *p++;		sp->chars[i] = '\0';	/* ensure '\0' at end */		for (i = 0; i < sp->leapcnt; ++i) {			register struct lsinfo *	lsisp;			lsisp = &sp->lsis[i];			lsisp->ls_trans = detzcode(p);			p += 4;			lsisp->ls_corr = detzcode(p);			p += 4;		}		for (i = 0; i < sp->typecnt; ++i) {			register struct ttinfo *	ttisp;			ttisp = &sp->ttis[i];			if (ttisstdcnt == 0)				ttisp->tt_ttisstd = FALSE;			else {				ttisp->tt_ttisstd = *p++;				if (ttisp->tt_ttisstd != TRUE &&					ttisp->tt_ttisstd != FALSE)						return -1;			}		}		for (i = 0; i < sp->typecnt; ++i) {			register struct ttinfo *	ttisp;			ttisp = &sp->ttis[i];			if (ttisgmtcnt == 0)				ttisp->tt_ttisgmt = FALSE;			else {				ttisp->tt_ttisgmt = *p++;				if (ttisp->tt_ttisgmt != TRUE &&					ttisp->tt_ttisgmt != FALSE)						return -1;			}		}	}	return 0;}static const int	mon_lengths[2][MONSPERYEAR] = {	{ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },	{ 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }};static const int	year_lengths[2] = {	DAYSPERNYEAR, DAYSPERLYEAR};/*** Given a pointer into a time zone string, scan until a character that is not** a valid character in a zone name is found.  Return a pointer to that** character.*/static const char *getzname(strp)register const char *	strp;{	register char	c;	while ((c = *strp) != '\0' && !is_digit(c) && c != ',' && c != '-' &&		c != '+')			++strp;	return strp;}/*** Given a pointer into a time zone string, extract a number from that string.** Check that the number is within a specified range; if it is not, return** NULL.** Otherwise, return a pointer to the first character not part of the number.*/static const char *getnum(strp, nump, min, max)register const char *	strp;int * const		nump;const int		min;const int		max;{	register char	c;	register int	num;	if (strp == NULL || !is_digit(c = *strp))		return NULL;	num = 0;	do {		num = num * 10 + (c - '0');		if (num > max)			return NULL;	/* illegal value */		c = *++strp;	} while (is_digit(c));	if (num < min)		return NULL;		/* illegal value */	*nump = num;	return strp;}/*** Given a pointer into a time zone string, extract a number of seconds,** in hh[:mm[:ss]] form, from the string.** If any error occurs, return NULL.** Otherwise, return a pointer to the first character not part of the number** of seconds.*/static const char *getsecs(strp, secsp)register const char *	strp;long * const		secsp;{	int	num;	/*	** `HOURSPERDAY * DAYSPERWEEK - 1' allows quasi-Posix rules like	** "M10.4.6/26", which does not conform to Posix,	** but which specifies the equivalent of	** ``02:00 on the first Sunday on or after 23 Oct''.	*/	strp = getnum(strp, &num, 0, HOURSPERDAY * DAYSPERWEEK - 1);	if (strp == NULL)		return NULL;	*secsp = num * (long) SECSPERHOUR;	if (*strp == ':') {		++strp;		strp = getnum(strp, &num, 0, MINSPERHOUR - 1);		if (strp == NULL)			return NULL;		*secsp += num * SECSPERMIN;		if (*strp == ':') {			++strp;			/* `SECSPERMIN' allows for leap seconds.  */			strp = getnum(strp, &num, 0, SECSPERMIN);			if (strp == NULL)				return NULL;			*secsp += num;		}	}	return strp;}/*** Given a pointer into a time zone string, extract an offset, in** [+-]hh[:mm[:ss]] form, from the string.** If any error occurs, return NULL.** Otherwise, return a pointer to the first character not part of the time.*/static const char *getoffset(strp, offsetp)register const char *	strp;long * const		offsetp;{	register int	neg = 0;	if (*strp == '-') {		neg = 1;		++strp;	} else if (*strp == '+')		++strp;	strp = getsecs(strp, offsetp);	if (strp == NULL)		return NULL;		/* illegal time */	if (neg)		*offsetp = -*offsetp;	return strp;}/*** Given a pointer into a time zone string, extract a rule in the form** date[/time].  See POSIX section 8 for the format of "date" and "time".** If a valid rule is not found, return NULL.** Otherwise, return a pointer to the first character not part of the rule.*/static const char *getrule(strp, rulep)const char *			strp;register struct rule * const	rulep;{	if (*strp == 'J') {		/*		** Julian day.		*/		rulep->r_type = JULIAN_DAY;		++strp;		strp = getnum(strp, &rulep->r_day, 1, DAYSPERNYEAR);	} else if (*strp == 'M') {		/*		** Month, week, day.		*/		rulep->r_type = MONTH_NTH_DAY_OF_WEEK;		++strp;		strp = getnum(strp, &rulep->r_mon, 1, MONSPERYEAR);		if (strp == NULL)			return NULL;		if (*strp++ != '.')			return NULL;		strp = getnum(strp, &rulep->r_week, 1, 5);		if (strp == NULL)			return NULL;		if (*strp++ != '.')			return NULL;		strp = getnum(strp, &rulep->r_day, 0, DAYSPERWEEK - 1);	} else if (is_digit(*strp)) {		/*		** Day of year.		*/		rulep->r_type = DAY_OF_YEAR;		strp = getnum(strp, &rulep->r_day, 0, DAYSPERLYEAR - 1);	} else	return NULL;		/* invalid format */	if (strp == NULL)		return NULL;	if (*strp == '/') {		/*		** Time specified.		*/		++strp;		strp = getsecs(strp, &rulep->r_time);	} else	rulep->r_time = 2 * SECSPERHOUR;	/* default = 2:00:00 */	return strp;}