source: buchla-68k/orig/DATE/ARPATIME.C

/* arpatime.c - routines to do ``ARPA-style'' time structures */
/* requires the "notorious" timeb.h ... */

#include "tws.h"
#include <stdio.h>
#include <sys/types.h>

#include "timeb.h"

#ifndef BSD42
#include <time.h>
#else   BSD42
#include <sys/time.h>
#endif  BSD42

#ifdef  MAIN
main()
{

printf("%s\n",dtimenow());

}
#endif

#define abs(a)  (a >= 0 ? a : -a)

static char *month[] = {
    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};

static char *day[] = {
    "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
};

struct keywd {
    char   *key;
    int     value;
};

#define NZONES  (sizeof (zones)/sizeof (struct keywd))

static struct keywd zones[] = { /* order sensitive */
    "UT", 0,
    "EST", -5, "CST", -6,  "MST", -7, "PST", -8, "PDT", -9,
    "A",   -1, "B",   -2,  "C",   -3, "D",   -4,
    "E",   -5, "F",   -6,  "G",   -7, "H",   -8,
    "I",   -9, "K",  -10,  "L",  -11, "M",  -12,
    "N",    1, "O",    2,  "P",    3, "Q",    4,
    "R",    5, "S",    6,  "T",    7, "U",    8,
    "V",    9, "W",   10,  "X",   11, "Y",   12
};


long    time ();
struct tm *localtime ();

char   *dtime (clock)
long   *clock;
{
    return dasctime (dlocaltime (clock));
}


char *dtimenow()
{
    long    clock;

    time (&clock);
    return dtime (&clock);
}


char   *dctime (tw)
struct tws *tw;
{
    static char buffer[25];

    if (!tw)
        return NULL;

    sprintf (buffer, "%.3s %.3s %02d %02d:%02d:%02d %.4d\n",
            day[tw -> tw_wday], month[tw -> tw_mon], tw -> tw_mday,
            tw -> tw_hour, tw -> tw_min, tw -> tw_sec,
            tw -> tw_year >= 100 ? tw -> tw_year : 1900 + tw -> tw_year);

    return buffer;
}

struct tws *dlocaltime (clock)
long   *clock;
{
    struct tm  *tm;
    struct timeb    tb;
    static struct tws   tw;

    if (!clock)
        return NULL;

    tm = localtime (clock);
    tw.tw_sec = tm -> tm_sec;
    tw.tw_min = tm -> tm_min;
    tw.tw_hour = tm -> tm_hour;
    tw.tw_mday = tm -> tm_mday;
    tw.tw_mon = tm -> tm_mon;
    tw.tw_year = tm -> tm_year;
    tw.tw_wday = tm -> tm_wday;
    tw.tw_yday = tm -> tm_yday;
    tw.tw_isdst = tm -> tm_isdst;

    ftime (&tb);
    tw.tw_zone = -tb.timezone;
    tw.tw_sday = 0;

    return (&tw);
}

char   *dasctime (tw)
struct tws *tw;
{
    static char buffer[80],
                result[80];

    if (!tw)
        return NULL;

    sprintf (buffer, "%02d %s %02d %02d:%02d:%02d %s",
            tw -> tw_mday, month[tw -> tw_mon], tw -> tw_year,
            tw -> tw_hour, tw -> tw_min, tw -> tw_sec,
            dtimezone (tw -> tw_zone, tw -> tw_isdst));

    if (tw -> tw_sday > 0)
        sprintf (result, "%s, %s", day[tw -> tw_wday], buffer);
    else
        if (tw -> tw_sday < 0)
            strcpy (result, buffer);
        else
/*          sprintf (result, "%s (%s)", buffer, day[tw -> tw_wday]);*/
            sprintf (result, "%s, %s", day[tw -> tw_wday], buffer);
    return result;
}

char   *dtimezone (zone, dst)
int     zone,
        dst;
{
    int     i,
            j,
            hours,
            mins;
    static char buffer[10];

    if (zone < 0) {
        mins = -((-zone) % 60);
        hours = -((-zone) / 60);
    }
    else {
        mins = zone % 60;
        hours = zone / 60;
    }

    if (dst)
        hours -= 1;

    if (mins == 0)
        for (i = 0, j = NZONES; i < j; i++)
            if (zones[i].value == hours) {
                strcpy (buffer, zones[i].key);
                if (dst && buffer[1] == 'S')
                    buffer[1] = 'D';
                return buffer;
            }

    sprintf (buffer, "%s%02d%02d",
            zone < 0 ? "-" : "+", abs (hours), abs (mins));
    return buffer;
}