freebsd-dev/contrib/ntp/libparse/clk_wharton.c
1999-12-09 13:01:21 +00:00

181 lines
4.9 KiB
C

/*
* /src/NTP/ntp-4/libparse/clk_wharton.c,v 4.1 1999/02/28 15:27:24 kardel RELEASE_19990228_A
*
* clk_wharton.c,v 4.1 1999/02/28 15:27:24 kardel RELEASE_19990228_A
*
* From Philippe De Muyter <phdm@macqel.be>, 1999
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_WHARTON_400A)
/*
* Support for WHARTON 400A Series clock + 404.2 serial interface.
*
* Copyright (C) 1999 by Philippe De Muyter <phdm@macqel.be>
*
* This program is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE.
*
*/
#include "ntp_fp.h"
#include "ascii.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
/*
* In private e-mail alastair@wharton.co.uk said :
* "If you are going to use the 400A and 404.2 system [for ntp] I recommend
* that you set the 400A to output the message every second. The start of
* transmission of the first byte of the message is synchronised to the
* second edge."
* The WHARTON 400A Series is able to send date/time serial messages
* in 7 output formats. We use format 1 here because it is the shortest.
* For use with this driver, the WHARTON 400A Series clock must be set-up
* as follows :
* Programmable Selected
* Option No Option
* BST or CET display 3 9 or 11
* No external controller 7 0
* Serial Output Format 1 9 1
* Baud rate 9600 bps 10 96
* Bit length 8 bits 11 8
* Parity even 12 E
*
* WHARTON 400A Series output format 1 is as follows :
*
* Timestamp STXssmmhhDDMMYYSETX
* Pos 0 12345678901234
* 0 00000000011111
*
* STX start transmission (ASCII 0x02)
* ETX end transmission (ASCII 0x03)
* ss Second expressed in reversed decimal (units then tens)
* mm Minute expressed in reversed decimal
* hh Hour expressed in reversed decimal
* DD Day of month expressed in reversed decimal
* MM Month expressed in reversed decimal (January is 1)
* YY Year (without century) expressed in reversed decimal
* S Status byte : 0x30 +
* bit 0 0 = MSF source 1 = DCF source
* bit 1 0 = Winter time 1 = Summer time
* bit 2 0 = not synchronised 1 = synchronised
* bit 3 0 = no early warning 1 = early warning
*
*/
/*
* cvt_wharton_400a
*
* convert simple type format
*/
static u_long
cvt_wharton_400a(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
int i;
/* The given `size' includes a terminating null-character. */
if (size != 16 || buffer[0] != STX || buffer[14] != ETX)
return CVT_NONE;
for (i = 1; i < 14; i += 1)
if (buffer[i] < '0' || buffer[i] > '9')
return CVT_NONE;
clock_time->second = (buffer[2] - '0') * 10 + buffer[1] - '0';
clock_time->minute = (buffer[4] - '0') * 10 + buffer[3] - '0';
clock_time->hour = (buffer[6] - '0') * 10 + buffer[5] - '0';
clock_time->day = (buffer[8] - '0') * 10 + buffer[7] - '0';
clock_time->month = (buffer[10] - '0') * 10 + buffer[9] - '0';
clock_time->year = (buffer[12] - '0') * 10 + buffer[11] - '0';
clock_time->usecond = 0;
if (buffer[13] & 0x1) /* We have CET time */
clock_time->utcoffset = -1*60*60;
else /* We have BST time */
clock_time->utcoffset = 0;
if (buffer[13] & 0x2) {
clock_time->flags |= PARSEB_DST;
clock_time->utcoffset += -1*60*60;
}
if (!(buffer[13] & 0x4))
clock_time->flags |= PARSEB_NOSYNC;
if (buffer[13] & 0x8)
clock_time->flags |= PARSEB_ANNOUNCE;
return CVT_OK;
}
/*
* inp_wharton_400a
*
* grep data from input stream
*/
static u_long
inp_wharton_400a(
parse_t *parseio,
unsigned int ch,
timestamp_t *tstamp
)
{
unsigned int rtc;
parseprintf(DD_PARSE, ("inp_wharton_400a(0x%x, 0x%x, ...)\n", (int)parseio, (int)ch));
switch (ch)
{
case STX:
parseprintf(DD_PARSE, ("inp_wharton_400a: STX seen\n"));
parseio->parse_index = 1;
parseio->parse_data[0] = ch;
parseio->parse_dtime.parse_stime = *tstamp; /* collect timestamp */
return PARSE_INP_SKIP;
case ETX:
parseprintf(DD_PARSE, ("inp_wharton_400a: ETX seen\n"));
if ((rtc = parse_addchar(parseio, ch)) == PARSE_INP_SKIP)
return parse_end(parseio);
else
return rtc;
default:
return parse_addchar(parseio, ch);
}
}
clockformat_t clock_wharton_400a =
{
inp_wharton_400a, /* input handling function */
cvt_wharton_400a, /* conversion function */
0, /* no PPS monitoring */
0, /* conversion configuration */
"WHARTON 400A Series clock Output Format 1", /* String format name */
15, /* string buffer */
0 /* no private data (complete pakets) */
};
#else /* not (REFCLOCK && CLOCK_PARSE && CLOCK_WHARTON_400A) */
int clk_wharton_400a_bs;
#endif /* not (REFCLOCK && CLOCK_PARSE && CLOCK_WHARTON_400A) */
/*
* clk_wharton.c,v
* Revision 4.1 1999/02/28 15:27:24 kardel
* wharton clock integration
*
*/