Return to pdate.c CVS log

Up to [Research Unix] / researchv10no / cmd / sky

Annotation of researchv10no/cmd/sky/pdate.c, revision 1.1.1.1

1.1       root        1: #include "sky.h"
                      2: 
                      3: int    timezone =      5;
                      4: int    daylight =      1;
                      5: 
                      6: int    dmo[12]
                      7: = {
                      8:        0,31,59,90,120,151,181,212,243,273,304,334
                      9: };
                     10: double
                     11: dsrc(d, ifa, i)
                     12: double d;
                     13: double ifa[];
                     14: {
                     15:        double y;
                     16: 
                     17:        do {
                     18:                ifa[i] += 1.;
                     19:                y = convdate(ifa);
                     20:                ddd(d, y, ifa, '>');
                     21:        } while(d >= y);
                     22:        do {
                     23:                ifa[i] -= 1.;
                     24:                y = convdate(ifa);
                     25:                ddd(d, y, ifa, '<');
                     26:        } while(d < y);
                     27:        return(d - y);
                     28: }
                     29: 
                     30: ddd(d, y, ifa, ch)
                     31: double d, y, ifa[];
                     32: {
                     33: 
                     34: }
                     35: 
                     36: dtsetup(d, ifa)
                     37: double d;
                     38: double ifa[];
                     39: {
                     40: 
                     41:        if(flags & KITCH) {
                     42:                d -= timezone/24.;
                     43:                bdtsetup(d, ifa);
                     44:                if(lastsun(ifa, 4))
                     45:                        return;
                     46:                if(!lastsun(ifa, 10))
                     47:                        return;
                     48:                d += 1./24.;
                     49:        }
                     50:        bdtsetup(d, ifa);
                     51: }
                     52: 
                     53: lastsun(ifa, m)
                     54: double ifa[];
                     55: {
                     56: 
                     57:        if(ifa[1] < m)
                     58:                return(1);
                     59:        if(ifa[1] > m)
                     60:                return(0);
                     61:        if(ifa[2] < 24)
                     62:                return(1);
                     63:        return(0); /* fix up later */
                     64: }
                     65: 
                     66: bdtsetup(d, ifa)
                     67: double ifa[];
                     68: double d;
                     69: {
                     70:        double t;
                     71: 
                     72:        ifa[0] = floor(1900. + d/365.2425);
                     73:        ifa[1] = 1.;
                     74:        ifa[2] = 1.;
                     75:        ifa[3] = 0.;
                     76:        ifa[4] = 0.;
                     77:        ifa[1] = floor(1. + dsrc(d, ifa, 0)/30.);
                     78:        ifa[2] = floor(1. + dsrc(d, ifa, 1));
                     79:        dsrc(d, ifa, 2);
                     80: 
                     81:        d -= .5;
                     82:        t = (d - floor(d))*24.;
                     83:        ifa[3] = floor(t);
                     84:        ifa[4] = (t-ifa[3]) * 60.;
                     85: }
                     86: 
                     87: pdate(d)
                     88: double d;
                     89: {
                     90:        double ifa[5];
                     91: 
                     92:        dtsetup(d, ifa);
                     93:        printf("%.0f %.0f %.0f", ifa[0], ifa[1], ifa[2]);
                     94: }
                     95: 
                     96: ptime(d)
                     97: double d;
                     98: {
                     99:        double ifa[5];
                    100: 
                    101:        dtsetup(d, ifa);
                    102:        printf("%.0f:%.2f", ifa[3], ifa[4]);
                    103: }
                    104: 
                    105: prlat()
                    106: {
                    107: /*
                    108:        printf("%.4f N.  %.4f W.  %.0f m. above MSL\n", nlat, wlong, elev);
                    109: */
                    110: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.