1: /*
2: * /src/NTP/ntp4-dev/libparse/clk_wharton.c,v 4.2 2004/11/14 15:29:41 kardel RELEASE_20050508_A
3: *
4: * clk_wharton.c,v 4.2 2004/11/14 15:29:41 kardel RELEASE_20050508_A
5: *
6: * From Philippe De Muyter <phdm@macqel.be>, 1999
7: */
8: #ifdef HAVE_CONFIG_H
9: #include <config.h>
10: #endif
11:
12: #if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_WHARTON_400A)
13: /*
14: * Support for WHARTON 400A Series clock + 404.2 serial interface.
15: *
16: * Copyright (C) 1999, 2000 by Philippe De Muyter <phdm@macqel.be>
17: *
18: * This program is distributed in the hope that it will be useful, but WITHOUT
19: * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
20: * FITNESS FOR A PARTICULAR PURPOSE.
21: *
22: */
23:
24: #include "ntp_fp.h"
25: #include "ascii.h"
26: #include "parse.h"
27:
28: #ifndef PARSESTREAM
29: #include "ntp_stdlib.h"
30: #include <stdio.h>
31: #else
32: #include "sys/parsestreams.h"
33: extern void printf (const char *, ...);
34: #endif
35:
36: /*
37: * In private e-mail alastair@wharton.co.uk said :
38: * "If you are going to use the 400A and 404.2 system [for ntp] I recommend
39: * that you set the 400A to output the message every second. The start of
40: * transmission of the first byte of the message is synchronised to the
41: * second edge."
42: * The WHARTON 400A Series is able to send date/time serial messages
43: * in 7 output formats. We use format 1 here because it is the shortest.
44: * For use with this driver, the WHARTON 400A Series clock must be set-up
45: * as follows :
46: * Programmable Selected
47: * Option No Option
48: * BST or CET display 3 9 or 11
49: * No external controller 7 0
50: * Serial Output Format 1 9 1
51: * Baud rate 9600 bps 10 96
52: * Bit length 8 bits 11 8
53: * Parity even 12 E
54: *
55: * WHARTON 400A Series output format 1 is as follows :
56: *
57: * Timestamp STXssmmhhDDMMYYSETX
58: * Pos 0 12345678901234
59: * 0 00000000011111
60: *
61: * STX start transmission (ASCII 0x02)
62: * ETX end transmission (ASCII 0x03)
63: * ss Second expressed in reversed decimal (units then tens)
64: * mm Minute expressed in reversed decimal
65: * hh Hour expressed in reversed decimal
66: * DD Day of month expressed in reversed decimal
67: * MM Month expressed in reversed decimal (January is 1)
68: * YY Year (without century) expressed in reversed decimal
69: * S Status byte : 0x30 +
70: * bit 0 0 = MSF source 1 = DCF source
71: * bit 1 0 = Winter time 1 = Summer time
72: * bit 2 0 = not synchronised 1 = synchronised
73: * bit 3 0 = no early warning 1 = early warning
74: *
75: */
76:
77: /*
78: * cvt_wharton_400a
79: *
80: * convert simple type format
81: */
82: static u_long
83: cvt_wharton_400a(
84: unsigned char *buffer,
85: int size,
86: struct format *format,
87: clocktime_t *clock_time,
88: void *local
89: )
90: {
91: int i;
92:
93: /* The given `size' includes a terminating null-character. */
94: if (size != 16 || buffer[0] != STX || buffer[14] != ETX
95: || buffer[13] < '0' || buffer[13] > ('0' + 0xf))
96: return CVT_NONE;
97: for (i = 1; i < 13; i += 1)
98: if (buffer[i] < '0' || buffer[i] > '9')
99: return CVT_NONE;
100: clock_time->second = (buffer[2] - '0') * 10 + buffer[1] - '0';
101: clock_time->minute = (buffer[4] - '0') * 10 + buffer[3] - '0';
102: clock_time->hour = (buffer[6] - '0') * 10 + buffer[5] - '0';
103: clock_time->day = (buffer[8] - '0') * 10 + buffer[7] - '0';
104: clock_time->month = (buffer[10] - '0') * 10 + buffer[9] - '0';
105: clock_time->year = (buffer[12] - '0') * 10 + buffer[11] - '0';
106: clock_time->usecond = 0;
107: if (buffer[13] & 0x1) /* We have CET time */
108: clock_time->utcoffset = -1*60*60;
109: else /* We have BST time */
110: clock_time->utcoffset = 0;
111: if (buffer[13] & 0x2) {
112: clock_time->flags |= PARSEB_DST;
113: clock_time->utcoffset += -1*60*60;
114: }
115: if (!(buffer[13] & 0x4))
116: clock_time->flags |= PARSEB_NOSYNC;
117: if (buffer[13] & 0x8)
118: clock_time->flags |= PARSEB_ANNOUNCE;
119:
120: return CVT_OK;
121: }
122:
123: /*
124: * inp_wharton_400a
125: *
126: * grep data from input stream
127: */
128: static u_long
129: inp_wharton_400a(
130: parse_t *parseio,
131: unsigned int ch,
132: timestamp_t *tstamp
133: )
134: {
135: unsigned int rtc;
136:
137: parseprintf(DD_PARSE, ("inp_wharton_400a(0x%lx, 0x%x, ...)\n", (long)parseio, ch));
138:
139: switch (ch)
140: {
141: case STX:
142: parseprintf(DD_PARSE, ("inp_wharton_400a: STX seen\n"));
143:
144: parseio->parse_index = 1;
145: parseio->parse_data[0] = ch;
146: parseio->parse_dtime.parse_stime = *tstamp; /* collect timestamp */
147: return PARSE_INP_SKIP;
148:
149: case ETX:
150: parseprintf(DD_PARSE, ("inp_wharton_400a: ETX seen\n"));
151: if ((rtc = parse_addchar(parseio, ch)) == PARSE_INP_SKIP)
152: return parse_end(parseio);
153: else
154: return rtc;
155:
156: default:
157: return parse_addchar(parseio, ch);
158: }
159: }
160:
161: clockformat_t clock_wharton_400a =
162: {
163: inp_wharton_400a, /* input handling function */
164: cvt_wharton_400a, /* conversion function */
165: 0, /* no PPS monitoring */
166: 0, /* conversion configuration */
167: "WHARTON 400A Series clock Output Format 1", /* String format name */
168: 15, /* string buffer */
169: 0 /* no private data (complete pakets) */
170: };
171:
172: #else /* not (REFCLOCK && CLOCK_PARSE && CLOCK_WHARTON_400A) */
173: int clk_wharton_400a_bs;
174: #endif /* not (REFCLOCK && CLOCK_PARSE && CLOCK_WHARTON_400A) */
175:
176: /*
177: * clk_wharton.c,v
178: * Revision 4.1 1999/02/28 15:27:24 kardel
179: * wharton clock integration
180: *
181: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to clk_wharton.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / libparse