home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / src / systime.h < prev    next >
C/C++ Source or Header  |  1996-09-28  |  5KB  |  172 lines
  1. /* systime.h - System-dependent definitions for time manipulations.
  2.    Copyright (C) 1993, 1994 Free Software Foundation, Inc.
  3.  
  4. This file is part of GNU Emacs.
  5.  
  6. GNU Emacs is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GNU Emacs is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU Emacs; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #ifdef TIME_WITH_SYS_TIME
  21. #include <sys/time.h>
  22. #include <time.h>
  23. #else
  24. #ifdef HAVE_SYS_TIME_H
  25. #include <sys/time.h>
  26. #else
  27. #include <time.h>
  28. #endif
  29. #endif
  30.  
  31. #ifdef HAVE_TZNAME
  32. #ifndef tzname        /* For SGI.  */
  33. extern char *tzname[];    /* RS6000 and others want it this way.  */
  34. #endif
  35. #endif
  36.  
  37. /* SVr4 doesn't actually declare this in its #include files.  */
  38. #ifdef USG5_4
  39. extern long timezone;
  40. #endif
  41.  
  42. #ifdef VMS
  43. #ifdef VAXC
  44. #include "vmstime.h"
  45. #endif
  46. #endif
  47.  
  48. /* On some configurations (hpux8.0, X11R4), sys/time.h and X11/Xos.h
  49.    disagree about the name of the guard symbol.  */
  50. #ifdef HPUX
  51. #ifdef _STRUCT_TIMEVAL
  52. #ifndef __TIMEVAL__
  53. #define __TIMEVAL__
  54. #endif
  55. #endif
  56. #endif
  57.  
  58. /* EMACS_TIME is the type to use to represent temporal intervals -
  59.    struct timeval on some systems, int on others.  It can be passed as
  60.    the timeout argument to the select  system call.
  61.  
  62.    EMACS_SECS (TIME) is an rvalue for the seconds component of TIME.
  63.    EMACS_SET_SECS (TIME, SECONDS) sets that to SECONDS.
  64.  
  65.    EMACS_HAS_USECS is defined iff EMACS_TIME has a usecs component.
  66.    EMACS_USECS (TIME) is an rvalue for the microseconds component of TIME.
  67.        This returns zero if EMACS_TIME doesn't have a microseconds component.
  68.    EMACS_SET_USECS (TIME, MICROSECONDS) sets that to MICROSECONDS.
  69.     This does nothing if EMACS_TIME doesn't have a microseconds component.
  70.  
  71.    EMACS_SET_SECS_USECS (TIME, SECS, USECS) sets both components of TIME.
  72.  
  73.    EMACS_GET_TIME (TIME) stores the current system time in TIME, which
  74.     should be an lvalue.
  75.    EMACS_SET_UTIMES (PATH, ATIME, MTIME) changes the last-access and
  76.     last-modification times of the file named PATH to ATIME and
  77.     MTIME, which are EMACS_TIMEs.
  78.  
  79.    EMACS_ADD_TIME (DEST, SRC1, SRC2) adds SRC1 to SRC2 and stores the
  80.     result in DEST.  SRC should not be negative.
  81.  
  82.    EMACS_SUB_TIME (DEST, SRC1, SRC2) subtracts SRC2 from SRC1 and
  83.     stores the result in DEST.  SRC should not be negative. 
  84.    EMACS_TIME_NEG_P (TIME) is true iff TIME is negative.
  85.  
  86. */
  87.  
  88. #ifdef HAVE_TIMEVAL
  89.  
  90. #define EMACS_HAS_USECS
  91.  
  92. #define EMACS_TIME struct timeval
  93. #define EMACS_SECS(time)            ((time).tv_sec  + 0)
  94. #define EMACS_USECS(time)            ((time).tv_usec + 0)
  95. #define EMACS_SET_SECS(time, seconds)        ((time).tv_sec  = (seconds))
  96. #define EMACS_SET_USECS(time, microseconds) ((time).tv_usec = (microseconds))
  97.  
  98. /* On SVR4, the compiler may complain if given this extra BSD arg.  */
  99. #ifdef GETTIMEOFDAY_ONE_ARGUMENT
  100. #define EMACS_GET_TIME(time)                                  \
  101. {                                                             \
  102.   gettimeofday (&(time));                                     \
  103. }
  104. #else /* not GETTIMEOFDAY_ONE_ARGUMENT */
  105. #define EMACS_GET_TIME(time)                    \
  106. {                                \
  107.   struct timezone dummy;                    \
  108.   gettimeofday (&(time), &dummy);                \
  109. }
  110. #endif /* not GETTIMEOFDAY_ONE_ARGUMENT */
  111.  
  112. #define EMACS_ADD_TIME(dest, src1, src2)            \
  113. {                                \
  114.   (dest).tv_sec  = (src1).tv_sec  + (src2).tv_sec;        \
  115.   (dest).tv_usec = (src1).tv_usec + (src2).tv_usec;        \
  116.   if ((dest).tv_usec > 1000000)                    \
  117.     (dest).tv_usec -= 1000000, (dest).tv_sec++;            \
  118. }
  119.  
  120. #define EMACS_SUB_TIME(dest, src1, src2)            \
  121. {                                \
  122.   (dest).tv_sec  = (src1).tv_sec  - (src2).tv_sec;        \
  123.   (dest).tv_usec = (src1).tv_usec - (src2).tv_usec;        \
  124.   if ((dest).tv_usec < 0)                    \
  125.     (dest).tv_usec += 1000000, (dest).tv_sec--;            \
  126. }
  127.  
  128. #define EMACS_TIME_NEG_P(time)                    \
  129.   ((long)(time).tv_sec < 0                    \
  130.    || ((time).tv_sec == 0                    \
  131.        && (long)(time).tv_usec < 0))
  132.  
  133. #else /* ! defined (HAVE_TIMEVAL) */
  134.  
  135. #define EMACS_TIME int
  136. #define EMACS_SECS(time)            (time)
  137. #define EMACS_USECS(time)            0
  138. #define EMACS_SET_SECS(time, seconds)        ((time) = (seconds))
  139. #define EMACS_SET_USECS(time, usecs)        0
  140.  
  141. #define EMACS_GET_TIME(t) ((t) = time ((long *) 0))
  142. #define EMACS_ADD_TIME(dest, src1, src2) ((dest) = (src1) + (src2))
  143. #define EMACS_SUB_TIME(dest, src1, src2) ((dest) = (src1) - (src2))
  144. #define EMACS_TIME_NEG_P(t) ((t) < 0)
  145.  
  146. #endif /* ! defined (HAVE_TIMEVAL) */
  147.  
  148. #define EMACS_SET_SECS_USECS(time, secs, usecs)         \
  149.   (EMACS_SET_SECS (time, secs), EMACS_SET_USECS (time, usecs))
  150.  
  151. #ifdef USE_UTIME
  152.  
  153. #define EMACS_SET_UTIMES(path, atime, mtime)            \
  154.   {                                \
  155.     time_t tv[2];                        \
  156.     tv[0] = EMACS_SECS (atime);                    \
  157.     tv[1] = EMACS_SECS (mtime);                    \
  158.     utime ((path), tv);                        \
  159.   }
  160.  
  161. #else /* ! defined (USE_UTIME) */
  162.  
  163. #define EMACS_SET_UTIMES(path, atime, mtime)            \
  164.   {                                \
  165.     EMACS_TIME tv[2];                        \
  166.     tv[0] = atime;                        \
  167.     tv[1] = mtime;                        \
  168.     utimes ((path), tv);                    \
  169.   }
  170.  
  171. #endif /* ! defined (USE_UTIME) */
  172.