2 * Copyright (c) 1997 Wolfgang Helbig
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * $FreeBSD: src/usr.bin/ncal/ncal.c,v 1.11.2.3 2002/10/23 08:10:00 roam Exp $
27 * $DragonFly: src/usr.bin/ncal/ncal.c,v 1.2 2003/06/17 04:29:29 dillon Exp $
42 #undef lines /* term.h defines this */
44 /* Width of one month with backward compatibility */
45 #define MONTH_WIDTH_B_J 27
46 #define MONTH_WIDTH_B 20
48 #define MONTH_WIDTH_J 24
49 #define MONTH_WIDTH 18
53 typedef struct date date
;
56 char name
[MAX_WIDTH
+ 1];
57 char lines
[7][MAX_WIDTH
+ 1];
58 char weeks
[MAX_WIDTH
+ 1];
65 /* The switches from Julian to Gregorian in some countries */
66 static struct djswitch
{
67 char *cc
; /* Country code according to ISO 3166 */
68 char *nm
; /* Name of country */
69 date dt
; /* Last day of Julian calendar */
71 {"AL", "Albania", {1912, 11, 30}},
72 {"AT", "Austria", {1583, 10, 5}},
73 {"AU", "Australia", {1752, 9, 2}},
74 {"BE", "Belgium", {1582, 12, 14}},
75 {"BG", "Bulgaria", {1916, 3, 18}},
76 {"CA", "Canada", {1752, 9, 2}},
77 {"CH", "Switzerland", {1655, 2, 28}},
78 {"CN", "China", {1911, 12, 18}},
79 {"CZ", "Czech Republic",{1584, 1, 6}},
80 {"DE", "Germany", {1700, 2, 18}},
81 {"DK", "Denmark", {1700, 2, 18}},
82 {"ES", "Spain", {1582, 10, 4}},
83 {"FI", "Finland", {1753, 2, 17}},
84 {"FR", "France", {1582, 12, 9}},
85 {"GB", "United Kingdom",{1752, 9, 2}},
86 {"GR", "Greece", {1924, 3, 9}},
87 {"HU", "Hungary", {1587, 10, 21}},
88 {"IS", "Iceland", {1700, 11, 16}},
89 {"IT", "Italy", {1582, 10, 4}},
90 {"JP", "Japan", {1918, 12, 18}},
91 {"LI", "Lithuania", {1918, 2, 1}},
92 {"LN", "Latin", {9999, 05, 31}},
93 {"LU", "Luxembourg", {1582, 12, 14}},
94 {"LV", "Latvia", {1918, 2, 1}},
95 {"NL", "Netherlands", {1582, 12, 14}},
96 {"NO", "Norway", {1700, 2, 18}},
97 {"PL", "Poland", {1582, 10, 4}},
98 {"PT", "Portugal", {1582, 10, 4}},
99 {"RO", "Romania", {1919, 3, 31}},
100 {"RU", "Russia", {1918, 1, 31}},
101 {"SI", "Slovenia", {1919, 3, 4}},
102 {"SW", "Sweden", {1753, 2, 17}},
103 {"TR", "Turkey", {1926, 12, 18}},
104 {"US", "United States", {1752, 9, 2}},
105 {"YU", "Yugoslavia", {1919, 3, 4}}
108 struct djswitch
*dftswitch
=
109 switches
+ sizeof(switches
) / sizeof(struct djswitch
) - 2;
110 /* default switch (should be "US") */
112 /* Table used to print day of month and week numbers */
113 char daystr
[] = " 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15"
114 " 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31"
115 " 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47"
116 " 48 49 50 51 52 53";
118 /* Table used to print day of year and week numbers */
119 char jdaystr
[] = " 1 2 3 4 5 6 7 8 9"
120 " 10 11 12 13 14 15 16 17 18 19"
121 " 20 21 22 23 24 25 26 27 28 29"
122 " 30 31 32 33 34 35 36 37 38 39"
123 " 40 41 42 43 44 45 46 47 48 49"
124 " 50 51 52 53 54 55 56 57 58 59"
125 " 60 61 62 63 64 65 66 67 68 69"
126 " 70 71 72 73 74 75 76 77 78 79"
127 " 80 81 82 83 84 85 86 87 88 89"
128 " 90 91 92 93 94 95 96 97 98 99"
129 " 100 101 102 103 104 105 106 107 108 109"
130 " 110 111 112 113 114 115 116 117 118 119"
131 " 120 121 122 123 124 125 126 127 128 129"
132 " 130 131 132 133 134 135 136 137 138 139"
133 " 140 141 142 143 144 145 146 147 148 149"
134 " 150 151 152 153 154 155 156 157 158 159"
135 " 160 161 162 163 164 165 166 167 168 169"
136 " 170 171 172 173 174 175 176 177 178 179"
137 " 180 181 182 183 184 185 186 187 188 189"
138 " 190 191 192 193 194 195 196 197 198 199"
139 " 200 201 202 203 204 205 206 207 208 209"
140 " 210 211 212 213 214 215 216 217 218 219"
141 " 220 221 222 223 224 225 226 227 228 229"
142 " 230 231 232 233 234 235 236 237 238 239"
143 " 240 241 242 243 244 245 246 247 248 249"
144 " 250 251 252 253 254 255 256 257 258 259"
145 " 260 261 262 263 264 265 266 267 268 269"
146 " 270 271 272 273 274 275 276 277 278 279"
147 " 280 281 282 283 284 285 286 287 288 289"
148 " 290 291 292 293 294 295 296 297 298 299"
149 " 300 301 302 303 304 305 306 307 308 309"
150 " 310 311 312 313 314 315 316 317 318 319"
151 " 320 321 322 323 324 325 326 327 328 329"
152 " 330 331 332 333 334 335 336 337 338 339"
153 " 340 341 342 343 344 345 346 347 348 349"
154 " 350 351 352 353 354 355 356 357 358 359"
155 " 360 361 362 363 364 365 366";
157 int flag_weeks
; /* user wants number of week */
158 int nswitch
; /* user defined switch date */
159 int nswitchb
; /* switch date for backward compatibility */
160 const char *term_so
, *term_se
;
163 char *center(char *s
, char *t
, int w
);
164 void mkmonth(int year
, int month
, int jd_flag
, struct monthlines
* monthl
);
165 void mkmonthb(int year
, int month
, int jd_flag
, struct monthlines
* monthl
);
166 void mkweekdays(struct weekdays
* wds
);
167 int parsemonth(const char *s
);
169 void printeaster(int year
, int julian
, int orthodox
);
170 void printmonth(int year
, int month
, int jd_flag
);
171 void printmonthb(int year
, int month
, int jd_flag
);
172 void printyear(int year
, int jd_flag
);
173 void printyearb(int year
, int jd_flag
);
174 int firstday(int y
, int m
);
175 date
*sdate(int ndays
, struct date
* d
);
176 date
*sdateb(int ndays
, struct date
* d
);
177 int sndays(struct date
* d
);
178 int sndaysb(struct date
* d
);
179 static void usage(void);
180 int weekdayb(int nd
);
183 main(int argc
, char *argv
[])
185 struct djswitch
*p
, *q
; /* to search user defined switch date */
186 date never
= {10000, 1, 1}; /* outside valid range of dates */
187 date ukswitch
= {1752, 9, 2};/* switch date for Great Britain */
188 int ch
; /* holds the option character */
189 int m
= 0; /* month */
190 int y
= 0; /* year */
191 int flag_backward
= 0; /* user called cal--backward compat. */
192 int flag_hole_year
= 0; /* user wants the whole year */
193 int flag_julian_cal
= 0; /* user wants Julian Calendar */
194 int flag_julian_day
= 0; /* user wants the Julian day
196 int flag_orthodox
= 0; /* use wants Orthodox easter */
197 int flag_easter
= 0; /* use wants easter date */
198 char *cp
; /* character pointer */
199 char *locale
; /* locale to get country code */
200 char tbuf
[1024], cbuf
[512], *b
;
204 term_se
= term_so
= NULL
;
206 if (isatty(STDOUT_FILENO
) && tgetent(tbuf
, NULL
) == 1) {
207 date dt
; /* handy date */
210 term_so
= tgetstr("so", &b
);
211 term_se
= tgetstr("se", &b
);
214 dt
.y
= tm1
->tm_year
+ 1900;
215 dt
.m
= tm1
->tm_mon
+ 1;
218 today
= sndaysb(&dt
);
222 * Use locale to determine the country code,
223 * and use the country code to determine the default
224 * switchdate and date format from the switches table.
226 if ((locale
= setlocale(LC_ALL
, "")) == NULL
)
228 locale
= setlocale(LC_TIME
, NULL
);
229 if (locale
== NULL
||
230 strcmp(locale
, "C") == 0 ||
231 strcmp(locale
, "POSIX") == 0 ||
232 strcmp(locale
, "ASCII") == 0 ||
233 strcmp(locale
, "US-ASCII") == 0)
235 q
= switches
+ sizeof(switches
) / sizeof(struct djswitch
);
236 for (p
= switches
; p
!= q
; p
++)
237 if ((cp
= strstr(locale
, p
->cc
)) != NULL
&& *(cp
- 1) == '_')
240 nswitch
= ndaysj(&dftswitch
->dt
);
242 nswitch
= ndaysj(&p
->dt
);
248 * Get the filename portion of argv[0] and set flag_backward if
249 * this program is called "cal".
251 for (cp
= argv
[0]; *cp
; cp
++)
253 while (cp
>= argv
[0] && *cp
!= '/')
255 if (strcmp("cal", ++cp
) == 0)
258 /* Set the switch date to United Kingdom if backwards compatible */
260 nswitchb
= ndaysj(&ukswitch
);
262 while ((ch
= getopt(argc
, argv
, "Jejops:wy")) != -1)
267 nswitch
= ndaysj(&never
);
294 sizeof(switches
) / sizeof(struct djswitch
);
296 p
!= q
&& strcmp(p
->cc
, optarg
) != 0; p
++)
300 "%s: invalid country code", optarg
);
301 nswitch
= ndaysj(&(p
->dt
));
324 y
= tm
->tm_year
+ 1900;
332 m
= parsemonth(*argv
++);
335 "%s is neither a month number (1..12) nor a name",
340 if (y
< 1 || y
> 9999)
341 errx(EX_USAGE
, "year %d not in range 1..9999", y
);
350 printeaster(y
, flag_julian_cal
, flag_orthodox
);
351 else if (argc
== 1 || flag_hole_year
) {
353 printyearb(y
, flag_julian_day
);
355 printyear(y
, flag_julian_day
);
358 printmonthb(y
, m
, flag_julian_day
);
360 printmonth(y
, m
, flag_julian_day
);
369 fprintf(stderr
, "%s\n%s\n%s\n",
370 "usage: cal [-jy] [[month] year]",
371 " ncal [-Jjpwy] [-s country_code] [[month] year]",
372 " ncal [-Jeo] [year]");
376 /* print the assumed switches for all countries */
381 int n
; /* number of lines to print */
382 int m
; /* offset from left to right table entry on the same line */
384 #define FSTR "%c%s %-15s%4d-%02d-%02d"
385 #define DFLT(p) ((p) == dftswitch ? '*' : ' ')
386 #define FSTRARG(p) DFLT(p), (p)->cc, (p)->nm, (p)->dt.y, (p)->dt.m, (p)->dt.d
388 n
= sizeof(switches
) / sizeof(struct djswitch
);
391 for (p
= switches
; p
!= switches
+ n
; p
++)
392 printf(FSTR
" "FSTR
"\n", FSTRARG(p
), FSTRARG(p
+m
));
394 printf(FSTR
"\n", FSTRARG(p
));
397 /* print the date of easter sunday */
399 printeaster(int y
, int julian
, int orthodox
)
404 static int d_first
= -1;
407 d_first
= (*nl_langinfo(D_MD_ORDER
) == 'd');
408 /* force orthodox easter for years before 1583 */
420 memset(&tm
, 0, sizeof(tm
));
421 tm
.tm_year
= dt
.y
- 1900;
422 tm
.tm_mon
= dt
.m
- 1;
424 strftime(buf
, sizeof(buf
), d_first
? "%e %B %Y" : "%B %e %Y", &tm
);
429 printmonth(int y
, int m
, int jd_flag
)
431 struct monthlines month
;
435 mkmonth(y
, m
- 1, jd_flag
, &month
);
437 printf(" %s %d\n", month
.name
, y
);
438 for (i
= 0; i
!= 7; i
++)
439 printf("%.2s%s\n", wds
.names
[i
], month
.lines
[i
]);
441 printf(" %s\n", month
.weeks
);
445 printmonthb(int y
, int m
, int jd_flag
)
447 struct monthlines month
;
449 char s
[MAX_WIDTH
], t
[MAX_WIDTH
];
453 mkmonthb(y
, m
- 1, jd_flag
, &month
);
456 mw
= jd_flag
? MONTH_WIDTH_B_J
: MONTH_WIDTH_B
;
458 sprintf(s
, "%s %d", month
.name
, y
);
459 printf("%s\n", center(t
, s
, mw
));
462 printf(" %s %s %s %s %s %s %.2s\n", wds
.names
[6], wds
.names
[0],
463 wds
.names
[1], wds
.names
[2], wds
.names
[3],
464 wds
.names
[4], wds
.names
[5]);
466 printf("%s%s%s%s%s%s%.2s\n", wds
.names
[6], wds
.names
[0],
467 wds
.names
[1], wds
.names
[2], wds
.names
[3],
468 wds
.names
[4], wds
.names
[5]);
470 for (i
= 0; i
!= 6; i
++)
471 printf("%s\n", month
.lines
[i
]+1);
475 printyear(int y
, int jd_flag
)
477 struct monthlines year
[12];
484 for (i
= 0; i
!= 12; i
++)
485 mkmonth(y
, i
, jd_flag
, year
+ i
);
487 mpl
= jd_flag
? 3 : 4;
488 mw
= jd_flag
? MONTH_WIDTH_J
: MONTH_WIDTH
;
491 printf("%s\n", center(t
, s
, mpl
* mw
));
493 for (j
= 0; j
!= 12; j
+= mpl
) {
496 mw
, year
[j
+ 1].name
);
498 printf("%s\n", year
[j
+ 2].name
);
501 mw
, year
[j
+ 2].name
,
503 for (i
= 0; i
!= 7; i
++) {
507 year
[j
+ 1].lines
[i
]);
509 printf("%s\n", year
[j
+ 2].lines
[i
]);
512 year
[j
+ 2].lines
[i
],
513 year
[j
+ 3].lines
[i
]);
522 printf(" %s%s%s%-s\n",
532 printyearb(int y
, int jd_flag
)
534 struct monthlines year
[12];
541 for (i
= 0; i
!= 12; i
++)
542 mkmonthb(y
, i
, jd_flag
, year
+ i
);
544 mpl
= jd_flag
? 2 : 3;
545 mw
= jd_flag
? MONTH_WIDTH_B_J
: MONTH_WIDTH_B
;
548 printf("%s\n\n", center(t
, s
, mw
* mpl
+ mpl
));
550 for (j
= 0; j
!= 12; j
+= mpl
) {
551 printf("%-*s ", mw
, center(s
, year
[j
].name
, mw
));
553 printf("%s\n", center(s
, year
[j
+ 1].name
, mw
));
555 printf("%-*s %s\n", mw
,
556 center(s
, year
[j
+ 1].name
, mw
),
557 center(t
, year
[j
+ 2].name
, mw
));
560 printf(" %s %s %s %s %s %s %s "
561 " %s %s %s %s %s %s %.2s\n",
562 wds
.names
[6], wds
.names
[0], wds
.names
[1],
563 wds
.names
[2], wds
.names
[3], wds
.names
[4],
565 wds
.names
[6], wds
.names
[0], wds
.names
[1],
566 wds
.names
[2], wds
.names
[3], wds
.names
[4],
569 printf("%s%s%s%s%s%s%s "
571 "%s%s%s%s%s%s%.2s\n",
572 wds
.names
[6], wds
.names
[0], wds
.names
[1],
573 wds
.names
[2], wds
.names
[3], wds
.names
[4],
575 wds
.names
[6], wds
.names
[0], wds
.names
[1],
576 wds
.names
[2], wds
.names
[3], wds
.names
[4],
578 wds
.names
[6], wds
.names
[0], wds
.names
[1],
579 wds
.names
[2], wds
.names
[3], wds
.names
[4],
581 for (i
= 0; i
!= 6; i
++) {
585 year
[j
+ 1].lines
[i
]+1);
589 year
[j
+ 1].lines
[i
]+1,
590 year
[j
+ 2].lines
[i
]+1);
597 mkmonth(int y
, int m
, int jd_flag
, struct monthlines
*mlines
)
600 struct tm tm
; /* for strftime printing local names of
602 date dt
; /* handy date */
603 int dw
; /* width of numbers */
604 int first
; /* first day of month */
605 int firstm
; /* first day of first week of month */
606 int i
, j
, k
, l
; /* just indices */
607 int last
; /* the first day of next month */
608 int lastm
; /* first day of first week of next month */
609 int jan1
= 0; /* the first day of this year */
610 char *ds
; /* pointer to day strings (daystr or
613 /* Set name of month. */
614 memset(&tm
, 0, sizeof(tm
));
616 strftime(mlines
->name
, sizeof(mlines
->name
), "%OB", &tm
);
617 mlines
->name
[0] = toupper((unsigned char)mlines
->name
[0]);
620 * Set first and last to the day number of the first day of this
621 * month and the first day of next month respectively. Set jan1 to
622 * the day number of the first day of this year.
624 first
= firstday(y
, m
+ 1);
626 last
= firstday(y
+ 1, 1);
628 last
= firstday(y
, m
+ 2);
631 jan1
= firstday(y
, 1);
634 * Set firstm to the day number of monday of the first week of
635 * this month. (This might be in the last month)
636 * Set lastm to the day number of monday of the first week of
637 * the next month. Our canvas spans [firstm, lastm).
639 firstm
= first
- weekday(first
);
640 lastm
= last
+ 7 - weekday(last
);
642 /* Set ds (daystring) and dw (daywidth) according to the jd_flag */
652 * Fill the lines with day of month or day of year (julian day)
653 * line index: i, each line is one weekday. column index: j, each
654 * column is one day number. print column index: k.
656 for (i
= 0; i
!= 7; i
++) {
658 for (j
= firstm
+ i
, k
= 0; j
< lastm
; j
+= 7, k
+= dw
) {
659 if (j
>= first
&& j
< last
) {
664 if (j
== today
&& (term_so
!= NULL
&& term_se
!= NULL
)) {
667 mlines
->lines
[i
][k
] = ' ';
669 /* the actual text */
670 memcpy(mlines
->lines
[i
] + k
+ l
,
672 if (j
== today
&& (term_so
!= NULL
&& term_se
!= NULL
)) {
674 memcpy(mlines
->lines
[i
] + k
+ 1, term_so
, l
);
676 memcpy(mlines
->lines
[i
] + k
+ l
+ dw
, term_se
,
678 l
= strlen(term_se
) + strlen(term_so
);
681 memcpy(mlines
->lines
[i
] + k
+ l
, " ", dw
);
683 mlines
->lines
[i
][k
+ l
] = '\0';
687 /* fill the weeknumbers */
689 for (j
= firstm
, k
= 0; j
< lastm
; k
+= dw
, j
+= 7)
690 if (j
<= nswitch
|| j
>= last
)
691 memset(mlines
->weeks
+ k
, ' ', dw
);
693 memcpy(mlines
->weeks
+ k
,
694 ds
+ week(j
, &i
)*dw
, dw
);
695 mlines
->weeks
[k
] = '\0';
700 mkmonthb(int y
, int m
, int jd_flag
, struct monthlines
*mlines
)
703 struct tm tm
; /* for strftime printing local names of
705 date dt
; /* handy date */
706 int dw
; /* width of numbers */
707 int first
; /* first day of month */
708 int firsts
; /* sunday of first week of month */
709 int i
, j
, k
, l
; /* just indices */
710 int jan1
= 0; /* the first day of this year */
711 int last
; /* the first day of next month */
712 int lasts
; /* sunday of first week of next month */
713 char *ds
; /* pointer to day strings (daystr or
716 /* Set ds (daystring) and dw (daywidth) according to the jd_flag */
725 /* Set name of month centered */
726 memset(&tm
, 0, sizeof(tm
));
728 strftime(mlines
->name
, sizeof(mlines
->name
), "%OB", &tm
);
729 mlines
->name
[0] = toupper((unsigned char)mlines
->name
[0]);
732 * Set first and last to the day number of the first day of this
733 * month and the first day of next month respectively. Set jan1 to
734 * the day number of Jan 1st of this year.
739 first
= sndaysb(&dt
);
759 * Set firsts to the day number of sunday of the first week of
760 * this month. (This might be in the last month)
761 * Set lasts to the day number of sunday of the first week of
762 * the next month. Our canvas spans [firsts, lasts).
764 firsts
= first
- (weekday(first
)+1) % 7;
765 lasts
= last
+ 7 - (weekday(last
)+1) % 7;
768 * Fill the lines with day of month or day of year (Julian day)
769 * line index: i, each line is one week. column index: j, each
770 * column is one day number. print column index: k.
772 for (i
= 0; i
!= 6; i
++) {
774 for (j
= firsts
+ 7 * i
, k
= 0; j
< lasts
&& k
!= dw
* 7;
776 if (j
>= first
&& j
< last
) {
781 if (j
== today
&& (term_so
!= NULL
&& term_se
!= NULL
)) {
784 mlines
->lines
[i
][k
] = ' ';
786 /* the actual text */
787 memcpy(mlines
->lines
[i
] + k
+ l
,
789 if (j
== today
&& (term_so
!= NULL
&& term_se
!= NULL
)) {
791 memcpy(mlines
->lines
[i
] + k
+ 1, term_so
, l
);
793 memcpy(mlines
->lines
[i
] + k
+ l
+ dw
, term_se
,
795 l
= strlen(term_se
) + strlen(term_so
);
798 memcpy(mlines
->lines
[i
] + k
+ l
, " ", dw
);
801 mlines
->lines
[i
][1] = '\0';
803 mlines
->lines
[i
][k
+ l
] = '\0';
807 /* Put the local names of weekdays into the wds */
809 mkweekdays(struct weekdays
*wds
)
815 memset(&tm
, 0, sizeof(tm
));
817 for (i
= 0; i
!= 7; i
++) {
818 tm
.tm_wday
= (i
+1) % 7;
819 strftime(buf
, sizeof(buf
), "%a", &tm
);
823 strcpy(wds
->names
[i
], " ");
824 strncpy(wds
->names
[i
] + 2 - len
, buf
, len
);
829 * Compute the day number of the first
830 * existing date after the first day in month.
831 * (the first day in month and even the month might not exist!)
834 firstday(int y
, int m
)
845 if ((dt
.m
>= m
&& dt
.y
== y
) || dt
.y
> y
)
854 * Compute the number of days from date, obey the local switch from
855 * Julian to Gregorian if specified by the user.
858 sndays(struct date
*d
)
862 if (nswitch
< ndaysj(d
))
871 * Compute the number of days from date, obey the switch from
872 * Julian to Gregorian as used by UK and her colonies.
875 sndaysb(struct date
*d
)
878 if (nswitchb
< ndaysj(d
))
884 /* Inverse of sndays */
886 sdate(int nd
, struct date
*d
)
890 return (gdate(nd
, d
));
892 return (jdate(nd
, d
));
895 /* Inverse of sndaysb */
897 sdateb(int nd
, struct date
*d
)
901 return (gdate(nd
, d
));
903 return (jdate(nd
, d
));
906 /* Center string t in string s of length w by putting enough leading blanks */
908 center(char *s
, char *t
, int w
)
912 memset(blanks
, ' ', sizeof(blanks
));
913 sprintf(s
, "%.*s%s", (int)(w
- strlen(t
)) / 2, blanks
, t
);
918 parsemonth(const char *s
)
924 v
= (int)strtol(s
, &cp
, 10);
927 if (strptime(s
, "%B", &tm
) != NULL
)
928 return (tm
.tm_mon
+ 1);
929 if (strptime(s
, "%b", &tm
) != NULL
)
930 return (tm
.tm_mon
+ 1);