#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_VARITEXT)
#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
static const u_char VT_INITIALISED = 0x01;
static const u_char VT_SYNCHRONISED = 0x02;
static const u_char VT_ALARM_STATE = 0x04;
static const u_char VT_BST = 0x08;
static const u_char VT_SEASON_CHANGE = 0x10;
static const u_char VT_LAST_TELEGRAM_OK = 0x20;
static struct format varitext_fmt =
{
{
{8, 2}, {5, 2}, {2, 2},
{14, 2}, {17, 2}, {20, 2},
{11, 2}, {24, 1}
},
(const unsigned char*)"T: : : : : : : \r\n ",
0
};
static u_long cvt_varitext P((unsigned char *, int, struct format *, clocktime_t *, void *));
static u_long inp_varitext P((parse_t *, unsigned int, timestamp_t *));
struct varitext {
unsigned char start_found;
unsigned char end_found;
unsigned char end_count;
unsigned char previous_ch;
timestamp_t tstamp;
};
clockformat_t clock_varitext =
{
inp_varitext,
cvt_varitext,
0,
(void *)&varitext_fmt,
"Varitext Radio Clock",
30,
sizeof(struct varitext),
};
static u_long
cvt_varitext(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
if (!Strok(buffer, format->fixed_string)) {
return CVT_NONE;
} else {
if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
format->field_offsets[O_DAY].length) ||
Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
format->field_offsets[O_MONTH].length) ||
Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
format->field_offsets[O_YEAR].length) ||
Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
format->field_offsets[O_HOUR].length) ||
Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
format->field_offsets[O_MIN].length) ||
Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
format->field_offsets[O_SEC].length)) {
return CVT_FAIL | CVT_BADFMT;
} else {
u_char *f = (u_char*) &buffer[format->field_offsets[O_FLAGS].offset];
clock_time->flags = 0;
clock_time->utcoffset = 0;
if (((*f) & VT_BST))
{
clock_time->utcoffset = -1*60*60;
clock_time->flags |= PARSEB_DST;
}
return CVT_OK;
}
}
}
static u_long
inp_varitext(
parse_t *parseio,
unsigned int ch,
timestamp_t *tstamp
)
{
struct varitext *t = (struct varitext *)parseio->parse_pdata;
int rtc;
parseprintf(DD_PARSE, ("inp_varitext(0x%lx, 0x%x, ...)\n", (long)parseio, ch));
if (!t)
return PARSE_INP_SKIP;
if (ch == 'T')
t->tstamp = *tstamp;
if ((t->previous_ch == 'T') && (ch == ':'))
{
parseprintf(DD_PARSE, ("inp_varitext: START seen\n"));
parseio->parse_data[0] = 'T';
parseio->parse_index=1;
parseio->parse_dtime.parse_stime = t->tstamp;
t->start_found = 1;
t->end_found = 0;
t->end_count = 0;
}
if (t->start_found)
{
if ((rtc = parse_addchar(parseio, ch)) != PARSE_INP_SKIP)
{
parseprintf(DD_PARSE, ("inp_varitext: ABORTED due to too many characters\n"));
memset(t, 0, sizeof(struct varitext));
return rtc;
}
if (t->end_found)
{
if (++(t->end_count) == 4)
{
parseprintf(DD_PARSE, ("inp_varitext: END seen\n"));
memset(t, 0, sizeof(struct varitext));
if ((rtc = parse_addchar(parseio, 0)) == PARSE_INP_SKIP)
return parse_end(parseio);
else
return rtc;
}
}
if ((t->previous_ch == '\r') && (ch == '\n'))
{
t->end_found = 1;
}
}
t->previous_ch = ch;
return PARSE_INP_SKIP;
}
#else
int clk_varitext_bs;
#endif