blob: 01c21947a9def954c7c1578307b62a2f6e2b43cb [file] [log] [blame]
Skip Montanaroad3bc442000-08-30 14:01:28 +00001"""Calendar printing functions
2
3Note when comparing these calendars to the ones printed by cal(1): By
4default, these calendars have Monday as the first day of the week, and
5Sunday as the last (the European convention). Use setfirstweekday() to
6set the first day of the week (0=Monday, 6=Sunday)."""
Guido van Rossumc6360141990-10-13 19:23:40 +00007
Jeremy Hyltona05e2932000-06-28 14:48:01 +00008# Revision 2: uses functions from built-in time module
Guido van Rossumc6360141990-10-13 19:23:40 +00009
Guido van Rossum9b3bc711993-06-20 21:02:22 +000010# Import functions and variables from time module
Guido van Rossum00245cf1999-05-03 18:07:40 +000011from time import localtime, mktime
Guido van Rossumc6360141990-10-13 19:23:40 +000012
13# Exception raised for bad input (with string parameter for details)
Guido van Rossum00245cf1999-05-03 18:07:40 +000014error = ValueError
Guido van Rossumc6360141990-10-13 19:23:40 +000015
Guido van Rossum9b3bc711993-06-20 21:02:22 +000016# Constants for months referenced later
17January = 1
18February = 2
19
20# Number of days per month (except for February in leap years)
21mdays = [0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
22
23# Full and abbreviated names of weekdays
Guido van Rossum4acc25b2000-02-02 15:10:15 +000024day_name = ['Monday', 'Tuesday', 'Wednesday', 'Thursday',
25 'Friday', 'Saturday', 'Sunday']
Guido van Rossum9b3bc711993-06-20 21:02:22 +000026day_abbr = ['Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun']
27
Guido van Rossum5cfa5df1993-06-23 09:30:50 +000028# Full and abbreviated names of months (1-based arrays!!!)
Guido van Rossum4acc25b2000-02-02 15:10:15 +000029month_name = ['', 'January', 'February', 'March', 'April',
30 'May', 'June', 'July', 'August',
31 'September', 'October', 'November', 'December']
32month_abbr = [' ', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
33 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec']
Guido van Rossum9b3bc711993-06-20 21:02:22 +000034
Skip Montanaroad3bc442000-08-30 14:01:28 +000035# Constants for weekdays
36(MONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRIDAY, SATURDAY, SUNDAY) = range(7)
37
38_firstweekday = 0 # 0 = Monday, 6 = Sunday
39
40def firstweekday():
41 return _firstweekday
42
43def setfirstweekday(weekday):
44 """Set weekday (Monday=0, Sunday=6) to start each week."""
45 global _firstweekday
46 if not MONDAY <= weekday <= SUNDAY:
47 raise ValueError, \
48 'bad weekday number; must be 0 (Monday) to 6 (Sunday)'
49 _firstweekday = weekday
50
Guido van Rossum9b3bc711993-06-20 21:02:22 +000051def isleap(year):
Guido van Rossum4acc25b2000-02-02 15:10:15 +000052 """Return 1 for leap years, 0 for non-leap years."""
Fred Drake8152d322000-12-12 23:20:45 +000053 return year % 4 == 0 and (year % 100 != 0 or year % 400 == 0)
Guido van Rossum9b3bc711993-06-20 21:02:22 +000054
Guido van Rossum9b3bc711993-06-20 21:02:22 +000055def leapdays(y1, y2):
Guido van Rossum4acc25b2000-02-02 15:10:15 +000056 """Return number of leap years in range [y1, y2).
Guido van Rossum46735ad2000-10-09 12:42:04 +000057 Assume y1 <= y2."""
58 y1 -= 1
59 y2 -= 1
60 return (y2/4 - y1/4) - (y2/100 - y1/100) + (y2/400 - y1/400)
Guido van Rossum9b3bc711993-06-20 21:02:22 +000061
Guido van Rossumc6360141990-10-13 19:23:40 +000062def weekday(year, month, day):
Skip Montanaroad3bc442000-08-30 14:01:28 +000063 """Return weekday (0-6 ~ Mon-Sun) for year (1970-...), month (1-12),
64 day (1-31)."""
Guido van Rossum4acc25b2000-02-02 15:10:15 +000065 secs = mktime((year, month, day, 0, 0, 0, 0, 0, 0))
66 tuple = localtime(secs)
67 return tuple[6]
Guido van Rossumc6360141990-10-13 19:23:40 +000068
Guido van Rossumc6360141990-10-13 19:23:40 +000069def monthrange(year, month):
Skip Montanaroad3bc442000-08-30 14:01:28 +000070 """Return weekday (0-6 ~ Mon-Sun) and number of days (28-31) for
71 year, month."""
72 if not 1 <= month <= 12:
73 raise ValueError, 'bad month number'
Guido van Rossum4acc25b2000-02-02 15:10:15 +000074 day1 = weekday(year, month, 1)
75 ndays = mdays[month] + (month == February and isleap(year))
76 return day1, ndays
Guido van Rossumc6360141990-10-13 19:23:40 +000077
Skip Montanaroad3bc442000-08-30 14:01:28 +000078def monthcalendar(year, month):
Guido van Rossum4acc25b2000-02-02 15:10:15 +000079 """Return a matrix representing a month's calendar.
Skip Montanaroad3bc442000-08-30 14:01:28 +000080 Each row represents a week; days outside this month are zero."""
Guido van Rossum4acc25b2000-02-02 15:10:15 +000081 day1, ndays = monthrange(year, month)
82 rows = []
83 r7 = range(7)
Skip Montanaroad3bc442000-08-30 14:01:28 +000084 day = (_firstweekday - day1 + 6) % 7 - 5 # for leading 0's in first week
Guido van Rossum4acc25b2000-02-02 15:10:15 +000085 while day <= ndays:
86 row = [0, 0, 0, 0, 0, 0, 0]
87 for i in r7:
88 if 1 <= day <= ndays: row[i] = day
89 day = day + 1
90 rows.append(row)
91 return rows
Guido van Rossumc6360141990-10-13 19:23:40 +000092
Guido van Rossum9b3bc711993-06-20 21:02:22 +000093def _center(str, width):
Guido van Rossum4acc25b2000-02-02 15:10:15 +000094 """Center a string in a field."""
95 n = width - len(str)
Skip Montanaroad3bc442000-08-30 14:01:28 +000096 if n <= 0:
97 return str
Guido van Rossum4acc25b2000-02-02 15:10:15 +000098 return ' '*((n+1)/2) + str + ' '*((n)/2)
Guido van Rossumc6360141990-10-13 19:23:40 +000099
Skip Montanaroad3bc442000-08-30 14:01:28 +0000100def prweek(theweek, width):
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000101 """Print a single week (no newline)."""
Skip Montanaroad3bc442000-08-30 14:01:28 +0000102 print week(theweek, width),
103
104def week(theweek, width):
105 """Returns a single week in a string (no newline)."""
106 days = []
107 for day in theweek:
108 if day == 0:
109 s = ''
110 else:
111 s = '%2i' % day # right-align single-digit days
112 days.append(_center(s, width))
113 return ' '.join(days)
Guido van Rossumc6360141990-10-13 19:23:40 +0000114
Guido van Rossumc6360141990-10-13 19:23:40 +0000115def weekheader(width):
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000116 """Return a header for a week."""
Skip Montanaroad3bc442000-08-30 14:01:28 +0000117 if width >= 9:
118 names = day_name
119 else:
120 names = day_abbr
121 days = []
122 for i in range(_firstweekday, _firstweekday + 7):
123 days.append(_center(names[i%7][:width], width))
124 return ' '.join(days)
Guido van Rossumc6360141990-10-13 19:23:40 +0000125
Skip Montanaroad3bc442000-08-30 14:01:28 +0000126def prmonth(theyear, themonth, w=0, l=0):
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000127 """Print a month's calendar."""
Skip Montanaroad3bc442000-08-30 14:01:28 +0000128 print month(theyear, themonth, w, l),
129
130def month(theyear, themonth, w=0, l=0):
131 """Return a month's calendar string (multi-line)."""
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000132 w = max(2, w)
133 l = max(1, l)
Skip Montanaroad3bc442000-08-30 14:01:28 +0000134 s = (_center(month_name[themonth] + ' ' + `theyear`,
135 7 * (w + 1) - 1).rstrip() +
136 '\n' * l + weekheader(w).rstrip() + '\n' * l)
137 for aweek in monthcalendar(theyear, themonth):
138 s = s + week(aweek, w).rstrip() + '\n' * l
139 return s[:-l] + '\n'
Guido van Rossumc6360141990-10-13 19:23:40 +0000140
Skip Montanaroad3bc442000-08-30 14:01:28 +0000141# Spacing of month columns for 3-column year calendar
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000142_colwidth = 7*3 - 1 # Amount printed by prweek()
Skip Montanaroad3bc442000-08-30 14:01:28 +0000143_spacing = 6 # Number of spaces between columns
Guido van Rossumc6360141990-10-13 19:23:40 +0000144
Skip Montanaroad3bc442000-08-30 14:01:28 +0000145def format3c(a, b, c, colwidth=_colwidth, spacing=_spacing):
146 """Prints 3-column formatting for year calendars"""
147 print format3cstring(a, b, c, colwidth, spacing)
Guido van Rossumc6360141990-10-13 19:23:40 +0000148
Skip Montanaroad3bc442000-08-30 14:01:28 +0000149def format3cstring(a, b, c, colwidth=_colwidth, spacing=_spacing):
150 """Returns a string formatted from 3 strings, centered within 3 columns."""
151 return (_center(a, colwidth) + ' ' * spacing + _center(b, colwidth) +
152 ' ' * spacing + _center(c, colwidth))
153
154def prcal(year, w=0, l=0, c=_spacing):
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000155 """Print a year's calendar."""
Skip Montanaroad3bc442000-08-30 14:01:28 +0000156 print calendar(year, w, l, c),
157
158def calendar(year, w=0, l=0, c=_spacing):
159 """Returns a year's calendar as a multi-line string."""
160 w = max(2, w)
161 l = max(1, l)
162 c = max(2, c)
163 colwidth = (w + 1) * 7 - 1
164 s = _center(`year`, colwidth * 3 + c * 2).rstrip() + '\n' * l
165 header = weekheader(w)
166 header = format3cstring(header, header, header, colwidth, c).rstrip()
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000167 for q in range(January, January+12, 3):
Skip Montanaroad3bc442000-08-30 14:01:28 +0000168 s = (s + '\n' * l +
169 format3cstring(month_name[q], month_name[q+1], month_name[q+2],
170 colwidth, c).rstrip() +
171 '\n' * l + header + '\n' * l)
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000172 data = []
173 height = 0
Skip Montanaroad3bc442000-08-30 14:01:28 +0000174 for amonth in range(q, q + 3):
175 cal = monthcalendar(year, amonth)
176 if len(cal) > height:
177 height = len(cal)
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000178 data.append(cal)
179 for i in range(height):
Skip Montanaroad3bc442000-08-30 14:01:28 +0000180 weeks = []
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000181 for cal in data:
182 if i >= len(cal):
Skip Montanaroad3bc442000-08-30 14:01:28 +0000183 weeks.append('')
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000184 else:
Skip Montanaroad3bc442000-08-30 14:01:28 +0000185 weeks.append(week(cal[i], w))
186 s = s + format3cstring(weeks[0], weeks[1], weeks[2],
187 colwidth, c).rstrip() + '\n' * l
188 return s[:-l] + '\n'
Guido van Rossumb39aff81999-06-09 15:07:38 +0000189
Guido van Rossumb39aff81999-06-09 15:07:38 +0000190EPOCH = 1970
191def timegm(tuple):
Guido van Rossum4acc25b2000-02-02 15:10:15 +0000192 """Unrelated but handy function to calculate Unix timestamp from GMT."""
193 year, month, day, hour, minute, second = tuple[:6]
194 assert year >= EPOCH
195 assert 1 <= month <= 12
196 days = 365*(year-EPOCH) + leapdays(EPOCH, year)
197 for i in range(1, month):
198 days = days + mdays[i]
199 if month > 2 and isleap(year):
200 days = days + 1
201 days = days + day - 1
202 hours = days*24 + hour
203 minutes = hours*60 + minute
204 seconds = minutes*60 + second
205 return seconds