sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 1 | |
| 2 | /*--------------------------------------------------------------------*/ |
| 3 | /*--- An AVL tree based finite map for word keys and word values. ---*/ |
| 4 | /*--- Inspired by Haskell's "FiniteMap" library. ---*/ |
| 5 | /*--- hg_wordfm.h ---*/ |
| 6 | /*--------------------------------------------------------------------*/ |
| 7 | |
| 8 | /* |
| 9 | This file is part of Helgrind, a Valgrind tool for detecting errors |
| 10 | in threaded programs. |
| 11 | |
sewardj | 4d474d0 | 2008-02-11 11:34:59 +0000 | [diff] [blame] | 12 | Copyright (C) 2007-2008 Julian Seward |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 13 | jseward@acm.org |
| 14 | |
| 15 | This code is based on previous work by Nicholas Nethercote |
| 16 | (coregrind/m_oset.c) which is |
| 17 | |
sewardj | 4d474d0 | 2008-02-11 11:34:59 +0000 | [diff] [blame] | 18 | Copyright (C) 2005-2008 Nicholas Nethercote |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 19 | njn@valgrind.org |
| 20 | |
| 21 | which in turn was derived partially from: |
| 22 | |
| 23 | AVL C library |
| 24 | Copyright (C) 2000,2002 Daniel Nagy |
| 25 | |
| 26 | This program is free software; you can redistribute it and/or |
| 27 | modify it under the terms of the GNU General Public License as |
| 28 | published by the Free Software Foundation; either version 2 of |
| 29 | the License, or (at your option) any later version. |
| 30 | [...] |
| 31 | |
| 32 | (taken from libavl-0.4/debian/copyright) |
| 33 | |
| 34 | This program is free software; you can redistribute it and/or |
| 35 | modify it under the terms of the GNU General Public License as |
| 36 | published by the Free Software Foundation; either version 2 of the |
| 37 | License, or (at your option) any later version. |
| 38 | |
| 39 | This program is distributed in the hope that it will be useful, but |
| 40 | WITHOUT ANY WARRANTY; without even the implied warranty of |
| 41 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 42 | General Public License for more details. |
| 43 | |
| 44 | You should have received a copy of the GNU General Public License |
| 45 | along with this program; if not, write to the Free Software |
| 46 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA |
| 47 | 02111-1307, USA. |
| 48 | |
| 49 | The GNU General Public License is contained in the file COPYING. |
| 50 | */ |
| 51 | |
| 52 | #ifndef __HG_WORDFM_H |
| 53 | #define __HG_WORDFM_H |
| 54 | |
| 55 | //------------------------------------------------------------------// |
| 56 | //--- WordFM ---// |
| 57 | //--- Public interface ---// |
| 58 | //------------------------------------------------------------------// |
| 59 | |
sewardj | fc4b63a | 2008-02-17 11:46:58 +0000 | [diff] [blame] | 60 | /* As of r7409 (15 Feb 08), all these word-based abstractions (WordFM, |
| 61 | WordSet, WordBag) now operate on unsigned words (UWord), whereas |
| 62 | they previously operated on signed words (Word). This became a |
| 63 | problem, when using unboxed comparisons (when kCmp == NULL), with |
| 64 | the introduction of HG_(initIterAtFM), which allows iteration over |
| 65 | parts of mappings. Iterating over a mapping in increasing order of |
| 66 | signed Word keys is not what callers expect when iterating through |
| 67 | maps whose keys represent addresses (Addr) since Addr is unsigned, |
| 68 | and causes logical problems and assertion failures. */ |
| 69 | |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 70 | typedef struct _WordFM WordFM; /* opaque */ |
| 71 | |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 72 | /* Allocate and initialise a WordFM. If kCmp is non-NULL, elements in |
| 73 | the set are ordered according to the ordering specified by kCmp, |
| 74 | which becomes obvious if you use VG_(initIterFM), |
| 75 | VG_(initIterAtFM), VG_(nextIterFM), VG_(doneIterFM) to iterate over |
sewardj | fc4b63a | 2008-02-17 11:46:58 +0000 | [diff] [blame] | 76 | sections of the map, or the whole thing. If kCmp is NULL then the |
| 77 | ordering used is unsigned word ordering (UWord) on the key |
| 78 | values. */ |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 79 | WordFM* HG_(newFM) ( void* (*alloc_nofail)( SizeT ), |
| 80 | void (*dealloc)(void*), |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 81 | Word (*kCmp)(UWord,UWord) ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 82 | |
| 83 | /* Free up the FM. If kFin is non-NULL, it is applied to keys |
| 84 | before the FM is deleted; ditto with vFin for vals. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 85 | void HG_(deleteFM) ( WordFM*, void(*kFin)(UWord), void(*vFin)(UWord) ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 86 | |
| 87 | /* Add (k,v) to fm. If a binding for k already exists, it is updated |
| 88 | to map to this new v. In that case we should really return the |
| 89 | previous v so that caller can finalise it. Oh well. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 90 | void HG_(addToFM) ( WordFM* fm, UWord k, UWord v ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 91 | |
| 92 | // Delete key from fm, returning associated key and val if found |
| 93 | Bool HG_(delFromFM) ( WordFM* fm, |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 94 | /*OUT*/UWord* oldK, /*OUT*/UWord* oldV, UWord key ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 95 | |
| 96 | // Look up in fm, assigning found key & val at spec'd addresses |
| 97 | Bool HG_(lookupFM) ( WordFM* fm, |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 98 | /*OUT*/UWord* keyP, /*OUT*/UWord* valP, UWord key ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 99 | |
| 100 | // How many elements are there in fm? |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 101 | UWord HG_(sizeFM) ( WordFM* fm ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 102 | |
| 103 | // set up FM for iteration |
| 104 | void HG_(initIterFM) ( WordFM* fm ); |
| 105 | |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 106 | // set up FM for iteration so that the first key subsequently produced |
| 107 | // by HG_(nextIterFM) is the smallest key in the map >= start_at. |
| 108 | // Naturally ">=" is defined by the comparison function supplied to |
| 109 | // HG_(newFM), as documented above. |
| 110 | void HG_(initIterAtFM) ( WordFM* fm, UWord start_at ); |
sewardj | ae5137e | 2008-01-17 23:19:54 +0000 | [diff] [blame] | 111 | |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 112 | // get next key/val pair. Will assert if fm has been modified |
sewardj | ae5137e | 2008-01-17 23:19:54 +0000 | [diff] [blame] | 113 | // or looked up in since initIterFM/initIterWithStartFM was called. |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 114 | Bool HG_(nextIterFM) ( WordFM* fm, |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 115 | /*OUT*/UWord* pKey, /*OUT*/UWord* pVal ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 116 | |
| 117 | // clear the I'm iterating flag |
| 118 | void HG_(doneIterFM) ( WordFM* fm ); |
| 119 | |
| 120 | // Deep copy a FM. If dopyK is NULL, keys are copied verbatim. |
| 121 | // If non-null, dopyK is applied to each key to generate the |
| 122 | // version in the new copy. In that case, if the argument to dopyK |
| 123 | // is non-NULL but the result is NULL, it is assumed that dopyK |
| 124 | // could not allocate memory, in which case the copy is abandoned |
| 125 | // and NULL is returned. Ditto with dopyV for values. |
| 126 | WordFM* HG_(dopyFM) ( WordFM* fm, |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 127 | UWord(*dopyK)(UWord), UWord(*dopyV)(UWord) ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 128 | |
| 129 | //------------------------------------------------------------------// |
| 130 | //--- end WordFM ---// |
| 131 | //--- Public interface ---// |
| 132 | //------------------------------------------------------------------// |
| 133 | |
| 134 | //------------------------------------------------------------------// |
| 135 | //--- WordBag (unboxed words only) ---// |
| 136 | //--- Public interface ---// |
| 137 | //------------------------------------------------------------------// |
| 138 | |
| 139 | typedef struct _WordBag WordBag; /* opaque */ |
| 140 | |
| 141 | /* Allocate and initialise a WordBag */ |
| 142 | WordBag* HG_(newBag) ( void* (*alloc_nofail)( SizeT ), |
| 143 | void (*dealloc)(void*) ); |
| 144 | |
| 145 | /* Free up the Bag. */ |
| 146 | void HG_(deleteBag) ( WordBag* ); |
| 147 | |
| 148 | /* Add a word. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 149 | void HG_(addToBag)( WordBag*, UWord ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 150 | |
| 151 | /* Find out how many times the given word exists in the bag. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 152 | UWord HG_(elemBag) ( WordBag*, UWord ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 153 | |
| 154 | /* Delete a word from the bag. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 155 | Bool HG_(delFromBag)( WordBag*, UWord ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 156 | |
| 157 | /* Is the bag empty? */ |
| 158 | Bool HG_(isEmptyBag)( WordBag* ); |
| 159 | |
| 160 | /* Does the bag have exactly one element? */ |
| 161 | Bool HG_(isSingletonTotalBag)( WordBag* ); |
| 162 | |
| 163 | /* Return an arbitrary element from the bag. */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 164 | UWord HG_(anyElementOfBag)( WordBag* ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 165 | |
| 166 | /* How many different / total elements are in the bag? */ |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 167 | UWord HG_(sizeUniqueBag)( WordBag* ); /* fast */ |
| 168 | UWord HG_(sizeTotalBag)( WordBag* ); /* warning: slow */ |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 169 | |
| 170 | /* Iterating over the elements of a bag. */ |
| 171 | void HG_(initIterBag)( WordBag* ); |
sewardj | 250ec2e | 2008-02-15 22:02:30 +0000 | [diff] [blame] | 172 | Bool HG_(nextIterBag)( WordBag*, /*OUT*/UWord* pVal, /*OUT*/UWord* pCount ); |
sewardj | b411202 | 2007-11-09 22:49:28 +0000 | [diff] [blame] | 173 | void HG_(doneIterBag)( WordBag* ); |
| 174 | |
| 175 | //------------------------------------------------------------------// |
| 176 | //--- end WordBag (unboxed words only) ---// |
| 177 | //--- Public interface ---// |
| 178 | //------------------------------------------------------------------// |
| 179 | |
| 180 | #endif /* ! __HG_WORDFM_H */ |
| 181 | |
| 182 | /*--------------------------------------------------------------------*/ |
| 183 | /*--- end hg_wordfm.h ---*/ |
| 184 | /*--------------------------------------------------------------------*/ |