X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4ffd0d6b569d252e4e807d4e9c9d6a5bd5b08640..404dbd373a91c0b994005e88fe703d9144873b27:/src/systime.h?ds=sidebyside diff --git a/src/systime.h b/src/systime.h index cb1ea230f7..0f91551239 100644 --- a/src/systime.h +++ b/src/systime.h @@ -1,5 +1,5 @@ /* systime.h - System-dependent definitions for time manipulations. - Copyright (C) 1993-1994, 2002-2011 Free Software Foundation, Inc. + Copyright (C) 1993-1994, 2002-2012 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -19,26 +19,14 @@ along with GNU Emacs. If not, see . */ #ifndef EMACS_SYSTIME_H #define EMACS_SYSTIME_H -#ifdef TIME_WITH_SYS_TIME -#include -#include -#else -#ifdef HAVE_SYS_TIME_H -#include -#else -#include -#endif -#endif - -#ifdef HAVE_TZNAME -#ifndef tzname /* For SGI. */ -extern char *tzname[]; /* RS6000 and others want it this way. */ -#endif -#endif +#include -/* SVr4 doesn't actually declare this in its #include files. */ -#ifdef USG5_4 -extern time_t timezone; +#ifdef emacs +# ifdef HAVE_X_WINDOWS +# include +# else +typedef unsigned long Time; +# endif #endif /* On some configurations (hpux8.0, X11R4), sys/time.h and X11/Xos.h @@ -50,92 +38,69 @@ extern time_t timezone; #endif #endif #endif + +#ifdef WINDOWSNT +#include /* for 'struct timeval' */ +#endif -/* EMACS_TIME is the type to use to represent temporal intervals - - struct timeval on some systems, int on others. It can be passed as - the timeout argument to the select system call. +/* The type to use to represent temporal intervals. It can be passed + as the timeout argument to the pselect system call. */ +#define EMACS_TIME struct timespec - EMACS_SECS (TIME) is an rvalue for the seconds component of TIME. +/* Resolution of EMACS_TIME time stamps (in units per second), and log + base 10 of the resolution. The log must be a positive integer. */ +#define EMACS_TIME_RESOLUTION 1000000000 +#define LOG10_EMACS_TIME_RESOLUTION 9 + +/* EMACS_SECS (TIME) is an rvalue for the seconds component of TIME. + EMACS_SECS_ADDR (time) is the address of the seconds component. EMACS_SET_SECS (TIME, SECONDS) sets that to SECONDS. - EMACS_HAS_USECS is defined if EMACS_TIME has a usecs component. - EMACS_USECS (TIME) is an rvalue for the microseconds component of TIME. - This returns zero if EMACS_TIME doesn't have a microseconds component. - EMACS_SET_USECS (TIME, MICROSECONDS) sets that to MICROSECONDS. - This does nothing if EMACS_TIME doesn't have a microseconds component. + EMACS_NSECS (TIME) is an rvalue for the nanoseconds component of TIME. + EMACS_SET_NSECS (TIME, NANOSECONDS) sets that to NANOSECONDS. - EMACS_SET_SECS_USECS (TIME, SECS, USECS) sets both components of TIME. + EMACS_SET_SECS_NSECS (TIME, SECS, NSECS) sets both components of TIME. */ +#define EMACS_SECS(time) ((time).tv_sec + 0) +#define EMACS_NSECS(time) ((time).tv_nsec + 0) +#define EMACS_SECS_ADDR(time) (&(time).tv_sec) +#define EMACS_SET_SECS(time, seconds) ((time).tv_sec = (seconds)) +#define EMACS_SET_NSECS(time, ns) ((time).tv_nsec = (ns)) +#define EMACS_SET_SECS_NSECS(time, s, ns) \ + ((void) (EMACS_SET_SECS (time, s), EMACS_SET_NSECS (time, ns))) - EMACS_GET_TIME (TIME) stores the current system time in TIME, which - should be an lvalue. +/* Convenience macros for older code that counts microseconds. */ +#define EMACS_SET_USECS(time, us) ((void) EMACS_SET_NSECS (time, (us) * 1000)) +#define EMACS_SET_SECS_USECS(time, secs, usecs) \ + (EMACS_SET_SECS (time, secs), EMACS_SET_USECS (time, usecs)) - EMACS_ADD_TIME (DEST, SRC1, SRC2) adds SRC1 to SRC2 and stores the - result in DEST. SRC should not be negative. +/* Set TIME to an invalid time stamp. */ +#define EMACS_SET_INVALID_TIME(time) EMACS_SET_SECS_NSECS(time, 0, -1) - EMACS_SUB_TIME (DEST, SRC1, SRC2) subtracts SRC2 from SRC1 and - stores the result in DEST. SRC should not be negative. - EMACS_TIME_NEG_P (TIME) is true if TIME is negative. +/* Set TIME to the current system time. */ +#define EMACS_GET_TIME(time) gettime (&(time)) -*/ +/* Put into DEST the result of adding SRC1 to SRC2, or of subtracting + SRC2 from SRC1. On overflow, store an extremal value. */ +#define EMACS_ADD_TIME(dest, src1, src2) ((dest) = timespec_add (src1, src2)) +#define EMACS_SUB_TIME(dest, src1, src2) ((dest) = timespec_sub (src1, src2)) -#ifdef HAVE_TIMEVAL +/* Return the sign of the valid time stamp TIME, either -1, 0, or 1. */ +#define EMACS_TIME_SIGN(time) timespec_sign (time) -#define EMACS_HAS_USECS +/* Return 1 if TIME is a valid time stamp. */ +#define EMACS_TIME_VALID_P(time) (0 <= (time).tv_nsec) -#define EMACS_TIME struct timeval -#define EMACS_SECS(time) ((time).tv_sec + 0) -#define EMACS_USECS(time) ((time).tv_usec + 0) -#define EMACS_SET_SECS(time, seconds) ((time).tv_sec = (seconds)) -#define EMACS_SET_USECS(time, microseconds) ((time).tv_usec = (microseconds)) - -/* On SVR4, the compiler may complain if given this extra BSD arg. */ -#ifdef GETTIMEOFDAY_ONE_ARGUMENT -#define EMACS_GET_TIME(time) gettimeofday (&(time)) -#else /* not GETTIMEOFDAY_ONE_ARGUMENT */ -/* Presumably the second arg is ignored. */ -#define EMACS_GET_TIME(time) gettimeofday (&(time), NULL) -#endif /* not GETTIMEOFDAY_ONE_ARGUMENT */ - -#define EMACS_ADD_TIME(dest, src1, src2) \ - do { \ - (dest).tv_sec = (src1).tv_sec + (src2).tv_sec; \ - (dest).tv_usec = (src1).tv_usec + (src2).tv_usec; \ - if ((dest).tv_usec > 1000000) \ - (dest).tv_usec -= 1000000, (dest).tv_sec++; \ - } while (0) - -#define EMACS_SUB_TIME(dest, src1, src2) \ - do { \ - (dest).tv_sec = (src1).tv_sec - (src2).tv_sec; \ - (dest).tv_usec = (src1).tv_usec - (src2).tv_usec; \ - if ((dest).tv_usec < 0) \ - (dest).tv_usec += 1000000, (dest).tv_sec--; \ - } while (0) - -#define EMACS_TIME_NEG_P(time) \ - ((long)(time).tv_sec < 0 \ - || ((time).tv_sec == 0 \ - && (long)(time).tv_usec < 0)) - -#else /* ! defined (HAVE_TIMEVAL) */ - -#define EMACS_TIME int -#define EMACS_SECS(time) (time) -#define EMACS_USECS(time) 0 -#define EMACS_SET_SECS(time, seconds) ((time) = (seconds)) -#define EMACS_SET_USECS(time, usecs) 0 - -#define EMACS_GET_TIME(t) ((t) = time ((long *) 0)) -#define EMACS_ADD_TIME(dest, src1, src2) ((dest) = (src1) + (src2)) -#define EMACS_SUB_TIME(dest, src1, src2) ((dest) = (src1) - (src2)) -#define EMACS_TIME_NEG_P(t) ((t) < 0) - -#endif /* ! defined (HAVE_TIMEVAL) */ +/* Convert the double D to the greatest EMACS_TIME not greater than D. + On overflow, return an extremal value. Return the minimum + EMACS_TIME if D is not a number. */ +#define EMACS_TIME_FROM_DOUBLE(d) dtotimespec (d) -#define EMACS_SET_SECS_USECS(time, secs, usecs) \ - (EMACS_SET_SECS (time, secs), EMACS_SET_USECS (time, usecs)) +/* Convert the Emacs time T to an approximate double value D. */ +#define EMACS_TIME_TO_DOUBLE(t) timespectod (t) -extern int set_file_times (const char *, EMACS_TIME, EMACS_TIME); +/* defined in sysdep.c */ +extern int set_file_times (int, const char *, EMACS_TIME, EMACS_TIME); +extern struct timeval make_timeval (EMACS_TIME); /* defined in keyboard.c */ extern void set_waiting_for_input (EMACS_TIME *); @@ -144,29 +109,20 @@ extern void set_waiting_for_input (EMACS_TIME *); happen when this files is used outside the src directory). Use GCPRO1 to determine if lisp.h was included. */ #ifdef GCPRO1 -/* defined in editfns.c*/ -extern Lisp_Object make_time (time_t); -extern int lisp_time_argument (Lisp_Object, time_t *, int *); +/* defined in editfns.c */ +extern Lisp_Object make_lisp_time (EMACS_TIME); +extern int decode_time_components (Lisp_Object, Lisp_Object, Lisp_Object, + Lisp_Object, EMACS_TIME *, int *); +extern EMACS_TIME lisp_time_argument (Lisp_Object, int *); #endif -/* Compare times T1 and T2. Value is 0 if T1 and T2 are the same. - Value is < 0 if T1 is less than T2. Value is > 0 otherwise. (Cast - to long is for those platforms where time_t is an unsigned - type, and where otherwise T1 will always be grater than T2.) */ - -#define EMACS_TIME_CMP(T1, T2) \ - ((long)EMACS_SECS (T1) - (long)EMACS_SECS (T2) \ - + (EMACS_SECS (T1) == EMACS_SECS (T2) \ - ? EMACS_USECS (T1) - EMACS_USECS (T2) \ - : 0)) - /* Compare times T1 and T2 for equality, inequality etc. */ -#define EMACS_TIME_EQ(T1, T2) (EMACS_TIME_CMP (T1, T2) == 0) -#define EMACS_TIME_NE(T1, T2) (EMACS_TIME_CMP (T1, T2) != 0) -#define EMACS_TIME_GT(T1, T2) (EMACS_TIME_CMP (T1, T2) > 0) -#define EMACS_TIME_GE(T1, T2) (EMACS_TIME_CMP (T1, T2) >= 0) -#define EMACS_TIME_LT(T1, T2) (EMACS_TIME_CMP (T1, T2) < 0) -#define EMACS_TIME_LE(T1, T2) (EMACS_TIME_CMP (T1, T2) <= 0) +#define EMACS_TIME_EQ(T1, T2) (timespec_cmp (T1, T2) == 0) +#define EMACS_TIME_NE(T1, T2) (timespec_cmp (T1, T2) != 0) +#define EMACS_TIME_GT(T1, T2) (timespec_cmp (T1, T2) > 0) +#define EMACS_TIME_GE(T1, T2) (timespec_cmp (T1, T2) >= 0) +#define EMACS_TIME_LT(T1, T2) (timespec_cmp (T1, T2) < 0) +#define EMACS_TIME_LE(T1, T2) (timespec_cmp (T1, T2) <= 0) #endif /* EMACS_SYSTIME_H */