Return to paskha.c CVS log

Up to [local] / src / usr.bin / calendar

Annotation of src/usr.bin/calendar/paskha.c, Revision 1.3

1.3     ! deraadt     1: /*     $OpenBSD: paskha.c,v 1.2 1998/12/13 07:31:08 pjanzen Exp $      */
1.1       millert     2:
                      3: /*
                      4:  * Copyright (C) 1993-1996 by Andrey A. Chernov, Moscow, Russia.
                      5:  * All rights reserved.
                      6:  *
                      7:  * Redistribution and use in source and binary forms, with or without
                      8:  * modification, are permitted provided that the following conditions
                      9:  * are met:
                     10:  * 1. Redistributions of source code must retain the above copyright
                     11:  *    notice, this list of conditions and the following disclaimer.
                     12:  * 2. Redistributions in binary form must reproduce the above copyright
                     13:  *    notice, this list of conditions and the following disclaimer in the
                     14:  *    documentation and/or other materials provided with the distribution.
                     15:  *
                     16:  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
                     17:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
                     18:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
                     19:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
                     20:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
                     21:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
                     22:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
                     23:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
                     24:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
                     25:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
                     26:  * SUCH DAMAGE.
                     27:  */
                     28:
                     29: #ifndef lint
1.3     ! deraadt    30: static char rcsid[] = "$OpenBSD: paskha.c,v 1.2 1998/12/13 07:31:08 pjanzen Exp $";
1.1       millert    31: #endif /* not lint */
                     32:
                     33: #include <stdio.h>
                     34: #include <stdlib.h>
                     35: #include <string.h>
                     36: #include <time.h>
1.2       pjanzen    37: #include <tzfile.h>
1.3     ! deraadt    38:
        !            39: #include "calendar.h"
1.1       millert    40:
                     41: /* return year day for Orthodox Easter using Gauss formula */
1.2       pjanzen    42: /* (new style result); subtract 13 for old style */
1.1       millert    43:
1.2       pjanzen    44: int
1.1       millert    45: paskha (R)
1.2       pjanzen    46:        int R;  /*year*/
1.1       millert    47: {
                     48:        int a, b, c, d, e;
                     49:        static int x = 15;
                     50:        static int y = 6;
1.2       pjanzen    51:        int cumdays;
1.1       millert    52:
                     53:        a = R % 19;
                     54:        b = R % 4;
                     55:        c = R % 7;
                     56:        d = (19*a + x) % 30;
                     57:        e = (2*b + 4*c + 6*d + y) % 7;
1.2       pjanzen    58:        cumdays = 31 + 28;
                     59:        if (isleap(R))
                     60:                cumdays++;
                     61:        return ((cumdays + 22) + (d + e) + 13);
1.1       millert    62: }