diff options
Diffstat (limited to 'contrib/ntp/libparse/clk_wharton.c')
-rw-r--r-- | contrib/ntp/libparse/clk_wharton.c | 180 |
1 files changed, 180 insertions, 0 deletions
diff --git a/contrib/ntp/libparse/clk_wharton.c b/contrib/ntp/libparse/clk_wharton.c new file mode 100644 index 000000000000..2a243a5c114b --- /dev/null +++ b/contrib/ntp/libparse/clk_wharton.c @@ -0,0 +1,180 @@ +/* + * /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 + * + */ |