home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / INC.PAK / RANDOM.H < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  3.5 KB  |  99 lines
  1. /* $Revision:   8.1  $ */
  2.  
  3. /***************************************************************************
  4.  *
  5.  * random.h - Header for the Standard Library random generator
  6.  *
  7.  * $Id: random.h,v 1.3 1995/10/12 17:06:14 lijewski Exp $
  8.  *
  9.  ***************************************************************************
  10.  *
  11.  * Copyright (c) 1994
  12.  * Hewlett-Packard Company
  13.  *
  14.  * Permission to use, copy, modify, distribute and sell this software
  15.  * and its documentation for any purpose is hereby granted without fee,
  16.  * provided that the above copyright notice appear in all copies and
  17.  * that both that copyright notice and this permission notice appear
  18.  * in supporting documentation.  Hewlett-Packard Company makes no
  19.  * representations about the suitability of this software for any
  20.  * purpose.  It is provided "as is" without express or implied warranty.
  21.  *
  22.  *
  23.  ***************************************************************************
  24.  *
  25.  * (c) Copyright 1994, 1995 Rogue Wave Software, Inc.
  26.  * ALL RIGHTS RESERVED
  27.  *
  28.  * The software and information contained herein are proprietary to, and
  29.  * comprise valuable trade secrets of, Rogue Wave Software, Inc., which
  30.  * intends to preserve as trade secrets such software and information.
  31.  * This software is furnished pursuant to a written license agreement and
  32.  * may be used, copied, transmitted, and stored only in accordance with
  33.  * the terms of such license and with the inclusion of the above copyright
  34.  * notice.  This software and information or any other copies thereof may
  35.  * not be provided or otherwise made available to any other person.
  36.  *
  37.  * Notwithstanding any other lease or license that may pertain to, or
  38.  * accompany the delivery of, this computer software and information, the
  39.  * rights of the Government regarding its use, reproduction and disclosure
  40.  * are as set forth in Section 52.227-19 of the FARS Computer
  41.  * Software-Restricted Rights clause.
  42.  *
  43.  * Use, duplication, or disclosure by the Government is subject to
  44.  * restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
  45.  * Technical Data and Computer Software clause at DFARS 252.227-7013.
  46.  * Contractor/Manufacturer is Rogue Wave Software, Inc.,
  47.  * P.O. Box 2328, Corvallis, Oregon 97339.
  48.  *
  49.  * This computer software and information is distributed with "restricted
  50.  * rights."  Use, duplication or disclosure is subject to restrictions as
  51.  * set forth in NASA FAR SUP 18-52.227-79 (April 1985) "Commercial
  52.  * Computer Software-Restricted Rights (April 1985)."  If the Clause at
  53.  * 18-52.227-74 "Rights in Data General" is specified in the contract,
  54.  * then the "Alternate III" clause applies.
  55.  *
  56.  **************************************************************************/
  57.  
  58. #include <stdmutex.h>
  59.  
  60. #ifndef RWSTD_NO_NAMESPACE
  61. namespace std {
  62. #endif
  63.  
  64. class RWSTDExport  __random_generator
  65. {
  66.   protected:
  67.  
  68.     enum { LENGTH = 55 };
  69.  
  70.     unsigned long table[LENGTH];
  71.     size_t        index1;
  72.     size_t        index2;
  73. #ifdef RWSTD_MULTI_THREAD
  74.     RWSTDMutex    mutex;
  75. #endif
  76.  
  77.     void seed (unsigned long j);
  78.  
  79.   public:
  80.  
  81.     unsigned long operator() (unsigned long limit)
  82.     {
  83. #ifdef RWSTD_MULTI_THREAD
  84.         RWSTDGuard guard(mutex);
  85. #endif
  86.         index1 = (index1 + 1) % LENGTH;
  87.         index2 = (index2 + 1) % LENGTH;
  88.         table[index1] = table[index1] - table[index2];
  89.         return table[index1] % limit;
  90.     }
  91.  
  92.     __random_generator (unsigned long j) { this->seed(j); }
  93.  
  94. };
  95.  
  96. #ifndef RWSTD_NO_NAMESPACE
  97. }
  98. #endif
  99.