[unix-history] / usr / src / cmd / date.c

/*
 * date : print date
 * date YYMMDDHHMM[.SS] : set date, if allowed
 * date -u ... : date in GMT
 */
#include <time.h>
#include <sys/types.h>
#include <sys/timeb.h>
#include <utmp.h>
long	timbuf;
char	*ap, *ep, *sp;
int	uflag;

char	*timezone();
static	int	dmsize[12] =
{
	31,
	28,
	31,
	30,
	31,
	30,
	31,
	31,
	30,
	31,
	30,
	31
};

struct utmp wtmp[2] = { {"|", "", 0}, {"{", "", 0}};

char	*ctime();
char	*asctime();
struct	tm *localtime();
struct	tm *gmtime();

main(argc, argv)
char *argv[];
{
	register char *tzn;
	struct timeb info;
	int wf, rc;

	rc = 0;
	ftime(&info);
	if (argc>1 && argv[1][0]=='-' && argv[1][1]=='u') {
		argc--;
		argv++;
		uflag++;
	}
	if(argc > 1) {
		ap = argv[1];
		if (gtime()) {
			printf("date: bad conversion\n");
			exit(1);
		}
		/* convert to GMT assuming local time */
		if (uflag==0) {
			timbuf += (long)info.timezone*60;
			/* now fix up local daylight time */
			if(localtime(&timbuf)->tm_isdst)
				timbuf -= 60*60;
		}
		time(&wtmp[0].ut_time);
		if(stime(&timbuf) < 0) {
			rc++;
			printf("date: no permission\n");
		} else if ((wf = open("/usr/adm/wtmp", 1)) >= 0) {
			time(&wtmp[1].ut_time);
			lseek(wf, 0L, 2);
			write(wf, (char *)wtmp, sizeof(wtmp));
			close(wf);
		}
	}
	if (rc==0)
		time(&timbuf);
	if(uflag) {
		ap = asctime(gmtime(&timbuf));
		tzn = "GMT";
	} else {
		struct tm *tp;
		tp = localtime(&timbuf);
		ap = asctime(tp);
		tzn = timezone(info.timezone, tp->tm_isdst);
	}
	printf("%.20s", ap);
	if (tzn)
		printf("%s", tzn);
	printf("%s", ap+19);
	exit(rc);
}

gtime()
{
	register int i, year, month;
	int day, hour, mins, secs;
	struct tm *L;
	char x;

	ep=ap;
	while(*ep) ep++;
	sp=ap;
	while(sp<ep) {
		x = *sp;
		*sp++ = *--ep;
		*ep = x;
	}
	sp=ap;
	time(&timbuf);
	L=localtime(&timbuf);
	secs = gp(-1);
	if(*sp!='.') {
		mins=secs;
		secs=0;
	} else {sp++;
		mins = gp(-1);
	}
	hour = gp(-1);
	day = gp(L->tm_mday);
	month = gp(L->tm_mon+1);
	year = gp(L->tm_year);
	if(*sp)
		return(1);
	if( month<1 || month>12 ||
	    day<1 || day>31 ||
	    mins<0 || mins>59 ||
	    secs<0 || secs>59)
		return(1);
	if (hour==24) {
		hour=0; day++;
	}
	if (hour<0 || hour>23)
		return(1);
	timbuf = 0;
	year += 1900;
	for(i=1970; i<year; i++)
		timbuf += dysize(i);
	/* Leap year */
	if (dysize(year)==366 && month >= 3)
		timbuf++;
	while(--month)
		timbuf += dmsize[month-1];
	timbuf += day-1;
	timbuf = 24*timbuf + hour;
	timbuf = 60*timbuf + mins;
	timbuf = 60*timbuf + secs;
	return(0);

}

gp(dfault)
{
	register int c, d;

	if(*sp==0)
		return(dfault);
	c = (*sp++)-'0';
	d = (*sp ? (*sp++)-'0' : 0);
	if(c<0 || c>9 || d<0 || d>9)
		return(-1);
	return(c+10*d);
}
Commit	Line	Data
a394cbfd DR	1	/*
	2	* date : print date
	3	* date YYMMDDHHMM[.SS] : set date, if allowed
	4	* date -u ... : date in GMT
	5	*/
	6	#include <time.h>
	7	#include <sys/types.h>
	8	#include <sys/timeb.h>
	9	#include <utmp.h>
	10	long timbuf;
	11	char ap, ep, *sp;
	12	int uflag;
	13
	14	char *timezone();
	15	static int dmsize[12] =
	16	{
	17	31,
	18	28,
	19	31,
	20	30,
	21	31,
	22	30,
	23	31,
	24	31,
	25	30,
	26	31,
	27	30,
	28	31
	29	};
	30
	31	struct utmp wtmp[2] = { {"\|", "", 0}, {"{", "", 0}};
	32
	33	char *ctime();
	34	char *asctime();
	35	struct tm *localtime();
	36	struct tm *gmtime();
	37
	38	main(argc, argv)
	39	char *argv[];
	40	{
	41	register char *tzn;
	42	struct timeb info;
	43	int wf, rc;
	44
	45	rc = 0;
	46	ftime(&info);
	47	if (argc>1 && argv[1][0]=='-' && argv[1][1]=='u') {
	48	argc--;
	49	argv++;
	50	uflag++;
	51	}
	52	if(argc > 1) {
	53	ap = argv[1];
	54	if (gtime()) {
	55	printf("date: bad conversion\n");
	56	exit(1);
	57	}
	58	/* convert to GMT assuming local time */
	59	if (uflag==0) {
	60	timbuf += (long)info.timezone*60;
	61	/* now fix up local daylight time */
	62	if(localtime(&timbuf)->tm_isdst)
	63	timbuf -= 60*60;
	64	}
65	time(&wtmp[0].ut_time);
66	if(stime(&timbuf) < 0) {
67	rc++;
68	printf("date: no permission\n");
69	} else if ((wf = open("/usr/adm/wtmp", 1)) >= 0) {
70	time(&wtmp[1].ut_time);
71	lseek(wf, 0L, 2);
72	write(wf, (char *)wtmp, sizeof(wtmp));
73	close(wf);
74	}
75	}
76	if (rc==0)
77	time(&timbuf);
78	if(uflag) {
79	ap = asctime(gmtime(&timbuf));
80	tzn = "GMT";
81	} else {
82	struct tm *tp;
83	tp = localtime(&timbuf);
84	ap = asctime(tp);
85	tzn = timezone(info.timezone, tp->tm_isdst);
86	}
87	printf("%.20s", ap);
88	if (tzn)
89	printf("%s", tzn);
90	printf("%s", ap+19);
91	exit(rc);
92	}
93
94	gtime()
95	{
96	register int i, year, month;
97	int day, hour, mins, secs;
98	struct tm *L;
99	char x;
100
101	ep=ap;
102	while(*ep) ep++;
103	sp=ap;
104	while(sp<ep) {
105	x = *sp;
106	sp++ = --ep;
107	*ep = x;
108	}
109	sp=ap;
110	time(&timbuf);
111	L=localtime(&timbuf);
112	secs = gp(-1);
113	if(*sp!='.') {
114	mins=secs;
115	secs=0;
116	} else {sp++;
117	mins = gp(-1);
118	}
119	hour = gp(-1);
120	day = gp(L->tm_mday);
121	month = gp(L->tm_mon+1);
122	year = gp(L->tm_year);
123	if(*sp)
124	return(1);
125	if( month<1 \|\| month>12 \|\|
126	day<1 \|\| day>31 \|\|
127	mins<0 \|\| mins>59 \|\|
128	secs<0 \|\| secs>59)
129	return(1);
130	if (hour==24) {
131	hour=0; day++;
132	}
133	if (hour<0 \|\| hour>23)
134	return(1);
135	timbuf = 0;
136	year += 1900;
137	for(i=1970; i<year; i++)
138	timbuf += dysize(i);
139	/* Leap year */
140	if (dysize(year)==366 && month >= 3)
141	timbuf++;
142	while(--month)
143	timbuf += dmsize[month-1];
144	timbuf += day-1;
145	timbuf = 24*timbuf + hour;
146	timbuf = 60*timbuf + mins;
147	timbuf = 60*timbuf + secs;
148	return(0);
149
150	}
151
152	gp(dfault)
153	{
154	register int c, d;
155
156	if(*sp==0)
157	return(dfault);
158	c = (*sp++)-'0';
159	d = (sp ? (sp++)-'0' : 0);
160	if(c<0 \|\| c>9 \|\| d<0 \|\| d>9)
161	return(-1);
162	return(c+10*d);
163	}