/* * /src/NTP/ntp4-dev/libparse/clk_wharton.c,v 4.2 2004/11/14 15:29:41 kardel RELEASE_20050508_A * * clk_wharton.c,v 4.2 2004/11/14 15:29:41 kardel RELEASE_20050508_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, 2000 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 || buffer[13] < '0' || buffer[13] > ('0' + 0xf)) return CVT_NONE; for (i = 1; i < 13; 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%lx, 0x%x, ...)\n", (long)parseio, 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 * */