2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
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.
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).
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.
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
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)"
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
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.]
62 #include <openssl/opensslconf.h>
64 #include <openssl/e_os2.h>
65 /* <openssl/e_os2.h> contains what we can justify to make visible
66 * to the outside; this file e_os.h is not part of the exported
73 /* Used to checking reference counts, most while doing perl5 stuff :-) */
76 #define REF_PRINT(a,b) fprintf(stderr,"%08X:%4d:%s\n",(int)b,b->references,a)
80 /* set this to your 'random' device if you have one.
81 * My default, we will try to read this file */
82 #define DEVRANDOM "/dev/urandom"
85 #if defined(__MWERKS__) && defined(macintosh)
87 # ifndef MAC_OS_GUSI_SOURCE
89 # define NO_SYS_TYPES_H
92 # define NO_SYS_PARAM_H
96 # define GETPID_IS_MEANINGLESS
100 /********************************************************************
101 The Microsoft section
102 ********************************************************************/
103 /* The following is used becaue of the small stack in some
104 * Microsoft operating systems */
105 #if defined(WIN16) || defined(MSDOS)
106 # define MS_STATIC static
111 #if defined(_WIN32) && !defined(WIN32) && !defined(__CYGWIN32__)
115 #if (defined(WIN32) || defined(WIN16)) && !defined(__CYGWIN32__)
124 #if defined(MSDOS) && !defined(GETPID_IS_MEANINGLESS)
125 # define GETPID_IS_MEANINGLESS
129 #define get_last_sys_error() GetLastError()
130 #define clear_sys_error() SetLastError(0)
132 #define WIN_CONSOLE_BUG
135 #define get_last_sys_error() errno
136 #define clear_sys_error() errno=0
139 #if defined(WINDOWS) && !defined(__CYGWIN32__)
140 #define get_last_socket_error() WSAGetLastError()
141 #define clear_socket_error() WSASetLastError(0)
142 #define readsocket(s,b,n) recv((s),(b),(n),0)
143 #define writesocket(s,b,n) send((s),(b),(n),0)
144 #define EADDRINUSE WSAEADDRINUSE
145 #elif defined(MAC_OS_pre_X)
146 #define get_last_socket_error() errno
147 #define clear_socket_error() errno=0
148 #define closesocket(s) MacSocket_close(s)
149 #define readsocket(s,b,n) MacSocket_recv((s),(b),(n),true)
150 #define writesocket(s,b,n) MacSocket_send((s),(b),(n))
152 #define get_last_socket_error() errno
153 #define clear_socket_error() errno=0
154 #define ioctlsocket(a,b,c) ioctl(a,b,c)
155 #define closesocket(s) close(s)
156 #define readsocket(s,b,n) read((s),(b),(n))
157 #define writesocket(s,b,n) write((s),(b),(n))
162 # define MS_CALLBACK _far _loadds
173 #if (defined(WINDOWS) || defined(MSDOS)) && !defined(__CYGWIN32__)
176 # define S_IFDIR _S_IFDIR
180 # define S_IFMT _S_IFMT
189 # include <windows.h>
198 # define ssize_t long
200 # if defined (__BORLANDC__)
201 # define _setmode setmode
202 # define _O_TEXT O_TEXT
203 # define _O_BINARY O_BINARY
204 # define _int64 __int64
205 # define _kbhit kbhit
208 # if defined(WIN16) && !defined(MONOLITH) && defined(SSLEAY) && defined(_WINEXITNOPERSIST)
209 # define EXIT(n) { if (n == 0) _wsetexit(_WINEXITNOPERSIST); return(n); }
211 # define EXIT(n) return(n);
213 # define LIST_SEPARATOR_CHAR ';'
223 # define OPENSSL_CONF "openssl.cnf"
224 # define SSLEAY_CONF OPENSSL_CONF
225 # define NUL_DEV "nul"
226 # define RFILE ".rnd"
228 #else /* The non-microsoft world world */
230 # if defined(__VMS) && !defined(VMS)
235 /* some programs don't include stdlib, so exit() and others give implicit
241 # include <unixlib.h>
243 # define OPENSSL_CONF "openssl.cnf"
244 # define SSLEAY_CONF OPENSSL_CONF
245 # define RFILE ".rnd"
246 # define LIST_SEPARATOR_CHAR ','
247 # define NUL_DEV "NLA0:"
248 /* We need to do this since VMS has the following coding on status codes:
250 Bits 0-2: status type: 0 = warning, 1 = success, 2 = error, 3 = info ...
251 The important thing to know is that odd numbers are considered
252 good, while even ones are considered errors.
253 Bits 3-15: actual status number
254 Bits 16-27: facility number. 0 is considered "unknown"
255 Bits 28-31: control bits. If bit 28 is set, the shell won't try to
256 output the message (which, for random codes, just looks ugly)
258 So, what we do here is to change 0 to 1 to get the default success status,
259 and everything else is shifted up to fit into the status number field, and
260 the status is tagged as an error, which I believe is what is wanted here.
263 # if !defined(MONOLITH) || defined(OPENSSL_C)
264 # define EXIT(n) do { int __VMS_EXIT = n; \
265 if (__VMS_EXIT == 0) \
268 __VMS_EXIT = (n << 3) | 2; \
269 __VMS_EXIT |= 0x10000000; \
271 return(__VMS_EXIT); } while(0)
273 # define EXIT(n) return(n)
275 # define NO_SYS_PARAM_H
278 # ifdef OPENSSL_UNISTD
279 # include OPENSSL_UNISTD
283 # ifndef NO_SYS_TYPES_H
284 # include <sys/types.h>
287 # define pid_t int /* pid_t is missing on NEXTSTEP/OPENSTEP
288 * (unless when compiling with -D_POSIX_SOURCE,
289 * which doesn't work for us) */
290 # define ssize_t int /* ditto */
293 # define OPENSSL_CONF "openssl.cnf"
294 # define SSLEAY_CONF OPENSSL_CONF
295 # define RFILE ".rnd"
296 # define LIST_SEPARATOR_CHAR ':'
297 # define NUL_DEV "/dev/null"
299 # define EXIT(n) exit(n); return(n)
301 # define EXIT(n) return(n)
305 # define SSLeay_getpid() getpid()
313 # if defined(WINDOWS) || defined(MSDOS)
317 # define SSLeay_Write(a,b,c) (-1)
318 # define SSLeay_Read(a,b,c) (-1)
319 # define SHUTDOWN(fd) close(fd)
320 # define SHUTDOWN2(fd) close(fd)
322 # include <winsock.h>
323 extern HINSTANCE _hInstance;
324 # define SSLeay_Write(a,b,c) send((a),(b),(c),0)
325 # define SSLeay_Read(a,b,c) recv((a),(b),(c),0)
326 # define SHUTDOWN(fd) { shutdown((fd),0); closesocket(fd); }
327 # define SHUTDOWN2(fd) { shutdown((fd),2); closesocket(fd); }
330 # elif defined(MAC_OS_pre_X)
332 # include "MacSocket.h"
333 # define SSLeay_Write(a,b,c) MacSocket_send((a),(b),(c))
334 # define SSLeay_Read(a,b,c) MacSocket_recv((a),(b),(c),true)
335 # define SHUTDOWN(fd) MacSocket_close(fd)
336 # define SHUTDOWN2(fd) MacSocket_close(fd)
340 # ifndef NO_SYS_PARAM_H
341 # include <sys/param.h>
343 # include <sys/time.h> /* Needed under linux for FD_XXX */
346 # if defined(VMS) && !defined(__DECC)
350 # include <sys/socket.h>
352 # include <sys/filio.h> /* Added for FIONBIO under unixware */
354 # include <netinet/in.h>
357 # if defined(NeXT) || defined(_NEXT_SOURCE)
358 # include <sys/fcntl.h>
359 # include <sys/types.h>
363 # include <sys/select.h>
367 # include <sys/filio.h>
370 # include <sys/ioctl.h>
372 /* ioctl is only in VMS > 7.0 and when socketshr is not used */
373 # if !defined(TCPIP_TYPE_SOCKETSHR) && defined(__VMS_VER) && (__VMS_VER > 70000000)
374 # include <sys/ioctl.h>
381 # if defined(TCPIP_TYPE_SOCKETSHR)
382 # include <socketshr.h>
386 # define SSLeay_Read(a,b,c) read((a),(b),(c))
387 # define SSLeay_Write(a,b,c) write((a),(b),(c))
388 # define SHUTDOWN(fd) { shutdown((fd),0); closesocket((fd)); }
389 # define SHUTDOWN2(fd) { shutdown((fd),2); closesocket((fd)); }
390 # define INVALID_SOCKET (-1)
394 #if defined(__ultrix)
400 #if defined(THREADS) || defined(sun)
406 #if defined(sun) && !defined(__svr4__) && !defined(__SVR4)
407 /* bcopy can handle overlapping moves according to SunOS 4.1.4 manpage */
408 # define memmove(s1,s2,n) bcopy((s2),(s1),(n))
409 # define strtoul(s,e,b) ((unsigned long int)strtol((s),(e),(b)))
410 extern char *sys_errlist[]; extern int sys_nerr;
411 # define strerror(errnum) \
412 (((errnum)<0 || (errnum)>=sys_nerr) ? NULL : sys_errlist[errnum])
415 /***********************************************/
417 /* do we need to do this for getenv.
418 * Just define getenv for use under windows */
421 /* How to do this needs to be thought out a bit more.... */
422 /*char *GETENV(char *);
423 #define Getenv GETENV*/
424 #define Getenv getenv
426 #define Getenv getenv
429 #define DG_GCC_BUG /* gcc < 2.6.3 on DGUX */
432 #define IRIX_CC_BUG /* all version of IRIX I've tested (4.* 5.*) */
435 #define IRIX_CC_BUG /* CDS++ up to V2.0Bsomething suffered from the same bug.*/
439 #define MD2_Init MD2Init
440 #define MD2_Update MD2Update
441 #define MD2_Final MD2Final
442 #define MD2_DIGEST_LENGTH 16
445 #define MD5_Init MD5Init
446 #define MD5_Update MD5Update
447 #define MD5_Final MD5Final
448 #define MD5_DIGEST_LENGTH 16