// -*- C++ -*-
#ifndef __RW_VALIMP__
#define __RW_VALIMP__

/***************************************************************************
 *
 * valimp - Declarations for the Standard Library valarray
 *
 ***************************************************************************
 *    
 *  Copyright 2000 Compaq Computer Corporation
 *
 *  COMPAQ Registered in U.S. Patent and Trademark Office.
 *
 *  Confidential computer software. Valid license from Compaq required for
 *  possession, use or copying. Consistent with FAR 12.211 and 12.212,
 *  Commercial Computer Software, Computer Software Documentation, and
 *  Technical Data for Commercial Items are licensed to the U.S. Government
 *  under vendor's standard commercial license.
 *
 ****************************************************************************
 *
 * (c) Copyright 1994, 1998 Rogue Wave Software, Inc.
 * ALL RIGHTS RESERVED
 *
 * The software and information contained herein are proprietary to, and
 * comprise valuable trade secrets of, Rogue Wave Software, Inc., which
 * intends to preserve as trade secrets such software and information.
 * This software is furnished pursuant to a written license agreement and
 * may be used, copied, transmitted, and stored only in accordance with
 * the terms of such license and with the inclusion of the above copyright
 * notice.  This software and information or any other copies thereof may
 * not be provided or otherwise made available to any other person.
 *
 * Notwithstanding any other lease or license that may pertain to, or
 * accompany the delivery of, this computer software and information, the
 * rights of the Government regarding its use, reproduction and disclosure
 * are as set forth in Section 52.227-19 of the FARS Computer
 * Software-Restricted Rights clause.
 * 
 * Use, duplication, or disclosure by the Government is subject to
 * restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
 * Technical Data and Computer Software clause at DFARS 252.227-7013.
 * Contractor/Manufacturer is Rogue Wave Software, Inc.,
 * P.O. Box 2328, Corvallis, Oregon 97339.
 *
 * This computer software and information is distributed with "restricted
 * rights."  Use, duplication or disclosure is subject to restrictions as
 * set forth in NASA FAR SUP 18-52.227-79 (April 1985) "Commercial
 * Computer Software-Restricted Rights (April 1985)."  If the Clause at
 * 18-52.227-74 "Rights in Data General" is specified in the contract,
 * then the "Alternate III" clause applies.
 *
 **************************************************************************/

#include <stdcomp>
#include <stddefs>

#ifndef _RWSTD_NO_NEW_HEADER
#include <cstddef>
#include <cstring>
#else
#include <stddef.h>
#include <string.h>
#endif

#include <math>

#if defined(__DECCXX)
#   ifdef __PRAGMA_ENVIRONMENT
#      pragma __environment __save
#      pragma __environment __cxx_header_defaults
#   endif
#endif

#if defined(__VMS) && defined(__DECCXX) && !defined(__DECFIXCXXL1158)
#pragma __extern_prefix __save
#pragma __extern_prefix "CXXL$" 
#endif


#ifndef _RWSTD_NO_NAMESPACE
namespace std { }
namespace _RWrwstd {
#define _RW_IMP_SPACE(name) ::_RWrwstd::name
#else
#define _RW_IMP_SPACE(name) name
#endif


/****************************************************************
 *               IMPLEMENTATION FUNCTIONALITIES                  *
 *                                                               *
 *   - valarray memory model                                     *
 *   - valarray optimization on copy and return                  *
 *                                                               *
 ****************************************************************/


// valarray_traits class
// allow memory optimization 
// for builtin types and user types

  template <class T> 
  class  valarray_traits_optimize 
  {
  public:
    static bool _RWSTDExportTemplate optimize_copy() { return false; }
  };


#ifndef _RWSTD_NO_BOOL
  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<bool>
  {
  public:
    static bool optimize_copy() { return true; }
  };
#endif

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<short>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<unsigned short>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<int>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<unsigned int>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<long>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<unsigned long>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<float>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<double>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<long double>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<char>
  {
  public:
    static bool optimize_copy() { return true; }
  };

  _RWSTD_TEMPLATE
  class _RWSTDExport valarray_traits_optimize<unsigned char>
  {
  public:
    static bool optimize_copy() { return true; }
  };


// for optimization on return of
// valarray<T> values

  template <class T>
  struct _RW_temporary 
  {

    T*      store_adr;
    size_t  length;
  };


// Class _RW_array<T>
// C type array storage class
// responsible for physical representation
// of the valarray in memory and memory operations

  template <class T> class _RW_array {

public:

  _RW_array( )
    : _RW_length(0)
, _RW_storage(0)
  { ; }

  ~_RW_array( )
  { if ( _RW_storage ) delete []_RW_storage; }

  void _initial_size(size_t size)
  {
    _RW_length = size;
    _RW_storage = new T[_RW_length];
  }

  void _initialize_with_value(const T&, size_t);
  void _initialize_with_array(const T*, size_t);
  void _copy_memory_array(const _RW_array<T>&);

  size_t _get_length() const { return _RW_length; }

  T operator[] (size_t ind) const
  { return _RW_storage[ind]; }

  T& operator[] (size_t ind)
  { return _RW_storage[ind]; }

  void _replace(T* tmp_adr, size_t tmp_length )
  {
    _RW_storage = tmp_adr;
    _RW_length = tmp_length;
  }

  T* _RW_get_storage() const { return _RW_storage; }

  void _RW_invalidate()
  {
    _RW_length = 0;
    _RW_storage = 0;
  }

  void _RW_copy( T* pointer ) const
  {
#if !defined(_RWSTD_NO_NEW_HEADER) && !defined(_RWSTD_NO_NAMESPACE)
    std::memcpy( (void*)pointer, (void*)_RW_storage,_RW_length*sizeof(T));
#else
    memcpy( (void*)pointer, (void*)_RW_storage,_RW_length*sizeof(T));
#endif
  }

  void _RW_resize_without_copy( size_t size)
  {
    if ( _RW_storage )
    {
      delete []_RW_storage;
      _RW_storage = 0;
    }
    _RW_length = size;
    if ( size > 0 ) _RW_storage = new T[_RW_length];
  }

private:
  size_t                         _RW_length;
  T*                             _RW_storage;
};


#ifndef _RWSTD_NO_NAMESPACE
}
#endif

#if defined(__VMS) && defined(__DECCXX) && !defined(__DECFIXCXXL1158)
#   pragma __extern_prefix __restore
#endif

#ifdef _RWSTD_COMPILE_INSTANTIATE
#include <valimp.cc>
#endif

#if defined(__DECCXX)
#   ifdef __PRAGMA_ENVIRONMENT
#      pragma __environment __restore
#   endif
#endif

#endif /* __RW_VALIMP__ */
