diff options
| author | miod <> | 2014-04-14 04:27:50 +0000 |
|---|---|---|
| committer | miod <> | 2014-04-14 04:27:50 +0000 |
| commit | 33ff8be8151877282a99d3ebee9ab2843f0a2356 (patch) | |
| tree | ea40eca9f3a9602136327257bb1c0bf263fd4a60 /src/lib/libcrypto/rand/rand_vms.c | |
| parent | 8a7c512e1a33cc783f0d59f782748edcf7250f87 (diff) | |
| download | openbsd-33ff8be8151877282a99d3ebee9ab2843f0a2356.tar.gz openbsd-33ff8be8151877282a99d3ebee9ab2843f0a2356.tar.bz2 openbsd-33ff8be8151877282a99d3ebee9ab2843f0a2356.zip | |
Don't bother compiling files which end up containing
#if OPENSSL_SYS_NOTYOURS
<whole file>
#endif
Diffstat (limited to 'src/lib/libcrypto/rand/rand_vms.c')
| -rw-r--r-- | src/lib/libcrypto/rand/rand_vms.c | 148 |
1 files changed, 0 insertions, 148 deletions
diff --git a/src/lib/libcrypto/rand/rand_vms.c b/src/lib/libcrypto/rand/rand_vms.c deleted file mode 100644 index 0bfd8ff7e4..0000000000 --- a/src/lib/libcrypto/rand/rand_vms.c +++ /dev/null | |||
| @@ -1,148 +0,0 @@ | |||
| 1 | /* crypto/rand/rand_vms.c -*- mode:C; c-file-style: "eay" -*- */ | ||
| 2 | /* Written by Richard Levitte <richard@levitte.org> for the OpenSSL | ||
| 3 | * project 2000. | ||
| 4 | */ | ||
| 5 | /* ==================================================================== | ||
| 6 | * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved. | ||
| 7 | * | ||
| 8 | * Redistribution and use in source and binary forms, with or without | ||
| 9 | * modification, are permitted provided that the following conditions | ||
| 10 | * are met: | ||
| 11 | * | ||
| 12 | * 1. Redistributions of source code must retain the above copyright | ||
| 13 | * notice, this list of conditions and the following disclaimer. | ||
| 14 | * | ||
| 15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
| 16 | * notice, this list of conditions and the following disclaimer in | ||
| 17 | * the documentation and/or other materials provided with the | ||
| 18 | * distribution. | ||
| 19 | * | ||
| 20 | * 3. All advertising materials mentioning features or use of this | ||
| 21 | * software must display the following acknowledgment: | ||
| 22 | * "This product includes software developed by the OpenSSL Project | ||
| 23 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
| 24 | * | ||
| 25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
| 26 | * endorse or promote products derived from this software without | ||
| 27 | * prior written permission. For written permission, please contact | ||
| 28 | * openssl-core@openssl.org. | ||
| 29 | * | ||
| 30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
| 31 | * nor may "OpenSSL" appear in their names without prior written | ||
| 32 | * permission of the OpenSSL Project. | ||
| 33 | * | ||
| 34 | * 6. Redistributions of any form whatsoever must retain the following | ||
| 35 | * acknowledgment: | ||
| 36 | * "This product includes software developed by the OpenSSL Project | ||
| 37 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
| 38 | * | ||
| 39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
| 40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
| 41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
| 42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
| 43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
| 44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
| 45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
| 46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
| 47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
| 48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
| 49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
| 50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
| 51 | * ==================================================================== | ||
| 52 | * | ||
| 53 | * This product includes cryptographic software written by Eric Young | ||
| 54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
| 55 | * Hudson (tjh@cryptsoft.com). | ||
| 56 | * | ||
| 57 | */ | ||
| 58 | |||
| 59 | #include <openssl/rand.h> | ||
| 60 | #include "rand_lcl.h" | ||
| 61 | |||
| 62 | #if defined(OPENSSL_SYS_VMS) | ||
| 63 | |||
| 64 | #include <descrip.h> | ||
| 65 | #include <jpidef.h> | ||
| 66 | #include <ssdef.h> | ||
| 67 | #include <starlet.h> | ||
| 68 | #ifdef __DECC | ||
| 69 | # pragma message disable DOLLARID | ||
| 70 | #endif | ||
| 71 | |||
| 72 | /* Use 32-bit pointers almost everywhere. Define the type to which to | ||
| 73 | * cast a pointer passed to an external function. | ||
| 74 | */ | ||
| 75 | #if __INITIAL_POINTER_SIZE == 64 | ||
| 76 | # define PTR_T __void_ptr64 | ||
| 77 | # pragma pointer_size save | ||
| 78 | # pragma pointer_size 32 | ||
| 79 | #else /* __INITIAL_POINTER_SIZE == 64 */ | ||
| 80 | # define PTR_T void * | ||
| 81 | #endif /* __INITIAL_POINTER_SIZE == 64 [else] */ | ||
| 82 | |||
| 83 | static struct items_data_st | ||
| 84 | { | ||
| 85 | short length, code; /* length is amount of bytes */ | ||
| 86 | } items_data[] = | ||
| 87 | { { 4, JPI$_BUFIO }, | ||
| 88 | { 4, JPI$_CPUTIM }, | ||
| 89 | { 4, JPI$_DIRIO }, | ||
| 90 | { 8, JPI$_LOGINTIM }, | ||
| 91 | { 4, JPI$_PAGEFLTS }, | ||
| 92 | { 4, JPI$_PID }, | ||
| 93 | { 4, JPI$_WSSIZE }, | ||
| 94 | { 0, 0 } | ||
| 95 | }; | ||
| 96 | |||
| 97 | int RAND_poll(void) | ||
| 98 | { | ||
| 99 | long pid, iosb[2]; | ||
| 100 | int status = 0; | ||
| 101 | struct | ||
| 102 | { | ||
| 103 | short length, code; | ||
| 104 | long *buffer; | ||
| 105 | int *retlen; | ||
| 106 | } item[32], *pitem; | ||
| 107 | unsigned char data_buffer[256]; | ||
| 108 | short total_length = 0; | ||
| 109 | struct items_data_st *pitems_data; | ||
| 110 | |||
| 111 | pitems_data = items_data; | ||
| 112 | pitem = item; | ||
| 113 | |||
| 114 | /* Setup */ | ||
| 115 | while (pitems_data->length | ||
| 116 | && (total_length + pitems_data->length <= 256)) | ||
| 117 | { | ||
| 118 | pitem->length = pitems_data->length; | ||
| 119 | pitem->code = pitems_data->code; | ||
| 120 | pitem->buffer = (long *)&data_buffer[total_length]; | ||
| 121 | pitem->retlen = 0; | ||
| 122 | total_length += pitems_data->length; | ||
| 123 | pitems_data++; | ||
| 124 | pitem++; | ||
| 125 | } | ||
| 126 | pitem->length = pitem->code = 0; | ||
| 127 | |||
| 128 | /* | ||
| 129 | * Scan through all the processes in the system and add entropy with | ||
| 130 | * results from the processes that were possible to look at. | ||
| 131 | * However, view the information as only half trustable. | ||
| 132 | */ | ||
| 133 | pid = -1; /* search context */ | ||
| 134 | while ((status = sys$getjpiw(0, &pid, 0, item, iosb, 0, 0)) | ||
| 135 | != SS$_NOMOREPROC) | ||
| 136 | { | ||
| 137 | if (status == SS$_NORMAL) | ||
| 138 | { | ||
| 139 | RAND_add( (PTR_T)data_buffer, total_length, | ||
| 140 | total_length/2); | ||
| 141 | } | ||
| 142 | } | ||
| 143 | sys$gettim(iosb); | ||
| 144 | RAND_add( (PTR_T)iosb, sizeof(iosb), sizeof(iosb)/2); | ||
| 145 | return 1; | ||
| 146 | } | ||
| 147 | |||
| 148 | #endif | ||
