/*

 * Copyright 1997-2006 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 *

 */

class BitMap VALUE_OBJ_CLASS_SPEC {

  friend class BitMap2D;

 public:

  typedef size_t idx_t;         // Type used for bit and word indices.

  // Hints for range sizes.

  typedef enum {

    unknown_range, small_range, large_range

  } RangeSizeHint;

 private:

  // Puts the given value at the given offset, using resize() to size

  // the bitmap appropriately if needed using factor-of-two expansion.

  void at_put_grow(idx_t index, bool value);

 protected:

  // Return the position of bit within the word that contains it (e.g., if

  // bitmap words are 32 bits, return a number 0 <= n <= 31).

  static idx_t bit_in_word(idx_t bit) { return bit & (BitsPerWord - 1); }

  // Return a mask that will select the specified bit, when applied to the word

  // containing the bit.

  // Return the index of the word containing the specified bit.

  static idx_t word_index(idx_t bit)  { return bit >> LogBitsPerWord; }

  // Return the bit number of the first bit in the specified word.

  static idx_t bit_index(idx_t word)  { return word << LogBitsPerWord; }

  // Return the array of bitmap words, or a specific word from it.

  // Return a pointer to the word containing the specified bit.

  // Set a word to a specified value or to all ones; clear a word.

  void set_word  (idx_t word)            { set_word(word, ~(uintptr_t)0); }

  void clear_word(idx_t word)            { _map[word] = 0; }

  // Utilities for ranges of bits.  Ranges are half-open [beg, end).

  // Ranges within a single word.

  // Ranges spanning entire words.

  // The index of the first full word in a range.

  // Verification, statistics.

 public:

  // Constructs a bitmap with no map, and size 0.

  BitMap() : _map(NULL), _size(0) {}

  void set_size(idx_t size_in_bits) { _size = size_in_bits; }

  // Preserves state currently in bit map by copying data.

  // Zeros any newly-addressable bits.

  // Accessing

  idx_t size() const                    { return _size; }

  idx_t size_in_words() const           {

    return word_index(size() + BitsPerWord - 1);

  }

  bool at(idx_t index) const {

    verify_index(index);

    return (*word_addr(index) & bit_mask(index)) != 0;

  }

  // Align bit index up or down to the next bitmap word boundary, or check

  // alignment.

  static idx_t word_align_up(idx_t bit) {

    return align_size_up(bit, BitsPerWord);

  }

  static idx_t word_align_down(idx_t bit) {

    return align_size_down(bit, BitsPerWord);

  }

  static bool is_word_aligned(idx_t bit) {

    return word_align_up(bit) == bit;

  }

  // Set or clear the specified bit.

  inline void set_bit(idx_t bit);

  // Atomically set or clear the specified bit.

  // Put the given value at the given offset. The parallel version

  // will CAS the value into the bitmap and is quite a bit slower.

  // The parallel version also returns a value indicating if the

  // calling thread was the one that changed the value of the bit.

  void at_put(idx_t index, bool value);

  bool par_at_put(idx_t index, bool value);

  // Update a range of bits.  Ranges are half-open [beg, end).

  void set_range   (idx_t beg, idx_t end);

  void clear_range (idx_t beg, idx_t end);

  void set_large_range   (idx_t beg, idx_t end);

  void clear_large_range (idx_t beg, idx_t end);

  void at_put_range(idx_t beg, idx_t end, bool value);

  void par_at_put_range(idx_t beg, idx_t end, bool value);

  void at_put_large_range(idx_t beg, idx_t end, bool value);

  void par_at_put_large_range(idx_t beg, idx_t end, bool value);

  // Update a range of bits, using a hint about the size.  Currently only

  // inlines the predominant case of a 1-bit range.  Works best when hint is a

  // compile-time constant.

  // Clearing

  void clear_large();

    // call the version that takes an interval

  }

  idx_t get_next_one_offset (idx_t l_index, idx_t r_index) const;

  idx_t get_next_zero_offset(idx_t l_index, idx_t r_index) const;

  idx_t get_next_one_offset(idx_t offset) const {

    return get_next_one_offset(offset, size());

  }

  idx_t get_next_zero_offset(idx_t offset) const {

    return get_next_zero_offset(offset, size());

  }

  // Set operations.

  void set_union(BitMap bits);

  void set_difference(BitMap bits);

  void set_intersection(BitMap bits);

  // Returns true iff "this" is a superset of "bits".

  bool contains(const BitMap bits) const;

  // Returns true iff "this and "bits" have a non-empty intersection.

  bool intersects(const BitMap bits) const;

  // Returns result of whether this map changed

  // during the operation

  bool set_union_with_result(BitMap bits);

  bool set_difference_with_result(BitMap bits);

  bool set_intersection_with_result(BitMap bits);

  void set_from(BitMap bits);

  bool is_same(BitMap bits);

  // Test if all bits are set or cleared

  bool is_full() const;

  bool is_empty() const;

#ifndef PRODUCT

 public:

  // Printing

  void print_on(outputStream* st) const;

#endif

};

// Convenience class wrapping BitMap which provides multiple bits per slot.

class BitMap2D VALUE_OBJ_CLASS_SPEC {

 public:

 private:

  BitMap _map;

  idx_t  _bits_per_slot;

  idx_t bit_index(idx_t slot_index, idx_t bit_within_slot_index) const {

    return slot_index * _bits_per_slot + bit_within_slot_index;

  }

  void verify_bit_within_slot_index(idx_t index) const {

    assert(index < _bits_per_slot, "bit_within_slot index out of bounds");

  }

 public:

  // Construction. bits_per_slot must be greater than 0.

  // Allocates necessary data structure in resource area. bits_per_slot must be greater than 0.

  BitMap2D(idx_t size_in_slots, idx_t bits_per_slot);

  idx_t size_in_bits() {

    return _map.size();

  }

  // Returns number of full slots that have been allocated

  idx_t size_in_slots() {

    // Round down

    return _map.size() / _bits_per_slot;

  }

  bool is_valid_index(idx_t slot_index, idx_t bit_within_slot_index) {

    verify_bit_within_slot_index(bit_within_slot_index);

    return (bit_index(slot_index, bit_within_slot_index) < size_in_bits());

  }

  bool at(idx_t slot_index, idx_t bit_within_slot_index) const {

    verify_bit_within_slot_index(bit_within_slot_index);

    return _map.at(bit_index(slot_index, bit_within_slot_index));

  }

  void set_bit(idx_t slot_index, idx_t bit_within_slot_index) {

    verify_bit_within_slot_index(bit_within_slot_index);

    _map.set_bit(bit_index(slot_index, bit_within_slot_index));

  }

  void clear_bit(idx_t slot_index, idx_t bit_within_slot_index) {

    verify_bit_within_slot_index(bit_within_slot_index);

    _map.clear_bit(bit_index(slot_index, bit_within_slot_index));

  }

  void at_put(idx_t slot_index, idx_t bit_within_slot_index, bool value) {

    verify_bit_within_slot_index(bit_within_slot_index);

    _map.at_put(bit_index(slot_index, bit_within_slot_index), value);

  }

  void at_put_grow(idx_t slot_index, idx_t bit_within_slot_index, bool value) {

    verify_bit_within_slot_index(bit_within_slot_index);

    _map.at_put_grow(bit_index(slot_index, bit_within_slot_index), value);

  }

};