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