1/*	$NetBSD: clk_rcc8000.c,v 1.6 2020/05/25 20:47:25 christos Exp $	*/
2
3/*
4 * /src/NTP/ntp4-dev/libparse/clk_rcc8000.c,v 4.9 2004/11/14 15:29:41 kardel RELEASE_20050508_A
5 *
6 * clk_rcc8000.c,v 4.9 2004/11/14 15:29:41 kardel RELEASE_20050508_A
7 *
8 * Radiocode Clocks Ltd RCC 8000 Intelligent Off-Air Master Clock support
9 *
10 * Created by R.E.Broughton from clk_trimtaip.c
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15 *
16 */
17
18#if HAVE_CONFIG_H
19# include <config.h>
20#endif
21
22#if defined(REFCLOCK) && defined(CLOCK_PARSE) && defined(CLOCK_RCC8000)
23
24#include "ntp_fp.h"
25#include "ntp_unixtime.h"
26#include "ntp_calendar.h"
27
28#include "parse.h"
29
30#ifndef PARSESTREAM
31#include "ntp_stdlib.h"
32#include <stdio.h>
33#else
34#include "sys/parsestreams.h"
35extern int printf (const char *, ...);
36#endif
37
38/* Type II Serial Output format
39 *
40 *	0000000000111111111122222222223	/ char
41 *	0123456789012345678901234567890	\ posn
42 *	HH:MM:SS.XYZ DD/MM/YY DDD W Prn   Actual
43 *      33 44 55 666 00 11 22       7     Parse
44 *        :  :  .      /  /          rn   Check
45 *     "15:50:36.534 30/09/94 273 5 A\x0d\x0a"
46 *
47 * DDD - Day of year number
48 *   W - Day of week number (Sunday is 0)
49 * P is the Status. See comment below for details.
50 */
51
52#define	O_USEC		O_WDAY
53static struct format rcc8000_fmt =
54{ { { 13, 2 }, {16, 2}, { 19, 2}, /* Day, Month, Year */
55    {  0, 2 }, { 3, 2}, {  6, 2}, /* Hour, Minute, Second */
56    {  9, 3 }, {28, 1}, {  0, 0}, /* uSec, Status (Valid,Reject,BST,Leapyear) */  },
57  (const unsigned char *)"  :  :  .      /  /          \r\n",
58  /*"15:50:36.534 30/09/94 273 5 A\x0d\x0a" */
59  0
60};
61
62static parse_cvt_fnc_t cvt_rcc8000;
63static parse_inp_fnc_t inp_rcc8000;
64
65clockformat_t clock_rcc8000 =
66{
67  inp_rcc8000,			/* no input handling */
68  cvt_rcc8000,			/* Radiocode clock conversion */
69  0,				/* no direct PPS monitoring */
70  (void *)&rcc8000_fmt,		/* conversion configuration */
71  "Radiocode RCC8000",
72  31,				/* string buffer */
73  0				/* no private data */
74};
75
76/* parse_cvt_fnc_t cvt_rcc8000 */
77static u_long
78cvt_rcc8000(
79	    unsigned char *buffer,
80	    int            size,
81	    struct format *format,
82	    clocktime_t   *clock_time,
83	    void          *local
84	    )
85{
86	if (!Strok(buffer, format->fixed_string)) return CVT_NONE;
87#define	OFFS(x) format->field_offsets[(x)].offset
88#define STOI(x, y) Stoi(&buffer[OFFS(x)], y, format->field_offsets[(x)].length)
89	if (	STOI(O_DAY,	&clock_time->day)	||
90		STOI(O_MONTH,	&clock_time->month)	||
91		STOI(O_YEAR,	&clock_time->year)	||
92		STOI(O_HOUR,	&clock_time->hour)	||
93		STOI(O_MIN,	&clock_time->minute)	||
94		STOI(O_SEC,	&clock_time->second)	||
95		STOI(O_USEC,	&clock_time->usecond)
96		) return CVT_FAIL|CVT_BADFMT;
97	clock_time->usecond *= 1000;
98
99	clock_time->utcoffset = 0;
100
101#define RCCP buffer[28]
102	/*
103	 * buffer[28] is the ASCII representation of a hex character ( 0 through F )
104	 *      The four bits correspond to:
105	 *      8 - Valid Time
106	 *      4 - Reject Code
107	 *      2 - British Summer Time (receiver set to emit GMT all year.)
108	 *      1 - Leap year
109	 */
110#define RCC8000_VALID  0x8
111#define RCC8000_REJECT 0x4
112#define RCC8000_BST    0x2
113#define RCC8000_LEAPY  0x1
114
115	clock_time->flags = 0;
116
117	if ( (RCCP >= '0' && RCCP <= '9') || (RCCP >= 'A' && RCCP <= 'F') )
118	{
119		register int flag;
120
121		flag = (RCCP >= '0' && RCCP <= '9' ) ?  RCCP - '0' : RCCP - 'A' + 10;
122
123		if (!(flag & RCC8000_VALID))
124		    clock_time->flags |= PARSEB_POWERUP;
125
126		clock_time->flags |= PARSEB_UTC; /* British special - guess why 8-) */
127
128		/* other flags not used */
129	}
130	return CVT_OK;
131}
132/*
133 * parse_inp_fnc_t inp_rcc8000
134 *
135 * grab data from input stream
136 */
137static u_long
138inp_rcc8000(
139	    parse_t      *parseio,
140	    char         ch,
141	    timestamp_t  *tstamp
142	  )
143{
144	unsigned int rtc;
145
146	parseprintf(DD_PARSE, ("inp_rcc8000(0x%p, 0x%x, ...)\n", (void*)parseio, ch));
147
148	switch (ch)
149	{
150	case '\n':
151		parseprintf(DD_PARSE, ("inp_rcc8000: EOL seen\n"));
152		if ((rtc = parse_addchar(parseio, ch)) == PARSE_INP_SKIP)
153			return parse_end(parseio);
154		else
155			return rtc;
156
157
158	default:
159		if (parseio->parse_index == 0) /* take sample at start of message */
160		{
161			parseio->parse_dtime.parse_stime = *tstamp; /* collect timestamp */
162		}
163		return parse_addchar(parseio, ch);
164	}
165}
166
167#else  /* not (REFCLOCK && CLOCK_PARSE && CLOCK_RCC8000) */
168int clk_rcc8000_bs;
169#endif  /* not (REFCLOCK && CLOCK_PARSE && CLOCK_RCC8000) */
170
171/*
172 * History:
173 *
174 * clk_rcc8000.c,v
175 * Revision 4.9  2004/11/14 15:29:41  kardel
176 * support PPSAPI, upgrade Copyright to Berkeley style
177 *
178 * Revision 4.6  1999/11/28 09:13:51  kardel
179 * RECON_4_0_98F
180 *
181 * Revision 4.5  1998/06/14 21:09:38  kardel
182 * Sun acc cleanup
183 *
184 * Revision 4.4  1998/06/13 12:05:02  kardel
185 * fix SYSV clock name clash
186 *
187 * Revision 4.3  1998/06/12 15:22:29  kardel
188 * fix prototypes
189 *
190 * Revision 4.2  1998/06/12 09:13:25  kardel
191 * conditional compile macros fixed
192 * printf prototype
193 *
194 * Revision 4.1  1998/05/24 09:39:53  kardel
195 * implementation of the new IO handling model
196 *
197 * Revision 4.0  1998/04/10 19:45:30  kardel
198 * Start 4.0 release version numbering
199 *
200 * from V3 3.5 log info deleted 1998/04/11 kardel
201 */
202