mirror of
https://github.com/reactos/reactos.git
synced 2024-08-26 05:08:39 +00:00
484 lines
16 KiB
C
484 lines
16 KiB
C
/*
|
|
*
|
|
* 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.
|
|
*
|
|
*/
|
|
#ifndef _STLP_ALGOBASE_C
|
|
#define _STLP_ALGOBASE_C
|
|
|
|
#ifndef _STLP_INTERNAL_ALGOBASE_H
|
|
# include <stl/_algobase.h>
|
|
#endif
|
|
|
|
#ifndef _STLP_INTERNAL_FUNCTION_BASE_H
|
|
# include <stl/_function_base.h>
|
|
#endif
|
|
|
|
_STLP_BEGIN_NAMESPACE
|
|
|
|
template <class _InputIter1, class _InputIter2>
|
|
bool lexicographical_compare(_InputIter1 __first1, _InputIter1 __last1,
|
|
_InputIter2 __first2, _InputIter2 __last2) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first1, __last1))
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first2, __last2))
|
|
for ( ; __first1 != __last1 && __first2 != __last2
|
|
; ++__first1, ++__first2) {
|
|
if (*__first1 < *__first2) {
|
|
_STLP_VERBOSE_ASSERT(!(*__first2 < *__first1), _StlMsg_INVALID_STRICT_WEAK_PREDICATE)
|
|
return true;
|
|
}
|
|
if (*__first2 < *__first1)
|
|
return false;
|
|
}
|
|
return __first1 == __last1 && __first2 != __last2;
|
|
}
|
|
|
|
template <class _InputIter1, class _InputIter2, class _Compare>
|
|
bool lexicographical_compare(_InputIter1 __first1, _InputIter1 __last1,
|
|
_InputIter2 __first2, _InputIter2 __last2,
|
|
_Compare __comp) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first1, __last1))
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first2, __last2))
|
|
for ( ; __first1 != __last1 && __first2 != __last2
|
|
; ++__first1, ++__first2) {
|
|
if (__comp(*__first1, *__first2)) {
|
|
_STLP_VERBOSE_ASSERT(!__comp(*__first2, *__first1),
|
|
_StlMsg_INVALID_STRICT_WEAK_PREDICATE)
|
|
return true;
|
|
}
|
|
if (__comp(*__first2, *__first1))
|
|
return false;
|
|
}
|
|
return __first1 == __last1 && __first2 != __last2;
|
|
}
|
|
|
|
#if !defined (_STLP_NO_EXTENSIONS)
|
|
_STLP_MOVE_TO_PRIV_NAMESPACE
|
|
|
|
template <class _InputIter1, class _InputIter2>
|
|
int __lexicographical_compare_3way(_InputIter1 __first1, _InputIter1 __last1,
|
|
_InputIter2 __first2, _InputIter2 __last2) {
|
|
while (__first1 != __last1 && __first2 != __last2) {
|
|
if (*__first1 < *__first2) {
|
|
_STLP_VERBOSE_ASSERT(!(*__first2 < *__first1), _StlMsg_INVALID_STRICT_WEAK_PREDICATE)
|
|
return -1;
|
|
}
|
|
if (*__first2 < *__first1)
|
|
return 1;
|
|
++__first1;
|
|
++__first2;
|
|
}
|
|
if (__first2 == __last2) {
|
|
return !(__first1 == __last1);
|
|
}
|
|
else {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
_STLP_MOVE_TO_STD_NAMESPACE
|
|
|
|
template <class _InputIter1, class _InputIter2>
|
|
int lexicographical_compare_3way(_InputIter1 __first1, _InputIter1 __last1,
|
|
_InputIter2 __first2, _InputIter2 __last2) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first1, __last1))
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first2, __last2))
|
|
return _STLP_PRIV __lexicographical_compare_3way(__first1, __last1, __first2, __last2);
|
|
}
|
|
#endif
|
|
|
|
_STLP_MOVE_TO_PRIV_NAMESPACE
|
|
|
|
template <class _RandomAccessIter, class _Tp>
|
|
_STLP_INLINE_LOOP _RandomAccessIter __find(_RandomAccessIter __first, _RandomAccessIter __last,
|
|
const _Tp& __val,
|
|
const random_access_iterator_tag &) {
|
|
_STLP_DIFFERENCE_TYPE(_RandomAccessIter) __trip_count = (__last - __first) >> 2;
|
|
|
|
for ( ; __trip_count > 0 ; --__trip_count) {
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
}
|
|
|
|
switch (__last - __first) {
|
|
case 3:
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
case 2:
|
|
if (*__first == __val) return __first;
|
|
++__first;
|
|
case 1:
|
|
if (*__first == __val) return __first;
|
|
//++__first;
|
|
case 0:
|
|
default:
|
|
return __last;
|
|
}
|
|
}
|
|
|
|
inline char*
|
|
__find(char* __first, char* __last, char __val, const random_access_iterator_tag &) {
|
|
void *res = memchr(__first, __val, __last - __first);
|
|
return res != 0 ? __STATIC_CAST(char*, res) : __last;
|
|
}
|
|
inline const char*
|
|
__find(const char* __first, const char* __last, char __val, const random_access_iterator_tag &) {
|
|
const void *res = memchr(__first, __val, __last - __first);
|
|
return res != 0 ? __STATIC_CAST(const char*, res) : __last;
|
|
}
|
|
|
|
template <class _RandomAccessIter, class _Predicate>
|
|
_STLP_INLINE_LOOP _RandomAccessIter __find_if(_RandomAccessIter __first, _RandomAccessIter __last,
|
|
_Predicate __pred,
|
|
const random_access_iterator_tag &) {
|
|
_STLP_DIFFERENCE_TYPE(_RandomAccessIter) __trip_count = (__last - __first) >> 2;
|
|
|
|
for ( ; __trip_count > 0 ; --__trip_count) {
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
}
|
|
|
|
switch(__last - __first) {
|
|
case 3:
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
case 2:
|
|
if (__pred(*__first)) return __first;
|
|
++__first;
|
|
case 1:
|
|
if (__pred(*__first)) return __first;
|
|
//++__first;
|
|
case 0:
|
|
default:
|
|
return __last;
|
|
}
|
|
}
|
|
|
|
template <class _InputIter, class _Tp>
|
|
_STLP_INLINE_LOOP _InputIter __find(_InputIter __first, _InputIter __last,
|
|
const _Tp& __val,
|
|
const input_iterator_tag &) {
|
|
while (__first != __last && !(*__first == __val)) ++__first;
|
|
return __first;
|
|
}
|
|
|
|
template <class _InputIter, class _Predicate>
|
|
_STLP_INLINE_LOOP _InputIter __find_if(_InputIter __first, _InputIter __last,
|
|
_Predicate __pred,
|
|
const input_iterator_tag &) {
|
|
while (__first != __last && !__pred(*__first))
|
|
++__first;
|
|
return __first;
|
|
}
|
|
|
|
_STLP_MOVE_TO_STD_NAMESPACE
|
|
|
|
template <class _InputIter, class _Predicate>
|
|
_InputIter find_if(_InputIter __first, _InputIter __last,
|
|
_Predicate __pred) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first, __last))
|
|
return _STLP_PRIV __find_if(__first, __last, __pred, _STLP_ITERATOR_CATEGORY(__first, _InputIter));
|
|
}
|
|
|
|
template <class _InputIter, class _Tp>
|
|
_InputIter find(_InputIter __first, _InputIter __last, const _Tp& __val) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first, __last))
|
|
return _STLP_PRIV __find(__first, __last, __val, _STLP_ITERATOR_CATEGORY(__first, _InputIter));
|
|
}
|
|
|
|
template <class _ForwardIter1, class _ForwardIter2, class _BinaryPred>
|
|
_ForwardIter1 search(_ForwardIter1 __first1, _ForwardIter1 __last1,
|
|
_ForwardIter2 __first2, _ForwardIter2 __last2,
|
|
_BinaryPred __pred) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first1, __last1))
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first2, __last2))
|
|
// Test for empty ranges
|
|
if (__first1 == __last1 || __first2 == __last2)
|
|
return __first1;
|
|
|
|
// Test for a pattern of length 1.
|
|
_ForwardIter2 __p1(__first2);
|
|
|
|
if ( ++__p1 == __last2 ) {
|
|
while (__first1 != __last1 && !__pred(*__first1, *__first2)) {
|
|
++__first1;
|
|
}
|
|
return __first1;
|
|
}
|
|
|
|
// General case.
|
|
|
|
for ( ; ; ) { // __first1 != __last1 will be checked below
|
|
while (__first1 != __last1 && !__pred(*__first1, *__first2)) {
|
|
++__first1;
|
|
}
|
|
if (__first1 == __last1) {
|
|
return __last1;
|
|
}
|
|
_ForwardIter2 __p = __p1;
|
|
_ForwardIter1 __current = __first1;
|
|
if (++__current == __last1) return __last1;
|
|
|
|
while (__pred(*__current, *__p)) {
|
|
if (++__p == __last2)
|
|
return __first1;
|
|
if (++__current == __last1)
|
|
return __last1;
|
|
}
|
|
++__first1;
|
|
}
|
|
return __first1;
|
|
}
|
|
|
|
_STLP_MOVE_TO_PRIV_NAMESPACE
|
|
template <class _Tp>
|
|
struct _IsCharLikeType
|
|
{ typedef __false_type _Ret; };
|
|
|
|
_STLP_TEMPLATE_NULL struct _IsCharLikeType<char>
|
|
{ typedef __true_type _Ret; };
|
|
|
|
_STLP_TEMPLATE_NULL struct _IsCharLikeType<unsigned char>
|
|
{ typedef __true_type _Ret; };
|
|
|
|
# ifndef _STLP_NO_SIGNED_BUILTINS
|
|
_STLP_TEMPLATE_NULL struct _IsCharLikeType<signed char>
|
|
{ typedef __true_type _Ret; };
|
|
# endif
|
|
|
|
template <class _Tp1, class _Tp2>
|
|
inline bool __stlp_eq(_Tp1 __val1, _Tp2 __val2)
|
|
{ return __val1 == __val2; }
|
|
|
|
#if defined (_STLP_FUNCTION_TMPL_PARTIAL_ORDER)
|
|
template <class _Tp>
|
|
inline bool __stlp_eq(_Tp, _Tp)
|
|
{ return true; }
|
|
#endif
|
|
|
|
template <class _InputIter, class _ForwardIter, class _Tp2, class _Predicate>
|
|
inline _InputIter __find_first_of_aux2(_InputIter __first1, _InputIter __last1,
|
|
_ForwardIter __first2, _ForwardIter __last2,
|
|
_Tp2*, _Predicate __pred,
|
|
const __true_type& /* _UseStrcspnLikeAlgo */) {
|
|
unsigned char __hints[(UCHAR_MAX + 1) / CHAR_BIT];
|
|
memset(__hints, 0, sizeof(__hints) / sizeof(unsigned char));
|
|
for (; __first2 != __last2; ++__first2) {
|
|
unsigned char __tmp = (unsigned char)*__first2;
|
|
__hints[__tmp / CHAR_BIT] |= (1 << (__tmp % CHAR_BIT));
|
|
}
|
|
|
|
for (; __first1 != __last1; ++__first1) {
|
|
_Tp2 __tmp = (_Tp2)*__first1;
|
|
if (__stlp_eq(*__first1, __tmp) &&
|
|
__pred((__hints[(unsigned char)__tmp / CHAR_BIT] & (1 << ((unsigned char)__tmp % CHAR_BIT))) != 0))
|
|
break;
|
|
}
|
|
return __first1;
|
|
}
|
|
|
|
template <class _InputIter, class _ForwardIter, class _Tp2, class _Predicate>
|
|
inline _InputIter __find_first_of_aux2(_InputIter __first1, _InputIter __last1,
|
|
_ForwardIter __first2, _ForwardIter __last2,
|
|
_Tp2* /* __dummy */, _Predicate /* __pred */,
|
|
const __false_type& /* _UseStrcspnLikeAlgo */) {
|
|
return _STLP_PRIV __find_first_of(__first1, __last1, __first2, __last2,
|
|
_STLP_PRIV __equal_to(_STLP_VALUE_TYPE(__first1, _InputIter)));
|
|
}
|
|
|
|
template <class _InputIter, class _ForwardIter, class _Tp1, class _Tp2>
|
|
inline _InputIter __find_first_of_aux1(_InputIter __first1, _InputIter __last1,
|
|
_ForwardIter __first2, _ForwardIter __last2,
|
|
_Tp1* __pt1, _Tp2* __pt2) {
|
|
typedef _STLP_TYPENAME _STLP_STD::_IsIntegral<_Tp1>::_Ret _IsIntegral;
|
|
typedef _STLP_TYPENAME _STLP_PRIV _IsCharLikeType<_Tp2>::_Ret _IsCharLike;
|
|
typedef _STLP_TYPENAME _STLP_STD::_Land2<_IsIntegral, _IsCharLike>::_Ret _UseStrcspnLikeAlgo;
|
|
return _STLP_PRIV __find_first_of_aux2(__first1, __last1,
|
|
__first2, __last2,
|
|
__pt2, _Identity<bool>(), _UseStrcspnLikeAlgo());
|
|
}
|
|
|
|
template <class _InputIter, class _ForwardIter>
|
|
inline _InputIter __find_first_of(_InputIter __first1, _InputIter __last1,
|
|
_ForwardIter __first2, _ForwardIter __last2) {
|
|
return _STLP_PRIV __find_first_of_aux1(__first1, __last1, __first2, __last2,
|
|
_STLP_VALUE_TYPE(__first1, _InputIter),
|
|
_STLP_VALUE_TYPE(__first2, _ForwardIter));
|
|
}
|
|
|
|
// find_first_of, with and without an explicitly supplied comparison function.
|
|
template <class _InputIter, class _ForwardIter, class _BinaryPredicate>
|
|
_InputIter __find_first_of(_InputIter __first1, _InputIter __last1,
|
|
_ForwardIter __first2, _ForwardIter __last2,
|
|
_BinaryPredicate __comp) {
|
|
for ( ; __first1 != __last1; ++__first1) {
|
|
for (_ForwardIter __iter = __first2; __iter != __last2; ++__iter) {
|
|
if (__comp(*__first1, *__iter)) {
|
|
return __first1;
|
|
}
|
|
}
|
|
}
|
|
return __last1;
|
|
}
|
|
|
|
// find_end, with and without an explicitly supplied comparison function.
|
|
// Search [first2, last2) as a subsequence in [first1, last1), and return
|
|
// the *last* possible match. Note that find_end for bidirectional iterators
|
|
// is much faster than for forward iterators.
|
|
|
|
// find_end for forward iterators.
|
|
template <class _ForwardIter1, class _ForwardIter2,
|
|
class _BinaryPredicate>
|
|
_ForwardIter1 __find_end(_ForwardIter1 __first1, _ForwardIter1 __last1,
|
|
_ForwardIter2 __first2, _ForwardIter2 __last2,
|
|
const forward_iterator_tag &, const forward_iterator_tag &,
|
|
_BinaryPredicate __comp) {
|
|
if (__first2 == __last2)
|
|
return __last1;
|
|
else {
|
|
_ForwardIter1 __result = __last1;
|
|
for (;;) {
|
|
_ForwardIter1 __new_result = _STLP_STD::search(__first1, __last1, __first2, __last2, __comp);
|
|
if (__new_result == __last1)
|
|
return __result;
|
|
else {
|
|
__result = __new_result;
|
|
__first1 = __new_result;
|
|
++__first1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
_STLP_MOVE_TO_STD_NAMESPACE
|
|
|
|
// find_end for bidirectional iterators. Requires partial specialization.
|
|
#if defined (_STLP_CLASS_PARTIAL_SPECIALIZATION)
|
|
|
|
# ifndef _STLP_INTERNAL_ITERATOR_H
|
|
_STLP_END_NAMESPACE
|
|
# include <stl/_iterator.h>
|
|
_STLP_BEGIN_NAMESPACE
|
|
# endif /*_STLP_INTERNAL_ITERATOR_H*/
|
|
|
|
_STLP_MOVE_TO_PRIV_NAMESPACE
|
|
|
|
template <class _BidirectionalIter1, class _BidirectionalIter2,
|
|
class _BinaryPredicate>
|
|
_BidirectionalIter1
|
|
__find_end(_BidirectionalIter1 __first1, _BidirectionalIter1 __last1,
|
|
_BidirectionalIter2 __first2, _BidirectionalIter2 __last2,
|
|
const bidirectional_iterator_tag &, const bidirectional_iterator_tag &,
|
|
_BinaryPredicate __comp) {
|
|
typedef _STLP_STD::reverse_iterator<_BidirectionalIter1> _RevIter1;
|
|
typedef _STLP_STD::reverse_iterator<_BidirectionalIter2> _RevIter2;
|
|
|
|
_RevIter1 __rlast1(__first1);
|
|
_RevIter2 __rlast2(__first2);
|
|
_RevIter1 __rresult = _STLP_STD::search(_RevIter1(__last1), __rlast1,
|
|
_RevIter2(__last2), __rlast2,
|
|
__comp);
|
|
|
|
if (__rresult == __rlast1)
|
|
return __last1;
|
|
else {
|
|
_BidirectionalIter1 __result = __rresult.base();
|
|
_STLP_STD::advance(__result, -_STLP_STD::distance(__first2, __last2));
|
|
return __result;
|
|
}
|
|
}
|
|
|
|
_STLP_MOVE_TO_STD_NAMESPACE
|
|
#endif /* _STLP_CLASS_PARTIAL_SPECIALIZATION */
|
|
|
|
template <class _ForwardIter1, class _ForwardIter2,
|
|
class _BinaryPredicate>
|
|
_ForwardIter1
|
|
find_end(_ForwardIter1 __first1, _ForwardIter1 __last1,
|
|
_ForwardIter2 __first2, _ForwardIter2 __last2,
|
|
_BinaryPredicate __comp) {
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first1, __last1))
|
|
_STLP_DEBUG_CHECK(_STLP_PRIV __check_range(__first2, __last2))
|
|
return _STLP_PRIV __find_end(__first1, __last1, __first2, __last2,
|
|
#if defined (_STLP_CLASS_PARTIAL_SPECIALIZATION)
|
|
_STLP_ITERATOR_CATEGORY(__first1, _ForwardIter1),
|
|
_STLP_ITERATOR_CATEGORY(__first2, _ForwardIter2),
|
|
#else
|
|
forward_iterator_tag(),
|
|
forward_iterator_tag(),
|
|
#endif
|
|
__comp);
|
|
}
|
|
|
|
_STLP_MOVE_TO_PRIV_NAMESPACE
|
|
|
|
template <class _ForwardIter, class _Tp, class _Compare1, class _Compare2, class _Distance>
|
|
_ForwardIter __lower_bound(_ForwardIter __first, _ForwardIter __last, const _Tp& __val,
|
|
_Compare1 __comp1, _Compare2 __comp2, _Distance*) {
|
|
_Distance __len = _STLP_STD::distance(__first, __last);
|
|
_Distance __half;
|
|
_ForwardIter __middle;
|
|
|
|
while (__len > 0) {
|
|
__half = __len >> 1;
|
|
__middle = __first;
|
|
_STLP_STD::advance(__middle, __half);
|
|
if (__comp1(*__middle, __val)) {
|
|
_STLP_VERBOSE_ASSERT(!__comp2(__val, *__middle), _StlMsg_INVALID_STRICT_WEAK_PREDICATE)
|
|
__first = __middle;
|
|
++__first;
|
|
__len = __len - __half - 1;
|
|
}
|
|
else
|
|
__len = __half;
|
|
}
|
|
return __first;
|
|
}
|
|
|
|
_STLP_MOVE_TO_STD_NAMESPACE
|
|
|
|
_STLP_END_NAMESPACE
|
|
|
|
#endif /* _STLP_ALGOBASE_C */
|
|
|
|
// Local Variables:
|
|
// mode:C++
|
|
// End:
|