xref: /titanic_41/usr/src/cmd/cal/cal.c (revision 7c478bd95313f5f23a4c958a745db2134aa03244)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
28 /*	  All Rights Reserved  	*/
29 
30 
31 #pragma ident	"%Z%%M%	%I%	%E% SMI"
32 
33 #include <langinfo.h>
34 #include <locale.h>
35 #include <nl_types.h>
36 #include <stdio.h>
37 #include <stdlib.h>
38 #include <time.h>
39 
40 static int number(char *);
41 static int jan1(const int);
42 static void badmonth(void);
43 static void badyear(void);
44 static void usage(void);
45 static void cal(const int, const int, char *, const int);
46 static void load_months(void);
47 static void pstr(char *, const int);
48 
49 #define	DAYW	" S  M Tu  W Th  F  S"
50 #define	TITLE	"   %s %u\n"
51 #define	YEAR	"\n\n\n\t\t\t\t%u\n\n"
52 #define	MONTH	"\t%4.3s\t\t\t%.3s\t\t%10.3s\n"
53 
54 static char *months[] = {
55 	"January", "February", "March", "April",
56 	"May", "June", "July", "August",
57 	"September", "October", "November", "December",
58 };
59 
60 static char *short_months[] = {
61 	"Jan", "Feb", "Mar", "Apr",
62 	"May", "Jun", "Jul", "Aug",
63 	"Sep", "Oct", "Nov", "Dec",
64 };
65 
66 static char mon[] = {
67 	0,
68 	31, 29, 31, 30,
69 	31, 30, 31, 31,
70 	30, 31, 30, 31,
71 };
72 
73 static char *myname;
74 static char string[432];
75 static struct tm *thetime;
76 static time_t timbuf;
77 
78 int
main(int argc,char * argv[])79 main(int argc, char *argv[])
80 {
81 	int y, i, j;
82 	int m;
83 	char *time_locale;
84 	char	*ldayw;
85 
86 	myname = argv[0];
87 
88 	(void) setlocale(LC_ALL, "");
89 #if !defined(TEXT_DOMAIN)
90 #define	TEXT_DOMAIN	"SYS_TEST"
91 #endif
92 	(void) textdomain(TEXT_DOMAIN);
93 
94 
95 	while (getopt(argc, argv, "") != EOF)
96 		usage();
97 
98 	argc -= optind;
99 	argv  = &argv[optind];
100 
101 	time_locale = setlocale(LC_TIME, NULL);
102 	if ((time_locale[0] != 'C') || (time_locale[1] != '\0'))
103 		load_months();
104 
105 	/*
106 	 * TRANSLATION_NOTE
107 	 * This message is to be used for displaying
108 	 * the names of the seven days, from Sunday to Saturday.
109 	 * The length of the name of each one should be two or less.
110 	 */
111 	ldayw = dcgettext(NULL, DAYW, LC_TIME);
112 
113 	switch (argc) {
114 	case 0:
115 		timbuf = time(&timbuf);
116 		thetime = localtime(&timbuf);
117 		m = thetime->tm_mon + 1;
118 		y = thetime->tm_year + 1900;
119 		break;
120 	case 1:
121 		goto xlong;
122 	case 2:
123 		m = number(argv[0]);
124 		y = number(argv[1]);
125 		break;
126 	default:
127 		usage();
128 	}
129 
130 /*
131  *	print out just month
132  */
133 
134 	if (m < 1 || m > 12)
135 		badmonth();
136 	if (y < 1 || y > 9999)
137 		badyear();
138 	/*
139 	 * TRANSLATION_NOTE
140 	 * This message is to be used for displaying
141 	 * specified month and year.
142 	 */
143 	(void) printf(dcgettext(NULL, TITLE, LC_TIME), months[m-1], y);
144 	(void) printf("%s\n", ldayw);
145 	cal(m, y, string, 24);
146 	for (i = 0; i < 6*24; i += 24)
147 		pstr(string+i, 24);
148 	return (0);
149 
150 /*
151  *	print out complete year
152  */
153 
154 xlong:
155 	y = number(argv[0]);
156 	if (y < 1 || y > 9999)
157 		badyear();
158 	/*
159 	 * TRANSLATION_NOTE
160 	 * This message is to be used for displaying
161 	 * specified year.
162 	 */
163 	(void) printf(dcgettext(NULL, YEAR, LC_TIME), y);
164 	for (i = 0; i < 12; i += 3) {
165 		for (j = 0; j < 6*72; j++)
166 			string[j] = '\0';
167 		/*
168 		 * TRANSLATION_NOTE
169 		 * This message is to be used for displaying
170 		 * names of three months per a line and should be
171 		 * correctly translated according to the display width
172 		 * of the names of months.
173 		 */
174 		(void) printf(
175 			dcgettext(NULL, MONTH, LC_TIME),
176 			short_months[i], short_months[i+1], short_months[i+2]);
177 		(void) printf("%s   %s   %s\n", ldayw, ldayw, ldayw);
178 		cal(i+1, y, string, 72);
179 		cal(i+2, y, string+23, 72);
180 		cal(i+3, y, string+46, 72);
181 		for (j = 0; j < 6*72; j += 72)
182 			pstr(string+j, 72);
183 	}
184 	(void) printf("\n\n\n");
185 	return (0);
186 }
187 
188 static int
number(char * str)189 number(char *str)
190 {
191 	int n, c;
192 	char *s;
193 
194 	n = 0;
195 	s = str;
196 	/*LINTED*/
197 	while (c = *s++) {
198 		if (c < '0' || c > '9')
199 			return (0);
200 		n = n*10 + c-'0';
201 	}
202 	return (n);
203 }
204 
205 static void
pstr(char * str,const int n)206 pstr(char *str, const int n)
207 {
208 	int i;
209 	char *s;
210 
211 	s = str;
212 	i = n;
213 	while (i--)
214 		if (*s++ == '\0')
215 			s[-1] = ' ';
216 	i = n+1;
217 	while (i--)
218 		if (*--s != ' ')
219 			break;
220 	s[1] = '\0';
221 	(void) printf("%s\n", str);
222 }
223 
224 static void
cal(const int m,const int y,char * p,const int w)225 cal(const int m, const int y, char *p, const int w)
226 {
227 	int d, i;
228 	char *s;
229 
230 	s = (char *)p;
231 	d = jan1(y);
232 	mon[2] = 29;
233 	mon[9] = 30;
234 
235 	switch ((jan1(y+1)+7-d)%7) {
236 
237 	/*
238 	 *	non-leap year
239 	 */
240 	case 1:
241 		mon[2] = 28;
242 		break;
243 
244 	/*
245 	 *	1752
246 	 */
247 	default:
248 		mon[9] = 19;
249 		break;
250 
251 	/*
252 	 *	leap year
253 	 */
254 	case 2:
255 		;
256 	}
257 	for (i = 1; i < m; i++)
258 		d += mon[i];
259 	d %= 7;
260 	s += 3*d;
261 	for (i = 1; i <= mon[m]; i++) {
262 		if (i == 3 && mon[m] == 19) {
263 			i += 11;
264 			mon[m] += 11;
265 		}
266 		if (i > 9)
267 			*s = i/10+'0';
268 		s++;
269 		*s++ = i%10+'0';
270 		s++;
271 		if (++d == 7) {
272 			d = 0;
273 			s = p+w;
274 			p = s;
275 		}
276 	}
277 }
278 
279 /*
280  *	return day of the week
281  *	of jan 1 of given year
282  */
283 
284 static int
jan1(const int yr)285 jan1(const int yr)
286 {
287 	int y, d;
288 
289 /*
290  *	normal gregorian calendar
291  *	one extra day per four years
292  */
293 
294 	y = yr;
295 	d = 4+y+(y+3)/4;
296 
297 /*
298  *	julian calendar
299  *	regular gregorian
300  *	less three days per 400
301  */
302 
303 	if (y > 1800) {
304 		d -= (y-1701)/100;
305 		d += (y-1601)/400;
306 	}
307 
308 /*
309  *	great calendar changeover instant
310  */
311 
312 	if (y > 1752)
313 		d += 3;
314 
315 	return (d%7);
316 }
317 
318 static void
load_months(void)319 load_months(void)
320 {
321 	int month;
322 
323 	for (month = MON_1; month <= MON_12; month++)
324 		months[month - MON_1] = nl_langinfo(month);
325 	for (month = ABMON_1; month <= ABMON_12; month++)
326 		short_months[month - ABMON_1] = nl_langinfo(month);
327 }
328 
329 static void
badmonth()330 badmonth()
331 {
332 	(void) fprintf(stderr, gettext("%s: bad month\n"), myname);
333 	usage();
334 }
335 
336 static void
badyear()337 badyear()
338 {
339 	(void) fprintf(stderr, gettext("%s: bad year\n"), myname);
340 	usage();
341 }
342 
343 static void
usage(void)344 usage(void)
345 {
346 	(void) fprintf(stderr, gettext("usage: %s [ [month] year ]\n"), myname);
347 	exit(1);
348 }
349