xref: /openbsd-src/gnu/gcc/libstdc++-v3/include/ext/pb_ds/detail/binomial_heap_base_/insert_fn_imps.hpp (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210)
1 // -*- C++ -*-
2 
3 // Copyright (C) 2005, 2006 Free Software Foundation, Inc.
4 //
5 // This file is part of the GNU ISO C++ Library.  This library is free
6 // software; you can redistribute it and/or modify it under the terms
7 // of the GNU General Public License as published by the Free Software
8 // Foundation; either version 2, or (at your option) any later
9 // version.
10 
11 // This library is distributed in the hope that it will be useful, but
12 // WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 // General Public License for more details.
15 
16 // You should have received a copy of the GNU General Public License
17 // along with this library; see the file COPYING.  If not, write to
18 // the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
19 // MA 02111-1307, USA.
20 
21 // As a special exception, you may use this file as part of a free
22 // software library without restriction.  Specifically, if other files
23 // instantiate templates or use macros or inline functions from this
24 // file, or you compile this file and link it with other files to
25 // produce an executable, this file does not by itself cause the
26 // resulting executable to be covered by the GNU General Public
27 // License.  This exception does not however invalidate any other
28 // reasons why the executable file might be covered by the GNU General
29 // Public License.
30 
31 // Copyright (C) 2004 Ami Tavory and Vladimir Dreizin, IBM-HRL.
32 
33 // Permission to use, copy, modify, sell, and distribute this software
34 // is hereby granted without fee, provided that the above copyright
35 // notice appears in all copies, and that both that copyright notice
36 // and this permission notice appear in supporting documentation. None
37 // of the above authors, nor IBM Haifa Research Laboratories, make any
38 // representation about the suitability of this software for any
39 // purpose. It is provided "as is" without express or implied
40 // warranty.
41 
42 /**
43  * @file insert_fn_imps.hpp
44  * Contains an implementation class for a base of binomial heaps.
45  */
46 
47 PB_DS_CLASS_T_DEC
48 inline typename PB_DS_CLASS_C_DEC::point_iterator
49 PB_DS_CLASS_C_DEC::
push(const_reference r_val)50 push(const_reference r_val)
51 {
52   _GLIBCXX_DEBUG_ONLY(assert_valid(true);)
53 
54     node_pointer p_nd = base_type::get_new_node_for_insert(r_val);
55 
56   insert_node(p_nd);
57 
58   m_p_max = NULL;
59 
60   _GLIBCXX_DEBUG_ONLY(assert_valid(true);)
61 
62     return point_iterator(p_nd);
63 }
64 
65 PB_DS_CLASS_T_DEC
66 inline void
67 PB_DS_CLASS_C_DEC::
insert_node(node_pointer p_nd)68 insert_node(node_pointer p_nd)
69 {
70   if (base_type::m_p_root == NULL)
71     {
72       p_nd->m_p_next_sibling = p_nd->m_p_prev_or_parent =
73 	p_nd->m_p_l_child = NULL;
74 
75       p_nd->m_metadata = 0;
76 
77       base_type::m_p_root = p_nd;
78 
79       return;
80     }
81 
82   if (base_type::m_p_root->m_metadata > 0)
83     {
84       p_nd->m_p_prev_or_parent = p_nd->m_p_l_child = NULL;
85 
86       p_nd->m_p_next_sibling = base_type::m_p_root;
87 
88       base_type::m_p_root->m_p_prev_or_parent = p_nd;
89 
90       base_type::m_p_root = p_nd;
91 
92       p_nd->m_metadata = 0;
93 
94       return;
95     }
96 
97   if (Cmp_Fn::operator()(base_type::m_p_root->m_value, p_nd->m_value))
98     {
99       p_nd->m_p_next_sibling = base_type::m_p_root->m_p_next_sibling;
100 
101       p_nd->m_p_prev_or_parent = NULL;
102 
103       p_nd->m_metadata = 1;
104 
105       p_nd->m_p_l_child = base_type::m_p_root;
106 
107       base_type::m_p_root->m_p_prev_or_parent = p_nd;
108 
109       base_type::m_p_root->m_p_next_sibling = NULL;
110 
111       base_type::m_p_root = p_nd;
112     }
113   else
114     {
115       p_nd->m_p_next_sibling = NULL;
116 
117       p_nd->m_p_l_child = NULL;
118 
119       p_nd->m_p_prev_or_parent = base_type::m_p_root;
120 
121       p_nd->m_metadata = 0;
122 
123       _GLIBCXX_DEBUG_ASSERT(base_type::m_p_root->m_p_l_child == 0);
124       base_type::m_p_root->m_p_l_child = p_nd;
125 
126       base_type::m_p_root->m_metadata = 1;
127     }
128 
129   base_type::m_p_root = fix(base_type::m_p_root);
130 }
131 
132 PB_DS_CLASS_T_DEC
133 inline typename PB_DS_CLASS_C_DEC::node_pointer
134 PB_DS_CLASS_C_DEC::
fix(node_pointer p_nd) const135 fix(node_pointer p_nd) const
136 {
137   while (p_nd->m_p_next_sibling != NULL&&
138 	 p_nd->m_metadata == p_nd->m_p_next_sibling->m_metadata)
139     {
140       node_pointer p_next = p_nd->m_p_next_sibling;
141 
142       if (Cmp_Fn::operator()(p_nd->m_value, p_next->m_value))
143         {
144 	  p_next->m_p_prev_or_parent =
145 	    p_nd->m_p_prev_or_parent;
146 
147 	  if (p_nd->m_p_prev_or_parent != NULL)
148 	    p_nd->m_p_prev_or_parent->m_p_next_sibling = p_next;
149 
150 	  base_type::make_child_of(p_nd, p_next);
151 
152 	  ++p_next->m_metadata;
153 
154 	  p_nd = p_next;
155         }
156       else
157         {
158 	  p_nd->m_p_next_sibling = p_next->m_p_next_sibling;
159 
160 	  if (p_nd->m_p_next_sibling != NULL)
161 	    p_next->m_p_next_sibling = NULL;
162 
163 	  base_type::make_child_of(p_next, p_nd);
164 
165 	  ++p_nd->m_metadata;
166         }
167     }
168 
169   if (p_nd->m_p_next_sibling != NULL)
170     p_nd->m_p_next_sibling->m_p_prev_or_parent = p_nd;
171 
172   return p_nd;
173 }
174 
175 PB_DS_CLASS_T_DEC
176 void
177 PB_DS_CLASS_C_DEC::
modify(point_iterator it,const_reference r_new_val)178 modify(point_iterator it, const_reference r_new_val)
179 {
180   _GLIBCXX_DEBUG_ONLY(assert_valid(true);)
181     node_pointer p_nd = it.m_p_nd;
182 
183   _GLIBCXX_DEBUG_ASSERT(p_nd != NULL);
184   _GLIBCXX_DEBUG_ONLY(base_type::assert_node_consistent(p_nd, false);)
185 
186     const bool bubble_up = Cmp_Fn::operator()(p_nd->m_value, r_new_val);
187 
188   p_nd->m_value = r_new_val;
189 
190   if (bubble_up)
191     {
192       node_pointer p_parent = base_type::parent(p_nd);
193 
194       while (p_parent != NULL&&
195 	     Cmp_Fn::operator()(p_parent->m_value, p_nd->m_value))
196         {
197 	  base_type::swap_with_parent(p_nd, p_parent);
198 
199 	  p_parent = base_type::parent(p_nd);
200         }
201 
202       if (p_nd->m_p_prev_or_parent == NULL)
203 	base_type::m_p_root = p_nd;
204 
205       m_p_max = NULL;
206 
207       _GLIBCXX_DEBUG_ONLY(assert_valid(true);)
208 
209         return;
210     }
211 
212   base_type::bubble_to_top(p_nd);
213 
214   remove_parentless_node(p_nd);
215 
216   insert_node(p_nd);
217 
218   m_p_max = NULL;
219 
220   _GLIBCXX_DEBUG_ONLY(assert_valid(true);)
221     }
222 
223