1/* 2 * 3 * Copyright (c) 1996,1997 4 * Silicon Graphics Computer Systems, Inc. 5 * 6 * Copyright (c) 1999 7 * Boris Fomitchev 8 * 9 * This material is provided "as is", with absolutely no warranty expressed 10 * or implied. Any use is at your own risk. 11 * 12 * Permission to use or copy this software for any purpose is hereby granted 13 * without fee, provided the above notices are retained on all copies. 14 * Permission to modify the code and to distribute modified code is granted, 15 * provided the above notices are retained, and a notice that the code was 16 * modified is included with the above copyright notice. 17 * 18 */ 19#ifndef _STLP_SLIST_C 20#define _STLP_SLIST_C 21 22#ifndef _STLP_INTERNAL_SLIST_H 23# include <stl/_slist.h> 24#endif 25 26#ifndef _STLP_CARRAY_H 27# include <stl/_carray.h> 28#endif 29 30#ifndef _STLP_RANGE_ERRORS_H 31# include <stl/_range_errors.h> 32#endif 33 34#if defined (_STLP_NESTED_TYPE_PARAM_BUG) 35# define size_type size_t 36#endif 37 38_STLP_BEGIN_NAMESPACE 39 40_STLP_MOVE_TO_PRIV_NAMESPACE 41 42template <class _Tp, class _Alloc> 43_Slist_node_base* 44_Slist_base<_Tp,_Alloc>::_M_erase_after(_Slist_node_base* __before_first, 45 _Slist_node_base* __last_node) { 46 _Slist_node_base* __cur = __before_first->_M_next; 47 while (__cur != __last_node) { 48 _Node* __tmp = __STATIC_CAST(_Node*, __cur); 49 __cur = __cur->_M_next; 50 _STLP_STD::_Destroy(&__tmp->_M_data); 51 _M_head.deallocate(__tmp,1); 52 } 53 __before_first->_M_next = __last_node; 54 return __last_node; 55} 56 57#if defined (_STLP_USE_PTR_SPECIALIZATIONS) 58# define slist _STLP_PTR_IMPL_NAME(slist) 59#elif defined (_STLP_DEBUG) 60# define slist _STLP_NON_DBG_NAME(slist) 61#else 62_STLP_MOVE_TO_STD_NAMESPACE 63#endif 64 65/* When building STLport lib Digital Mars Compiler complains on the _M_data assignment 66 * problem which would be perfertly right if we were using it. Hiding it during build 67 * fix this issue. 68 */ 69template <class _Tp, class _Alloc> 70slist<_Tp,_Alloc>& slist<_Tp,_Alloc>::operator=(const slist<_Tp,_Alloc>& __x) { 71 if (&__x != this) { 72 _Node_base* __p1 = &this->_M_head._M_data; 73 _Node_base* __n1 = this->_M_head._M_data._M_next; 74 const _Node_base* __n2 = __x._M_head._M_data._M_next; 75 while (__n1 && __n2) { 76 __STATIC_CAST(_Node*, __n1)->_M_data = __STATIC_CAST(const _Node*, __n2)->_M_data; 77 __p1 = __n1; 78 __n1 = __n1->_M_next; 79 __n2 = __n2->_M_next; 80 } 81 if (__n2 == 0) 82 this->_M_erase_after(__p1, 0); 83 else 84 _M_insert_after_range(__p1, const_iterator(__CONST_CAST(_Node_base*, __n2)), 85 const_iterator(0)); 86 } 87 return *this; 88} 89 90template <class _Tp, class _Alloc> 91void slist<_Tp, _Alloc>::_M_fill_assign(size_type __n, const _Tp& __val) { 92 _Node_base* __prev = &this->_M_head._M_data; 93 _Node_base* __node = this->_M_head._M_data._M_next; 94 for ( ; __node != 0 && __n > 0 ; --__n) { 95 __STATIC_CAST(_Node*, __node)->_M_data = __val; 96 __prev = __node; 97 __node = __node->_M_next; 98 } 99 if (__n > 0) 100 _M_insert_after_fill(__prev, __n, __val); 101 else 102 this->_M_erase_after(__prev, 0); 103} 104 105template <class _Tp, class _Alloc> 106void slist<_Tp,_Alloc>::resize(size_type __len, const _Tp& __x) { 107 _Node_base* __cur = &this->_M_head._M_data; 108 while (__cur->_M_next != 0 && __len > 0) { 109 --__len; 110 __cur = __cur->_M_next; 111 } 112 if (__cur->_M_next) 113 this->_M_erase_after(__cur, 0); 114 else 115 _M_insert_after_fill(__cur, __len, __x); 116} 117 118template <class _Tp, class _Alloc> 119void slist<_Tp,_Alloc>::remove(const _Tp& __val) { 120 _Node_base* __cur = &this->_M_head._M_data; 121 while (__cur && __cur->_M_next) { 122 if (__STATIC_CAST(_Node*, __cur->_M_next)->_M_data == __val) 123 this->_M_erase_after(__cur); 124 else 125 __cur = __cur->_M_next; 126 } 127} 128 129#if !defined (slist) 130_STLP_MOVE_TO_PRIV_NAMESPACE 131#endif 132 133template <class _Tp, class _Alloc, class _BinaryPredicate> 134void _Slist_unique(slist<_Tp, _Alloc>& __that, _BinaryPredicate __pred) { 135 typedef _Slist_node<_Tp> _Node; 136 typename slist<_Tp, _Alloc>::iterator __ite(__that.begin()); 137 if (__ite != __that.end()) { 138 while (__ite._M_node->_M_next) { 139 if (__pred(*__ite, __STATIC_CAST(_Node*, __ite._M_node->_M_next)->_M_data)) 140 __that.erase_after(__ite); 141 else 142 ++__ite; 143 } 144 } 145} 146 147template <class _Tp, class _Alloc, class _StrictWeakOrdering> 148void _Slist_merge(slist<_Tp, _Alloc>& __that, slist<_Tp, _Alloc>& __x, 149 _StrictWeakOrdering __comp) { 150 typedef _Slist_node<_Tp> _Node; 151 typedef _STLP_PRIV _Slist_node_base _Node_base; 152 if (__that.get_allocator() == __x.get_allocator()) { 153 typename slist<_Tp, _Alloc>::iterator __ite(__that.before_begin()); 154 while (__ite._M_node->_M_next && !__x.empty()) { 155 if (__comp(__x.front(), __STATIC_CAST(_Node*, __ite._M_node->_M_next)->_M_data)) { 156 _STLP_VERBOSE_ASSERT(!__comp(__STATIC_CAST(_Node*, __ite._M_node->_M_next)->_M_data, __x.front()), 157 _StlMsg_INVALID_STRICT_WEAK_PREDICATE) 158 __that.splice_after(__ite, __x, __x.before_begin()); 159 } 160 ++__ite; 161 } 162 if (!__x.empty()) { 163 __that.splice_after(__ite, __x); 164 } 165 } 166 else { 167 typename slist<_Tp, _Alloc>::iterator __i1(__that.before_begin()), __i2(__x.begin()); 168 while (__i1._M_node->_M_next && __i2._M_node) { 169 if (__comp(__STATIC_CAST(_Node*, __i1._M_node->_M_next)->_M_data, *__i2)) { 170 _STLP_VERBOSE_ASSERT(!__comp(*__i2, __STATIC_CAST(_Node*, __i1._M_node->_M_next)->_M_data), 171 _StlMsg_INVALID_STRICT_WEAK_PREDICATE) 172 ++__i1; 173 } 174 else { 175 __i1 = __that.insert_after(__i1, *(__i2++)); 176 } 177 } 178 __that.insert_after(__i1, __i2, __x.end()); 179 __x.clear(); 180 } 181} 182 183template <class _Tp, class _Alloc, class _StrictWeakOrdering> 184void _Slist_sort(slist<_Tp, _Alloc>& __that, _StrictWeakOrdering __comp) { 185 if (!__that.begin()._M_node || !__that.begin()._M_node->_M_next) 186 return; 187 188 slist<_Tp, _Alloc> __carry(__that.get_allocator()); 189 const int NB = 64; 190 _STLP_PRIV _CArray<slist<_Tp, _Alloc>, NB> __counter(__carry); 191 int __fill = 0; 192 while (!__that.empty()) { 193 __carry.splice_after(__carry.before_begin(), __that, __that.before_begin()); 194 int __i = 0; 195 while (__i < __fill && !__counter[__i].empty()) { 196 _STLP_PRIV _Slist_merge(__counter[__i], __carry, __comp); 197 __carry.swap(__counter[__i]); 198 ++__i; 199 } 200 __carry.swap(__counter[__i]); 201 if (__i == __fill) { 202 ++__fill; 203 if (__fill >= NB) { 204 //Looks like the slist has too many elements to be sorted with this algorithm: 205 __stl_throw_overflow_error("slist::sort"); 206 } 207 } 208 } 209 210 for (int __i = 1; __i < __fill; ++__i) 211 _STLP_PRIV _Slist_merge(__counter[__i], __counter[__i - 1], __comp); 212 __that.swap(__counter[__fill-1]); 213} 214 215#if defined (slist) 216# undef slist 217#endif 218 219_STLP_MOVE_TO_STD_NAMESPACE 220 221_STLP_END_NAMESPACE 222 223#if defined (_STLP_NESTED_TYPE_PARAM_BUG) 224# undef size_type 225#endif 226 227#endif /* _STLP_SLIST_C */ 228 229// Local Variables: 230// mode:C++ 231// End: 232