CoinHelperFunctions.hpp

Go to the documentation of this file.

/* $Id: CoinHelperFunctions.hpp 2083 2019-01-06 19:38:09Z unxusr $ */
// Copyright (C) 2000, International Business Machines
// Corporation and others.  All Rights Reserved.
// This code is licensed under the terms of the Eclipse Public License (EPL).

#ifndef CoinHelperFunctions_H
#define CoinHelperFunctions_H

#include "CoinUtilsConfig.h"

#if defined(_MSC_VER)
#include <direct.h>
#include <cctype>
#define getcwd _getcwd
#include <cctype>
#else
#include <unistd.h>
#endif
//#define USE_MEMCPY

#include <cstdlib>
#include <cstdio>
#include <algorithm>
#include "CoinTypes.hpp"
#include "CoinError.hpp"

// Compilers can produce better code if they know about __restrict
#ifndef COIN_RESTRICT
#ifdef COIN_USE_RESTRICT
#define COIN_RESTRICT __restrict
#else
#define COIN_RESTRICT
#endif
#endif

//#############################################################################

template < class T >
inline void
CoinCopyN(const T *from, const CoinBigIndex size, T *to)
{
  if (size == 0 || from == to)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("trying to copy negative number of entries",
      "CoinCopyN", "");
#endif

  CoinBigIndex n = (size + 7) / 8;
  if (to > from) {
    const T *downfrom = from + size;
    T *downto = to + size;
    // Use Duff's device to copy
    switch (size % 8) {
    case 0:
      do {
        *--downto = *--downfrom;
      case 7:
        *--downto = *--downfrom;
      case 6:
        *--downto = *--downfrom;
      case 5:
        *--downto = *--downfrom;
      case 4:
        *--downto = *--downfrom;
      case 3:
        *--downto = *--downfrom;
      case 2:
        *--downto = *--downfrom;
      case 1:
        *--downto = *--downfrom;
      } while (--n > 0);
    }
  } else {
    // Use Duff's device to copy
    --from;
    --to;
    switch (size % 8) {
    case 0:
      do {
        *++to = *++from;
      case 7:
        *++to = *++from;
      case 6:
        *++to = *++from;
      case 5:
        *++to = *++from;
      case 4:
        *++to = *++from;
      case 3:
        *++to = *++from;
      case 2:
        *++to = *++from;
      case 1:
        *++to = *++from;
      } while (--n > 0);
    }
  }
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinCopy(const T *first, const T *last, T *to)
{
  CoinCopyN(first, static_cast< CoinBigIndex >(last - first), to);
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinDisjointCopyN(const T *from, const CoinBigIndex size, T *to)
{
#ifndef _MSC_VER
  if (size == 0 || from == to)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("trying to copy negative number of entries",
      "CoinDisjointCopyN", "");
#endif

#if 0
    /* There is no point to do this test. If to and from are from different
       blocks then dist is undefined, so this can crash correct code. It's
       better to trust the user that the arrays are really disjoint. */
    const long dist = to - from;
    if (-size < dist && dist < size)
        throw CoinError("overlapping arrays", "CoinDisjointCopyN", "");
#endif

  for (CoinBigIndex n = size / 8; n > 0; --n, from += 8, to += 8) {
    to[0] = from[0];
    to[1] = from[1];
    to[2] = from[2];
    to[3] = from[3];
    to[4] = from[4];
    to[5] = from[5];
    to[6] = from[6];
    to[7] = from[7];
  }
  switch (size % 8) {
  case 7:
    to[6] = from[6];
  case 6:
    to[5] = from[5];
  case 5:
    to[4] = from[4];
  case 4:
    to[3] = from[3];
  case 3:
    to[2] = from[2];
  case 2:
    to[1] = from[1];
  case 1:
    to[0] = from[0];
  case 0:
    break;
  }
#else
  CoinCopyN(from, size, to);
#endif
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinDisjointCopy(const T *first, const T *last,
  T *to)
{
  CoinDisjointCopyN(first, static_cast< CoinBigIndex >(last - first), to);
}

//-----------------------------------------------------------------------------

template < class T >
inline T *
CoinCopyOfArray(const T *array, const CoinBigIndex size)
{
  if (array) {
    T *arrayNew = new T[size];
    std::memcpy(arrayNew, array, size * sizeof(T));
    return arrayNew;
  } else {
    return NULL;
  }
}

template < class T >
inline T *
CoinCopyOfArrayPartial(const T *array, const CoinBigIndex size, const CoinBigIndex copySize)
{
  if (array || size) {
    T *arrayNew = new T[size];
    assert(copySize <= size);
    std::memcpy(arrayNew, array, copySize * sizeof(T));
    return arrayNew;
  } else {
    return NULL;
  }
}

template < class T >
inline T *
CoinCopyOfArray(const T *array, const CoinBigIndex size, T value)
{
  T *arrayNew = new T[size];
  if (array) {
    std::memcpy(arrayNew, array, size * sizeof(T));
  } else {
    CoinBigIndex i;
    for (i = 0; i < size; i++)
      arrayNew[i] = value;
  }
  return arrayNew;
}

template < class T >
inline T *
CoinCopyOfArrayOrZero(const T *array, const CoinBigIndex size)
{
  T *arrayNew = new T[size];
  if (array) {
    std::memcpy(arrayNew, array, size * sizeof(T));
  } else {
    std::memset(arrayNew, 0, size * sizeof(T));
  }
  return arrayNew;
}

//-----------------------------------------------------------------------------

#ifndef COIN_USE_RESTRICT
template < class T >
inline void
CoinMemcpyN(const T *from, const CoinBigIndex size, T *to)
{
#ifndef _MSC_VER
#ifdef USE_MEMCPY
  // Use memcpy - seems a lot faster on Intel with gcc
#ifndef NDEBUG
  // Some debug so check
  if (size < 0)
    throw CoinError("trying to copy negative number of entries",
      "CoinMemcpyN", "");

#if 0
    /* There is no point to do this test. If to and from are from different
       blocks then dist is undefined, so this can crash correct code. It's
       better to trust the user that the arrays are really disjoint. */
    const long dist = to - from;
    if (-size < dist && dist < size)
        throw CoinError("overlapping arrays", "CoinMemcpyN", "");
#endif
#endif
  std::memcpy(to, from, size * sizeof(T));
#else
  if (size == 0 || from == to)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("trying to copy negative number of entries",
      "CoinMemcpyN", "");
#endif

#if 0
    /* There is no point to do this test. If to and from are from different
       blocks then dist is undefined, so this can crash correct code. It's
       better to trust the user that the arrays are really disjoint. */
    const long dist = to - from;
    if (-size < dist && dist < size)
        throw CoinError("overlapping arrays", "CoinMemcpyN", "");
#endif

  for (CoinBigIndex n = size / 8; n > 0; --n, from += 8, to += 8) {
    to[0] = from[0];
    to[1] = from[1];
    to[2] = from[2];
    to[3] = from[3];
    to[4] = from[4];
    to[5] = from[5];
    to[6] = from[6];
    to[7] = from[7];
  }
  switch (size % 8) {
  case 7:
    to[6] = from[6];
  case 6:
    to[5] = from[5];
  case 5:
    to[4] = from[4];
  case 4:
    to[3] = from[3];
  case 3:
    to[2] = from[2];
  case 2:
    to[1] = from[1];
  case 1:
    to[0] = from[0];
  case 0:
    break;
  }
#endif
#else
  CoinCopyN(from, size, to);
#endif
}
#else
template < class T >
inline void
CoinMemcpyN(const T *COIN_RESTRICT from, CoinBigIndex size, T *COIN_RESTRICT to)
{
#ifdef USE_MEMCPY
  std::memcpy(to, from, size * sizeof(T));
#else
  T *COIN_RESTRICT put = to;
  const T *COIN_RESTRICT get = from;
  for (; 0 < size; --size)
    *put++ = *get++;
#endif
}
#endif

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinMemcpy(const T *first, const T *last,
  T *to)
{
  CoinMemcpyN(first, static_cast< CoinBigIndex >(last - first), to);
}

//#############################################################################

template < class T >
inline void
CoinFillN(T *to, const CoinBigIndex size, const T value)
{
  if (size == 0)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("trying to fill negative number of entries",
      "CoinFillN", "");
#endif
#if 1
  for (CoinBigIndex n = size / 8; n > 0; --n, to += 8) {
    to[0] = value;
    to[1] = value;
    to[2] = value;
    to[3] = value;
    to[4] = value;
    to[5] = value;
    to[6] = value;
    to[7] = value;
  }
  switch (size % 8) {
  case 7:
    to[6] = value;
  case 6:
    to[5] = value;
  case 5:
    to[4] = value;
  case 4:
    to[3] = value;
  case 3:
    to[2] = value;
  case 2:
    to[1] = value;
  case 1:
    to[0] = value;
  case 0:
    break;
  }
#else
  // Use Duff's device to fill
  CoinBigIndex n = (size + 7) / 8;
  --to;
  switch (size % 8) {
  case 0:
    do {
      *++to = value;
    case 7:
      *++to = value;
    case 6:
      *++to = value;
    case 5:
      *++to = value;
    case 4:
      *++to = value;
    case 3:
      *++to = value;
    case 2:
      *++to = value;
    case 1:
      *++to = value;
    } while (--n > 0);
  }
#endif
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinFill(T *first, T *last, const T value)
{
  CoinFillN(first, last - first, value);
}

//#############################################################################

template < class T >
inline void
CoinZeroN(T *to, const CoinBigIndex size)
{
#ifdef USE_MEMCPY
  // Use memset - seems faster on Intel with gcc
#ifndef NDEBUG
  // Some debug so check
  if (size < 0)
    throw CoinError("trying to fill negative number of entries",
      "CoinZeroN", "");
#endif
  memset(to, 0, size * sizeof(T));
#else
  if (size == 0)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("trying to fill negative number of entries",
      "CoinZeroN", "");
#endif
#if 1
  for (CoinBigIndex n = size / 8; n > 0; --n, to += 8) {
    to[0] = 0;
    to[1] = 0;
    to[2] = 0;
    to[3] = 0;
    to[4] = 0;
    to[5] = 0;
    to[6] = 0;
    to[7] = 0;
  }
  switch (size % 8) {
  case 7:
    to[6] = 0;
  case 6:
    to[5] = 0;
  case 5:
    to[4] = 0;
  case 4:
    to[3] = 0;
  case 3:
    to[2] = 0;
  case 2:
    to[1] = 0;
  case 1:
    to[0] = 0;
  case 0:
    break;
  }
#else
  // Use Duff's device to fill
  CoinBigIndex n = (size + 7) / 8;
  --to;
  switch (size % 8) {
  case 0:
    do {
      *++to = 0;
    case 7:
      *++to = 0;
    case 6:
      *++to = 0;
    case 5:
      *++to = 0;
    case 4:
      *++to = 0;
    case 3:
      *++to = 0;
    case 2:
      *++to = 0;
    case 1:
      *++to = 0;
    } while (--n > 0);
  }
#endif
#endif
}
inline void
CoinCheckDoubleZero(double *to, const CoinBigIndex size)
{
  CoinBigIndex n = 0;
  for (CoinBigIndex j = 0; j < size; j++) {
    if (to[j])
      n++;
  }
  if (n) {
    printf("array of length %d should be zero has %d nonzero\n",
      static_cast< int >(size), static_cast< int >(n));
  }
}
inline void
CoinCheckIntZero(int *to, const CoinBigIndex size)
{
  CoinBigIndex n = 0;
  for (CoinBigIndex j = 0; j < size; j++) {
    if (to[j])
      n++;
  }
  if (n) {
    printf("array of length %d should be zero has %d nonzero\n",
      static_cast< int >(size),
      static_cast< int >(n));
  }
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinZero(T *first, T *last)
{
  CoinZeroN(first, last - first);
}

//#############################################################################

inline char *CoinStrdup(const char *name)
{
  char *dup = NULL;
  if (name) {
    const int len = static_cast< int >(strlen(name));
    dup = static_cast< char * >(malloc(len + 1));
    CoinMemcpyN(name, len, dup);
    dup[len] = 0;
  }
  return dup;
}

//#############################################################################

template < class T >
inline T
CoinMax(const T x1, const T x2)
{
  return (x1 > x2) ? x1 : x2;
}

//-----------------------------------------------------------------------------

template < class T >
inline T
CoinMin(const T x1, const T x2)
{
  return (x1 < x2) ? x1 : x2;
}

//-----------------------------------------------------------------------------

template < class T >
inline T
CoinAbs(const T value)
{
  return value < 0 ? -value : value;
}

//#############################################################################

template < class T >
inline bool
CoinIsSorted(const T *first, const CoinBigIndex size)
{
  if (size == 0)
    return true;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("negative number of entries", "CoinIsSorted", "");
#endif
#if 1
  // size1 is the number of comparisons to be made
  const CoinBigIndex size1 = size - 1;
  for (CoinBigIndex n = size1 / 8; n > 0; --n, first += 8) {
    if (first[8] < first[7])
      return false;
    if (first[7] < first[6])
      return false;
    if (first[6] < first[5])
      return false;
    if (first[5] < first[4])
      return false;
    if (first[4] < first[3])
      return false;
    if (first[3] < first[2])
      return false;
    if (first[2] < first[1])
      return false;
    if (first[1] < first[0])
      return false;
  }

  switch (size1 % 8) {
  case 7:
    if (first[7] < first[6])
      return false;
  case 6:
    if (first[6] < first[5])
      return false;
  case 5:
    if (first[5] < first[4])
      return false;
  case 4:
    if (first[4] < first[3])
      return false;
  case 3:
    if (first[3] < first[2])
      return false;
  case 2:
    if (first[2] < first[1])
      return false;
  case 1:
    if (first[1] < first[0])
      return false;
  case 0:
    break;
  }
#else
  const T *next = first;
  const T *last = first + size;
  for (++next; next != last; first = next, ++next)
    if (*next < *first)
      return false;
#endif
  return true;
}

//-----------------------------------------------------------------------------

template < class T >
inline bool
CoinIsSorted(const T *first, const T *last)
{
  return CoinIsSorted(first, static_cast< CoinBigIndex >(last - first));
}

//#############################################################################

template < class T >
inline void
CoinIotaN(T *first, const CoinBigIndex size, T init)
{
  if (size == 0)
    return;

#ifndef NDEBUG
  if (size < 0)
    throw CoinError("negative number of entries", "CoinIotaN", "");
#endif
#if 1
  for (CoinBigIndex n = size / 8; n > 0; --n, first += 8, init += 8) {
    first[0] = init;
    first[1] = init + 1;
    first[2] = init + 2;
    first[3] = init + 3;
    first[4] = init + 4;
    first[5] = init + 5;
    first[6] = init + 6;
    first[7] = init + 7;
  }
  switch (size % 8) {
  case 7:
    first[6] = init + 6;
  case 6:
    first[5] = init + 5;
  case 5:
    first[4] = init + 4;
  case 4:
    first[3] = init + 3;
  case 3:
    first[2] = init + 2;
  case 2:
    first[1] = init + 1;
  case 1:
    first[0] = init;
  case 0:
    break;
  }
#else
  // Use Duff's device to fill
  CoinBigIndex n = (size + 7) / 8;
  --first;
  --init;
  switch (size % 8) {
  case 0:
    do {
      *++first = ++init;
    case 7:
      *++first = ++init;
    case 6:
      *++first = ++init;
    case 5:
      *++first = ++init;
    case 4:
      *++first = ++init;
    case 3:
      *++first = ++init;
    case 2:
      *++first = ++init;
    case 1:
      *++first = ++init;
    } while (--n > 0);
  }
#endif
}

//-----------------------------------------------------------------------------

template < class T >
inline void
CoinIota(T *first, const T *last, T init)
{
  CoinIotaN(first, last - first, init);
}

//#############################################################################

template < class T >
inline T *
CoinDeleteEntriesFromArray(T *arrayFirst, T *arrayLast,
  const int *firstDelPos, const int *lastDelPos)
{
  CoinBigIndex delNum = static_cast< CoinBigIndex >(lastDelPos - firstDelPos);
  if (delNum == 0)
    return arrayLast;

  if (delNum < 0)
    throw CoinError("trying to delete negative number of entries",
      "CoinDeleteEntriesFromArray", "");

  int *delSortedPos = NULL;
  if (!(CoinIsSorted(firstDelPos, lastDelPos) && std::adjacent_find(firstDelPos, lastDelPos) == lastDelPos)) {
    // the positions of the to be deleted is either not sorted or not unique
    delSortedPos = new int[delNum];
    CoinDisjointCopy(firstDelPos, lastDelPos, delSortedPos);
    std::sort(delSortedPos, delSortedPos + delNum);
    delNum = static_cast< CoinBigIndex >(std::unique(delSortedPos,
                                           delSortedPos + delNum)
      - delSortedPos);
  }
  const int *delSorted = delSortedPos ? delSortedPos : firstDelPos;

  const CoinBigIndex last = delNum - 1;
  int size = delSorted[0];
  for (CoinBigIndex i = 0; i < last; ++i) {
    const int copyFirst = delSorted[i] + 1;
    const int copyLast = delSorted[i + 1];
    CoinCopy(arrayFirst + copyFirst, arrayFirst + copyLast,
      arrayFirst + size);
    size += copyLast - copyFirst;
  }
  const int copyFirst = delSorted[last] + 1;
  const int copyLast = static_cast< int >(arrayLast - arrayFirst);
  CoinCopy(arrayFirst + copyFirst, arrayFirst + copyLast,
    arrayFirst + size);
  size += copyLast - copyFirst;

  if (delSortedPos)
    delete[] delSortedPos;

  return arrayFirst + size;
}

//#############################################################################

#define COIN_OWN_RANDOM_32

#if defined COIN_OWN_RANDOM_32
/* Thanks to Stefano Gliozzi for providing an operating system
   independent random number generator.  */

inline double CoinDrand48(bool isSeed = false, unsigned int seed = 1)
{
  static unsigned int last = 123456;
  if (isSeed) {
    last = seed;
  } else {
    last = 1664525 * last + 1013904223;
    return ((static_cast< double >(last)) / 4294967296.0);
  }
  return (0.0);
}

inline void CoinSeedRandom(int iseed)
{
  CoinDrand48(true, iseed);
}

#else // COIN_OWN_RANDOM_32

#if defined(_MSC_VER) || defined(__MINGW32__) || defined(__CYGWIN32__)

inline double CoinDrand48() { return rand() / (double)RAND_MAX; }
inline void CoinSeedRandom(int iseed) { srand(iseed + 69822); }

#else

inline double CoinDrand48() { return drand48(); }
inline void CoinSeedRandom(int iseed) { srand48(iseed + 69822); }

#endif

#endif // COIN_OWN_RANDOM_32

//#############################################################################

inline char CoinFindDirSeparator()
{
  int size = 1000;
  char *buf = 0;
  while (true) {
    buf = new char[size];
    if (getcwd(buf, size))
      break;
    delete[] buf;
    buf = 0;
    size = 2 * size;
  }
  // if first char is '/' then it's unix and the dirsep is '/'. otherwise we
  // assume it's dos and the dirsep is '\'
  char dirsep = buf[0] == '/' ? '/' : '\\';
  delete[] buf;
  return dirsep;
}
//#############################################################################

inline int CoinStrNCaseCmp(const char *s0, const char *s1,
  const size_t len)
{
  for (size_t i = 0; i < len; ++i) {
    if (s0[i] == 0) {
      return s1[i] == 0 ? 0 : -1;
    }
    if (s1[i] == 0) {
      return 1;
    }
    const int c0 = std::tolower(s0[i]);
    const int c1 = std::tolower(s1[i]);
    if (c0 < c1)
      return -1;
    if (c0 > c1)
      return 1;
  }
  return 0;
}

//#############################################################################

template < class T >
inline void CoinSwap(T &x, T &y)
{
  T t = x;
  x = y;
  y = t;
}

//#############################################################################

template < class T >
inline int
CoinToFile(const T *array, CoinBigIndex size, FILE *fp)
{
  CoinBigIndex numberWritten;
  if (array && size) {
    numberWritten = static_cast< CoinBigIndex >(fwrite(&size, sizeof(int), 1, fp));
    if (numberWritten != 1)
      return 1;
    numberWritten = static_cast< CoinBigIndex >(fwrite(array, sizeof(T), size_t(size), fp));
    if (numberWritten != size)
      return 1;
  } else {
    size = 0;
    numberWritten = static_cast< CoinBigIndex >(fwrite(&size, sizeof(int), 1, fp));
    if (numberWritten != 1)
      return 1;
  }
  return 0;
}

//#############################################################################

template < class T >
inline int
CoinFromFile(T *&array, CoinBigIndex size, FILE *fp, CoinBigIndex &newSize)
{
  CoinBigIndex numberRead;
  numberRead = static_cast< CoinBigIndex >(fread(&newSize, sizeof(int), 1, fp));
  if (numberRead != 1)
    return 1;
  int returnCode = 0;
  if (size != newSize && (newSize || array))
    returnCode = 2;
  if (newSize) {
    array = new T[newSize];
    numberRead = static_cast< CoinBigIndex >(fread(array, sizeof(T), newSize, fp));
    if (numberRead != newSize)
      returnCode = 1;
  } else {
    array = NULL;
  }
  return returnCode;
}

//#############################################################################

#if 0
inline double CoinCbrt(double x)
{
#if defined(_MSC_VER) 
    return pow(x,(1./3.));
#else
    return cbrt(x);
#endif
}
#endif

//-----------------------------------------------------------------------------

#define CoinSizeofAsInt(type) (static_cast< int >(sizeof(type)))
inline int
CoinStrlenAsInt(const char *string)
{
  return static_cast< int >(strlen(string));
}

#if defined COIN_OWN_RANDOM_32
class CoinThreadRandom {
public:
  CoinThreadRandom()
  {
    seed_ = 12345678;
  }
  CoinThreadRandom(int seed)
  {
    seed_ = seed;
  }
  ~CoinThreadRandom() {}
  // Copy
  CoinThreadRandom(const CoinThreadRandom &rhs)
  {
    seed_ = rhs.seed_;
  }
  // Assignment
  CoinThreadRandom &operator=(const CoinThreadRandom &rhs)
  {
    if (this != &rhs) {
      seed_ = rhs.seed_;
    }
    return *this;
  }


  inline void setSeed(int seed)
  {
    seed_ = seed;
  }
  inline unsigned int getSeed() const
  {
    return seed_;
  }
  inline double randomDouble() const
  {
    double retVal;
    seed_ = 1664525 * (seed_) + 1013904223;
    retVal = ((static_cast< double >(seed_)) / 4294967296.0);
    return retVal;
  }
  inline void randomize(int n = 0)
  {
    if (!n)
      n = seed_ & 255;
    for (int i = 0; i < n; i++)
      randomDouble();
  }

protected:
  mutable unsigned int seed_;
};
#else
class CoinThreadRandom {
public:
  CoinThreadRandom()
  {
    seed_[0] = 50000;
    seed_[1] = 40000;
    seed_[2] = 30000;
  }
  CoinThreadRandom(const unsigned short seed[3])
  {
    memcpy(seed_, seed, 3 * sizeof(unsigned short));
  }
  CoinThreadRandom(int seed)
  {
    union {
      int i[2];
      unsigned short int s[4];
    } put;
    put.i[0] = seed;
    put.i[1] = seed;
    memcpy(seed_, put.s, 3 * sizeof(unsigned short));
  }
  ~CoinThreadRandom() {}
  // Copy
  CoinThreadRandom(const CoinThreadRandom &rhs)
  {
    memcpy(seed_, rhs.seed_, 3 * sizeof(unsigned short));
  }
  // Assignment
  CoinThreadRandom &operator=(const CoinThreadRandom &rhs)
  {
    if (this != &rhs) {
      memcpy(seed_, rhs.seed_, 3 * sizeof(unsigned short));
    }
    return *this;
  }


  inline void setSeed(const unsigned short seed[3])
  {
    memcpy(seed_, seed, 3 * sizeof(unsigned short));
  }
  inline void setSeed(int seed)
  {
    union {
      int i[2];
      unsigned short int s[4];
    } put;
    put.i[0] = seed;
    put.i[1] = seed;
    memcpy(seed_, put.s, 3 * sizeof(unsigned short));
  }
  inline double randomDouble() const
  {
    double retVal;
#if defined(_MSC_VER) || defined(__MINGW32__) || defined(__CYGWIN32__)
    retVal = rand();
    retVal = retVal / (double)RAND_MAX;
#else
    retVal = erand48(seed_);
#endif
    return retVal;
  }
  inline void randomize(int n = 0)
  {
    if (!n) {
      n = seed_[0] + seed_[1] + seed_[2];
      n &= 255;
    }
    for (int i = 0; i < n; i++)
      randomDouble();
  }

protected:
  mutable unsigned short seed_[3];
};
#endif
#ifndef COIN_DETAIL
#define COIN_DETAIL_PRINT(s) \
  {                          \
  }
#else
#define COIN_DETAIL_PRINT(s) s
#endif
#endif

/* vi: softtabstop=2 shiftwidth=2 expandtab tabstop=2
*/