#ifndef __RW_VALIMP__
#define __RW_VALIMP__
//
//
//  Copyright Digital Equipment Corporation 1996. All rights reserved.
//
//  Restricted Rights: Use, duplication, or disclosure by the U.S.
//  Government is subject to restrictions as set forth in subparagraph
//  (c) (1) (ii) of DFARS 252.227-7013, or in FAR 52.227-19, or in FAR
//  52.227-14 Alt. III, as applicable.
//
//  This software is proprietary to and embodies the confidential
//  technology of Digital Equipment Corporation. Possession, use, or
//  copying of this software and media is authorized only pursuant to a
//  valid written license from Digital or an authorized sublicensor.
//
//

/***************************************************************************
 *
 * valimp - Declarations for the Standard Library valarray
 *
 * $Id: valimp,v 1.1 1996/09/25 00:47:35 philippe Exp $
 *
 ***************************************************************************
 *
 * (c) Copyright 1994-1996 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>

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

#include <math.h>

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

//#define _RWSTD_NO_IMP_NAMESPACE 1  

#ifndef _RWSTD_NO_NAMESPACE
#if defined(__DECCXX) && !defined(__DECFIXCXXL455)
  namespace std {}
#endif
 #ifndef _RWSTD_NO_IMP_NAMESPACE
  namespace rwstd {
  #define _RW_IMP_SPACE(name) ::rwstd::name
  using namespace std;
 #else
  namespace std {
  #define _RW_IMP_SPACE(name) ::std::name
 #endif
#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 optimize_copy() { return false; }
};


#ifndef _RWSTD_NO_BOOL
#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<bool>
{
 public:

  static bool optimize_copy() { return true; }
};
#endif

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<short>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<unsigned short>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<int>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<unsigned int>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<long>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<unsigned long>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<float>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<double>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<long double>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class valarray_traits_optimize<char>
{
 public:

  static bool optimize_copy() { return true; }
};

#if defined(__DECCXX) && !defined(__DECFIXCXXL508)
template <>
#endif
class 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
    {
       memcpy( (void*)pointer, (void*)_RW_storage, _RW_length*sizeof(T));
    }

    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

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

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

#endif /* __RW_VALIMP__ */