[p5sagit/p5-mst-13.2.git] / ext / Time / HiRes / HiRes.xs

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef WIN32
#include <time.h>
#else
#include <sys/time.h>
#endif
#ifdef __cplusplus
}
#endif

#if !defined(HAS_GETTIMEOFDAY) && defined(WIN32)
#define HAS_GETTIMEOFDAY

/* shows up in winsock.h?
struct timeval {
 long tv_sec;
 long tv_usec;
}
*/

int
gettimeofday (struct timeval *tp, int nothing)
{
 SYSTEMTIME st;
 time_t tt;
 struct tm tmtm;
 /* mktime converts local to UTC */
 GetLocalTime (&st);
 tmtm.tm_sec = st.wSecond;
 tmtm.tm_min = st.wMinute;
 tmtm.tm_hour = st.wHour;
 tmtm.tm_mday = st.wDay;
 tmtm.tm_mon = st.wMonth - 1;
 tmtm.tm_year = st.wYear - 1900;
 tmtm.tm_isdst = -1;
 tt = mktime (&tmtm);
 tp->tv_sec = tt;
 tp->tv_usec = st.wMilliseconds * 1000;
 return 0;
}
#endif

#if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
#define HAS_GETTIMEOFDAY

#include <time.h> /* gettimeofday */
#include <stdlib.h> /* qdiv */
#include <starlet.h> /* sys$gettim */
#include <descrip.h>

/*
        VMS binary time is expressed in 100 nano-seconds since
        system base time which is 17-NOV-1858 00:00:00.00
*/

#define DIV_100NS_TO_SECS  10000000L
#define DIV_100NS_TO_USECS 10L

/* 
        gettimeofday is supposed to return times since the epoch
        so need to determine this in terms of VMS base time
*/
static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");

static __int64 base_adjust=0;

int
gettimeofday (struct timeval *tp, void *tpz)
{
 long ret;
 __int64 quad;
 __qdiv_t ans1,ans2;

/*
        In case of error, tv_usec = 0 and tv_sec = VMS condition code.
        The return from function is also set to -1.
        This is not exactly as per the manual page.
*/

 tp->tv_usec = 0;

 if (base_adjust==0) { /* Need to determine epoch adjustment */
        ret=sys$bintim(&dscepoch,&base_adjust);
        if (1 != (ret &&1)) {
                tp->tv_sec = ret;
                return -1;
        }
 }

 ret=sys$gettim(&quad); /* Get VMS system time */
 if ((1 && ret) == 1) {
        quad -= base_adjust; /* convert to epoch offset */
        ans1=qdiv(quad,DIV_100NS_TO_SECS);
        ans2=qdiv(ans1.rem,DIV_100NS_TO_USECS);
        tp->tv_sec = ans1.quot; /* Whole seconds */
        tp->tv_usec = ans2.quot; /* Micro-seconds */
 } else {
        tp->tv_sec = ret;
        return -1;
 }
 return 0;
}
#endif

#if !defined(HAS_USLEEP) && defined(HAS_SELECT)
#ifndef SELECT_IS_BROKEN
#define HAS_USLEEP
#define usleep hrt_usleep  /* could conflict with ncurses for static build */

void
hrt_usleep(unsigned long usec)
{
    struct timeval tv;
    tv.tv_sec = 0;
    tv.tv_usec = usec;
    select(0, (Select_fd_set_t)NULL, (Select_fd_set_t)NULL,
		(Select_fd_set_t)NULL, &tv);
}
#endif
#endif

#if !defined(HAS_USLEEP) && defined(WIN32)
#define HAS_USLEEP
#define usleep hrt_usleep  /* could conflict with ncurses for static build */

void
hrt_usleep(unsigned long usec)
{
    long msec;
    msec = usec / 1000;
    Sleep (msec);
}
#endif


#if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
#define HAS_UALARM
#define ualarm hrt_ualarm  /* could conflict with ncurses for static build */

int
hrt_ualarm(int usec, int interval)
{
   struct itimerval itv;
   itv.it_value.tv_sec = usec / 1000000;
   itv.it_value.tv_usec = usec % 1000000;
   itv.it_interval.tv_sec = interval / 1000000;
   itv.it_interval.tv_usec = interval % 1000000;
   return setitimer(ITIMER_REAL, &itv, 0);
}
#endif

#ifdef HAS_GETTIMEOFDAY

