tzset_basic P((void))
tzset P((void))
tzset_basic P((void)){	register const char *	name;	name = getenv("TZ");	if (name == NULL) {		tzsetwall_basic();		return;	}	if (lcl_is_set > 0 && strcmp(lcl_TZname, name) == 0)		return;	lcl_is_set = strlen(name) < sizeof lcl_TZname;	if (lcl_is_set)		(void) strlcpy(lcl_TZname, name, sizeof lcl_TZname);#ifdef ALL_STATE	if (lclptr == NULL) {		lclptr = (struct state *) malloc(sizeof *lclptr);		if (lclptr == NULL) {			settzname();	/* all we can do */			return;		}	}#endif /* defined ALL_STATE */	if (*name == '\0') {		/*		** User wants it fast rather than right.		*/		lclptr->leapcnt = 0;		/* so, we're off a little */		lclptr->timecnt = 0;		lclptr->typecnt = 0;		lclptr->ttis[0].tt_isdst = 0;		lclptr->ttis[0].tt_gmtoff = 0;		lclptr->ttis[0].tt_abbrind = 0;		(void) strlcpy(lclptr->chars, gmt, sizeof lclptr->chars);	} else if (tzload(name, lclptr) != 0)		if (name[0] == ':' || tzparse(name, lclptr, FALSE) != 0)			(void) gmtload(lclptr);	settzname();}