"Robert P. J. Day" | 63fc1a9 | 2006-07-02 19:47:05 +0000 | [diff] [blame] | 1 | /* vi: set sw=4 ts=4: */ |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 2 | /* |
| 3 | * Calendar implementation for busybox |
| 4 | * |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 5 | * See original copyright at the end of this file |
| 6 | * |
Denys Vlasenko | 0ef64bd | 2010-08-16 20:14:46 +0200 | [diff] [blame] | 7 | * Licensed under GPLv2 or later, see file LICENSE in this source tree. |
"Robert P. J. Day" | 801ab14 | 2006-07-12 07:56:04 +0000 | [diff] [blame] | 8 | */ |
Denys Vlasenko | af3f420 | 2016-11-23 14:46:56 +0100 | [diff] [blame] | 9 | /* Mar 16, 2003 Manuel Novoa III (mjn3@codepoet.org) |
| 10 | * |
| 11 | * Major size reduction... over 50% (>1.5k) on i386. |
| 12 | */ |
| 13 | //config:config CAL |
| 14 | //config: bool "cal" |
| 15 | //config: default y |
| 16 | //config: help |
| 17 | //config: cal is used to display a monthly calendar. |
| 18 | |
| 19 | //applet:IF_CAL(APPLET(cal, BB_DIR_USR_BIN, BB_SUID_DROP)) |
| 20 | |
| 21 | //kbuild:lib-$(CONFIG_CAL) += cal.o |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 22 | |
| 23 | /* BB_AUDIT SUSv3 compliant with -j and -y extensions (from util-linux). */ |
| 24 | /* BB_AUDIT BUG: The output of 'cal -j 1752' is incorrect. The upstream |
| 25 | * BB_AUDIT BUG: version in util-linux seems to be broken as well. */ |
| 26 | /* http://www.opengroup.org/onlinepubs/007904975/utilities/cal.html */ |
| 27 | |
Pere Orga | 3442538 | 2011-03-31 14:43:25 +0200 | [diff] [blame] | 28 | //usage:#define cal_trivial_usage |
| 29 | //usage: "[-jy] [[MONTH] YEAR]" |
| 30 | //usage:#define cal_full_usage "\n\n" |
| 31 | //usage: "Display a calendar\n" |
Pere Orga | 3442538 | 2011-03-31 14:43:25 +0200 | [diff] [blame] | 32 | //usage: "\n -j Use julian dates" |
| 33 | //usage: "\n -y Display the entire year" |
| 34 | |
Denis Vlasenko | b6adbf1 | 2007-05-26 19:00:18 +0000 | [diff] [blame] | 35 | #include "libbb.h" |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 36 | #include "unicode.h" |
Manuel Novoa III | b99cb64 | 2002-05-29 19:08:41 +0000 | [diff] [blame] | 37 | |
Denys Vlasenko | 10ad622 | 2017-04-17 16:13:32 +0200 | [diff] [blame] | 38 | /* We often use "unsigned" instead of "int", it's easier to div on most CPUs */ |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 39 | |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 40 | #define THURSDAY 4 /* for reformation */ |
Tim Riker | c1ef7bd | 2006-01-25 00:08:53 +0000 | [diff] [blame] | 41 | #define SATURDAY 6 /* 1 Jan 1 was a Saturday */ |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 42 | |
Tim Riker | c1ef7bd | 2006-01-25 00:08:53 +0000 | [diff] [blame] | 43 | #define FIRST_MISSING_DAY 639787 /* 3 Sep 1752 */ |
| 44 | #define NUMBER_MISSING_DAYS 11 /* 11 day correction */ |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 45 | |
| 46 | #define MAXDAYS 42 /* max slots in a month array */ |
| 47 | #define SPACE -1 /* used in day array */ |
| 48 | |
Denis Vlasenko | 6ca409e | 2007-08-12 20:58:27 +0000 | [diff] [blame] | 49 | static const unsigned char days_in_month[] ALIGN1 = { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 50 | 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 51 | }; |
| 52 | |
Denis Vlasenko | 6ca409e | 2007-08-12 20:58:27 +0000 | [diff] [blame] | 53 | static const unsigned char sep1752[] ALIGN1 = { |
Denys Vlasenko | 6830ade | 2013-01-15 13:58:01 +0100 | [diff] [blame] | 54 | 1, 2, 14, 15, 16, |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 55 | 17, 18, 19, 20, 21, 22, 23, |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 56 | 24, 25, 26, 27, 28, 29, 30 |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 57 | }; |
| 58 | |
Denis Vlasenko | a525403 | 2008-07-22 10:10:13 +0000 | [diff] [blame] | 59 | /* Set to 0 or 1 in main */ |
| 60 | #define julian ((unsigned)option_mask32) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 61 | |
Eric Andersen | aff114c | 2004-04-14 17:51:38 +0000 | [diff] [blame] | 62 | /* leap year -- account for Gregorian reformation in 1752 */ |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 63 | static int leap_year(unsigned yr) |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 64 | { |
Denis Vlasenko | 319f8eb | 2007-08-13 11:09:30 +0000 | [diff] [blame] | 65 | if (yr <= 1752) |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 66 | return !(yr % 4); |
| 67 | return (!(yr % 4) && (yr % 100)) || !(yr % 400); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 68 | } |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 69 | |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 70 | /* number of centuries since 1700, not inclusive */ |
| 71 | #define centuries_since_1700(yr) \ |
| 72 | ((yr) > 1700 ? (yr) / 100 - 17 : 0) |
| 73 | |
| 74 | /* number of centuries since 1700 whose modulo of 400 is 0 */ |
| 75 | #define quad_centuries_since_1700(yr) \ |
| 76 | ((yr) > 1600 ? ((yr) - 1600) / 400 : 0) |
| 77 | |
| 78 | /* number of leap years between year 1 and this year, not inclusive */ |
| 79 | #define leap_years_since_year_1(yr) \ |
| 80 | ((yr) / 4 - centuries_since_1700(yr) + quad_centuries_since_1700(yr)) |
| 81 | |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 82 | static void center(char *, unsigned, unsigned); |
| 83 | static void day_array(unsigned, unsigned, unsigned *); |
| 84 | static void trim_trailing_spaces_and_print(char *); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 85 | |
| 86 | static void blank_string(char *buf, size_t buflen); |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 87 | static char *build_row(char *p, unsigned *dp); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 88 | |
| 89 | #define DAY_LEN 3 /* 3 spaces per day */ |
| 90 | #define J_DAY_LEN (DAY_LEN + 1) |
| 91 | #define WEEK_LEN 20 /* 7 * 3 - one space at the end */ |
| 92 | #define J_WEEK_LEN (WEEK_LEN + 7) |
| 93 | #define HEAD_SEP 2 /* spaces between day headings */ |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 94 | |
Denis Vlasenko | 9b49a5e | 2007-10-11 10:05:36 +0000 | [diff] [blame] | 95 | int cal_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE; |
Denys Vlasenko | 2ec91ae | 2010-01-04 14:15:38 +0100 | [diff] [blame] | 96 | int cal_main(int argc UNUSED_PARAM, char **argv) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 97 | { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 98 | struct tm zero_tm; |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 99 | time_t now; |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 100 | unsigned month, year, flags, i; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 101 | char *month_names[12]; |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 102 | /* normal heading: */ |
| 103 | /* "Su Mo Tu We Th Fr Sa" */ |
| 104 | /* -j heading: */ |
| 105 | /* " Su Mo Tu We Th Fr Sa" */ |
Denys Vlasenko | 19158a8 | 2010-03-26 14:06:56 +0100 | [diff] [blame] | 106 | char day_headings[ENABLE_UNICODE_SUPPORT ? 28 * 6 : 28]; |
| 107 | IF_UNICODE_SUPPORT(char *hp = day_headings;) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 108 | char buf[40]; |
| 109 | |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 110 | init_unicode(); |
| 111 | |
Denis Vlasenko | fe7cd64 | 2007-08-18 15:32:12 +0000 | [diff] [blame] | 112 | flags = getopt32(argv, "jy"); |
Denis Vlasenko | a525403 | 2008-07-22 10:10:13 +0000 | [diff] [blame] | 113 | /* This sets julian = flags & 1: */ |
| 114 | option_mask32 &= 1; |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 115 | month = 0; |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 116 | argv += optind; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 117 | |
Denys Vlasenko | 2ec91ae | 2010-01-04 14:15:38 +0100 | [diff] [blame] | 118 | if (!argv[0]) { |
Denys Vlasenko | dc698bb | 2010-01-09 19:10:49 +0100 | [diff] [blame] | 119 | struct tm *ptm; |
| 120 | |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 121 | time(&now); |
Denys Vlasenko | dc698bb | 2010-01-09 19:10:49 +0100 | [diff] [blame] | 122 | ptm = localtime(&now); |
| 123 | year = ptm->tm_year + 1900; |
Denis Vlasenko | a525403 | 2008-07-22 10:10:13 +0000 | [diff] [blame] | 124 | if (!(flags & 2)) { /* no -y */ |
Denys Vlasenko | dc698bb | 2010-01-09 19:10:49 +0100 | [diff] [blame] | 125 | month = ptm->tm_mon + 1; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 126 | } |
| 127 | } else { |
Denys Vlasenko | 2ec91ae | 2010-01-04 14:15:38 +0100 | [diff] [blame] | 128 | if (argv[1]) { |
| 129 | if (argv[2]) { |
| 130 | bb_show_usage(); |
| 131 | } |
Denys Vlasenko | ed910c7 | 2010-01-31 00:10:18 +0100 | [diff] [blame] | 132 | if (!(flags & 2)) { /* no -y */ |
| 133 | month = xatou_range(*argv, 1, 12); |
| 134 | } |
| 135 | argv++; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 136 | } |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 137 | year = xatou_range(*argv, 1, 9999); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 138 | } |
| 139 | |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 140 | blank_string(day_headings, sizeof(day_headings) - 7 + 7*julian); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 141 | |
| 142 | i = 0; |
| 143 | do { |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 144 | zero_tm.tm_mon = i; |
Denys Vlasenko | 86350f8 | 2010-01-06 10:18:37 +0100 | [diff] [blame] | 145 | /* full month name according to locale */ |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 146 | strftime(buf, sizeof(buf), "%B", &zero_tm); |
Rob Landley | d921b2e | 2006-08-03 15:41:12 +0000 | [diff] [blame] | 147 | month_names[i] = xstrdup(buf); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 148 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 149 | if (i < 7) { |
| 150 | zero_tm.tm_wday = i; |
Denys Vlasenko | 86350f8 | 2010-01-06 10:18:37 +0100 | [diff] [blame] | 151 | /* abbreviated weekday name according to locale */ |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 152 | strftime(buf, sizeof(buf), "%a", &zero_tm); |
Denys Vlasenko | 19158a8 | 2010-03-26 14:06:56 +0100 | [diff] [blame] | 153 | #if ENABLE_UNICODE_SUPPORT |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 154 | if (julian) |
| 155 | *hp++ = ' '; |
| 156 | { |
Denys Vlasenko | dc7e5c4 | 2011-01-11 13:08:28 +0100 | [diff] [blame] | 157 | char *two_wchars = unicode_conv_to_printable_fixedwidth(/*NULL,*/ buf, 2); |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 158 | strcpy(hp, two_wchars); |
| 159 | free(two_wchars); |
| 160 | } |
| 161 | hp += strlen(hp); |
| 162 | *hp++ = ' '; |
| 163 | #else |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 164 | strncpy(day_headings + i * (3+julian) + julian, buf, 2); |
Denys Vlasenko | 9f93d62 | 2010-01-24 07:44:03 +0100 | [diff] [blame] | 165 | #endif |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 166 | } |
| 167 | } while (++i < 12); |
Denys Vlasenko | 19158a8 | 2010-03-26 14:06:56 +0100 | [diff] [blame] | 168 | IF_UNICODE_SUPPORT(hp[-1] = '\0';) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 169 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 170 | if (month) { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 171 | unsigned row, len, days[MAXDAYS]; |
| 172 | unsigned *dp = days; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 173 | char lineout[30]; |
Eric Andersen | c7bda1c | 2004-03-15 08:29:22 +0000 | [diff] [blame] | 174 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 175 | day_array(month, year, dp); |
Denys Vlasenko | 327f550 | 2013-11-29 16:45:45 +0100 | [diff] [blame] | 176 | len = sprintf(lineout, "%s %u", month_names[month - 1], year); |
Denis Vlasenko | f0ed376 | 2006-10-26 23:21:47 +0000 | [diff] [blame] | 177 | printf("%*s%s\n%s\n", |
Denys Vlasenko | 6967578 | 2013-01-14 01:34:48 +0100 | [diff] [blame] | 178 | ((7*julian + WEEK_LEN) - len) / 2, "", |
| 179 | lineout, day_headings); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 180 | for (row = 0; row < 6; row++) { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 181 | build_row(lineout, dp)[0] = '\0'; |
| 182 | dp += 7; |
| 183 | trim_trailing_spaces_and_print(lineout); |
| 184 | } |
| 185 | } else { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 186 | unsigned row, which_cal, week_len, days[12][MAXDAYS]; |
| 187 | unsigned *dp; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 188 | char lineout[80]; |
Eric Andersen | c7bda1c | 2004-03-15 08:29:22 +0000 | [diff] [blame] | 189 | |
Denys Vlasenko | 7bb346f | 2009-10-06 22:09:50 +0200 | [diff] [blame] | 190 | sprintf(lineout, "%u", year); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 191 | center(lineout, |
Denys Vlasenko | 60cb48c | 2013-01-14 15:57:44 +0100 | [diff] [blame] | 192 | (WEEK_LEN * 3 + HEAD_SEP * 2) |
| 193 | + julian * (J_WEEK_LEN * 2 + HEAD_SEP |
Denys Vlasenko | 6830ade | 2013-01-15 13:58:01 +0100 | [diff] [blame] | 194 | - (WEEK_LEN * 3 + HEAD_SEP * 2)), |
Denys Vlasenko | 60cb48c | 2013-01-14 15:57:44 +0100 | [diff] [blame] | 195 | 0 |
| 196 | ); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 197 | puts("\n"); /* two \n's */ |
| 198 | for (i = 0; i < 12; i++) { |
| 199 | day_array(i + 1, year, days[i]); |
| 200 | } |
| 201 | blank_string(lineout, sizeof(lineout)); |
| 202 | week_len = WEEK_LEN + julian * (J_WEEK_LEN - WEEK_LEN); |
| 203 | for (month = 0; month < 12; month += 3-julian) { |
| 204 | center(month_names[month], week_len, HEAD_SEP); |
| 205 | if (!julian) { |
| 206 | center(month_names[month + 1], week_len, HEAD_SEP); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 207 | } |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 208 | center(month_names[month + 2 - julian], week_len, 0); |
Denis Vlasenko | f0ed376 | 2006-10-26 23:21:47 +0000 | [diff] [blame] | 209 | printf("\n%s%*s%s", day_headings, HEAD_SEP, "", day_headings); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 210 | if (!julian) { |
Denis Vlasenko | f0ed376 | 2006-10-26 23:21:47 +0000 | [diff] [blame] | 211 | printf("%*s%s", HEAD_SEP, "", day_headings); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 212 | } |
Denis Vlasenko | 4daad90 | 2007-09-27 10:20:47 +0000 | [diff] [blame] | 213 | bb_putchar('\n'); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 214 | for (row = 0; row < (6*7); row += 7) { |
| 215 | for (which_cal = 0; which_cal < 3-julian; which_cal++) { |
| 216 | dp = days[month + which_cal] + row; |
| 217 | build_row(lineout + which_cal * (week_len + 2), dp); |
| 218 | } |
| 219 | /* blank_string took care of nul termination. */ |
| 220 | trim_trailing_spaces_and_print(lineout); |
| 221 | } |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 222 | } |
| 223 | } |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 224 | |
Bernhard Reutner-Fischer | 636a1f8 | 2008-05-19 09:29:47 +0000 | [diff] [blame] | 225 | fflush_stdout_and_exit(EXIT_SUCCESS); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 226 | } |
| 227 | |
| 228 | /* |
| 229 | * day_array -- |
| 230 | * Fill in an array of 42 integers with a calendar. Assume for a moment |
| 231 | * that you took the (maximum) 6 rows in a calendar and stretched them |
| 232 | * out end to end. You would have 42 numbers or spaces. This routine |
| 233 | * builds that array for any month from Jan. 1 through Dec. 9999. |
| 234 | */ |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 235 | static void day_array(unsigned month, unsigned year, unsigned *days) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 236 | { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 237 | unsigned long temp; |
| 238 | unsigned i; |
| 239 | unsigned day, dw, dm; |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 240 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 241 | memset(days, SPACE, MAXDAYS * sizeof(int)); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 242 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 243 | if ((month == 9) && (year == 1752)) { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 244 | /* Assumes the Gregorian reformation eliminates |
| 245 | * 3 Sep. 1752 through 13 Sep. 1752. |
| 246 | */ |
| 247 | unsigned j_offset = julian * 244; |
"Vladimir N. Oleynik" | 676b15e | 2006-01-30 13:47:19 +0000 | [diff] [blame] | 248 | size_t oday = 0; |
Denis Vlasenko | 9213a9e | 2006-09-17 16:28:10 +0000 | [diff] [blame] | 249 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 250 | do { |
"Vladimir N. Oleynik" | 676b15e | 2006-01-30 13:47:19 +0000 | [diff] [blame] | 251 | days[oday+2] = sep1752[oday] + j_offset; |
| 252 | } while (++oday < sizeof(sep1752)); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 253 | |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 254 | return; |
| 255 | } |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 256 | |
| 257 | /* day_in_year |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 258 | * return the 1 based day number within the year |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 259 | */ |
| 260 | day = 1; |
| 261 | if ((month > 2) && leap_year(year)) { |
| 262 | ++day; |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 263 | } |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 264 | |
| 265 | i = month; |
| 266 | while (i) { |
| 267 | day += days_in_month[--i]; |
| 268 | } |
| 269 | |
| 270 | /* day_in_week |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 271 | * return the 0 based day number for any date from 1 Jan. 1 to |
| 272 | * 31 Dec. 9999. Assumes the Gregorian reformation eliminates |
| 273 | * 3 Sep. 1752 through 13 Sep. 1752. Returns Thursday for all |
| 274 | * missing days. |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 275 | */ |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 276 | temp = (long)(year - 1) * 365 + leap_years_since_year_1(year - 1) + day; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 277 | if (temp < FIRST_MISSING_DAY) { |
| 278 | dw = ((temp - 1 + SATURDAY) % 7); |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 279 | } else { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 280 | dw = (((temp - 1 + SATURDAY) - NUMBER_MISSING_DAYS) % 7); |
| 281 | } |
| 282 | |
| 283 | if (!julian) { |
| 284 | day = 1; |
| 285 | } |
| 286 | |
| 287 | dm = days_in_month[month]; |
| 288 | if ((month == 2) && leap_year(year)) { |
| 289 | ++dm; |
| 290 | } |
| 291 | |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 292 | do { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 293 | days[dw++] = day++; |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 294 | } while (--dm); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 295 | } |
| 296 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 297 | static void trim_trailing_spaces_and_print(char *s) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 298 | { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 299 | char *p = s; |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 300 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 301 | while (*p) { |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 302 | ++p; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 303 | } |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 304 | while (p != s) { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 305 | --p; |
Denys Vlasenko | c0dab37 | 2009-10-22 22:28:08 +0200 | [diff] [blame] | 306 | if (!isspace(*p)) { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 307 | p[1] = '\0'; |
| 308 | break; |
| 309 | } |
| 310 | } |
| 311 | |
| 312 | puts(s); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 313 | } |
| 314 | |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 315 | static void center(char *str, unsigned len, unsigned separate) |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 316 | { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 317 | unsigned n = strlen(str); |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 318 | len -= n; |
Denis Vlasenko | f0ed376 | 2006-10-26 23:21:47 +0000 | [diff] [blame] | 319 | printf("%*s%*s", (len/2) + n, str, (len/2) + (len % 2) + separate, ""); |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 320 | } |
| 321 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 322 | static void blank_string(char *buf, size_t buflen) |
| 323 | { |
| 324 | memset(buf, ' ', buflen); |
| 325 | buf[buflen-1] = '\0'; |
| 326 | } |
| 327 | |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 328 | static char *build_row(char *p, unsigned *dp) |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 329 | { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 330 | unsigned col, val, day; |
Eric Andersen | c7bda1c | 2004-03-15 08:29:22 +0000 | [diff] [blame] | 331 | |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 332 | memset(p, ' ', (julian + DAY_LEN) * 7); |
| 333 | |
| 334 | col = 0; |
| 335 | do { |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 336 | day = *dp++; |
| 337 | if (day != SPACE) { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 338 | if (julian) { |
Manuel Novoa III | 5b3c056 | 2003-08-13 12:11:33 +0000 | [diff] [blame] | 339 | ++p; |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 340 | if (day >= 100) { |
| 341 | *p = '0'; |
| 342 | p[-1] = (day / 100) + '0'; |
| 343 | day %= 100; |
| 344 | } |
| 345 | } |
Denis Vlasenko | 661f6fa | 2007-07-26 11:12:51 +0000 | [diff] [blame] | 346 | val = day / 10; |
| 347 | if (val > 0) { |
Manuel Novoa III | cad5364 | 2003-03-19 09:13:01 +0000 | [diff] [blame] | 348 | *p = val + '0'; |
| 349 | } |
| 350 | *++p = day % 10 + '0'; |
| 351 | p += 2; |
| 352 | } else { |
| 353 | p += DAY_LEN + julian; |
| 354 | } |
| 355 | } while (++col < 7); |
| 356 | |
| 357 | return p; |
| 358 | } |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 359 | |
| 360 | /* |
| 361 | * Copyright (c) 1989, 1993, 1994 |
| 362 | * The Regents of the University of California. All rights reserved. |
| 363 | * |
| 364 | * This code is derived from software contributed to Berkeley by |
| 365 | * Kim Letkeman. |
| 366 | * |
| 367 | * Redistribution and use in source and binary forms, with or without |
| 368 | * modification, are permitted provided that the following conditions |
| 369 | * are met: |
| 370 | * 1. Redistributions of source code must retain the above copyright |
| 371 | * notice, this list of conditions and the following disclaimer. |
| 372 | * 2. Redistributions in binary form must reproduce the above copyright |
| 373 | * notice, this list of conditions and the following disclaimer in the |
| 374 | * documentation and/or other materials provided with the distribution. |
Aaron Lehmann | 69d4178 | 2002-06-23 22:25:24 +0000 | [diff] [blame] | 375 | * 3. Neither the name of the University nor the names of its contributors |
Eric Andersen | c98c062 | 2001-12-06 15:16:43 +0000 | [diff] [blame] | 376 | * may be used to endorse or promote products derived from this software |
| 377 | * without specific prior written permission. |
| 378 | * |
| 379 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
| 380 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
| 381 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| 382 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
| 383 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| 384 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
| 385 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
| 386 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
| 387 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
| 388 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
| 389 | * SUCH DAMAGE. |
| 390 | */ |