static void
myU2time(UV *ret)
{
  struct timeval Tp;
  int status;
  status = gettimeofday (&Tp, NULL);
  ret[0] = Tp.tv_sec;
  ret[1] = Tp.tv_usec;
}

static double
myNVtime()
{
  struct timeval Tp;
  int status;
  status = gettimeofday (&Tp, NULL);
  return Tp.tv_sec + (Tp.tv_usec / 1000000.);
}

#endif

MODULE = Time::HiRes            PACKAGE = Time::HiRes

PROTOTYPES: ENABLE

BOOT:
#ifdef ATLEASTFIVEOHOHFIVE
#ifdef HAS_GETTIMEOFDAY
  hv_store(PL_modglobal, "Time::NVtime", 12, newSViv((IV) myNVtime), 0);
  hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) myU2time), 0);
#endif
#endif

#ifdef HAS_USLEEP

void
usleep(useconds)
        int useconds 

void
sleep(fseconds)
        double fseconds 
	CODE:
	int useconds = fseconds * 1000000;
	usleep (useconds);

#endif

#ifdef HAS_UALARM

int
ualarm(useconds,interval=0)
	int useconds
	int interval

int
alarm(fseconds,finterval=0)
	double fseconds
	double finterval
	PREINIT:
	int useconds, uinterval;
	CODE:
	useconds = fseconds * 1000000;
	uinterval = finterval * 1000000;
	RETVAL = ualarm (useconds, uinterval);

#endif

#ifdef HAS_GETTIMEOFDAY

void
gettimeofday()
        PREINIT:
        struct timeval Tp;
        PPCODE:
	int status;
        status = gettimeofday (&Tp, NULL);
        if (GIMME == G_ARRAY) {
	     EXTEND(sp, 2);
             PUSHs(sv_2mortal(newSViv(Tp.tv_sec)));
             PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
        } else {
             EXTEND(sp, 1);
             PUSHs(sv_2mortal(newSVnv(Tp.tv_sec + (Tp.tv_usec / 1000000.0))));
        }

double
time()
        PREINIT:
        struct timeval Tp;
        CODE:
	int status;
        status = gettimeofday (&Tp, NULL);
        RETVAL = Tp.tv_sec + (Tp.tv_usec / 1000000.);
	OUTPUT:
	RETVAL

#endif

# $Id: HiRes.xs,v 1.11 1999/03/16 02:27:38 wegscd Exp wegscd $

