593a21d3ef0801cb2a7fa6fc549f146975ecdea7
[openssl.git] / crypto / tmdiff.c
1 /* crypto/tmdiff.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  * 
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  * 
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  * 
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from 
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  * 
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  * 
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 #include <stdio.h>
59 #include <stdlib.h>
60 #include "cryptlib.h"
61 #include <openssl/tmdiff.h>
62
63 #ifdef TIMEB
64 #undef WIN32
65 #undef TIMES
66 #endif
67
68 #ifndef MSDOS
69 #  ifndef WIN32
70 #    define TIMES
71 #  endif
72 #endif
73
74 #ifndef VMS
75 #  ifndef _IRIX
76 #   include <time.h>
77 #  endif
78 #  ifdef TIMES
79 #    include <sys/types.h>
80 #    include <sys/times.h>
81 #  endif
82 #else /* VMS */
83 #  include <types.h>
84         struct tms {
85                 time_t tms_utime;
86                 time_t tms_stime;
87                 time_t tms_uchild;      /* I dunno...  */
88                 time_t tms_uchildsys;   /* so these names are a guess :-) */
89                 }
90 #endif /* VMS */
91
92 #if defined(sun) || defined(__ultrix)
93 #define _POSIX_SOURCE
94 #include <limits.h>
95 #include <sys/param.h>
96 #endif
97
98 #ifndef TIMES
99 #include <sys/timeb.h>
100 #endif
101
102 #ifdef WIN32
103 #include <windows.h>
104 #endif
105
106 /* The following if from times(3) man page.  It may need to be changed */
107 #ifndef HZ
108 # ifndef CLK_TCK
109 #  ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
110 #   ifndef VMS
111 #    define HZ  100.0
112 #   else /* VMS */
113 #    define HZ  100.0
114 #   endif
115 #  else /* _BSD_CLK_TCK_ */
116 #   define HZ ((double)_BSD_CLK_TCK_)
117 #  endif
118 # else /* CLK_TCK */
119 #  define HZ ((double)CLK_TCK)
120 # endif
121 #endif
122
123 typedef struct ms_tm
124         {
125 #ifdef TIMES
126         struct tms ms_tms;
127 #else
128 #  ifdef WIN32
129         HANDLE thread_id;
130         FILETIME ms_win32;
131 #  else
132         struct timeb ms_timeb;
133 #  endif
134 #endif
135         } MS_TM;
136
137 char *ms_time_new(void)
138         {
139         MS_TM *ret;
140
141         ret=(MS_TM *)Malloc(sizeof(MS_TM));
142         if (ret == NULL)
143                 return(NULL);
144         memset(ret,0,sizeof(MS_TM));
145 #ifdef WIN32
146         ret->thread_id=GetCurrentThread();
147 #endif
148         return((char *)ret);
149         }
150
151 void ms_time_free(char *a)
152         {
153         if (a != NULL)
154                 Free(a);
155         }
156
157 void ms_time_get(char *a)
158         {
159         MS_TM *tm=(MS_TM *)a;
160 #ifdef WIN32
161         FILETIME tmpa,tmpb,tmpc;
162 #endif
163
164 #ifdef TIMES
165         times(&tm->ms_tms);
166 #else
167 #  ifdef WIN32
168         GetThreadTimes(tm->thread_id,&tmpa,&tmpb,&tmpc,&(tm->ms_win32));
169 #  else
170         ftime(&tm->ms_timeb);
171 #  endif
172 #endif
173         }
174
175 double ms_time_diff(char *ap, char *bp)
176         {
177         MS_TM *a=(MS_TM *)ap;
178         MS_TM *b=(MS_TM *)bp;
179         double ret;
180
181 #ifdef TIMES
182         ret=(b->ms_tms.tms_utime-a->ms_tms.tms_utime)/HZ;
183 #else
184 # ifdef WIN32
185         {
186         signed _int64 la,lb;
187         la=a->ms_win32.dwHighDateTime;
188         lb=b->ms_win32.dwHighDateTime;
189         la<<=32;
190         lb<<=32;
191         la+=a->ms_win32.dwLowDateTime;
192         lb+=b->ms_win32.dwLowDateTime;
193         ret=((double)(lb-la))/1e7;
194         }
195 # else
196         ret=     (double)(b->ms_timeb.time-a->ms_timeb.time)+
197                 (((double)b->ms_timeb.millitm)-
198                 ((double)a->ms_timeb.millitm))/1000.0;
199 #  endif
200 #endif
201         return((ret < 0.0000001)?0.0000001:ret);
202         }
203
204 int ms_time_cmp(char *ap, char *bp)
205         {
206         MS_TM *a=(MS_TM *)ap,*b=(MS_TM *)bp;
207         double d;
208         int ret;
209
210 #ifdef TIMES
211         d=(b->ms_tms.tms_utime-a->ms_tms.tms_utime)/HZ;
212 #else
213 # ifdef WIN32
214         d =(b->ms_win32.dwHighDateTime&0x000fffff)*10+b->ms_win32.dwLowDateTime/1e7;
215         d-=(a->ms_win32.dwHighDateTime&0x000fffff)*10+a->ms_win32.dwLowDateTime/1e7;
216 # else
217         d=       (double)(b->ms_timeb.time-a->ms_timeb.time)+
218                 (((double)b->ms_timeb.millitm)-(double)a->ms_timeb.millitm)/1000.0;
219 #  endif
220 #endif
221         if (d == 0.0)
222                 ret=0;
223         else if (d < 0)
224                 ret= -1;
225         else
226                 ret=1;
227         return(ret);
228         }
229