/*

 *

 * Copyright (c) 1994

 * Hewlett-Packard Company

 *

 * Copyright (c) 1996,1997

 * Silicon Graphics Computer Systems, Inc.

 *

 * Copyright (c) 1997

 * Moscow Center for SPARC Technology

 *

 * Copyright (c) 1999 

 * Boris Fomitchev

 *

 * This material is provided "as is", with absolutely no warranty expressed

 * or implied. Any use is at your own risk.

 *

 * Permission to use or copy this software for any purpose is hereby granted 

 * without fee, provided the above notices are retained on all copies.

 * Permission to modify the code and to distribute modified code is granted,

 * provided the above notices are retained, and a notice that the code was

 * modified is included with the above copyright notice.

 *

 */

/* NOTE: This is an internal header file, included by other STL headers.

 *   You should not attempt to use it directly.

 */

#ifndef _STLP_INTERNAL_TEMPBUF_H

#define _STLP_INTERNAL_TEMPBUF_H

# ifndef _STLP_CLIMITS

#  include <climits>

# endif

# ifndef _STLP_CSTDLIB

#  include <cstdlib>

# endif

# ifndef _STLP_INTERNAL_UNINITIALIZED_H

#  include <stl/_uninitialized.h>

# endif

_STLP_BEGIN_NAMESPACE

template <class _Tp>

pair<_Tp*, ptrdiff_t>  _STLP_CALL

__get_temporary_buffer(ptrdiff_t __len, _Tp*);

#ifndef _STLP_NO_EXPLICIT_FUNCTION_TMPL_ARGS

template <class _Tp>

inline pair<_Tp*, ptrdiff_t>  _STLP_CALL get_temporary_buffer(ptrdiff_t __len) {

  return __get_temporary_buffer(__len, (_Tp*) 0);

}

# if ! defined(_STLP_NO_EXTENSIONS)

// This overload is not required by the standard; it is an extension.

// It is supported for backward compatibility with the HP STL, and

// because not all compilers support the language feature (explicit

// function template arguments) that is required for the standard

// version of get_temporary_buffer.

template <class _Tp>

inline pair<_Tp*, ptrdiff_t>  _STLP_CALL

get_temporary_buffer(ptrdiff_t __len, _Tp*) {

  return __get_temporary_buffer(__len, (_Tp*) 0);

}

# endif

#endif

template <class _Tp>

inline void  _STLP_CALL return_temporary_buffer(_Tp* __p) {

// SunPro brain damage

  free((char*)__p);

}

template <class _ForwardIterator, class _Tp>

class _Temporary_buffer {

private:

  ptrdiff_t  _M_original_len;

  ptrdiff_t  _M_len;

  _Tp*       _M_buffer;

  void _M_allocate_buffer() {

    _M_original_len = _M_len;

    _M_buffer = 0;

    if (_M_len > (ptrdiff_t)(INT_MAX / sizeof(_Tp)))

      _M_len = INT_MAX / sizeof(_Tp);

    while (_M_len > 0) {

      _M_buffer = (_Tp*) malloc(_M_len * sizeof(_Tp));

      if (_M_buffer)

        break;

      _M_len /= 2;

    }

  }

  void _M_initialize_buffer(const _Tp&, const __true_type&) {}

  void _M_initialize_buffer(const _Tp& val, const __false_type&) {

    uninitialized_fill_n(_M_buffer, _M_len, val);

  }

public:

  ptrdiff_t size() const { return _M_len; }

  ptrdiff_t requested_size() const { return _M_original_len; }

  _Tp* begin() { return _M_buffer; }

  _Tp* end() { return _M_buffer + _M_len; }

  _Temporary_buffer(_ForwardIterator __first, _ForwardIterator __last) {

    // Workaround for a __type_traits bug in the pre-7.3 compiler.

#   if defined(__sgi) && !defined(__GNUC__) && _COMPILER_VERSION < 730

    typedef typename __type_traits<_Tp>::is_POD_type _Trivial;

#   else

     typedef typename __type_traits<_Tp>::has_trivial_default_constructor  _Trivial;

#   endif

    _STLP_TRY {

      _M_len = distance(__first, __last);

      _M_allocate_buffer();

      if (_M_len > 0)

        _M_initialize_buffer(*__first, _Trivial());

    }

    _STLP_UNWIND(free(_M_buffer); _M_buffer = 0; _M_len = 0);

  }

  ~_Temporary_buffer() {  

    _STLP_STD::_Destroy(_M_buffer, _M_buffer + _M_len);

    free(_M_buffer);

  }

private:

  // Disable copy constructor and assignment operator.

  _Temporary_buffer(const _Temporary_buffer<_ForwardIterator, _Tp>&) {}

  void operator=(const _Temporary_buffer<_ForwardIterator, _Tp>&) {}

};

# ifndef _STLP_NO_EXTENSIONS

// Class temporary_buffer is not part of the standard.  It is an extension.

template <class _ForwardIterator, 

          class _Tp 

#ifdef _STLP_CLASS_PARTIAL_SPECIALIZATION

                    = typename iterator_traits<_ForwardIterator>::value_type

#endif /* _STLP_CLASS_PARTIAL_SPECIALIZATION */

         >

struct temporary_buffer : public _Temporary_buffer<_ForwardIterator, _Tp>

{

  temporary_buffer(_ForwardIterator __first, _ForwardIterator __last)

    : _Temporary_buffer<_ForwardIterator, _Tp>(__first, __last) {}

  ~temporary_buffer() {}

};

# endif /* _STLP_NO_EXTENSIONS */

_STLP_END_NAMESPACE

# ifndef _STLP_LINK_TIME_INSTANTIATION

#  include <stl/_tempbuf.c>

# endif

#endif /* _STLP_INTERNAL_TEMPBUF_H */

// Local Variables:

// mode:C++

// End: