1 /* 2 * refclock_leitch - clock driver for the Leitch CSD-5300 Master Clock 3 */ 4 5 #ifdef HAVE_CONFIG_H 6 # include <config.h> 7 #endif 8 9 #if defined(REFCLOCK) && defined(CLOCK_LEITCH) 10 11 #include "ntpd.h" 12 #include "ntp_io.h" 13 #include "ntp_refclock.h" 14 #include "ntp_unixtime.h" 15 16 #include <stdio.h> 17 #include <ctype.h> 18 19 #ifdef STREAM 20 #include <stropts.h> 21 #if defined(LEITCHCLK) 22 #include <sys/clkdefs.h> 23 #endif /* LEITCHCLK */ 24 #endif /* STREAM */ 25 26 #include "ntp_stdlib.h" 27 28 29 /* 30 * Driver for Leitch CSD-5300 Master Clock System 31 * 32 * COMMANDS: 33 * DATE: D <CR> 34 * TIME: T <CR> 35 * STATUS: S <CR> 36 * LOOP: L <CR> 37 * 38 * FORMAT: 39 * DATE: YYMMDD<CR> 40 * TIME: <CR>/HHMMSS <CR>/HHMMSS <CR>/HHMMSS <CR>/ 41 * second bondaried on the stop bit of the <CR> 42 * second boundaries at '/' above. 43 * STATUS: G (good), D (diag fail), T (time not provided) or 44 * P (last phone update failed) 45 */ 46 #define MAXUNITS 1 /* max number of LEITCH units */ 47 #define LEITCHREFID "ATOM" /* reference id */ 48 #define LEITCH_DESCRIPTION "Leitch: CSD 5300 Master Clock System Driver" 49 #define LEITCH232 "/dev/leitch%d" /* name of radio device */ 50 #define SPEED232 B300 /* uart speed (300 baud) */ 51 #ifdef DEBUG 52 #define leitch_send(A,M) \ 53 if (debug) fprintf(stderr,"write leitch %s\n",M); \ 54 if ((write(A->leitchio.fd,M,sizeof(M)) < 0)) {\ 55 if (debug) \ 56 fprintf(stderr, "leitch_send: unit %d send failed\n", A->unit); \ 57 else \ 58 msyslog(LOG_ERR, "leitch_send: unit %d send failed %m",A->unit);} 59 #else 60 #define leitch_send(A,M) \ 61 if ((write(A->leitchio.fd,M,sizeof(M)) < 0)) {\ 62 msyslog(LOG_ERR, "leitch_send: unit %d send failed %m",A->unit);} 63 #endif 64 65 #define STATE_IDLE 0 66 #define STATE_DATE 1 67 #define STATE_TIME1 2 68 #define STATE_TIME2 3 69 #define STATE_TIME3 4 70 71 /* 72 * LEITCH unit control structure 73 */ 74 struct leitchunit { 75 struct peer *peer; 76 struct refclockio leitchio; 77 u_char unit; 78 short year; 79 short yearday; 80 short month; 81 short day; 82 short hour; 83 short second; 84 short minute; 85 short state; 86 u_short fudge1; 87 l_fp reftime1; 88 l_fp reftime2; 89 l_fp reftime3; 90 l_fp codetime1; 91 l_fp codetime2; 92 l_fp codetime3; 93 u_long yearstart; 94 }; 95 96 /* 97 * Function prototypes 98 */ 99 static void leitch_init P((void)); 100 static int leitch_start P((int, struct peer *)); 101 static void leitch_shutdown P((int, struct peer *)); 102 static void leitch_poll P((int, struct peer *)); 103 static void leitch_control P((int, struct refclockstat *, struct refclockstat *, struct peer *)); 104 #define leitch_buginfo noentry 105 static void leitch_receive P((struct recvbuf *)); 106 static void leitch_process P((struct leitchunit *)); 107 #if 0 108 static void leitch_timeout P((struct peer *)); 109 #endif 110 static int leitch_get_date P((struct recvbuf *, struct leitchunit *)); 111 static int leitch_get_time P((struct recvbuf *, struct leitchunit *, int)); 112 static int days_per_year P((int)); 113 114 static struct leitchunit leitchunits[MAXUNITS]; 115 static u_char unitinuse[MAXUNITS]; 116 static u_char stratumtouse[MAXUNITS]; 117 static u_int32 refid[MAXUNITS]; 118 119 static char days_in_month [] = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; 120 121 /* 122 * Transfer vector 123 */ 124 struct refclock refclock_leitch = { 125 leitch_start, leitch_shutdown, leitch_poll, 126 leitch_control, leitch_init, leitch_buginfo, NOFLAGS 127 }; 128 129 /* 130 * leitch_init - initialize internal leitch driver data 131 */ 132 static void 133 leitch_init(void) 134 { 135 int i; 136 137 memset((char*)leitchunits, 0, sizeof(leitchunits)); 138 memset((char*)unitinuse, 0, sizeof(unitinuse)); 139 for (i = 0; i < MAXUNITS; i++) 140 memcpy((char *)&refid[i], LEITCHREFID, 4); 141 } 142 143 /* 144 * leitch_shutdown - shut down a LEITCH clock 145 */ 146 static void 147 leitch_shutdown( 148 int unit, 149 struct peer *peer 150 ) 151 { 152 #ifdef DEBUG 153 if (debug) 154 fprintf(stderr, "leitch_shutdown()\n"); 155 #endif 156 } 157 158 /* 159 * leitch_poll - called by the transmit procedure 160 */ 161 static void 162 leitch_poll( 163 int unit, 164 struct peer *peer 165 ) 166 { 167 struct leitchunit *leitch; 168 169 /* start the state machine rolling */ 170 171 #ifdef DEBUG 172 if (debug) 173 fprintf(stderr, "leitch_poll()\n"); 174 #endif 175 if (unit >= MAXUNITS) { 176 /* XXXX syslog it */ 177 return; 178 } 179 180 leitch = &leitchunits[unit]; 181 182 if (leitch->state != STATE_IDLE) { 183 /* reset and wait for next poll */ 184 /* XXXX syslog it */ 185 leitch->state = STATE_IDLE; 186 } else { 187 leitch_send(leitch,"D\r"); 188 leitch->state = STATE_DATE; 189 } 190 } 191 192 static void 193 leitch_control( 194 int unit, 195 struct refclockstat *in, 196 struct refclockstat *out, 197 struct peer *passed_peer 198 ) 199 { 200 if (unit >= MAXUNITS) { 201 msyslog(LOG_ERR, 202 "leitch_control: unit %d invalid", unit); 203 return; 204 } 205 206 if (in) { 207 if (in->haveflags & CLK_HAVEVAL1) 208 stratumtouse[unit] = (u_char)(in->fudgeval1); 209 if (in->haveflags & CLK_HAVEVAL2) 210 refid[unit] = in->fudgeval2; 211 if (unitinuse[unit]) { 212 struct peer *peer; 213 214 peer = (&leitchunits[unit])->peer; 215 peer->stratum = stratumtouse[unit]; 216 peer->refid = refid[unit]; 217 } 218 } 219 220 if (out) { 221 memset((char *)out, 0, sizeof (struct refclockstat)); 222 out->type = REFCLK_ATOM_LEITCH; 223 out->haveflags = CLK_HAVEVAL1 | CLK_HAVEVAL2; 224 out->fudgeval1 = (int32)stratumtouse[unit]; 225 out->fudgeval2 = refid[unit]; 226 out->p_lastcode = ""; 227 out->clockdesc = LEITCH_DESCRIPTION; 228 } 229 } 230 231 /* 232 * leitch_start - open the LEITCH devices and initialize data for processing 233 */ 234 static int 235 leitch_start( 236 int unit, 237 struct peer *peer 238 ) 239 { 240 struct leitchunit *leitch; 241 int fd232; 242 char leitchdev[20]; 243 244 /* 245 * Check configuration info. 246 */ 247 if (unit >= MAXUNITS) { 248 msyslog(LOG_ERR, "leitch_start: unit %d invalid", unit); 249 return (0); 250 } 251 252 if (unitinuse[unit]) { 253 msyslog(LOG_ERR, "leitch_start: unit %d in use", unit); 254 return (0); 255 } 256 257 /* 258 * Open serial port. 259 */ 260 (void) sprintf(leitchdev, LEITCH232, unit); 261 fd232 = open(leitchdev, O_RDWR, 0777); 262 if (fd232 == -1) { 263 msyslog(LOG_ERR, 264 "leitch_start: open of %s: %m", leitchdev); 265 return (0); 266 } 267 268 leitch = &leitchunits[unit]; 269 memset((char*)leitch, 0, sizeof(*leitch)); 270 271 #if defined(HAVE_SYSV_TTYS) 272 /* 273 * System V serial line parameters (termio interface) 274 * 275 */ 276 { struct termio ttyb; 277 if (ioctl(fd232, TCGETA, &ttyb) < 0) { 278 msyslog(LOG_ERR, 279 "leitch_start: ioctl(%s, TCGETA): %m", leitchdev); 280 goto screwed; 281 } 282 ttyb.c_iflag = IGNBRK|IGNPAR|ICRNL; 283 ttyb.c_oflag = 0; 284 ttyb.c_cflag = SPEED232|CS8|CLOCAL|CREAD; 285 ttyb.c_lflag = ICANON; 286 ttyb.c_cc[VERASE] = ttyb.c_cc[VKILL] = '\0'; 287 if (ioctl(fd232, TCSETA, &ttyb) < 0) { 288 msyslog(LOG_ERR, 289 "leitch_start: ioctl(%s, TCSETA): %m", leitchdev); 290 goto screwed; 291 } 292 } 293 #endif /* HAVE_SYSV_TTYS */ 294 #if defined(HAVE_TERMIOS) 295 /* 296 * POSIX serial line parameters (termios interface) 297 * 298 * The LEITCHCLK option provides timestamping at the driver level. 299 * It requires the tty_clk streams module. 300 */ 301 { struct termios ttyb, *ttyp; 302 303 ttyp = &ttyb; 304 if (tcgetattr(fd232, ttyp) < 0) { 305 msyslog(LOG_ERR, 306 "leitch_start: tcgetattr(%s): %m", leitchdev); 307 goto screwed; 308 } 309 ttyp->c_iflag = IGNBRK|IGNPAR|ICRNL; 310 ttyp->c_oflag = 0; 311 ttyp->c_cflag = SPEED232|CS8|CLOCAL|CREAD; 312 ttyp->c_lflag = ICANON; 313 ttyp->c_cc[VERASE] = ttyp->c_cc[VKILL] = '\0'; 314 if (tcsetattr(fd232, TCSANOW, ttyp) < 0) { 315 msyslog(LOG_ERR, 316 "leitch_start: tcsetattr(%s): %m", leitchdev); 317 goto screwed; 318 } 319 if (tcflush(fd232, TCIOFLUSH) < 0) { 320 msyslog(LOG_ERR, 321 "leitch_start: tcflush(%s): %m", leitchdev); 322 goto screwed; 323 } 324 } 325 #endif /* HAVE_TERMIOS */ 326 #ifdef STREAM 327 #if defined(LEITCHCLK) 328 if (ioctl(fd232, I_PUSH, "clk") < 0) 329 msyslog(LOG_ERR, 330 "leitch_start: ioctl(%s, I_PUSH, clk): %m", leitchdev); 331 if (ioctl(fd232, CLK_SETSTR, "\n") < 0) 332 msyslog(LOG_ERR, 333 "leitch_start: ioctl(%s, CLK_SETSTR): %m", leitchdev); 334 #endif /* LEITCHCLK */ 335 #endif /* STREAM */ 336 #if defined(HAVE_BSD_TTYS) 337 /* 338 * 4.3bsd serial line parameters (sgttyb interface) 339 * 340 * The LEITCHCLK option provides timestamping at the driver level. 341 * It requires the tty_clk line discipline and 4.3bsd or later. 342 */ 343 { struct sgttyb ttyb; 344 #if defined(LEITCHCLK) 345 int ldisc = CLKLDISC; 346 #endif /* LEITCHCLK */ 347 348 if (ioctl(fd232, TIOCGETP, &ttyb) < 0) { 349 msyslog(LOG_ERR, 350 "leitch_start: ioctl(%s, TIOCGETP): %m", leitchdev); 351 goto screwed; 352 } 353 ttyb.sg_ispeed = ttyb.sg_ospeed = SPEED232; 354 #if defined(LEITCHCLK) 355 ttyb.sg_erase = ttyb.sg_kill = '\r'; 356 ttyb.sg_flags = RAW; 357 #else 358 ttyb.sg_erase = ttyb.sg_kill = '\0'; 359 ttyb.sg_flags = EVENP|ODDP|CRMOD; 360 #endif /* LEITCHCLK */ 361 if (ioctl(fd232, TIOCSETP, &ttyb) < 0) { 362 msyslog(LOG_ERR, 363 "leitch_start: ioctl(%s, TIOCSETP): %m", leitchdev); 364 goto screwed; 365 } 366 #if defined(LEITCHCLK) 367 if (ioctl(fd232, TIOCSETD, &ldisc) < 0) { 368 msyslog(LOG_ERR, 369 "leitch_start: ioctl(%s, TIOCSETD): %m",leitchdev); 370 goto screwed; 371 } 372 #endif /* LEITCHCLK */ 373 } 374 #endif /* HAVE_BSD_TTYS */ 375 376 /* 377 * Set up the structures 378 */ 379 leitch->peer = peer; 380 leitch->unit = unit; 381 leitch->state = STATE_IDLE; 382 leitch->fudge1 = 15; /* 15ms */ 383 384 leitch->leitchio.clock_recv = leitch_receive; 385 leitch->leitchio.srcclock = (caddr_t) leitch; 386 leitch->leitchio.datalen = 0; 387 leitch->leitchio.fd = fd232; 388 if (!io_addclock(&leitch->leitchio)) { 389 goto screwed; 390 } 391 392 /* 393 * All done. Initialize a few random peer variables, then 394 * return success. 395 */ 396 peer->precision = 0; 397 peer->stratum = stratumtouse[unit]; 398 peer->refid = refid[unit]; 399 unitinuse[unit] = 1; 400 return(1); 401 402 /* 403 * Something broke; abandon ship. 404 */ 405 screwed: 406 close(fd232); 407 return(0); 408 } 409 410 /* 411 * leitch_receive - receive data from the serial interface on a leitch 412 * clock 413 */ 414 static void 415 leitch_receive( 416 struct recvbuf *rbufp 417 ) 418 { 419 struct leitchunit *leitch = (struct leitchunit *)rbufp->recv_srcclock; 420 421 #ifdef DEBUG 422 if (debug) 423 fprintf(stderr, "leitch_recieve(%*.*s)\n", 424 rbufp->recv_length, rbufp->recv_length, 425 rbufp->recv_buffer); 426 #endif 427 if (rbufp->recv_length != 7) 428 return; /* The date is return with a trailing newline, 429 discard it. */ 430 431 switch (leitch->state) { 432 case STATE_IDLE: /* unexpected, discard and resync */ 433 return; 434 case STATE_DATE: 435 if (!leitch_get_date(rbufp,leitch)) { 436 leitch->state = STATE_IDLE; 437 break; 438 } 439 leitch_send(leitch,"T\r"); 440 #ifdef DEBUG 441 if (debug) 442 fprintf(stderr, "%u\n",leitch->yearday); 443 #endif 444 leitch->state = STATE_TIME1; 445 break; 446 case STATE_TIME1: 447 if (!leitch_get_time(rbufp,leitch,1)) { 448 } 449 if (!clocktime(leitch->yearday,leitch->hour,leitch->minute, 450 leitch->second, 1, rbufp->recv_time.l_ui, 451 &leitch->yearstart, &leitch->reftime1.l_ui)) { 452 leitch->state = STATE_IDLE; 453 break; 454 } 455 leitch->reftime1.l_uf = 0; 456 #ifdef DEBUG 457 if (debug) 458 fprintf(stderr, "%lu\n", (u_long)leitch->reftime1.l_ui); 459 #endif 460 MSUTOTSF(leitch->fudge1, leitch->reftime1.l_uf); 461 leitch->codetime1 = rbufp->recv_time; 462 leitch->state = STATE_TIME2; 463 break; 464 case STATE_TIME2: 465 if (!leitch_get_time(rbufp,leitch,2)) { 466 } 467 if (!clocktime(leitch->yearday,leitch->hour,leitch->minute, 468 leitch->second, 1, rbufp->recv_time.l_ui, 469 &leitch->yearstart, &leitch->reftime2.l_ui)) { 470 leitch->state = STATE_IDLE; 471 break; 472 } 473 #ifdef DEBUG 474 if (debug) 475 fprintf(stderr, "%lu\n", (u_long)leitch->reftime2.l_ui); 476 #endif 477 MSUTOTSF(leitch->fudge1, leitch->reftime2.l_uf); 478 leitch->codetime2 = rbufp->recv_time; 479 leitch->state = STATE_TIME3; 480 break; 481 case STATE_TIME3: 482 if (!leitch_get_time(rbufp,leitch,3)) { 483 } 484 if (!clocktime(leitch->yearday,leitch->hour,leitch->minute, 485 leitch->second, GMT, rbufp->recv_time.l_ui, 486 &leitch->yearstart, &leitch->reftime3.l_ui)) { 487 leitch->state = STATE_IDLE; 488 break; 489 } 490 #ifdef DEBUG 491 if (debug) 492 fprintf(stderr, "%lu\n", (u_long)leitch->reftime3.l_ui); 493 #endif 494 MSUTOTSF(leitch->fudge1, leitch->reftime3.l_uf); 495 leitch->codetime3 = rbufp->recv_time; 496 leitch_process(leitch); 497 leitch->state = STATE_IDLE; 498 break; 499 default: 500 msyslog(LOG_ERR, 501 "leitech_receive: invalid state %d unit %d", 502 leitch->state, leitch->unit); 503 } 504 } 505 506 /* 507 * leitch_process - process a pile of samples from the clock 508 * 509 * This routine uses a three-stage median filter to calculate offset and 510 * dispersion. reduce jitter. The dispersion is calculated as the span 511 * of the filter (max - min), unless the quality character (format 2) is 512 * non-blank, in which case the dispersion is calculated on the basis of 513 * the inherent tolerance of the internal radio oscillator, which is 514 * +-2e-5 according to the radio specifications. 515 */ 516 static void 517 leitch_process( 518 struct leitchunit *leitch 519 ) 520 { 521 l_fp off; 522 l_fp tmp_fp; 523 /*double doffset;*/ 524 525 off = leitch->reftime1; 526 L_SUB(&off,&leitch->codetime1); 527 tmp_fp = leitch->reftime2; 528 L_SUB(&tmp_fp,&leitch->codetime2); 529 if (L_ISGEQ(&off,&tmp_fp)) 530 off = tmp_fp; 531 tmp_fp = leitch->reftime3; 532 L_SUB(&tmp_fp,&leitch->codetime3); 533 534 if (L_ISGEQ(&off,&tmp_fp)) 535 off = tmp_fp; 536 /*LFPTOD(&off, doffset);*/ 537 refclock_receive(leitch->peer); 538 } 539 540 /* 541 * days_per_year 542 */ 543 static int 544 days_per_year( 545 int year 546 ) 547 { 548 if (year%4) { /* not a potential leap year */ 549 return (365); 550 } else { 551 if (year % 100) { /* is a leap year */ 552 return (366); 553 } else { 554 if (year % 400) { 555 return (365); 556 } else { 557 return (366); 558 } 559 } 560 } 561 } 562 563 static int 564 leitch_get_date( 565 struct recvbuf *rbufp, 566 struct leitchunit *leitch 567 ) 568 { 569 int i; 570 571 if (rbufp->recv_length < 6) 572 return(0); 573 #undef BAD /* confict: defined as (-1) in AIX sys/param.h */ 574 #define BAD(A) (rbufp->recv_buffer[A] < '0') || (rbufp->recv_buffer[A] > '9') 575 if (BAD(0)||BAD(1)||BAD(2)||BAD(3)||BAD(4)||BAD(5)) 576 return(0); 577 #define ATOB(A) ((rbufp->recv_buffer[A])-'0') 578 leitch->year = ATOB(0)*10 + ATOB(1); 579 leitch->month = ATOB(2)*10 + ATOB(3); 580 leitch->day = ATOB(4)*10 + ATOB(5); 581 582 /* sanity checks */ 583 if (leitch->month > 12) 584 return(0); 585 if (leitch->day > days_in_month[leitch->month-1]) 586 return(0); 587 588 /* calculate yearday */ 589 i = 0; 590 leitch->yearday = leitch->day; 591 592 while ( i < (leitch->month-1) ) 593 leitch->yearday += days_in_month[i++]; 594 595 if ((days_per_year((leitch->year>90?1900:2000)+leitch->year)==365) && 596 leitch->month > 2) 597 leitch->yearday--; 598 599 return(1); 600 } 601 602 /* 603 * leitch_get_time 604 */ 605 static int 606 leitch_get_time( 607 struct recvbuf *rbufp, 608 struct leitchunit *leitch, 609 int which 610 ) 611 { 612 if (BAD(0)||BAD(1)||BAD(2)||BAD(3)||BAD(4)||BAD(5)) 613 return(0); 614 leitch->hour = ATOB(0)*10 +ATOB(1); 615 leitch->minute = ATOB(2)*10 +ATOB(3); 616 leitch->second = ATOB(4)*10 +ATOB(5); 617 618 if ((leitch->hour > 23) || (leitch->minute > 60) || 619 (leitch->second > 60)) 620 return(0); 621 return(1); 622 } 623 624 #else 625 int refclock_leitch_bs; 626 #endif /* REFCLOCK */ 627