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 a comma-separated list of 'random' device files to try out.
81 * My default, we will try to read at least one of these files */
82 #define DEVRANDOM "/dev/urandom","/dev/random","/dev/srandom"
85 /* set this to a comma-separated list of 'egd' sockets to try out. These
86 * sockets will be tried in the order listed in case accessing the device files
87 * listed in DEVRANDOM did not return enough entropy. */
88 #define DEVRANDOM_EGD "/var/run/egd-pool","/dev/egd-pool","/etc/egd-pool","/etc/entropy"
91 #if defined(OPENSSL_SYS_VXWORKS)
92 # define NO_SYS_PARAM_H
97 /********************************************************************
99 ********************************************************************/
100 /* The following is used because of the small stack in some
101 * Microsoft operating systems */
102 #if defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYSNAME_WIN32)
103 # define MS_STATIC static
108 #if defined(OPENSSL_SYS_WIN32) && !defined(WIN32)
111 #if defined(OPENSSL_SYS_WINDOWS) && !defined(WINDOWS)
114 #if defined(OPENSSL_SYS_MSDOS) && !defined(MSDOS)
118 #if defined(MSDOS) && !defined(GETPID_IS_MEANINGLESS)
119 # define GETPID_IS_MEANINGLESS
124 #define get_last_sys_error() GetLastError()
125 #define clear_sys_error() SetLastError(0)
127 #define WIN_CONSOLE_BUG
130 #define get_last_sys_error() errno
131 #define clear_sys_error() errno=0
135 #define get_last_socket_error() WSAGetLastError()
136 #define clear_socket_error() WSASetLastError(0)
137 #define readsocket(s,b,n) recv((s),(b),(n),0)
138 #define writesocket(s,b,n) send((s),(b),(n),0)
139 #elif defined(__DJGPP__)
141 #define get_last_socket_error() errno
142 #define clear_socket_error() errno=0
143 #define closesocket(s) close_s(s)
144 #define readsocket(s,b,n) read_s(s,b,n)
145 #define writesocket(s,b,n) send(s,b,n,0)
146 #elif defined(OPENSSL_SYS_VMS)
147 #define get_last_socket_error() errno
148 #define clear_socket_error() errno=0
149 #define ioctlsocket(a,b,c) ioctl(a,b,c)
150 #define closesocket(s) close(s)
151 #define readsocket(s,b,n) recv((s),(b),(n),0)
152 #define writesocket(s,b,n) send((s),(b),(n),0)
153 #elif defined(OPENSSL_SYS_VXWORKS)
154 #define get_last_socket_error() errno
155 #define clear_socket_error() errno=0
156 #define ioctlsocket(a,b,c) ioctl((a),(b),(int)(c))
157 #define closesocket(s) close(s)
158 #define readsocket(s,b,n) read((s),(b),(n))
159 #define writesocket(s,b,n) write((s),(char *)(b),(n))
160 #elif defined(OPENSSL_SYS_NETWARE)
161 #if defined(NETWARE_BSDSOCK)
162 #define get_last_socket_error() errno
163 #define clear_socket_error() errno=0
164 #define closesocket(s) close(s)
165 #define ioctlsocket(a,b,c) ioctl(a,b,c)
166 #if defined(NETWARE_LIBC)
167 #define readsocket(s,b,n) recv((s),(b),(n),0)
168 #define writesocket(s,b,n) send((s),(b),(n),0)
170 #define readsocket(s,b,n) recv((s),(char*)(b),(n),0)
171 #define writesocket(s,b,n) send((s),(char*)(b),(n),0)
174 #define get_last_socket_error() WSAGetLastError()
175 #define clear_socket_error() WSASetLastError(0)
176 #define readsocket(s,b,n) recv((s),(b),(n),0)
177 #define writesocket(s,b,n) send((s),(b),(n),0)
180 #define get_last_socket_error() errno
181 #define clear_socket_error() errno=0
182 #define ioctlsocket(a,b,c) ioctl(a,b,c)
183 #define closesocket(s) close(s)
184 #define readsocket(s,b,n) read((s),(b),(n))
185 #define writesocket(s,b,n) write((s),(b),(n))
188 #ifdef WIN16 /* never the case */
189 # define MS_CALLBACK _far _loadds
196 #ifdef OPENSSL_NO_STDIO
197 # undef OPENSSL_NO_FP_API
198 # define OPENSSL_NO_FP_API
201 #if (defined(WINDOWS) || defined(MSDOS))
205 # include <sys/stat.h>
206 # include <sys/socket.h>
209 # define _setmode setmode
210 # define _O_TEXT O_TEXT
211 # define _O_BINARY O_BINARY
213 # define DEVRANDOM "/dev/urandom\x24"
214 # endif /* __DJGPP__ */
217 # define S_IFDIR _S_IFDIR
221 # define S_IFMT _S_IFMT
224 # if !defined(WINNT) && !defined(__DJGPP__)
230 # if !defined(_WIN32_WCE) && !defined(_WIN32_WINNT)
232 * Defining _WIN32_WINNT here in e_os.h implies certain "discipline."
233 * Most notably we ought to check for availability of each specific
234 * routine with GetProcAddress() and/or guard NT-specific calls with
235 * GetVersion() < 0x80000000. One can argue that in latter "or" case
236 * we ought to /DELAYLOAD some .DLLs in order to protect ourselves
237 * against run-time link errors. This doesn't seem to be necessary,
238 * because it turned out that already Windows 95, first non-NT Win32
239 * implementation, is equipped with at least NT 3.51 stubs, dummy
240 * routines with same name, but which do nothing. Meaning that it's
241 * apparently sufficient to guard "vanilla" NT calls with GetVersion
242 * alone, while NT 4.0 and above interfaces ought to be linked with
243 * GetProcAddress at run-time.
245 # define _WIN32_WINNT 0x0400
247 # if !defined(OPENSSL_NO_SOCK) && (defined(_WIN32_WINNT) || defined(_WIN32_WCE))
249 * Just like defining _WIN32_WINNT including winsock2.h implies
250 * certain "discipline" for maintaining [broad] binary compatibility.
251 * As long as structures are invariant among Winsock versions,
252 * it's sufficient to check for specific Winsock2 API availability
253 * at run-time [DSO_global_lookup is recommended]...
255 # include <winsock2.h>
256 # include <ws2tcpip.h>
257 /* yes, they have to be #included prior to <windows.h> */
259 # include <windows.h>
263 # if defined(_WIN32_WCE) && !defined(EACCES)
268 # define strlen(s) _strlen31(s)
269 /* cut strings to 2GB */
270 static __inline unsigned int _strlen31(const char *str)
273 while (*str && len<0x80000000U) str++, len++;
274 return len&0x7FFFFFFF;
278 # if defined(_MSC_VER) && _MSC_VER<=1200 && defined(_MT) && defined(isspace)
279 /* compensate for bug in VC6 ctype.h */
286 # if defined(_MSC_VER) && !defined(_WIN32_WCE) && !defined(_DLL) && defined(stdin)
287 # if _MSC_VER>=1300 && _MSC_VER<1600
292 # define stdin (&__iob_func()[0])
293 # define stdout (&__iob_func()[1])
294 # define stderr (&__iob_func()[2])
295 # elif _MSC_VER<1300 && defined(I_CAN_LIVE_WITH_LNK4049)
299 /* pre-1300 has __p__iob(), but it's available only in msvcrt.lib,
300 * or in other words with /MD. Declaring implicit import, i.e.
301 * with _imp_ prefix, works correctly with all compiler options,
302 * but without /MD results in LINK warning LNK4049:
303 * 'locally defined symbol "__iob" imported'.
305 extern FILE *_imp___iob;
306 # define stdin (&_imp___iob[0])
307 # define stdout (&_imp___iob[1])
308 # define stderr (&_imp___iob[2])
315 # ifdef OPENSSL_SYS_WINCE
316 # define OPENSSL_NO_POSIX_IO
319 # if defined (__BORLANDC__)
320 # define _setmode setmode
321 # define _O_TEXT O_TEXT
322 # define _O_BINARY O_BINARY
323 # define _int64 __int64
324 # define _kbhit kbhit
327 # define EXIT(n) exit(n)
328 # define LIST_SEPARATOR_CHAR ';'
338 # define OPENSSL_CONF "openssl.cnf"
339 # define SSLEAY_CONF OPENSSL_CONF
340 # define NUL_DEV "nul"
341 # define RFILE ".rnd"
342 # ifdef OPENSSL_SYS_WINCE
343 # define DEFAULT_HOME ""
345 # define DEFAULT_HOME "C:"
348 /* Avoid Windows 8 SDK GetVersion deprecated problems */
349 #if defined(_MSC_VER) && _MSC_VER>=1800
350 # define check_winnt() (1)
352 # define check_winnt() (GetVersion() < 0x80000000)
355 #else /* The non-microsoft world */
357 # ifdef OPENSSL_SYS_VMS
359 /* some programs don't include stdlib, so exit() and others give implicit
365 # include <unixlib.h>
367 # define OPENSSL_CONF "openssl.cnf"
368 # define SSLEAY_CONF OPENSSL_CONF
369 # define RFILE ".rnd"
370 # define LIST_SEPARATOR_CHAR ','
371 # define NUL_DEV "NLA0:"
372 /* We don't have any well-defined random devices on VMS, yet... */
375 We need to do this since VMS has the following coding on status codes:
377 Bits 0-2: status type: 0 = warning, 1 = success, 2 = error, 3 = info ...
378 The important thing to know is that odd numbers are considered
379 good, while even ones are considered errors.
380 Bits 3-15: actual status number
381 Bits 16-27: facility number. 0 is considered "unknown"
382 Bits 28-31: control bits. If bit 28 is set, the shell won't try to
383 output the message (which, for random codes, just looks ugly)
385 So, what we do here is to change 0 to 1 to get the default success status,
386 and everything else is shifted up to fit into the status number field, and
387 the status is tagged as an error, which I believe is what is wanted here.
390 # define EXIT(n) do { int __VMS_EXIT = n; \
391 if (__VMS_EXIT == 0) \
394 __VMS_EXIT = (n << 3) | 2; \
395 __VMS_EXIT |= 0x10000000; \
396 exit(__VMS_EXIT); } while(0)
397 # define NO_SYS_PARAM_H
399 # elif defined(OPENSSL_SYS_NETWARE)
402 # define NO_SYS_TYPES_H
405 # define getpid GetThreadID
406 extern int GetThreadID(void);
407 /* # include <conio.h> */
408 extern int kbhit(void);
413 # define _setmode setmode
414 # define _kbhit kbhit
415 # define _O_TEXT O_TEXT
416 # define _O_BINARY O_BINARY
417 # define OPENSSL_CONF "openssl.cnf"
418 # define SSLEAY_CONF OPENSSL_CONF
419 # define RFILE ".rnd"
420 # define LIST_SEPARATOR_CHAR ';'
421 # define EXIT(n) { if (n) printf("ERROR: %d\n", (int)n); exit(n); }
425 # ifdef OPENSSL_UNISTD
426 # include OPENSSL_UNISTD
430 # ifndef NO_SYS_TYPES_H
431 # include <sys/types.h>
433 # ifdef OPENSSL_SYS_WIN32_CYGWIN
438 # define OPENSSL_CONF "openssl.cnf"
439 # define SSLEAY_CONF OPENSSL_CONF
440 # define RFILE ".rnd"
441 # define LIST_SEPARATOR_CHAR ':'
442 # define NUL_DEV "/dev/null"
443 # define EXIT(n) exit(n)
446 # define SSLeay_getpid() getpid()
453 #if defined(OPENSSL_NO_SOCK) && !defined(OPENSSL_NO_DGRAM)
454 # define OPENSSL_NO_DGRAM
458 # if defined(WINDOWS) || defined(MSDOS)
461 # ifdef OPENSSL_NO_SOCK
462 # define SSLeay_Write(a,b,c) (-1)
463 # define SSLeay_Read(a,b,c) (-1)
464 # define SHUTDOWN(fd) close(fd)
465 # define SHUTDOWN2(fd) close(fd)
466 # elif !defined(__DJGPP__)
467 # if defined(_WIN32_WCE) && _WIN32_WCE<410
468 # define getservbyname _masked_declaration_getservbyname
470 # if !defined(IPPROTO_IP)
471 /* winsock[2].h was included already? */
472 # include <winsock.h>
474 # ifdef getservbyname
475 # undef getservbyname
476 /* this is used to be wcecompat/include/winsock_extras.h */
477 struct servent* PASCAL getservbyname(const char*,const char*);
482 * Even though sizeof(SOCKET) is 8, it's safe to cast it to int, because
483 * the value constitutes an index in per-process table of limited size
484 * and not a real pointer.
486 # define socket(d,t,p) ((int)socket(d,t,p))
487 # define accept(s,f,l) ((int)accept(s,f,l))
489 # define SSLeay_Write(a,b,c) send((a),(b),(c),0)
490 # define SSLeay_Read(a,b,c) recv((a),(b),(c),0)
491 # define SHUTDOWN(fd) { shutdown((fd),0); closesocket(fd); }
492 # define SHUTDOWN2(fd) { shutdown((fd),2); closesocket(fd); }
494 # define SSLeay_Write(a,b,c) write_s(a,b,c,0)
495 # define SSLeay_Read(a,b,c) read_s(a,b,c)
496 # define SHUTDOWN(fd) close_s(fd)
497 # define SHUTDOWN2(fd) close_s(fd)
500 # elif defined(OPENSSL_SYS_NETWARE)
501 /* NetWare uses the WinSock2 interfaces by default, but can be configured for BSD
503 # if defined(NETWARE_BSDSOCK)
504 # include <sys/socket.h>
505 # include <netinet/in.h>
506 # include <sys/time.h>
507 # if defined(NETWARE_CLIB)
508 # include <sys/bsdskt.h>
510 # include <sys/select.h>
512 # define INVALID_SOCKET (int)(~0)
514 # include <novsock2.h>
516 # define SSLeay_Write(a,b,c) send((a),(b),(c),0)
517 # define SSLeay_Read(a,b,c) recv((a),(b),(c),0)
518 # define SHUTDOWN(fd) { shutdown((fd),0); closesocket(fd); }
519 # define SHUTDOWN2(fd) { shutdown((fd),2); closesocket(fd); }
523 # ifndef NO_SYS_PARAM_H
524 # include <sys/param.h>
526 # ifdef OPENSSL_SYS_VXWORKS
531 # if defined(OPENSSL_SYS_VMS_NODECC)
536 # include <sys/socket.h>
538 # ifdef OPENSSL_SYS_VXWORKS
539 # include <streams/un.h>
543 # ifndef UNIX_PATH_MAX
544 # define UNIX_PATH_MAX sizeof(((struct sockaddr_un *)NULL)->sun_path)
548 # include <sys/filio.h> /* Added for FIONBIO under unixware */
550 # include <netinet/in.h>
551 # include <arpa/inet.h>
554 # ifdef OPENSSL_SYS_AIX
555 # include <sys/select.h>
559 # include <sys/select.h>
563 # include <sys/filio.h>
566 # include <sys/ioctl.h>
568 /* ioctl is only in VMS > 7.0 and when socketshr is not used */
569 # if !defined(TCPIP_TYPE_SOCKETSHR) && defined(__VMS_VER) && (__VMS_VER > 70000000)
570 # include <sys/ioctl.h>
577 # if defined(TCPIP_TYPE_SOCKETSHR)
578 # include <socketshr.h>
582 # define SSLeay_Read(a,b,c) read((a),(b),(c))
583 # define SSLeay_Write(a,b,c) write((a),(b),(c))
584 # define SHUTDOWN(fd) { shutdown((fd),0); closesocket((fd)); }
585 # define SHUTDOWN2(fd) { shutdown((fd),2); closesocket((fd)); }
586 # ifndef INVALID_SOCKET
587 # define INVALID_SOCKET (-1)
588 # endif /* INVALID_SOCKET */
591 /* Some IPv6 implementations are broken, disable them in known bad
594 # if !defined(OPENSSL_USE_IPV6)
595 # if defined(AF_INET6) && !defined(NETWARE_CLIB)
596 # define OPENSSL_USE_IPV6 1
598 # define OPENSSL_USE_IPV6 0
604 #if defined(sun) && !defined(__svr4__) && !defined(__SVR4)
605 /* include headers first, so our defines don't break it */
608 /* bcopy can handle overlapping moves according to SunOS 4.1.4 manpage */
609 # define memmove(s1,s2,n) bcopy((s2),(s1),(n))
610 # define strtoul(s,e,b) ((unsigned long int)strtol((s),(e),(b)))
611 extern char *sys_errlist[]; extern int sys_nerr;
612 # define strerror(errnum) \
613 (((errnum)<0 || (errnum)>=sys_nerr) ? NULL : sys_errlist[errnum])
614 /* Being signed SunOS 4.x memcpy breaks ASN1_OBJECT table lookup */
615 #include "crypto/o_str.h"
616 # define memcmp OPENSSL_memcmp
620 # if defined(MONOLITH) && !defined(OPENSSL_C)
621 # define OPENSSL_EXIT(n) return(n)
623 # define OPENSSL_EXIT(n) do { EXIT(n); return(n); } while(0)
627 /***********************************************/
629 #if defined(OPENSSL_SYS_WINDOWS)
630 # define strcasecmp _stricmp
631 # define strncasecmp _strnicmp
632 #elif defined(OPENSSL_SYS_VMS)
633 /* VMS below version 7.0 doesn't have strcasecmp() */
635 # define strcasecmp OPENSSL_strcasecmp
636 # define strncasecmp OPENSSL_strncasecmp
637 # define OPENSSL_IMPLEMENTS_strncasecmp
638 #elif defined(OPENSSL_SYS_OS2) && defined(__EMX__)
639 # define strcasecmp stricmp
640 # define strncasecmp strnicmp
641 #elif defined(OPENSSL_SYS_NETWARE)
643 # if defined(NETWARE_CLIB)
644 # define strcasecmp stricmp
645 # define strncasecmp strnicmp
646 # endif /* NETWARE_CLIB */
649 #if defined(OPENSSL_SYS_OS2) && defined(__EMX__)
656 #if defined(OPENSSL_SYS_VXWORKS)
661 #define TTY_STRUCT int
663 #define sleep(a) taskDelay((a) * sysClkRateGet())
669 #define getpid taskIdSelf
671 /* NOTE: these are implemented by helpers in database app!
672 * if the database is not linked, we need to implement them
674 struct hostent *gethostbyname(const char *name);
675 struct hostent *gethostbyaddr(const char *addr, int length, int type);
676 struct servent *getservbyname(const char *name, const char *proto);
681 #if !defined(inline) && !defined(__cplusplus)
682 # if defined(__STDC_VERSION__) && __STDC_VERSION__>=199901L
683 /* do nothing, inline works */
684 # elif defined(__GNUC__) && __GNUC__>=2
685 # define inline __inline__
686 # elif defined(_MSC_VER)
688 * Visual Studio: inline is available in C++ only, however
689 * __inline is available for C, see
690 * http://msdn.microsoft.com/en-us/library/z8y1yy88.aspx
692 # define inline __inline