Return to urandom.h CVS log

Up to [local] / OpenXM_contrib / gmp

Annotation of OpenXM_contrib/gmp/urandom.h, Revision 1.1.1.2

1.1       maekawa     1: /* urandom.h -- define urandom returning a full unsigned long random value.
                      2:
1.1.1.2 ! maekawa     3: Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
1.1       maekawa     4:
                      5: This file is part of the GNU MP Library.
                      6:
                      7: The GNU MP Library is free software; you can redistribute it and/or modify
1.1.1.2 ! maekawa     8: it under the terms of the GNU Lesser General Public License as published by
        !             9: the Free Software Foundation; either version 2.1 of the License, or (at your
1.1       maekawa    10: option) any later version.
                     11:
                     12: The GNU MP Library is distributed in the hope that it will be useful, but
                     13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
1.1.1.2 ! maekawa    14: or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
1.1       maekawa    15: License for more details.
                     16:
1.1.1.2 ! maekawa    17: You should have received a copy of the GNU Lesser General Public License
1.1       maekawa    18: along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
                     19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
                     20: MA 02111-1307, USA. */
                     21:
                     22: #if defined (__hpux) || defined (__svr4__) || defined (__SVR4)
                     23: /* HPUX lacks random().  */
1.1.1.2 ! maekawa    24: static inline mp_limb_t
1.1       maekawa    25: urandom ()
                     26: {
                     27:   return mrand48 ();
                     28: }
                     29: #define __URANDOM
                     30: #endif
                     31:
                     32: #if defined (__alpha) && !defined (__URANDOM)
                     33: /* DEC OSF/1 1.2 random() returns a double.  */
                     34: long mrand48 ();
1.1.1.2 ! maekawa    35: static inline mp_limb_t
1.1       maekawa    36: urandom ()
                     37: {
                     38:   return mrand48 () | (mrand48 () << 32);
                     39: }
                     40: #define __URANDOM
                     41: #endif
                     42:
                     43: #if BITS_PER_MP_LIMB == 32 && !defined (__URANDOM)
1.1.1.2 ! maekawa    44: #if defined (__cplusplus)
        !            45: extern "C" {
        !            46: #endif
1.1       maekawa    47: long random ();
1.1.1.2 ! maekawa    48: #if defined (__cplusplus)
        !            49: }
        !            50: #endif
        !            51: static inline mp_limb_t
1.1       maekawa    52: urandom ()
                     53: {
                     54:   /* random() returns 31 bits, we want 32.  */
                     55:   return random () ^ (random () << 1);
                     56: }
                     57: #define __URANDOM
                     58: #endif
                     59:
                     60: #if BITS_PER_MP_LIMB == 64 && !defined (__URANDOM)
1.1.1.2 ! maekawa    61: #if defined (__cplusplus)
        !            62: extern "C" {
        !            63: #endif
1.1       maekawa    64: long random ();
1.1.1.2 ! maekawa    65: #if defined (__cplusplus)
        !            66: }
        !            67: #endif
        !            68: static inline mp_limb_t
1.1       maekawa    69: urandom ()
                     70: {
                     71:   /* random() returns 31 bits, we want 64.  */
1.1.1.2 ! maekawa    72:   return random () ^ ((mp_limb_t) random () << 31) ^ ((mp_limb_t) random () << 62);
1.1       maekawa    73: }
                     74: #define __URANDOM
                     75: #endif
                     76: