#if HAVE_CONFIG_H
# include <config.h>
#endif
#if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_RCC8000)
#include "ntp_fp.h"
#include "ntp_unixtime.h"
#include "ntp_calendar.h"
#include "parse.h"
#ifndef PARSESTREAM
#include "ntp_stdlib.h"
#include <stdio.h>
#else
#include "sys/parsestreams.h"
extern void printf P((const char *, ...));
#endif
#define O_USEC O_WDAY
static struct format rcc8000_fmt =
{ { { 13, 2 }, {16, 2}, { 19, 2},
{ 0, 2 }, { 3, 2}, { 6, 2},
{ 9, 3 }, {28, 1}, { 0, 0}, },
(const unsigned char *)" : : . / / \r\n",
0
};
static unsigned long cvt_rcc8000 P((unsigned char *, int, struct format *, clocktime_t *, void *));
static unsigned long inp_rcc8000 P((parse_t *, unsigned int, timestamp_t *));
clockformat_t clock_rcc8000 =
{
inp_rcc8000,
cvt_rcc8000,
0,
(void *)&rcc8000_fmt,
"Radiocode RCC8000",
31,
0
};
static unsigned long
cvt_rcc8000(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
if (!Strok(buffer, format->fixed_string)) return CVT_NONE;
#define OFFS(x) format->field_offsets[(x)].offset
#define STOI(x, y) Stoi(&buffer[OFFS(x)], y, format->field_offsets[(x)].length)
if ( STOI(O_DAY, &clock_time->day) ||
STOI(O_MONTH, &clock_time->month) ||
STOI(O_YEAR, &clock_time->year) ||
STOI(O_HOUR, &clock_time->hour) ||
STOI(O_MIN, &clock_time->minute) ||
STOI(O_SEC, &clock_time->second) ||
STOI(O_USEC, &clock_time->usecond)
) return CVT_FAIL|CVT_BADFMT;
clock_time->usecond *= 1000;
clock_time->utcoffset = 0;
#define RCCP buffer[28]
#define RCC8000_VALID 0x8
#define RCC8000_REJECT 0x4
#define RCC8000_BST 0x2
#define RCC8000_LEAPY 0x1
clock_time->flags = 0;
if ( (RCCP >= '0' && RCCP <= '9') || (RCCP >= 'A' && RCCP <= 'F') )
{
register int flag;
flag = (RCCP >= '0' && RCCP <= '9' ) ? RCCP - '0' : RCCP - 'A' + 10;
if (!(flag & RCC8000_VALID))
clock_time->flags |= PARSEB_POWERUP;
clock_time->flags |= PARSEB_UTC;
}
return CVT_OK;
}
static u_long
inp_rcc8000(
parse_t *parseio,
unsigned int ch,
timestamp_t *tstamp
)
{
unsigned int rtc;
parseprintf(DD_PARSE, ("inp_rcc8000(0x%lx, 0x%x, ...)\n", (long)parseio, ch));
switch (ch)
{
case '\n':
parseprintf(DD_PARSE, ("inp_rcc8000: EOL seen\n"));
if ((rtc = parse_addchar(parseio, ch)) == PARSE_INP_SKIP)
return parse_end(parseio);
else
return rtc;
default:
if (parseio->parse_index == 0)
{
parseio->parse_dtime.parse_stime = *tstamp;
}
return parse_addchar(parseio, ch);
}
}
#else
int clk_rcc8000_bs;
#endif