mirror of
https://github.com/open-simh/simtools.git
synced 2026-02-02 14:52:29 +00:00
bf7c17ab4a
file systems. It supports reading and writing as well as a number
of other operations, such as octal dump, file system initialize,
and file system check ("clean").
This was originally maintained as a Subversion repository at
svn://akdesign.dyndns.org/flx/branches/V2.6.
as suggested by Timothe Litt on the SIMH mailing list.
77 lines
1.8 KiB
C
77 lines
1.8 KiB
C
/* subroutines to handle RSTS date/time */
|
|
|
|
#include <stdio.h>
|
|
#include <time.h>
|
|
#include <string.h>
|
|
|
|
#include "flx.h"
|
|
#include "rtime.h"
|
|
#include "fldef.h"
|
|
|
|
static const char months[12][4] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun",
|
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
|
|
static int days[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
|
|
|
|
char *cvtdate (word date, char *buf)
|
|
{
|
|
long day, yr;
|
|
int mon;
|
|
|
|
if (date == 0) { /* no date present */
|
|
memcpy (buf, " none ", DATELEN);
|
|
return (buf + DATELEN - 1); /* point to terminator */
|
|
}
|
|
yr = (long)date / 1000 + 1970;
|
|
day = date % 1000;
|
|
if (yr & 3) days[1] = 28;
|
|
else days[1] = 29; /* check for leap year */
|
|
for (mon = 0; mon < 12; mon++) {
|
|
if (day <= days[mon]) break;
|
|
day -= days[mon];
|
|
}
|
|
sprintf (buf, "%2ld-%3s-%04ld", day, months[mon], yr);
|
|
return (buf + DATELEN - 1); /* point to terminator */
|
|
}
|
|
|
|
char *cvttime (word time, char *buf)
|
|
{
|
|
int hour, min;
|
|
char m;
|
|
|
|
time &= at_msk; /* mask out any flags */
|
|
if (time == 0) { /* no time present */
|
|
memcpy (buf, " none ", RTIMELEN);
|
|
return (buf + RTIMELEN - 1); /* point to terminator */
|
|
}
|
|
time = 1440 - time; /* now time since midnight */
|
|
hour = time / 60;
|
|
min = time % 60;
|
|
if (hour >= 12) {
|
|
hour -= 12;
|
|
m = 'p';
|
|
} else m = 'a';
|
|
if (hour == 0) hour = 12;
|
|
sprintf (buf, "%2d:%02d %1cm", hour, min, m);
|
|
return (buf + RTIMELEN - 1); /* point to terminator */
|
|
}
|
|
|
|
word curdate () /* current date in rsts form */
|
|
{
|
|
struct tm *tmb;
|
|
time_t now;
|
|
|
|
time (&now);
|
|
tmb = localtime (&now);
|
|
return ((tmb->tm_year - 70) * 1000 + tmb->tm_yday + 1);
|
|
}
|
|
|
|
word curtime () /* current time in rsts form */
|
|
{
|
|
struct tm *tmb;
|
|
time_t now;
|
|
|
|
time (&now);
|
|
tmb = localtime (&now);
|
|
return (1440 - (tmb->tm_hour * 60 + tmb->tm_min));
|
|
}
|