# $Log: HiRes.xs,v $
# Revision 1.11  1999/03/16 02:27:38  wegscd
# Add U2time, NVtime. Fix symbols for static link.
#
# Revision 1.10  1998/09/30 02:36:25  wegscd
# Add VMS changes.
#
# Revision 1.9  1998/07/07 02:42:06  wegscd
# Win32 usleep()
#
# Revision 1.8  1998/07/02 01:47:26  wegscd
# Add Win32 code for gettimeofday.
#
# Revision 1.7  1997/11/13 02:08:12  wegscd
# Add missing EXTEND in gettimeofday() scalar code.
#
# Revision 1.6  1997/11/11 02:32:35  wegscd
# Do something useful when calling gettimeofday() in a scalar context.
# The patch is courtesy of Gisle Aas.
#
# Revision 1.5  1997/11/06 03:10:47  wegscd
# Fake ualarm() if we have setitimer.
#
# Revision 1.4  1997/11/05 05:41:23  wegscd
# Turn prototypes ON (suggested by Gisle Aas)
#
# Revision 1.3  1997/10/13 20:56:15  wegscd
# Add PROTOTYPES: DISABLE
#
# Revision 1.2  1997/05/23 01:01:38  wegscd
# Conditional compilation, depending on what the OS gives us.
#
# Revision 1.1  1996/09/03 18:26:35  wegscd
# Initial revision
#
#
Commit	Line	Data
dcf686c9	1	#ifdef __cplusplus
	2	extern "C" {
	3	#endif
	4	#include "EXTERN.h"
	5	#include "perl.h"
	6	#include "XSUB.h"
	7	#ifdef WIN32
	8	#include <time.h>
	9	#else
	10	#include <sys/time.h>
	11	#endif
	12	#ifdef __cplusplus
	13	}
	14	#endif
	15
	16	#if !defined(HAS_GETTIMEOFDAY) && defined(WIN32)
	17	#define HAS_GETTIMEOFDAY
	18
	19	/* shows up in winsock.h?
	20	struct timeval {
	21	long tv_sec;
	22	long tv_usec;
	23	}
	24	*/
	25
	26	int
	27	gettimeofday (struct timeval *tp, int nothing)
	28	{
	29	SYSTEMTIME st;
	30	time_t tt;
	31	struct tm tmtm;
	32	/* mktime converts local to UTC */
	33	GetLocalTime (&st);
	34	tmtm.tm_sec = st.wSecond;
	35	tmtm.tm_min = st.wMinute;
	36	tmtm.tm_hour = st.wHour;
	37	tmtm.tm_mday = st.wDay;
	38	tmtm.tm_mon = st.wMonth - 1;
	39	tmtm.tm_year = st.wYear - 1900;
	40	tmtm.tm_isdst = -1;
	41	tt = mktime (&tmtm);
	42	tp->tv_sec = tt;
	43	tp->tv_usec = st.wMilliseconds * 1000;
	44	return 0;
	45	}
	46	#endif
	47
	48	#if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
	49	#define HAS_GETTIMEOFDAY
	50
	51	#include <time.h> /* gettimeofday */
	52	#include <stdlib.h> /* qdiv */
	53	#include <starlet.h> /* sys$gettim */
	54	#include <descrip.h>
	55
	56	/*
	57	VMS binary time is expressed in 100 nano-seconds since
	58	system base time which is 17-NOV-1858 00:00:00.00
	59	*/
	60
	61	#define DIV_100NS_TO_SECS 10000000L
	62	#define DIV_100NS_TO_USECS 10L
	63
	64	/*
65	gettimeofday is supposed to return times since the epoch
66	so need to determine this in terms of VMS base time
67	*/
68	static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");
69
70	static __int64 base_adjust=0;
71
72	int
73	gettimeofday (struct timeval tp, void tpz)
74	{
75	long ret;
76	__int64 quad;
77	__qdiv_t ans1,ans2;
78
79	/*
80	In case of error, tv_usec = 0 and tv_sec = VMS condition code.
81	The return from function is also set to -1.
82	This is not exactly as per the manual page.
83	*/
84
85	tp->tv_usec = 0;
86
87	if (base_adjust==0) { /* Need to determine epoch adjustment */
88	ret=sys$bintim(&dscepoch,&base_adjust);
89	if (1 != (ret &&1)) {
90	tp->tv_sec = ret;
91	return -1;
92	}
93	}
94
95	ret=sys$gettim(&quad); /* Get VMS system time */
96	if ((1 && ret) == 1) {
97	quad -= base_adjust; /* convert to epoch offset */
98	ans1=qdiv(quad,DIV_100NS_TO_SECS);
99	ans2=qdiv(ans1.rem,DIV_100NS_TO_USECS);
100	tp->tv_sec = ans1.quot; /* Whole seconds */
101	tp->tv_usec = ans2.quot; /* Micro-seconds */
102	} else {
103	tp->tv_sec = ret;
104	return -1;
105	}
106	return 0;
107	}
108	#endif
109
110	#if !defined(HAS_USLEEP) && defined(HAS_SELECT)
111	#ifndef SELECT_IS_BROKEN
112	#define HAS_USLEEP
113	#define usleep hrt_usleep /* could conflict with ncurses for static build */
114
115	void
116	hrt_usleep(unsigned long usec)
117	{
118	struct timeval tv;
119	tv.tv_sec = 0;
120	tv.tv_usec = usec;
121	select(0, (Select_fd_set_t)NULL, (Select_fd_set_t)NULL,
122	(Select_fd_set_t)NULL, &tv);
123	}
124	#endif
125	#endif
126
127	#if !defined(HAS_USLEEP) && defined(WIN32)
128	#define HAS_USLEEP
129	#define usleep hrt_usleep /* could conflict with ncurses for static build */
130
131	void
132	hrt_usleep(unsigned long usec)
133	{
134	long msec;
135	msec = usec / 1000;
136	Sleep (msec);
137	}
138	#endif
139
140
141	#if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
142	#define HAS_UALARM
143	#define ualarm hrt_ualarm /* could conflict with ncurses for static build */
144
145	int
146	hrt_ualarm(int usec, int interval)
147	{
148	struct itimerval itv;
149	itv.it_value.tv_sec = usec / 1000000;
150	itv.it_value.tv_usec = usec % 1000000;
151	itv.it_interval.tv_sec = interval / 1000000;
152	itv.it_interval.tv_usec = interval % 1000000;
153	return setitimer(ITIMER_REAL, &itv, 0);
154	}
155	#endif
156
157	#ifdef HAS_GETTIMEOFDAY
158
159	static void
160	myU2time(UV *ret)
161	{
162	struct timeval Tp;
163	int status;
164	status = gettimeofday (&Tp, NULL);
165	ret[0] = Tp.tv_sec;
166	ret[1] = Tp.tv_usec;
167	}
168
169	static double
170	myNVtime()
171	{
172	struct timeval Tp;
173	int status;
174	status = gettimeofday (&Tp, NULL);
175	return Tp.tv_sec + (Tp.tv_usec / 1000000.);
176	}
177
178	#endif
179
180	MODULE = Time::HiRes PACKAGE = Time::HiRes
181
182	PROTOTYPES: ENABLE
183
184	BOOT:
185	#ifdef ATLEASTFIVEOHOHFIVE
186	#ifdef HAS_GETTIMEOFDAY
187	hv_store(PL_modglobal, "Time::NVtime", 12, newSViv((IV) myNVtime), 0);
188	hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) myU2time), 0);
189	#endif
190	#endif
191
192	#ifdef HAS_USLEEP
193
194	void
195	usleep(useconds)
196	int useconds
197
198	void
199	sleep(fseconds)
200	double fseconds
201	CODE:
202	int useconds = fseconds * 1000000;
203	usleep (useconds);
204
205	#endif
206
207	#ifdef HAS_UALARM
208
209	int
210	ualarm(useconds,interval=0)
211	int useconds
212	int interval
213
214	int
215	alarm(fseconds,finterval=0)
216	double fseconds
217	double finterval
218	PREINIT:
219	int useconds, uinterval;
220	CODE:
221	useconds = fseconds * 1000000;
222	uinterval = finterval * 1000000;
223	RETVAL = ualarm (useconds, uinterval);
224
225	#endif
226
227	#ifdef HAS_GETTIMEOFDAY
228
229	void
230	gettimeofday()
231	PREINIT:
232	struct timeval Tp;
233	PPCODE:
234	int status;
235	status = gettimeofday (&Tp, NULL);
236	if (GIMME == G_ARRAY) {
237	EXTEND(sp, 2);
238	PUSHs(sv_2mortal(newSViv(Tp.tv_sec)));
239	PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
240	} else {
241	EXTEND(sp, 1);
242	PUSHs(sv_2mortal(newSVnv(Tp.tv_sec + (Tp.tv_usec / 1000000.0))));
243	}
244
245	double
246	time()
247	PREINIT:
248	struct timeval Tp;
249	CODE:
250	int status;
251	status = gettimeofday (&Tp, NULL);
252	RETVAL = Tp.tv_sec + (Tp.tv_usec / 1000000.);
253	OUTPUT:
254	RETVAL
255
256	#endif
257
258	# $Id: HiRes.xs,v 1.11 1999/03/16 02:27:38 wegscd Exp wegscd $
259
260	# $Log: HiRes.xs,v $
261	# Revision 1.11 1999/03/16 02:27:38 wegscd
262	# Add U2time, NVtime. Fix symbols for static link.
263	#
264	# Revision 1.10 1998/09/30 02:36:25 wegscd
265	# Add VMS changes.
266	#
267	# Revision 1.9 1998/07/07 02:42:06 wegscd
268	# Win32 usleep()
269	#
270	# Revision 1.8 1998/07/02 01:47:26 wegscd
271	# Add Win32 code for gettimeofday.
272	#
273	# Revision 1.7 1997/11/13 02:08:12 wegscd
274	# Add missing EXTEND in gettimeofday() scalar code.
275	#
276	# Revision 1.6 1997/11/11 02:32:35 wegscd
277	# Do something useful when calling gettimeofday() in a scalar context.
278	# The patch is courtesy of Gisle Aas.
279	#
280	# Revision 1.5 1997/11/06 03:10:47 wegscd
281	# Fake ualarm() if we have setitimer.
282	#
283	# Revision 1.4 1997/11/05 05:41:23 wegscd
284	# Turn prototypes ON (suggested by Gisle Aas)
285	#
286	# Revision 1.3 1997/10/13 20:56:15 wegscd
287	# Add PROTOTYPES: DISABLE
288	#
289	# Revision 1.2 1997/05/23 01:01:38 wegscd
290	# Conditional compilation, depending on what the OS gives us.
291	#
292	# Revision 1.1 1996/09/03 18:26:35 wegscd
293	# Initial revision
294	#
295	#