dist/ntp/libparse/clk_wharton.c

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