| rev |
line source |
|
meillo@0
|
1 /*
|
|
meillo@8
|
2 bday
|
|
meillo@0
|
3
|
|
meillo@8
|
4 Birthday/Anniversary reminder
|
|
meillo@0
|
5
|
|
meillo@8
|
6 (c) 2007 markus schnalke <meillo@marmaro.de>
|
|
meillo@9
|
7 (c) 1994-1999 AS Mortimer
|
|
meillo@0
|
8
|
|
meillo@8
|
9 This program is free software; you can redistribute it and/or
|
|
meillo@8
|
10 modify it under the terms of the GNU General Public License as
|
|
meillo@8
|
11 published by the Free Software Foundation; either version 2 of the
|
|
meillo@9
|
12 License, or (at your option) any later version. You may also
|
|
meillo@9
|
13 distribute it under the Artistic License, as comes with Perl.
|
|
meillo@0
|
14
|
|
meillo@8
|
15 This program is distributed in the hope that it will be useful,
|
|
meillo@8
|
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
meillo@8
|
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
meillo@0
|
18
|
|
meillo@8
|
19 You should have received a copy of the GNU General Public License
|
|
meillo@8
|
20 along with this program; if not, write to the Free Software
|
|
meillo@8
|
21 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
meillo@0
|
22
|
|
meillo@9
|
23 You should also have recieved a copy of the Artistic license with
|
|
meillo@9
|
24 this program.
|
|
meillo@9
|
25
|
|
meillo@8
|
26 ===============================================================================
|
|
meillo@0
|
27
|
|
meillo@8
|
28 Input is read through standard input. For example: bday < ~/.birthdays
|
|
meillo@8
|
29 The input (file) has to have the following format:
|
|
meillo@7
|
30
|
|
meillo@8
|
31 text=date flags
|
|
meillo@7
|
32
|
|
meillo@8
|
33 where:
|
|
meillo@8
|
34 date is yyyy-mm-dd
|
|
meillo@8
|
35 flags is ONE or ZERO of
|
|
meillo@8
|
36 bd for a birthday (default)
|
|
meillo@8
|
37 ann for an anniversary
|
|
meillo@8
|
38 ev for an event
|
|
meillo@8
|
39 and zero or more of
|
|
meillo@8
|
40 w <n> to set the warn-in-advance time to n days (don't include the
|
|
meillo@8
|
41 brackets! :)
|
|
meillo@8
|
42 to <date>
|
|
meillo@8
|
43 for <days>
|
|
meillo@8
|
44 to specify the length of time taken by an event, for example a holiday.
|
|
meillo@7
|
45
|
|
meillo@8
|
46 Lines preceeded by # are treated as comments.
|
|
meillo@7
|
47
|
|
meillo@8
|
48 Note: If you deviate from this format, I cannot guarantee anything about
|
|
meillo@8
|
49 it's behaviour. In most cases, it will just quietly ignore the error,
|
|
meillo@8
|
50 which probably isn't ideal behaviour. Oh, well.
|
|
meillo@7
|
51
|
|
meillo@8
|
52 ===============================================================================
|
|
meillo@8
|
53 */
|
|
meillo@7
|
54
|
|
meillo@8
|
55
|
|
meillo@8
|
56 /* standard time to warn in advance, when no explicit w flag is given. */
|
|
meillo@8
|
57 #define DEF_WARN 14
|
|
meillo@0
|
58
|
|
meillo@7
|
59
|
|
meillo@7
|
60 #include <stdarg.h>
|
|
meillo@0
|
61 #include <stdio.h>
|
|
meillo@0
|
62 #include <stdlib.h>
|
|
meillo@7
|
63 #include <string.h>
|
|
meillo@7
|
64 #include <sys/types.h>
|
|
meillo@7
|
65 #include <time.h>
|
|
meillo@7
|
66 #include <unistd.h>
|
|
meillo@0
|
67
|
|
meillo@7
|
68
|
|
meillo@7
|
69
|
|
meillo@7
|
70 /* ========== Global constants and data types */
|
|
meillo@7
|
71
|
|
meillo@7
|
72
|
|
meillo@7
|
73 /* month lengths etc */
|
|
meillo@7
|
74 #define isleapyear(y) ((y)%4==0 && ((y)%100 != 0 || (y)%400 == 0))
|
|
meillo@7
|
75 const unsigned MLENDAT[];
|
|
meillo@7
|
76 #define mlen(m,y) (MLENDAT[(m)-1] != -1 ? MLENDAT[(m)-1] : (isleapyear((y)) ? 29 : 28))
|
|
meillo@7
|
77 #define before(a,b) ((a).month < (b).month || ((a).month == (b).month && (a).day < (b).day))
|
|
meillo@7
|
78 #define ydelta(a,b) ((int) (b).year - (a).year + before((a),(b)))
|
|
meillo@7
|
79
|
|
meillo@7
|
80 /* -------- modifier flags */
|
|
meillo@7
|
81 #define F_MTYPE 0x07
|
|
meillo@7
|
82 #define F_TBIRTHDAY 1
|
|
meillo@7
|
83 #define F_TANNIVERSARY 2
|
|
meillo@7
|
84 #define F_TEVENT 3
|
|
meillo@7
|
85
|
|
meillo@7
|
86 /* flags processed immediately on encountering */
|
|
meillo@7
|
87 #define F_MIMMEDIATE 0x24
|
|
meillo@7
|
88 #define F_WTIME_P 0x08
|
|
meillo@7
|
89 #define F_FORDAYS 0x16
|
|
meillo@7
|
90 #define F_TODATE 0x24
|
|
meillo@7
|
91
|
|
meillo@8
|
92 struct _ftable {char* txt; unsigned flag;};
|
|
meillo@7
|
93
|
|
meillo@7
|
94 const struct _ftable FTABLE[];
|
|
meillo@7
|
95
|
|
meillo@7
|
96 struct date {
|
|
meillo@7
|
97 unsigned day;
|
|
meillo@7
|
98 unsigned month;
|
|
meillo@7
|
99 unsigned year;
|
|
meillo@7
|
100 };
|
|
meillo@7
|
101
|
|
meillo@7
|
102 struct event {
|
|
meillo@8
|
103 char* text;
|
|
meillo@7
|
104 struct date date;
|
|
meillo@7
|
105 struct date enddate;
|
|
meillo@7
|
106 int warn;
|
|
meillo@7
|
107 };
|
|
meillo@7
|
108
|
|
meillo@7
|
109 typedef int (*prnfunc)(const char *);
|
|
meillo@7
|
110
|
|
meillo@7
|
111 /* ========== Global Variables */
|
|
meillo@7
|
112
|
|
meillo@7
|
113 struct event* readlist(void);
|
|
meillo@7
|
114 void gettoday(void);
|
|
meillo@8
|
115 unsigned delta(struct date*);
|
|
meillo@8
|
116 unsigned ddiff(struct date* D1, struct date* D2);
|
|
meillo@7
|
117 void liststrings(struct event* evl, prnfunc outf);
|
|
meillo@8
|
118 char* tdelta(struct date* d);
|
|
meillo@8
|
119 char* ttime(int yr, int mn, int wk, int dy);
|
|
meillo@8
|
120 int skptok(int j, char* ptr);
|
|
meillo@8
|
121 int evcmp(const void* e1, const void* e2);
|
|
meillo@7
|
122
|
|
meillo@7
|
123
|
|
meillo@7
|
124 struct date today;
|
|
meillo@7
|
125 int iDWarn = DEF_WARN;
|
|
meillo@7
|
126
|
|
meillo@7
|
127 const unsigned MLENDAT[]={31,-1,31,30,31,30,31,31,30,31,30,31};
|
|
meillo@7
|
128
|
|
meillo@7
|
129 const struct _ftable FTABLE[] = {
|
|
meillo@7
|
130 {"bd", F_TBIRTHDAY},
|
|
meillo@7
|
131 {"ann",F_TANNIVERSARY},
|
|
meillo@7
|
132 {"ev", F_TEVENT},
|
|
meillo@7
|
133 {"w", F_WTIME_P},
|
|
meillo@7
|
134 {"to", F_TODATE},
|
|
meillo@7
|
135 {"for", F_FORDAYS},
|
|
meillo@7
|
136 {NULL, 0}
|
|
meillo@7
|
137 };
|
|
meillo@7
|
138
|
|
meillo@7
|
139
|
|
meillo@7
|
140
|
|
meillo@7
|
141
|
|
meillo@7
|
142
|
|
meillo@7
|
143
|
|
meillo@7
|
144 /*
|
|
meillo@7
|
145 xmalloc/xrealloc functions
|
|
meillo@7
|
146 Note: the x* functions are lifted straight from the GNU libc info docs
|
|
meillo@7
|
147 $Id: xmalloc.c,v 1.2 1999/01/16 17:08:59 andy Exp $
|
|
meillo@7
|
148 */
|
|
meillo@7
|
149
|
|
meillo@7
|
150 void* xmalloc (size_t size) {
|
|
meillo@7
|
151 register void* value = malloc (size);
|
|
meillo@7
|
152 if (value == 0) {
|
|
meillo@7
|
153 fprintf(stderr, "virtual memory exhausted\n");
|
|
meillo@7
|
154 exit(1);
|
|
meillo@7
|
155 }
|
|
meillo@7
|
156 return value;
|
|
meillo@7
|
157 }
|
|
meillo@7
|
158
|
|
meillo@7
|
159 void* xrealloc (void* ptr, size_t size) {
|
|
meillo@7
|
160 register void* value = realloc (ptr, size);
|
|
meillo@7
|
161 if (value == 0) {
|
|
meillo@7
|
162 fprintf(stderr, "virtual memory exhausted\n");
|
|
meillo@7
|
163 exit(1);
|
|
meillo@7
|
164 }
|
|
meillo@7
|
165 return value;
|
|
meillo@7
|
166 }
|
|
meillo@7
|
167
|
|
meillo@8
|
168
|
|
meillo@7
|
169 /* ========== */
|
|
meillo@7
|
170
|
|
meillo@7
|
171
|
|
meillo@7
|
172 /* like strcat(), but lets the buffer automagically grow :-)
|
|
meillo@7
|
173 * (needs local variable "size" with the buffer size) */
|
|
meillo@7
|
174 #define append(where, what) do { \
|
|
meillo@7
|
175 if (strlen(what) > (size - strlen(where))) { \
|
|
meillo@7
|
176 xrealloc(where, size + 128 + strlen(what)); \
|
|
meillo@7
|
177 size += 128 + strlen(what); \
|
|
meillo@7
|
178 } \
|
|
meillo@7
|
179 strcat(where, what); \
|
|
meillo@7
|
180 } while(0)
|
|
meillo@7
|
181
|
|
meillo@7
|
182 /* ========== */
|
|
meillo@7
|
183
|
|
meillo@7
|
184 /* returns delta(d) in days, weeks, months, etc
|
|
meillo@7
|
185 * the returned buffer is malloc()ed, do not forget to free() it */
|
|
meillo@8
|
186 char* tdelta(struct date* d) {
|
|
meillo@7
|
187 int dy, wk, mn, yr;
|
|
meillo@8
|
188 char* tmp;
|
|
meillo@8
|
189 char* buf = xmalloc(128);
|
|
meillo@7
|
190 int size = 128;
|
|
meillo@7
|
191 *buf = 0;
|
|
meillo@7
|
192
|
|
meillo@7
|
193 switch (delta(d)) {
|
|
meillo@7
|
194 case 0:
|
|
meillo@7
|
195 append(buf, "today");
|
|
meillo@7
|
196 return buf;
|
|
meillo@7
|
197 case 1:
|
|
meillo@7
|
198 append(buf, "tomorrow");
|
|
meillo@7
|
199 return buf;
|
|
meillo@7
|
200 default:
|
|
meillo@7
|
201 /* like delta(), we ignore the year */
|
|
meillo@8
|
202 yr = -before(*d, today);
|
|
meillo@8
|
203 mn = d->month - today.month;
|
|
meillo@8
|
204 dy = d->day - today.day;
|
|
meillo@7
|
205
|
|
meillo@7
|
206 if (dy < 0) {
|
|
meillo@7
|
207 dy += mlen(today.month, today.year);
|
|
meillo@7
|
208 mn--;
|
|
meillo@7
|
209 }
|
|
meillo@7
|
210 if (mn < 0) {
|
|
meillo@7
|
211 mn += 12;
|
|
meillo@7
|
212 yr++;
|
|
meillo@7
|
213 }
|
|
meillo@7
|
214
|
|
meillo@7
|
215 wk = (dy / 7);
|
|
meillo@7
|
216 dy %= 7;
|
|
meillo@7
|
217
|
|
meillo@7
|
218 append(buf, "in ");
|
|
meillo@7
|
219 tmp = ttime(yr, mn, wk, dy);
|
|
meillo@7
|
220 append(buf, tmp);
|
|
meillo@7
|
221 free(tmp);
|
|
meillo@7
|
222
|
|
meillo@7
|
223 return buf;
|
|
meillo@7
|
224 }
|
|
meillo@7
|
225 }
|
|
meillo@7
|
226
|
|
meillo@7
|
227
|
|
meillo@7
|
228
|
|
meillo@7
|
229
|
|
meillo@7
|
230
|
|
meillo@7
|
231 /*
|
|
meillo@7
|
232 void donum(n,txt) {
|
|
meillo@7
|
233 do {
|
|
meillo@7
|
234 if (n > 0) {
|
|
meillo@7
|
235 snprintf(tmp, sizeof(tmp), "%d", n);
|
|
meillo@7
|
236 append(buf, tmp);
|
|
meillo@7
|
237 append(buf, " " txt);
|
|
meillo@7
|
238 if (n != 1)
|
|
meillo@7
|
239 append(buf, "s");
|
|
meillo@7
|
240 terms--;
|
|
meillo@7
|
241 if (orgterms > 1) {
|
|
meillo@7
|
242 if (terms == 1)
|
|
meillo@7
|
243 append(buf, " and ");
|
|
meillo@7
|
244 else if (terms > 1)
|
|
meillo@7
|
245 append(buf, ", ");
|
|
meillo@7
|
246 }
|
|
meillo@7
|
247 }
|
|
meillo@7
|
248 } while(0)
|
|
meillo@7
|
249 }
|
|
meillo@7
|
250 */
|
|
meillo@7
|
251
|
|
meillo@7
|
252
|
|
meillo@7
|
253 #define donum(n,txt) do { \
|
|
meillo@7
|
254 if (n > 0) { \
|
|
meillo@7
|
255 snprintf(tmp, sizeof(tmp), "%d", n); \
|
|
meillo@7
|
256 append(buf, tmp); \
|
|
meillo@7
|
257 append(buf, " " txt); \
|
|
meillo@7
|
258 if (n != 1) \
|
|
meillo@7
|
259 append(buf, "s"); \
|
|
meillo@7
|
260 terms--; \
|
|
meillo@7
|
261 if (orgterms > 1) { \
|
|
meillo@7
|
262 if (terms == 1) \
|
|
meillo@7
|
263 append(buf, " and "); \
|
|
meillo@7
|
264 else if (terms > 1) \
|
|
meillo@7
|
265 append(buf, ", "); \
|
|
meillo@7
|
266 } \
|
|
meillo@7
|
267 } \
|
|
meillo@7
|
268 } while(0)
|
|
meillo@7
|
269
|
|
meillo@7
|
270
|
|
meillo@7
|
271 /* returns allocated buffer, don't forget to free() */
|
|
meillo@7
|
272 char* ttime(int yr, int mn, int wk, int dy) {
|
|
meillo@7
|
273 char* buf = xmalloc(128);
|
|
meillo@7
|
274 int size = 128;
|
|
meillo@7
|
275 int terms, orgterms;
|
|
meillo@7
|
276 char tmp[128];
|
|
meillo@7
|
277
|
|
meillo@7
|
278 *buf = 0; /* Initialize buffer */
|
|
meillo@7
|
279 terms = orgterms = (yr!=0) + (mn!=0) + (wk!=0) + (dy!=0);
|
|
meillo@7
|
280
|
|
meillo@7
|
281 donum(yr, "year");
|
|
meillo@7
|
282 donum(mn, "month");
|
|
meillo@7
|
283 donum(wk, "week");
|
|
meillo@7
|
284 donum(dy, "day");
|
|
meillo@7
|
285
|
|
meillo@7
|
286 return buf;
|
|
meillo@7
|
287 }
|
|
meillo@7
|
288 #undef donum
|
|
meillo@7
|
289
|
|
meillo@7
|
290
|
|
meillo@7
|
291
|
|
meillo@7
|
292
|
|
meillo@7
|
293
|
|
meillo@7
|
294
|
|
meillo@7
|
295 /* lists the birthdays in their string format, one by one, and passes the string to a function. */
|
|
meillo@7
|
296 void liststrings(struct event* evl, prnfunc outf) {
|
|
meillo@7
|
297 int i,j;
|
|
meillo@7
|
298 char *buf, *tmp;
|
|
meillo@7
|
299 int size;
|
|
meillo@7
|
300
|
|
meillo@7
|
301 for (i = 0; evl[i].text != NULL; i++) {
|
|
meillo@7
|
302 buf = xmalloc(128);
|
|
meillo@7
|
303 *buf = '\0';
|
|
meillo@7
|
304 size = 128;
|
|
meillo@7
|
305
|
|
meillo@7
|
306 if (evl[i].warn == -1 && delta(&(evl[i].date))==0) {
|
|
meillo@7
|
307 append(buf, evl[i].text);
|
|
meillo@7
|
308 } else if (evl[i].enddate.day == 0) {
|
|
meillo@7
|
309 if (delta(&(evl[i].date)) <= evl[i].warn) {
|
|
meillo@7
|
310 append(buf, evl[i].text);
|
|
meillo@7
|
311 append(buf, " ");
|
|
meillo@7
|
312 tmp = tdelta(&(evl[i].date));
|
|
meillo@7
|
313 append(buf, tmp);
|
|
meillo@7
|
314 free(tmp);
|
|
meillo@7
|
315 }
|
|
meillo@7
|
316 } else {
|
|
meillo@7
|
317 if (delta(&(evl[i].date)) <= evl[i].warn) {
|
|
meillo@7
|
318 append(buf, evl[i].text);
|
|
meillo@7
|
319 append(buf, " for ");
|
|
meillo@14
|
320 /* +1 because, if the difference between two dates is one day,
|
|
meillo@14
|
321 then the length of an event on those days is two days */
|
|
meillo@7
|
322 j = ddiff(&(evl[i].date),&(evl[i].enddate)) + 1;
|
|
meillo@7
|
323 tmp = ttime(0, 0, j/7, j%7);
|
|
meillo@7
|
324 append(buf, tmp);
|
|
meillo@7
|
325 free(tmp);
|
|
meillo@7
|
326 append(buf, " ");
|
|
meillo@7
|
327 tmp = tdelta(&(evl[i].date));
|
|
meillo@7
|
328 append(buf, tmp);
|
|
meillo@7
|
329 } else if (delta(&(evl[i].enddate)) <= evl[i].warn) {
|
|
meillo@7
|
330 append(buf, evl[i].text);
|
|
meillo@7
|
331 append(buf, " ");
|
|
meillo@7
|
332 j = delta(&(evl[i].enddate));
|
|
meillo@7
|
333 if (j) {
|
|
meillo@7
|
334 append(buf, "for ");
|
|
meillo@7
|
335 tmp = ttime(0, 0, j/7, j%7);
|
|
meillo@7
|
336 append(buf, tmp);
|
|
meillo@7
|
337 free(tmp);
|
|
meillo@7
|
338 append(buf, " longer");
|
|
meillo@7
|
339 } else {
|
|
meillo@7
|
340 append(buf, "finishes today");
|
|
meillo@7
|
341 }
|
|
meillo@7
|
342 }
|
|
meillo@7
|
343 }
|
|
meillo@7
|
344 if (*buf) {
|
|
meillo@7
|
345 append(buf, ".");
|
|
meillo@7
|
346 outf(buf);
|
|
meillo@7
|
347 }
|
|
meillo@7
|
348 free(buf);
|
|
meillo@7
|
349 }
|
|
meillo@7
|
350 }
|
|
meillo@7
|
351
|
|
meillo@7
|
352
|
|
meillo@7
|
353
|
|
meillo@7
|
354
|
|
meillo@7
|
355
|
|
meillo@7
|
356
|
|
meillo@7
|
357
|
|
meillo@7
|
358
|
|
meillo@7
|
359 /* sort the events by the time before the next time they come up, putting those
|
|
meillo@7
|
360 where the start has passed but we are still in the time-period first */
|
|
meillo@8
|
361 int evcmp(const void* p1, const void* p2) {
|
|
meillo@8
|
362 struct event* e1=(struct event*) p1;
|
|
meillo@8
|
363 struct event* e2=(struct event*) p2;
|
|
meillo@8
|
364 unsigned d1, d2;
|
|
meillo@7
|
365
|
|
meillo@7
|
366 /* if the delta for the enddate is less than that for the start date, then we
|
|
meillo@7
|
367 have passed the start date but not yet the end date, and so we should
|
|
meillo@7
|
368 display the enddate; otherwise, we should display the start date */
|
|
meillo@7
|
369
|
|
meillo@7
|
370 d1=delta(&(e1->date));
|
|
meillo@7
|
371 if (e1->enddate.day && delta(&(e1->enddate)) < d1)
|
|
meillo@7
|
372 d1=delta(&(e1->enddate));
|
|
meillo@7
|
373
|
|
meillo@7
|
374 d2=delta(&(e2->date));
|
|
meillo@7
|
375 if (e2->enddate.day && delta(&(e2->enddate)) < d2)
|
|
meillo@7
|
376 d2=delta(&(e2->enddate));
|
|
meillo@7
|
377
|
|
meillo@7
|
378 if (d1 < d2) return -1;
|
|
meillo@8
|
379 if (d1 > d2) return 1;
|
|
meillo@7
|
380
|
|
meillo@7
|
381 return strcmp(e1->text, e2->text);
|
|
meillo@7
|
382 }
|
|
meillo@7
|
383
|
|
meillo@7
|
384
|
|
meillo@7
|
385
|
|
meillo@7
|
386
|
|
meillo@7
|
387
|
|
meillo@7
|
388
|
|
meillo@7
|
389 /* difference in days between two dates */
|
|
meillo@7
|
390 /* it is assumed that D1 < D2, and so the result is always positive */
|
|
meillo@8
|
391 unsigned ddiff(struct date* D1, struct date* D2) {
|
|
meillo@8
|
392 struct date d1, d2;
|
|
meillo@8
|
393 int dd, m;
|
|
meillo@7
|
394
|
|
meillo@7
|
395 /* make working copies */
|
|
meillo@8
|
396 d1 = *D1;
|
|
meillo@8
|
397 d2 = *D2;
|
|
meillo@7
|
398
|
|
meillo@7
|
399 /* sort out zero years */
|
|
meillo@7
|
400 if (d1.year == 0 || d2.year==0) {
|
|
meillo@7
|
401 if (d1.year != d2.year) {
|
|
meillo@7
|
402 if (d1.year == 0) {
|
|
meillo@8
|
403 if (before(d1,d2))
|
|
meillo@8
|
404 d1.year = d2.year;
|
|
meillo@8
|
405 else
|
|
meillo@8
|
406 d1.year = d2.year - 1;
|
|
meillo@8
|
407 } else {
|
|
meillo@8
|
408 if (before(d1, d2))
|
|
meillo@8
|
409 d2.year = d1.year;
|
|
meillo@8
|
410 else
|
|
meillo@8
|
411 d2.year = d1.year + 1;
|
|
meillo@7
|
412 }
|
|
meillo@7
|
413 } else { /* both years zero */
|
|
meillo@8
|
414 if (before(d1, d2))
|
|
meillo@8
|
415 d1.year = d2.year = today.year;
|
|
meillo@7
|
416 else {
|
|
meillo@8
|
417 d1.year = today.year;
|
|
meillo@8
|
418 d2.year = d1.year + 1;
|
|
meillo@7
|
419 }
|
|
meillo@7
|
420 }
|
|
meillo@7
|
421 }
|
|
meillo@7
|
422
|
|
meillo@7
|
423 /* now we can actually do the comparison ... */
|
|
meillo@8
|
424 dd = 0;
|
|
meillo@7
|
425
|
|
meillo@7
|
426 /* to start with, we work in months */
|
|
meillo@7
|
427 for (m=d1.month; m < d2.month + (d2.year-d1.year)*12; m++)
|
|
meillo@7
|
428 dd += mlen(((m-1)%12)+1, d1.year + m/12);
|
|
meillo@7
|
429
|
|
meillo@7
|
430 /* and then we renormalise for the days within the months */
|
|
meillo@7
|
431 /* the first month was included in our calculations */
|
|
meillo@7
|
432 dd -= d1.day;
|
|
meillo@7
|
433 /* but the last one wasn't */
|
|
meillo@7
|
434 dd += d2.day;
|
|
meillo@7
|
435
|
|
meillo@7
|
436 return dd;
|
|
meillo@7
|
437 }
|
|
meillo@7
|
438
|
|
meillo@7
|
439
|
|
meillo@7
|
440
|
|
meillo@7
|
441
|
|
meillo@7
|
442
|
|
meillo@7
|
443
|
|
meillo@7
|
444
|
|
meillo@7
|
445
|
|
meillo@7
|
446 /* actually until the next anniversary of ... */
|
|
meillo@7
|
447 unsigned delta(struct date *date) {
|
|
meillo@7
|
448 struct date d;
|
|
meillo@7
|
449 unsigned dt, mn;
|
|
meillo@7
|
450
|
|
meillo@7
|
451 memcpy(&d, date, sizeof(struct date));
|
|
meillo@7
|
452
|
|
meillo@7
|
453 /* past the end of the year */
|
|
meillo@7
|
454 if (before(d, today)) {
|
|
meillo@7
|
455 d.year = 1;
|
|
meillo@7
|
456 } else {
|
|
meillo@7
|
457 d.year = 0;
|
|
meillo@7
|
458 }
|
|
meillo@7
|
459
|
|
meillo@8
|
460 for (mn = today.month, dt=0; mn < d.month + 12*d.year; mn++) {
|
|
meillo@7
|
461 dt += mlen(((mn-1)%12) + 1,today.year + mn/12);
|
|
meillo@8
|
462 }
|
|
meillo@7
|
463
|
|
meillo@7
|
464 dt -= today.day;
|
|
meillo@7
|
465 dt += d.day;
|
|
meillo@7
|
466
|
|
meillo@7
|
467 return dt;
|
|
meillo@7
|
468 }
|
|
meillo@7
|
469
|
|
meillo@7
|
470
|
|
meillo@7
|
471
|
|
meillo@7
|
472
|
|
meillo@7
|
473
|
|
meillo@7
|
474
|
|
meillo@7
|
475 void gettoday(void) {
|
|
meillo@7
|
476 struct tm *tm;
|
|
meillo@7
|
477 time_t t;
|
|
meillo@7
|
478
|
|
meillo@7
|
479 time(&t);
|
|
meillo@7
|
480 tm = localtime(&t);
|
|
meillo@7
|
481 today.day = tm->tm_mday;
|
|
meillo@7
|
482 today.month = tm->tm_mon + 1; /* 1-12 instead of 0-11 */
|
|
meillo@7
|
483 today.year = tm->tm_year + 1900;
|
|
meillo@7
|
484 }
|
|
meillo@7
|
485
|
|
meillo@7
|
486
|
|
meillo@7
|
487
|
|
meillo@7
|
488
|
|
meillo@7
|
489
|
|
meillo@7
|
490
|
|
meillo@7
|
491
|
|
meillo@7
|
492
|
|
meillo@7
|
493
|
|
meillo@7
|
494
|
|
meillo@7
|
495 struct event* readlist() {
|
|
meillo@7
|
496 int i, j, k, l, d;
|
|
meillo@7
|
497 struct event *evl;
|
|
meillo@7
|
498 char buf[1024], buf2[1024];
|
|
meillo@7
|
499 char *ptr;
|
|
meillo@7
|
500 unsigned flags;
|
|
meillo@7
|
501
|
|
meillo@7
|
502 /* initialise */
|
|
meillo@7
|
503 gettoday();
|
|
meillo@7
|
504
|
|
meillo@7
|
505 for (i = 0, evl = NULL; fgets(buf, sizeof(buf), stdin) != NULL; i++) {
|
|
meillo@7
|
506 evl = (struct event *) xrealloc(evl, sizeof(struct event) * (i + 1));
|
|
meillo@7
|
507
|
|
meillo@7
|
508 /* ignore comments and empty lines */
|
|
meillo@7
|
509 if (*buf == '#' || *buf == '\n') {
|
|
meillo@7
|
510 i--;
|
|
meillo@7
|
511 continue;
|
|
meillo@7
|
512 }
|
|
meillo@7
|
513
|
|
meillo@7
|
514 /* parse string in buf */
|
|
meillo@7
|
515 ptr = strrchr(buf, '='); /* allow '=' in text */
|
|
meillo@7
|
516
|
|
meillo@7
|
517 /* not a valid line, so ignore it! Cool, huh? */
|
|
meillo@7
|
518 /* Attention: only recognizes lines without '=' */
|
|
meillo@7
|
519 if (ptr == NULL) {
|
|
meillo@7
|
520 fprintf(stderr, "WARNING: Invalid line in input:\n%s", buf);
|
|
meillo@7
|
521 i--;
|
|
meillo@7
|
522 continue;
|
|
meillo@7
|
523 }
|
|
meillo@7
|
524
|
|
meillo@7
|
525 *(ptr++) = 0;
|
|
meillo@7
|
526
|
|
meillo@7
|
527 j = sscanf(ptr, "%u-%u-%u", &(evl[i].date.year), &(evl[i].date.month), &(evl[i].date.day));
|
|
meillo@7
|
528 /* ... unless it wasn't read, in which case set it to zero */
|
|
meillo@7
|
529 if (j==2) {
|
|
meillo@7
|
530 evl[i].date.year = 0;
|
|
meillo@7
|
531 }
|
|
meillo@7
|
532
|
|
meillo@7
|
533
|
|
meillo@7
|
534 /* parse flags */
|
|
meillo@7
|
535
|
|
meillo@7
|
536 evl[i].warn = iDWarn;
|
|
meillo@7
|
537 evl[i].enddate.day = 0;
|
|
meillo@7
|
538 evl[i].enddate.month = 0;
|
|
meillo@7
|
539 evl[i].enddate.year = 0;
|
|
meillo@7
|
540
|
|
meillo@7
|
541 flags = 0;
|
|
meillo@7
|
542 j = 0;
|
|
meillo@7
|
543
|
|
meillo@7
|
544 while(j = skptok(j, ptr), ptr[j] != 0) {
|
|
meillo@7
|
545 for (k = 0; FTABLE[k].txt != NULL && strncmp(FTABLE[k].txt, ptr + j, strlen(FTABLE[k].txt)); k++) {
|
|
meillo@7
|
546 }
|
|
meillo@7
|
547
|
|
meillo@7
|
548 switch (FTABLE[k].flag) {
|
|
meillo@7
|
549 case F_WTIME_P: /* w <n> -- sets warning time */
|
|
meillo@7
|
550 sscanf(ptr + j, "w %u", &(evl[i].warn));
|
|
meillo@7
|
551 break;
|
|
meillo@7
|
552 case F_FORDAYS: /* for <days> -- sets the duration of the event */
|
|
meillo@7
|
553 sscanf(ptr + j, "for %u", &d);
|
|
meillo@7
|
554 evl[i].enddate=evl[i].date;
|
|
meillo@7
|
555 for (l = 1; l < d; l++) {
|
|
meillo@7
|
556 evl[i].enddate.day++;
|
|
meillo@7
|
557 if (evl[i].enddate.day > mlen(evl[i].enddate.month, evl[i].enddate.year)) {
|
|
meillo@7
|
558 evl[i].enddate.month++;
|
|
meillo@7
|
559 evl[i].enddate.day = 1;
|
|
meillo@7
|
560 }
|
|
meillo@7
|
561 if (evl[i].enddate.month > 12) {
|
|
meillo@7
|
562 evl[i].enddate.year++;
|
|
meillo@7
|
563 evl[i].enddate.month = 1;
|
|
meillo@7
|
564 }
|
|
meillo@7
|
565 }
|
|
meillo@7
|
566 break;
|
|
meillo@7
|
567 case F_TODATE: /* to <date> -- sets the end date of the event */
|
|
meillo@7
|
568 l = sscanf(ptr + j, "to %u-%u-%u", &(evl[i].enddate.year), &(evl[i].enddate.month), &(evl[i].enddate.day));
|
|
meillo@7
|
569 if (l == 2) {
|
|
meillo@7
|
570 evl[i].enddate.year = 0;
|
|
meillo@7
|
571 }
|
|
meillo@7
|
572 break;
|
|
meillo@7
|
573 case 0:
|
|
meillo@7
|
574 break;
|
|
meillo@7
|
575 default:
|
|
meillo@7
|
576 flags |= FTABLE[k].flag;
|
|
meillo@7
|
577 break;
|
|
meillo@7
|
578 }
|
|
meillo@7
|
579 }
|
|
meillo@7
|
580
|
|
meillo@7
|
581
|
|
meillo@7
|
582 /* construct event text */
|
|
meillo@7
|
583
|
|
meillo@7
|
584 switch(flags & F_MTYPE) {
|
|
meillo@7
|
585 case F_TBIRTHDAY:
|
|
meillo@7
|
586 default: /* assume it's a birthday */
|
|
meillo@7
|
587 if (evl[i].date.year != 0) {
|
|
meillo@7
|
588 int tmp_age = ydelta(evl[i].date, today);
|
|
meillo@7
|
589 if (tmp_age != 1) {
|
|
meillo@7
|
590 sprintf(buf2, "%s is %d years old", buf, tmp_age);
|
|
meillo@7
|
591 } else {
|
|
meillo@7
|
592 sprintf(buf2, "%s is %d year old", buf, tmp_age);
|
|
meillo@7
|
593 }
|
|
meillo@7
|
594 } else {
|
|
meillo@7
|
595 sprintf(buf2, "%s has a birthday", buf);
|
|
meillo@7
|
596 }
|
|
meillo@7
|
597 break;
|
|
meillo@7
|
598 case F_TANNIVERSARY:
|
|
meillo@7
|
599 if (evl[i].date.year != 0) {
|
|
meillo@7
|
600 sprintf(buf2, "%s %d years ago", buf, ydelta(evl[i].date, today));
|
|
meillo@7
|
601 } else {
|
|
meillo@7
|
602 strcpy(buf2, buf);
|
|
meillo@7
|
603 }
|
|
meillo@7
|
604 break;
|
|
meillo@7
|
605 case F_TEVENT:
|
|
meillo@7
|
606 /* if a year was specified, and this warning isn't for it, ignore! */
|
|
meillo@14
|
607 if ((evl[i].date.year != 0 && ydelta(evl[i].date, today) != 0)
|
|
meillo@14
|
608 && (evl[i].enddate.year == 0 || ydelta(evl[i].enddate, today) != 0)) {
|
|
meillo@7
|
609 i--;
|
|
meillo@7
|
610 continue;
|
|
meillo@7
|
611 }
|
|
meillo@7
|
612 strcpy(buf2, buf);
|
|
meillo@7
|
613 break;
|
|
meillo@7
|
614 }
|
|
meillo@7
|
615 evl[i].text = strdup(buf2);
|
|
meillo@7
|
616 }
|
|
meillo@7
|
617
|
|
meillo@7
|
618 evl = (struct event *) xrealloc(evl, sizeof(struct event) * (i + 1));
|
|
meillo@7
|
619 evl[i].date.day = 0;
|
|
meillo@7
|
620 evl[i].date.month = 0;
|
|
meillo@7
|
621 evl[i].date.year = 0;
|
|
meillo@7
|
622 evl[i].text = (char *) NULL;
|
|
meillo@7
|
623
|
|
meillo@7
|
624 fclose(stdin);
|
|
meillo@7
|
625
|
|
meillo@7
|
626 /* NB uses i from above */
|
|
meillo@7
|
627 qsort(evl, i, sizeof(struct event), evcmp);
|
|
meillo@7
|
628 return evl;
|
|
meillo@7
|
629 }
|
|
meillo@7
|
630
|
|
meillo@7
|
631
|
|
meillo@7
|
632
|
|
meillo@7
|
633
|
|
meillo@7
|
634
|
|
meillo@7
|
635 int skptok(int j, char *ptr) {
|
|
meillo@7
|
636 for (; ptr[j] != 0 && ptr[j] != ' ' && ptr[j] != '\t' ; j++);
|
|
meillo@7
|
637 for (; ptr[j] != 0 && (ptr[j] == ' ' || ptr[j] == '\t'); j++);
|
|
meillo@7
|
638
|
|
meillo@7
|
639 return j;
|
|
meillo@7
|
640 }
|
|
meillo@7
|
641
|
|
meillo@7
|
642
|
|
meillo@7
|
643
|
|
meillo@7
|
644
|
|
meillo@0
|
645
|
|
meillo@0
|
646
|
|
meillo@6
|
647 int main(int argc, char* argv[]) {
|
|
meillo@0
|
648
|
|
meillo@0
|
649 while (--argc > 0 && (*++argv)[0] == '-') {
|
|
meillo@5
|
650 if (strcmp(argv[0], "-W") == 0) {
|
|
meillo@6
|
651 /* TODO: catch if no value given */
|
|
meillo@0
|
652 iDWarn = atoi((++argv)[0]);
|
|
meillo@0
|
653 argc--;
|
|
meillo@0
|
654 } else {
|
|
meillo@3
|
655 fprintf(stderr, "unknown option %s\n", argv[0]);
|
|
meillo@0
|
656 exit(1);
|
|
meillo@0
|
657 }
|
|
meillo@0
|
658 }
|
|
meillo@0
|
659
|
|
meillo@6
|
660 liststrings(readlist(), puts);
|
|
meillo@0
|
661
|
|
meillo@0
|
662 return 0;
|
|
meillo@0
|
663 }
|
