/*
 * © Portions copyright (c) 2006-2007 Nokia Corporation.  All rights reserved.
 * 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_CONSTRUCT_H
#define _STLP_INTERNAL_CONSTRUCT_H

#ifdef _STLP_USE_TRAP_LEAVE
#include <e32base.h>
#endif // _STLP_USE_TRAP_LEAVE

# if defined (_STLP_DEBUG_UNINITIALIZED) && ! defined (_STLP_CSTRING)
# include <cstring>
# endif

# ifndef _STLP_INTERNAL_NEW_HEADER
#  include <stl/_new.h>
# endif


#ifndef _STLP_INTERNAL_ITERATOR_BASE_H
# include <stl/_iterator_base.h>
#endif

_STLP_BEGIN_NAMESPACE

# ifdef _STLP_TRIVIAL_DESTRUCTOR_BUG
template <class _Tp>
inline void __destroy_aux(_Tp* __pointer, const __false_type&) { __pointer->~_Tp(); }
template <class _Tp>
inline void __destroy_aux(_Tp* __pointer, const __true_type&) {}
# endif

template <class _Tp>
inline void _Destroy(_Tp* __pointer) {
# if _MSC_VER >= 1010
  __pointer;
# endif	// _MSC_VER >= 1000
# ifdef _STLP_TRIVIAL_DESTRUCTOR_BUG
  typedef typename __type_traits<_Tp>::has_trivial_destructor _Trivial_destructor;
  __destroy_aux(__pointer, _Trivial_destructor());
# else
#  if ( defined (__BORLANDC__) && ( __BORLANDC__ < 0x500 ) )
    __pointer->_Tp::~_Tp();
#  else
    __pointer->~_Tp();
#  endif
# endif
# ifdef _STLP_DEBUG_UNINITIALIZED
	memset((char*)__pointer, _STLP_SHRED_BYTE, sizeof(_Tp));
# endif
}

# if defined (new)
#   define _STLP_NEW_REDEFINE new
#   undef new
# endif 

# ifdef _STLP_DEFAULT_CONSTRUCTOR_BUG
template <class _T1>
inline void _Construct_aux (_T1* __p, const __false_type&) {
_STLP_PLACEMENT_NEW (__p) _T1();
}

template <class _T1>
inline void _Construct_aux (_T1* __p, const __true_type&) {
_STLP_PLACEMENT_NEW (__p) _T1(0);
}
# endif

template <class _T1, class _T2>
inline void _Construct(_T1* __p, const _T2& __val) {
# ifdef _STLP_DEBUG_UNINITIALIZED
	memset((char*)__p, _STLP_SHRED_BYTE, sizeof(_T1));
# endif
    _STLP_PLACEMENT_NEW (__p) _T1(__val);
}

template <class _T1>
inline void _Construct(_T1* __p) {
# ifdef _STLP_DEBUG_UNINITIALIZED
  memset((char*)__p, _STLP_SHRED_BYTE, sizeof(_T1));
# endif
# ifdef _STLP_DEFAULT_CONSTRUCTOR_BUG
typedef typename _Is_integer<_T1>::_Integral _Is_Integral;
_Construct_aux (__p, _Is_Integral() );
# else
  _STLP_PLACEMENT_NEW (__p) _T1();
# endif
}

# if defined(_STLP_NEW_REDEFINE)
# ifdef DEBUG_NEW
#  define new DEBUG_NEW
# endif
#  undef _STLP_NEW_REDEFINE
# endif 

template <class _ForwardIterator>
_STLP_INLINE_LOOP void
__destroy_aux(_ForwardIterator __first, _ForwardIterator __last, const __false_type&) {
  for ( ; __first != __last; ++__first)
    _STLP_STD::_Destroy(&*__first);
}

template <class _ForwardIterator> 
inline void __destroy_aux(_ForwardIterator, _ForwardIterator, const __true_type&) {}

template <class _ForwardIterator, class _Tp>
inline void 
__destroy(_ForwardIterator __first, _ForwardIterator __last, _Tp*) {
  typedef typename __type_traits<_Tp>::has_trivial_destructor _Trivial_destructor;
  __destroy_aux(__first, __last, _Trivial_destructor());
}

template <class _ForwardIterator>
inline void _Destroy(_ForwardIterator __first, _ForwardIterator __last) {
  __destroy(__first, __last, _STLP_VALUE_TYPE(__first, _ForwardIterator));
}

inline void _Destroy(char*, char*) {}
# ifdef _STLP_HAS_WCHAR_T // dwa 8/15/97
inline void _Destroy(wchar_t*, wchar_t*) {}
inline void _Destroy(const wchar_t*, const wchar_t*) {}
# endif

# ifndef _STLP_NO_ANACHRONISMS
// --------------------------------------------------
// Old names from the HP STL.

template <class _T1, class _T2>
inline void construct(_T1* __p, const _T2& __val) {_Construct(__p, __val); }
template <class _T1>
inline void construct(_T1* __p) { _Construct(__p); }
template <class _Tp>
inline void destroy(_Tp* __pointer) {  _STLP_STD::_Destroy(__pointer); }
template <class _ForwardIterator>
inline void destroy(_ForwardIterator __first, _ForwardIterator __last) { _STLP_STD::_Destroy(__first, __last); }
# endif

#ifdef _STLP_USE_TRAP_LEAVE

struct TCleanupOverlay
{
    TAny *vtable;
    TAny *iBase;
    TAny *iTop;
    TAny *iNext;
};

template <class _Tp>
struct _STLP_StackHelper {
  static unsigned int Check( void *ptr );
  static void* _NewLC (size_t __n);
};

struct _STLP_StackPopper {
  ~_STLP_StackPopper() { CleanupStack::Pop(); }
};

template <class _Tp>
struct _STLP_Cleanup {
  static void clear(TAny* __p);
};

# define _STLP_PUSH_CLEANUP_ITEM(_Tp, __p)  CleanupStack::PushL(TCleanupItem(&_STLP_Cleanup< _Tp >::clear, (TAny*)__p));
# define _STLP_PUSH_STACK_ITEM(_Tp, __p)  _STLP_PUSH_CLEANUP_ITEM(_Tp, __p)   _STLP_StackPopper __Popper; _STLP_no_unused_variable_warning( __Popper );
# define _STLP_POP_IF_CHECK if (_STLP_StackHelper<bool>::Check(this)) CleanupStack::Pop();
# define _STLP_POP_CLEANUP_ITEM CleanupStack::Pop(); _STLP_POP_IF_CHECK

# define _STLP_POP_ITEM CleanupStack::Pop();

// to be used in complex object constructors
template <class _Tp>
struct _STLP_StackPusher {
  _STLP_StackPusher(_Tp * __p) { _STLP_PUSH_CLEANUP_ITEM(_Tp, (void*)__p) }
};

template <class _Tp>
unsigned int _STLP_StackHelper<_Tp>::Check( void *ptr )

{
    TCleanupTrapHandler *handler =
        (TCleanupTrapHandler *)User::TrapHandler();

    CCleanup &cleanup = handler->Cleanup();

    TCleanupOverlay *overlay = (TCleanupOverlay *)( &cleanup );

    char *raw = (char *)(overlay->iNext) - 4;
    void *topptr = *( (void **)(raw) );

    return ( ptr == topptr );
} 


template <class _Tp>
void* _STLP_StackHelper<_Tp>::_NewLC(size_t __n) { 
  void* __p = ::operator new (__n, ELeave) ; 
  // constructor will pop it back
  CleanupStack::PushL(__p); 
  return __p;
}

template <class _Tp>
void _STLP_Cleanup<_Tp>::clear(TAny* __p)
{
  ((_Tp*)__p)->~_Tp();
}


#else
# define _STLP_PUSH_CLEANUP_ITEM(_Tp, __p)
# define _STLP_POP_CLEANUP_ITEM
# define _STLP_PUSH_STACK_ITEM(_Tp, p)
# define _STLP_POP_ITEM
# define _STLP_POP_IF_CHECK
# define TPush TLeave
#endif

_STLP_END_NAMESPACE

#endif /* _STLP_INTERNAL_CONSTRUCT_H */

// Local Variables:
// mode:C++
// End:
