1/***********************************************************************
2 *								       *
3 * Copyright (c) David L. Mills 1999-2000			       *
4 *								       *
5 * Permission to use, copy, modify, and distribute this software and   *
6 * its documentation for any purpose and without fee is hereby	       *
7 * granted, provided that the above copyright notice appears in all    *
8 * copies and that both the copyright notice and this permission       *
9 * notice appear in supporting documentation, and that the name        *
10 * University of Delaware not be used in advertising or publicity      *
11 * pertaining to distribution of the software without specific,        *
12 * written prior permission. The University of Delaware makes no       *
13 * representations about the suitability this software for any	       *
14 * purpose. It is provided "as is" without express or implied          *
15 * warranty.							       *
16 *								       *
17 ***********************************************************************
18 *								       *
19 * This header file complies with "Pulse-Per-Second API for UNIX-like  *
20 * Operating Systems, Version 1.0", rfc2783. Credit is due Jeff Mogul  *
21 * and Marc Brett, from whom much of this code was shamelessly stolen. *
22 *								       *
23 * this modified timepps.h can be used to provide a PPSAPI interface   *
24 * to a machine running Solaris (2.6 and above).		       *
25 *								       *
26 ***********************************************************************
27 *								       *
28 * A full PPSAPI interface to the Solaris kernel would be better, but  *
29 * this at least removes the necessity for special coding from the NTP *
30 * NTP drivers. 						       *
31 *								       *
32 ***********************************************************************
33 *								       *
34 * Some of this include file					       *
35 * Copyright (c) 1999 by Ulrich Windl,				       *
36 *	based on code by Reg Clemens <reg@dwf.com>		       *
37 *		based on code by Poul-Henning Kamp <phk@FreeBSD.org>   *
38 *								       *
39 ***********************************************************************
40 *								       *
41 * "THE BEER-WARE LICENSE" (Revision 42):                              *
42 * <phk@FreeBSD.org> wrote this file.  As long as you retain this      *
43 * notice you can do whatever you want with this stuff. If we meet some*
44 * day, and you think this stuff is worth it, you can buy me a beer    *
45 * in return.	Poul-Henning Kamp				       *
46 *								       *
47 **********************************************************************/
48
49/* Solaris version, TIOCGPPSEV and TIOCSPPS assumed to exist. */
50
51#ifndef _SYS_TIMEPPS_H_
52#define _SYS_TIMEPPS_H_
53
54#include <termios.h>	/* to get TOCGPPSEV and TIOCSPPS */
55
56/* Implementation note: the logical states ``assert'' and ``clear''
57 * are implemented in terms of the UART register, i.e. ``assert''
58 * means the bit is set.
59 */
60
61/*
62 * The following definitions are architecture independent
63 */
64
65#define PPS_API_VERS_1	1		/* API version number */
66#define PPS_JAN_1970	2208988800UL	/* 1970 - 1900 in seconds */
67#define PPS_NANOSECOND	1000000000L	/* one nanosecond in decimal */
68#define PPS_FRAC	4294967296.	/* 2^32 as a double */
69
70#define PPS_NORMALIZE(x)	/* normalize timespec */ \
71	do { \
72		if ((x).tv_nsec >= PPS_NANOSECOND) { \
73			(x).tv_nsec -= PPS_NANOSECOND; \
74			(x).tv_sec++; \
75		} else if ((x).tv_nsec < 0) { \
76			(x).tv_nsec += PPS_NANOSECOND; \
77			(x).tv_sec--; \
78		} \
79	} while (0)
80
81#define PPS_TSPECTONTP(x)	/* convert timespec to l_fp */ \
82	do { \
83		double d_temp; \
84	\
85		(x).integral += (unsigned int)PPS_JAN_1970; \
86		d_temp = (x).fractional * PPS_FRAC / PPS_NANOSECOND; \
87		if (d_temp >= PPS_FRAC) \
88			(x).integral++; \
89		(x).fractional = (unsigned int)d_temp; \
90	} while (0)
91
92/*
93 * Device/implementation parameters (mode)
94 */
95
96#define PPS_CAPTUREASSERT	0x01	/* capture assert events */
97#define PPS_CAPTURECLEAR	0x02	/* capture clear events */
98#define PPS_CAPTUREBOTH 	0x03	/* capture assert and clear events */
99
100#define PPS_OFFSETASSERT	0x10	/* apply compensation for assert ev. */
101#define PPS_OFFSETCLEAR 	0x20	/* apply compensation for clear ev. */
102#define PPS_OFFSETBOTH		0x30	/* apply compensation for both */
103
104#define PPS_CANWAIT		0x100	/* Can we wait for an event? */
105#define PPS_CANPOLL		0x200	/* "This bit is reserved for */
106
107/*
108 * Kernel actions (mode)
109 */
110
111#define PPS_ECHOASSERT		0x40	/* feed back assert event to output */
112#define PPS_ECHOCLEAR		0x80	/* feed back clear event to output */
113
114/*
115 * Timestamp formats (tsformat)
116 */
117
118#define PPS_TSFMT_TSPEC 	0x1000	/* select timespec format */
119#define PPS_TSFMT_NTPFP 	0x2000	/* select NTP format */
120
121/*
122 * Kernel discipline actions (not used in Solaris)
123 */
124
125#define PPS_KC_HARDPPS		0	/* enable kernel consumer */
126#define PPS_KC_HARDPPS_PLL	1	/* phase-lock mode */
127#define PPS_KC_HARDPPS_FLL	2	/* frequency-lock mode */
128
129/*
130 * Type definitions
131 */
132
133typedef unsigned long pps_seq_t;	/* sequence number */
134
135typedef struct ntp_fp {
136	unsigned int	integral;
137	unsigned int	fractional;
138} ntp_fp_t;				/* NTP-compatible time stamp */
139
140typedef union pps_timeu {		/* timestamp format */
141	struct timespec tspec;
142	ntp_fp_t	ntpfp;
143	unsigned long	longpad[3];
144} pps_timeu_t;				/* generic data type to represent time stamps */
145
146/*
147 * Timestamp information structure
148 */
149
150typedef struct pps_info {
151	pps_seq_t	assert_sequence;	/* seq. num. of assert event */
152	pps_seq_t	clear_sequence; 	/* seq. num. of clear event */
153	pps_timeu_t	assert_tu;		/* time of assert event */
154	pps_timeu_t	clear_tu;		/* time of clear event */
155	int		current_mode;		/* current mode bits */
156} pps_info_t;
157
158#define assert_timestamp	assert_tu.tspec
159#define clear_timestamp 	clear_tu.tspec
160
161#define assert_timestamp_ntpfp	assert_tu.ntpfp
162#define clear_timestamp_ntpfp	clear_tu.ntpfp
163
164/*
165 * Parameter structure
166 */
167
168typedef struct pps_params {
169	int		api_version;	/* API version # */
170	int		mode;		/* mode bits */
171	pps_timeu_t assert_off_tu;	/* offset compensation for assert */
172	pps_timeu_t clear_off_tu;	/* offset compensation for clear */
173} pps_params_t;
174
175#define assert_offset		assert_off_tu.tspec
176#define clear_offset		clear_off_tu.tspec
177
178#define assert_offset_ntpfp	assert_off_tu.ntpfp
179#define clear_offset_ntpfp	clear_off_tu.ntpfp
180
181/*
182 * The following definitions are architecture-dependent
183 */
184
185#define PPS_CAP (PPS_CAPTUREASSERT | PPS_OFFSETASSERT | PPS_TSFMT_TSPEC | PPS_TSFMT_NTPFP)
186#define PPS_RO	(PPS_CANWAIT | PPS_CANPOLL | PPS_TSFMT_TSPEC | PPS_TSFMT_NTPFP)
187
188typedef struct {
189	int filedes;		/* file descriptor */
190	pps_params_t params;	/* PPS parameters set by user */
191} pps_unit_t;
192
193typedef pps_unit_t* pps_handle_t; /* pps handlebars */
194
195/*
196 *------ Here begins the implementation-specific part! ------
197 */
198
199#include <errno.h>
200
201/*
202 * create PPS handle from file descriptor
203 */
204
205static inline int
206time_pps_create(
207	int filedes,		/* file descriptor */
208	pps_handle_t *handle	/* returned handle */
209	)
210{
211	int one = 1;
212
213	/*
214	 * Check for valid arguments and attach PPS signal.
215	 */
216
217	if (!handle) {
218		errno = EFAULT;
219		return (-1);	/* null pointer */
220	}
221
222	if (ioctl(filedes, TIOCSPPS, &one) < 0) {
223		perror("refclock_ioctl: TIOCSPPS failed:");
224		return (-1);
225	}
226
227	/*
228	 * Allocate and initialize default unit structure.
229	 */
230
231	*handle = malloc(sizeof(pps_unit_t));
232	if (!(*handle)) {
233		errno = EBADF;
234		return (-1);	/* what, no memory? */
235	}
236
237	memset(*handle, 0, sizeof(pps_unit_t));
238	(*handle)->filedes = filedes;
239	(*handle)->params.api_version = PPS_API_VERS_1;
240	(*handle)->params.mode = PPS_CAPTUREASSERT | PPS_TSFMT_TSPEC;
241	return (0);
242}
243
244/*
245 * release PPS handle
246 */
247
248static inline int
249time_pps_destroy(
250	pps_handle_t handle
251	)
252{
253	/*
254	 * Check for valid arguments and detach PPS signal.
255	 */
256
257	if (!handle) {
258		errno = EBADF;
259		return (-1);	/* bad handle */
260	}
261	free(handle);
262	return (0);
263}
264
265/*
266 * set parameters for handle
267 */
268
269static inline int
270time_pps_setparams(
271	pps_handle_t handle,
272	const pps_params_t *params
273	)
274{
275	int	mode, mode_in;
276	/*
277	 * Check for valid arguments and set parameters.
278	 */
279
280	if (!handle) {
281		errno = EBADF;
282		return (-1);	/* bad handle */
283	}
284
285	if (!params) {
286		errno = EFAULT;
287		return (-1);	/* bad argument */
288	}
289
290	/*
291	 * There was no reasonable consensu in the API working group.
292	 * I require `api_version' to be set!
293	 */
294
295	if (params->api_version != PPS_API_VERS_1) {
296		errno = EINVAL;
297		return(-1);
298	}
299
300	/*
301	 * only settable modes are PPS_CAPTUREASSERT and PPS_OFFSETASSERT
302	 */
303
304	mode_in = params->mode;
305
306	/* turn off read-only bits */
307
308	mode_in &= ~PPS_RO;
309
310	/* test remaining bits, should only have captureassert and/or offsetassert */
311
312	if (mode_in & ~(PPS_CAPTUREASSERT | PPS_OFFSETASSERT)) {
313		errno = EOPNOTSUPP;
314		return(-1);
315	}
316
317	/*
318	 * ok, ready to go.
319	 */
320
321	mode = handle->params.mode;
322	memcpy(&handle->params, params, sizeof(pps_params_t));
323	handle->params.api_version = PPS_API_VERS_1;
324	handle->params.mode = mode | mode_in;
325	return (0);
326}
327
328/*
329 * get parameters for handle
330 */
331
332static inline int
333time_pps_getparams(
334	pps_handle_t handle,
335	pps_params_t *params
336	)
337{
338	/*
339	 * Check for valid arguments and get parameters.
340	 */
341
342	if (!handle) {
343		errno = EBADF;
344		return (-1);	/* bad handle */
345	}
346
347	if (!params) {
348		errno = EFAULT;
349		return (-1);	/* bad argument */
350	}
351
352	memcpy(params, &handle->params, sizeof(pps_params_t));
353	return (0);
354}
355
356/* (
357 * get capabilities for handle
358 */
359
360static inline int
361time_pps_getcap(
362	pps_handle_t handle,
363	int *mode
364	)
365{
366	/*
367	 * Check for valid arguments and get capabilities.
368	 */
369
370	if (!handle) {
371		errno = EBADF;
372		return (-1);	/* bad handle */
373	}
374
375	if (!mode) {
376		errno = EFAULT;
377		return (-1);	/* bad argument */
378	}
379	*mode = PPS_CAP;
380	return (0);
381}
382
383/*
384 * Fetch timestamps
385 */
386
387static inline int
388time_pps_fetch(
389	pps_handle_t handle,
390	const int tsformat,
391	pps_info_t *ppsinfo,
392	const struct timespec *timeout
393	)
394{
395	struct ppsclockev {
396		struct timeval tv;
397		u_int serial;
398	} ev;
399
400	pps_info_t infobuf;
401
402	/*
403	 * Check for valid arguments and fetch timestamps
404	 */
405
406	if (!handle) {
407		errno = EBADF;
408		return (-1);	/* bad handle */
409	}
410
411	if (!ppsinfo) {
412		errno = EFAULT;
413		return (-1);	/* bad argument */
414	}
415
416	/*
417	 * nb. PPS_CANWAIT is NOT set by the implementation, we can totally
418	 * ignore the timeout variable.
419	 */
420
421	memset(&infobuf, 0, sizeof(infobuf));
422
423	/*
424	 * if not captureassert, nothing to return.
425	 */
426
427	if (!handle->params.mode & PPS_CAPTUREASSERT) {
428		memcpy(ppsinfo, &infobuf, sizeof(pps_info_t));
429		return (0);
430	}
431
432	if (ioctl(handle->filedes, TIOCGPPSEV, (caddr_t) &ev) < 0) {
433		perror("time_pps_fetch:");
434		errno = EOPNOTSUPP;
435		return(-1);
436	}
437
438	/*
439	 * Apply offsets as specified. Note that only assert timestamps
440	 * are captured by this interface.
441	 */
442
443	infobuf.assert_sequence = ev.serial;
444	infobuf.assert_timestamp.tv_sec = ev.tv.tv_sec;
445	infobuf.assert_timestamp.tv_nsec = ev.tv.tv_usec * 1000;
446
447	if (handle->params.mode & PPS_OFFSETASSERT) {
448		infobuf.assert_timestamp.tv_sec  += handle->params.assert_offset.tv_sec;
449		infobuf.assert_timestamp.tv_nsec += handle->params.assert_offset.tv_nsec;
450		PPS_NORMALIZE(infobuf.assert_timestamp);
451	}
452
453	/*
454	 * Translate to specified format
455	 */
456
457	switch (tsformat) {
458	case PPS_TSFMT_TSPEC:
459		break;		 /* timespec format requires no translation */
460
461	case PPS_TSFMT_NTPFP:	/* NTP format requires conversion to fraction form */
462		PPS_TSPECTONTP(infobuf.assert_timestamp_ntpfp);
463		break;
464
465	default:
466		errno = EINVAL;
467		return (-1);
468	}
469
470	infobuf.current_mode = handle->params.mode;
471	memcpy(ppsinfo, &infobuf, sizeof(pps_info_t));
472	return (0);
473}
474
475/*
476 * specify kernel consumer
477 */
478
479static inline int
480time_pps_kcbind(
481	pps_handle_t handle,
482	const int kernel_consumer,
483	const int edge, const int tsformat
484	)
485{
486	/*
487	 * Check for valid arguments and bind kernel consumer
488	 */
489	if (!handle) {
490		errno = EBADF;
491		return (-1);	/* bad handle */
492	}
493	if (geteuid() != 0) {
494		errno = EPERM;
495		return (-1);	/* must be superuser */
496	}
497	errno = EOPNOTSUPP;
498	return(-1);
499}
500
501#endif /* _SYS_TIMEPPS_H_ */
502