version 1.1, 1996/12/05 06:04:40 |
version 1.7, 2009/10/27 23:59:36 |
|
|
* $Id$ |
* $Id$ |
*/ |
*/ |
|
|
#ifndef lint |
|
static char rcsid[] = "$OpenBSD$"; |
|
#endif /* not lint */ |
|
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
|
#include <string.h> |
|
#include <time.h> |
#include <time.h> |
|
#include <tzfile.h> |
|
|
#include "calendar.h" |
#include "calendar.h" |
|
|
/* return year day for Easter */ |
/* return year day for Easter */ |
|
|
int easter (year) |
int |
int year; /* 0 ... abcd, NOT since 1900 */ |
easter(int year) /* 0 ... abcd, NOT since 1900 */ |
{ |
{ |
|
int e_a, e_b, e_c, e_d, e_e,e_f, e_g, e_h, e_i, e_k; |
|
int e_l, e_m, e_n, e_p, e_q; |
|
|
int e_a, e_b, e_c, e_d, e_e,e_f, e_g, e_h, e_i, e_k, |
/* silly, but it works */ |
e_l, e_m, e_n, e_p, e_q; |
e_a = year % 19; |
|
e_b = year / 100; |
|
e_c = year % 100; |
|
|
/* silly, but it works */ |
e_d = e_b / 4; |
e_a = year % 19; |
e_e = e_b % 4; |
e_b = year / 100; |
e_f = (e_b + 8) / 25; |
e_c = year % 100; |
e_g = (e_b + 1 - e_f) / 3; |
|
e_h = ((19 * e_a) + 15 + e_b - (e_d + e_g)) % 30; |
|
e_i = e_c / 4; |
|
e_k = e_c % 4; |
|
e_l = (32 + 2 * e_e + 2 * e_i - (e_h + e_k)) % 7; |
|
e_m = (e_a + 11 * e_h + 22 * e_l) / 451; |
|
e_n = (e_h + e_l + 114 - (7 * e_m)) / 31; |
|
e_p = (e_h + e_l + 114 - (7 * e_m)) % 31; |
|
e_p = e_p + 1; |
|
|
e_d = e_b / 4; |
e_q = 31 + 28 + e_p; |
e_e = e_b % 4; |
if (isleap(year)) |
e_f = (e_b + 8) / 25; |
e_q++; |
e_g = (e_b + 1 - e_f) / 3; |
|
e_h = ((19 * e_a) + 15 + e_b - (e_d + e_g)) % 30; |
|
e_i = e_c / 4; |
|
e_k = e_c % 4; |
|
e_l = (32 + 2 * e_e + 2 * e_i - (e_h + e_k)) % 7; |
|
e_m = (e_a + 11 * e_h + 22 * e_l) / 451; |
|
e_n = (e_h + e_l + 114 - (7 * e_m)) / 31; |
|
e_p = (e_h + e_l + 114 - (7 * e_m)) % 31; |
|
e_p = e_p + 1; |
|
|
|
e_q = 31 + 28; |
if (e_n == 4) |
|
|
if (e_k == 0 && e_c != 0) |
|
e_q += 1; |
|
|
|
if (e_n == 4) |
|
e_q += 31; |
e_q += 31; |
|
|
e_q += e_p; |
|
|
|
#if DEBUG |
#if DEBUG |
printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n", e_a , e_b , e_c , e_d , e_e , e_f , e_g , e_h , e_i , e_k , e_l , e_m , e_n , e_p , e_q); |
printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n", |
|
e_a, e_b, e_c, e_d, e_e, e_f, e_g, e_h, |
|
e_i, e_k, e_l, e_m, e_n, e_p, e_q); |
#endif |
#endif |
|
|
return (e_q); |
return (e_q); |
} |
|
|
|
/* return year day for Easter or easter depending days |
|
* Match: Easter([+-][0-9]+)? |
|
* e.g: Easter-2 is Good Friday (2 days before Easter) |
|
*/ |
|
|
|
int |
|
geteaster(s, year) |
|
char *s; |
|
int year; |
|
{ |
|
register int offset = 0; |
|
extern struct fixs neaster; |
|
|
|
#define EASTER "easter" |
|
#define EASTERNAMELEN (sizeof(EASTER) - 1) |
|
|
|
if (strncasecmp(s, EASTER, EASTERNAMELEN) == 0) |
|
s += EASTERNAMELEN; |
|
else if ( neaster.name != NULL |
|
&& strncasecmp(s, neaster.name, neaster.len) == 0 |
|
) |
|
s += neaster.len; |
|
else |
|
return(0); |
|
|
|
#if DEBUG |
|
printf("%s %d %d\n", s, year, EASTERNAMELEN); |
|
#endif |
|
|
|
/* Easter+1 or Easter-2 |
|
* ^ ^ */ |
|
|
|
switch(*s) { |
|
|
|
case '-': |
|
case '+': |
|
offset = atoi(s); |
|
break; |
|
|
|
default: |
|
offset = 0; |
|
} |
|
|
|
return (easter(year) + offset); |
|
} |
} |