contrib/ntp/libparse/clk_varitext.c

   1 #ifdef HAVE_CONFIG_H
   2 # include <config.h>
   3 #endif
   4
   5 #if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_VARITEXT)
   6 /*
   7  * /src/NTP/ntp4-dev/libparse/clk_varitext.c,v 1.5 2005/04/16 17:32:10 kardel RELEASE_20050508_A
   8  *
   9  * clk_varitext.c,v 1.5 2005/04/16 17:32:10 kardel RELEASE_20050508_A
  10  *
  11  * Varitext code variant by A.McConnell 1997/01/19
  12  *
  13  * Supports Varitext's Radio Clock
  14  *
  15  * Used the Meinberg/Computime clock as a template for Varitext Radio Clock
  16  *
  17  * Codebase:
  18  * Copyright (c) 1995-2005 by Frank Kardel <kardel <AT> ntp.org>
  19  * Copyright (c) 1989-1994 by Frank Kardel, Friedrich-Alexander Universitaet Erlangen-Nuernberg, Germany
  20  *
  21  * Redistribution and use in source and binary forms, with or without
  22  * modification, are permitted provided that the following conditions
  23  * are met:
  24  * 1. Redistributions of source code must retain the above copyright
  25  *    notice, this list of conditions and the following disclaimer.
  26  * 2. Redistributions in binary form must reproduce the above copyright
  27  *    notice, this list of conditions and the following disclaimer in the
  28  *    documentation and/or other materials provided with the distribution.
  29  * 3. Neither the name of the author nor the names of its contributors
  30  *    may be used to endorse or promote products derived from this software
  31  *    without specific prior written permission.
  32  *
  33  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  34  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  35  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  36  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  37  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  38  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  39  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  40  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  41  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  42  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  43  * SUCH DAMAGE.
  44  *
  45  */
  46
  47 #include "ntp_fp.h"
  48 #include "ntp_unixtime.h"
  49 #include "ntp_calendar.h"
  50
  51 #include "parse.h"
  52
  53 #ifndef PARSESTREAM
  54 # include "ntp_stdlib.h"
  55 # include <stdio.h>
  56 #else
  57 # include "sys/parsestreams.h"
  58 extern int printf (const char *, ...);
  59 #endif
  60
  61 /* static const u_char VT_INITIALISED      = 0x01; */
  62 /* static const u_char VT_SYNCHRONISED     = 0x02; */
  63 /* static const u_char VT_ALARM_STATE      = 0x04; */
  64 static const u_char VT_BST              = 0x08;
  65 /* static const u_char VT_SEASON_CHANGE    = 0x10; */
  66 /* static const u_char VT_LAST_TELEGRAM_OK = 0x20; */
  67
  68 /*
  69  * The Varitext receiver sends a datagram in the following format every minute
  70  *
  71  * Timestamp    T:YY:MM:MD:WD:HH:MM:SSCRLFSTXXX
  72  * Pos          0123456789012345678901 2 3 4567
  73  *              0000000000111111111122 2 2 2222
  74  * Parse        T:  :  :  :  :  :  :  \r\n
  75  *
  76  * T    Startcharacter "T" specifies start of the timestamp
  77  * YY   Year MM Month 1-12
  78  * MD   Day of the month
  79  * WD   Day of week
  80  * HH   Hour
  81  * MM   Minute
  82  * SS   Second
  83  * CR   Carriage return
  84  * LF   Linefeed
  85  * ST   Status character
  86  *      Bit 0 - Set= Initialised; Reset=Time Invalid (DO NOT USE)
  87  *      Bit 1 - Set= Synchronised; Reset= Unsynchronised
  88  *      Bit 2 - Set= Alarm state; Reset= No alarm
  89  *      Bit 3 - Set= BST; Reset= GMT
  90  *      Bit 4 - Set= Seasonal change in approx hour; Reset= No seasonal change expected
  91  *      Bit 5 - Set= Last MSF telegram was OK; Reset= Last telegram was in error;
  92  *      Bit 6 - Always set
  93  *      Bit 7 - Unused
  94  * XXX  Checksum calculated using Fletcher's method (ignored for now).
  95  */
  96
  97 static struct format varitext_fmt =
  98 {
  99   {
 100     {8, 2},  {5,  2}, {2,  2},  /* day, month, year */
 101     {14, 2}, {17, 2}, {20, 2},  /* hour, minute, second */
 102     {11, 2}, {24, 1}            /* dayofweek, status */
 103   },
 104   (const unsigned char*)"T:  :  :  :  :  :  :  \r\n    ",
 105   0
 106 };
 107
 108 static parse_cvt_fnc_t cvt_varitext;
 109 static parse_inp_fnc_t inp_varitext;
 110
 111 struct varitext {
 112   unsigned char start_found;
 113   unsigned char end_found;
 114   unsigned char end_count;
 115   unsigned char previous_ch;
 116   timestamp_t   tstamp;
 117 };
 118
 119 clockformat_t   clock_varitext =
 120 {
 121   inp_varitext,                 /* Because of the strange format we need to parse it ourselves */
 122   cvt_varitext,                 /* Varitext conversion */
 123   0,                            /* no PPS monitoring */
 124   (void *)&varitext_fmt,        /* conversion configuration */
 125   "Varitext Radio Clock",       /* Varitext Radio Clock */
 126   30,                           /* string buffer */
 127   sizeof(struct varitext),      /* Private data size required to hold current parse state */
 128 };
 129
 130 /*
 131  * parse_cvt_fnc_t cvt_varitext
 132  *
 133  * convert simple type format
 134  */
 135 static u_long
 136 cvt_varitext(
 137              unsigned char      *buffer,
 138              int                size,
 139              struct format      *format,
 140              clocktime_t        *clock_time,
 141              void               *local
 142              )
 143 {
 144
 145   if (!Strok(buffer, format->fixed_string)) {
 146     return CVT_NONE;
 147   } else {
 148     if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
 149              format->field_offsets[O_DAY].length) ||
 150         Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
 151              format->field_offsets[O_MONTH].length) ||
 152         Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
 153              format->field_offsets[O_YEAR].length) ||
 154         Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
 155              format->field_offsets[O_HOUR].length) ||
 156         Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
 157              format->field_offsets[O_MIN].length) ||
 158         Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
 159              format->field_offsets[O_SEC].length)) {
 160       return CVT_FAIL | CVT_BADFMT;
 161     } else {
 162       u_char *f = (u_char*) &buffer[format->field_offsets[O_FLAGS].offset];
 163
 164       clock_time->flags = 0;
 165       clock_time->utcoffset = 0;
 166
 167       if (((*f) & VT_BST))      /* BST flag is set so set to indicate daylight saving time is active and utc offset */
 168         {
 169           clock_time->utcoffset = -1*60*60;
 170           clock_time->flags |= PARSEB_DST;
 171         }
 172       /*
 173          if (!((*f) & VT_INITIALISED))  Clock not initialised
 174          clock_time->flags |= PARSEB_POWERUP;
 175
 176          if (!((*f) & VT_SYNCHRONISED))   Clock not synchronised
 177          clock_time->flags |= PARSEB_NOSYNC;
 178
 179          if (((*f) & VT_SEASON_CHANGE))  Seasonal change expected in the next hour
 180          clock_time->flags |= PARSEB_ANNOUNCE;
 181          */
 182       return CVT_OK;
 183     }
 184   }
 185 }
 186
 187 /* parse_inp_fnc_t inp_varitext */
 188 static u_long
 189 inp_varitext(
 190              parse_t     *parseio,
 191              char ch,
 192              timestamp_t *tstamp
 193              )
 194 {
 195   struct varitext *t = (struct varitext *)parseio->parse_pdata;
 196   int    rtc;
 197
 198   parseprintf(DD_PARSE, ("inp_varitext(0x%p, 0x%x, ...)\n", (void*)parseio, ch));
 199
 200   if (!t)
 201     return PARSE_INP_SKIP;      /* local data not allocated - sigh! */
 202
 203   if (ch == 'T')
 204     t->tstamp = *tstamp;
 205
 206   if ((t->previous_ch == 'T') && (ch == ':'))
 207     {
 208       parseprintf(DD_PARSE, ("inp_varitext: START seen\n"));
 209
 210       parseio->parse_data[0] = 'T';
 211       parseio->parse_index=1;
 212       parseio->parse_dtime.parse_stime = t->tstamp; /* Time stamp at packet start */
 213       t->start_found = 1;
 214       t->end_found = 0;
 215       t->end_count = 0;
 216     }
 217
 218   if (t->start_found)
 219     {
 220       if ((rtc = parse_addchar(parseio, ch)) != PARSE_INP_SKIP)
 221         {
 222           parseprintf(DD_PARSE, ("inp_varitext: ABORTED due to too many characters\n"));
 223
 224           memset(t, 0, sizeof(struct varitext));
 225           return rtc;
 226         }
 227
 228       if (t->end_found)
 229         {
 230           if (++(t->end_count) == 4) /* Finally found the end of the message */
 231             {
 232               parseprintf(DD_PARSE, ("inp_varitext: END seen\n"));
 233
 234               memset(t, 0, sizeof(struct varitext));
 235               if ((rtc = parse_addchar(parseio, 0)) == PARSE_INP_SKIP)
 236                 return parse_end(parseio);
 237               else
 238                 return rtc;
 239             }
 240         }
 241
 242       if ((t->previous_ch == '\r') && (ch == '\n'))
 243         {
 244           t->end_found = 1;
 245         }
 246
 247     }
 248
 249   t->previous_ch = ch;
 250
 251   return PARSE_INP_SKIP;
 252 }
 253
 254 #else /* not (REFCLOCK && CLOCK_PARSE && CLOCK_VARITEXT) */
 255 int clk_varitext_bs;
 256 #endif /* not (REFCLOCK && CLOCK_PARSE && CLOCK_VARITEXT) */
 257
 258 /*
 259  * History:
 260  *
 261  * clk_varitext.c,v
 262  * Revision 1.5  2005/04/16 17:32:10  kardel
 263  * update copyright
 264  *
 265  * Revision 1.4  2004/11/14 15:29:41  kardel
 266  * support PPSAPI, upgrade Copyright to Berkeley style
 267  *
 268  *
 269  * Revision 1.0  1997/06/02 13:16:30  McConnell
 270  * File created
 271  *
 272  */