2 * refclock_dumbclock - clock driver for a unknown time distribution system
3 * that only provides hh:mm:ss (in local time, yet!).
7 * Must interpolate back to local time. Very annoying.
15 #if defined(REFCLOCK) && defined(CLOCK_DUMBCLOCK)
19 #include "ntp_refclock.h"
20 #include "ntp_calendar.h"
21 #include "ntp_stdlib.h"
27 extern int async_write(int, const void *, unsigned int);
29 #define write(fd, data, octets) async_write(fd, data, octets)
33 * This driver supports a generic dumb clock that only outputs hh:mm:ss,
34 * in local time, no less.
40 * hh:mm:ss -- what you'd expect, with a 24 hour clock. (Heck, that's the only
41 * way it could get stupider.) We take time on the <cr>.
43 * The original source of this module was the WWVB module.
47 * Interface definitions
49 #define DEVICE "/dev/dumbclock%d" /* device name and unit */
50 #define SPEED232 B9600 /* uart speed (9600 baud) */
51 #define PRECISION (-13) /* precision assumed (about 100 us) */
52 #define REFID "dumbclock" /* reference ID */
53 #define DESCRIPTION "Dumb clock" /* WRU */
57 * Insanity check. Since the time is local, we need to make sure that during midnight
58 * transitions, we can convert back to Unix time. If the conversion results in some number
59 * worse than this number of seconds away, assume the next day and retry.
61 #define INSANE_SECONDS 3600
64 * Dumb clock control structure
66 struct dumbclock_unit {
67 u_char tcswitch; /* timecode switch */
68 l_fp laststamp; /* last receive timestamp */
69 u_char lasthour; /* last hour (for monitor) */
70 u_char linect; /* count ignored lines (for monitor */
71 struct tm ymd; /* struct tm for y/m/d only */
77 static int dumbclock_start P((int, struct peer *));
78 static void dumbclock_shutdown P((int, struct peer *));
79 static void dumbclock_receive P((struct recvbuf *));
81 static void dumbclock_poll P((int, struct peer *));
87 struct refclock refclock_dumbclock = {
88 dumbclock_start, /* start up driver */
89 dumbclock_shutdown, /* shut down driver */
90 noentry, /* poll the driver -- a nice fabrication */
91 noentry, /* not used */
92 noentry, /* not used */
93 noentry, /* not used */
94 NOFLAGS /* not used */
99 * dumbclock_start - open the devices and initialize data for processing
107 register struct dumbclock_unit *up;
108 struct refclockproc *pp;
111 struct tm *tm_time_p;
115 * Open serial port. Don't bother with CLK line discipline, since
116 * it's not available.
118 (void)sprintf(device, DEVICE, unit);
121 printf ("starting Dumbclock with device %s\n",device);
123 fd = refclock_open(device, SPEED232, 0);
128 * Allocate and initialize unit structure
130 up = (struct dumbclock_unit *)emalloc(sizeof(struct dumbclock_unit));
135 memset((char *)up, 0, sizeof(struct dumbclock_unit));
137 pp->unitptr = (caddr_t)up;
138 pp->io.clock_recv = dumbclock_receive;
139 pp->io.srcclock = (caddr_t)peer;
142 if (!io_addclock(&pp->io)) {
151 tm_time_p = localtime(&now);
153 tm_time_p = gmtime(&now);
157 up->ymd = *tm_time_p;
165 * Initialize miscellaneous variables
167 peer->precision = PRECISION;
168 pp->clockdesc = DESCRIPTION;
169 memcpy((char *)&pp->refid, REFID, 4);
175 * dumbclock_shutdown - shut down the clock
183 register struct dumbclock_unit *up;
184 struct refclockproc *pp;
187 up = (struct dumbclock_unit *)pp->unitptr;
188 io_closeclock(&pp->io);
194 * dumbclock_receive - receive data from the serial interface
198 struct recvbuf *rbufp
201 struct dumbclock_unit *up;
202 struct refclockproc *pp;
205 l_fp trtmp; /* arrival timestamp */
206 int hours; /* hour-of-day */
207 int minutes; /* minutes-past-the-hour */
208 int seconds; /* seconds */
209 int temp; /* int temp */
210 int got_good; /* got a good time flag */
213 * Initialize pointers and read the timecode and timestamp
215 peer = (struct peer *)rbufp->recv_srcclock;
217 up = (struct dumbclock_unit *)pp->unitptr;
218 temp = refclock_gtlin(rbufp, pp->a_lastcode, BMAX, &trtmp);
221 if (up->tcswitch == 0) {
223 up->laststamp = trtmp;
228 pp->lencode = (u_short)temp;
229 pp->lastrec = up->laststamp;
230 up->laststamp = trtmp;
235 printf("dumbclock: timecode %d %s\n",
236 pp->lencode, pp->a_lastcode);
240 * We get down to business. Check the timecode format...
243 if (sscanf(pp->a_lastcode,"%02d:%02d:%02d",
244 &hours,&minutes,&seconds) == 3)
248 time_t asserted_time; /* the SPM time based on the composite time+date */
249 struct tm asserted_tm; /* the struct tm of the same */
257 * Convert to GMT for sites that distribute localtime. This
258 * means we have to figure out what day it is. Easier said
262 asserted_tm.tm_year = up->ymd.tm_year;
263 asserted_tm.tm_mon = up->ymd.tm_mon;
264 asserted_tm.tm_mday = up->ymd.tm_mday;
265 asserted_tm.tm_hour = hours;
266 asserted_tm.tm_min = minutes;
267 asserted_tm.tm_sec = seconds;
268 asserted_tm.tm_isdst = -1;
271 asserted_time = mktime (&asserted_tm);
274 #include "GMT unsupported for dumbclock!"
276 reality_delta = asserted_time - now;
279 * We assume that if the time is grossly wrong, it's because we got the
280 * year/month/day wrong.
282 if (reality_delta > INSANE_SECONDS)
284 asserted_time -= SECSPERDAY; /* local clock behind real time */
286 else if (-reality_delta > INSANE_SECONDS)
288 asserted_time += SECSPERDAY; /* local clock ahead of real time */
290 lt_p = localtime(&asserted_time);
297 refclock_report (peer, CEVNT_FAULT);
301 if ((gmtp = gmtime (&asserted_time)) == NULL)
303 refclock_report (peer, CEVNT_FAULT);
306 adjyear = gmtp->tm_year+1900;
307 adjmon = gmtp->tm_mon+1;
308 pp->day = ymd2yd (adjyear, adjmon, gmtp->tm_mday);
309 pp->hour = gmtp->tm_hour;
310 pp->minute = gmtp->tm_min;
311 pp->second = gmtp->tm_sec;
314 printf ("time is %04d/%02d/%02d %02d:%02d:%02d UTC\n",
315 adjyear,adjmon,gmtp->tm_mday,pp->hour,pp->minute,
327 refclock_report(peer, CEVNT_BADREPLY);
332 * Process the new sample in the median filter and determine the
333 * timecode timestamp.
335 if (!refclock_process(pp)) {
336 refclock_report(peer, CEVNT_BADTIME);
339 pp->lastref = pp->lastrec;
340 refclock_receive(peer);
341 record_clock_stats(&peer->srcadr, pp->a_lastcode);
342 up->lasthour = (u_char)pp->hour;
347 * dumbclock_poll - called by the transmit procedure
355 register struct dumbclock_unit *up;
356 struct refclockproc *pp;
360 * Time to poll the clock. The Chrono-log clock is supposed to
361 * respond to a 'T' by returning a timecode in the format(s)
362 * specified above. Ours does (can?) not, but this seems to be
363 * an installation-specific problem. This code is dyked out,
364 * but may be re-enabled if anyone ever finds a Chrono-log that
365 * actually listens to this command.
369 up = (struct dumbclock_unit *)pp->unitptr;
370 if (peer->reach == 0)
371 refclock_report(peer, CEVNT_TIMEOUT);
376 if (write(pp->io.fd, &pollchar, 1) != 1)
377 refclock_report(peer, CEVNT_FAULT);
385 int refclock_dumbclock_bs;
386 #endif /* REFCLOCK */