 |  | stri_hash_tabl |  |
 |  | st_has_tab.ads |  |
 | st_has_tab.adb |
|  | hash_tables | |
| | hash_tables | |
| limi_hash_tabl | ||
| positi_functio | ||
| stri_hash_tabl | ||
| st_str_has_tab | ||
| te_str_has_tab |
| | util | |
| | hash_tables/ | |
 | heaps/ | ||
| images/ | ||
| lists/ | ||
| maths/ | ||
| messages/ | ||
| pipes/ | ||
| primes/ | ||
| readers/ | ||
| strings/ | ||
| writers/ |
| | ada | |
| | bin/ | |
| engine/ | ||
| fonts/ | ||
| internal/ | ||
| text/ | ||
| util/ |
|  | Home | |
|  | Showcase | |
 | Snapshots | ||
 | Ada Source | ||
 | PHP Source | ||
 | Fonts |
|  | Sourceforge | |
|  | Summary | |
 | Downloads | ||
 | Browse CVS | ||
 | Donate | ||
 | Activity |
Hosted by
-- $Date: 2004/02/14 02:24:18 $
-- $Revision: 1.9 $
-- $Author: jcrocholl $
with Limited_Hash_Tables;
with Strings; use Strings;
generic
-- Generic type of the items to be stored.
type Item_Type is private;
-- Versatile implementation of hash tables.
-- - Generic to allow all kinds of content.
-- - Variable size (always prime).
package String_Hash_Tables is
-- Import inner implementation of hash tables.
package Inner_Tables is new Limited_Hash_Tables(String_Access, Item_Type);
subtype Hash_Table is Inner_Tables.Hash_Table;
subtype Hash_Table_Access is Inner_Tables.Hash_Table_Access;
---------------
-- Construction
---------------
-- Create a new hash table with the given table size.
function Create
(Size : in Positive := Inner_Tables.Default_Start_Size) -- Initial size.
return Hash_Table_Access -- The new table.
renames Inner_Tables.Create;
------------------------------
-- Storing and retrieving data
------------------------------
-- Check for available space in the table, grow if necessary, then
-- insert the key item pair into the table.
-- Raises Key_Exists if the key is already in use.
procedure Put
(This : in out Hash_Table_Access; -- Add pair to this hash table.
Key : in String; -- Create this key.
Item : in Item_Type); -- Associate this item.
-- Retrieve an item from the table.
-- Output parameter Found is True if and only if the key was found.
procedure Get
(This : access Hash_Table; -- Get value from this hash table.
Key : in String; -- Look up this key.
Item : out Item_Type; -- The item that was found.
Found : out Boolean); -- True if the item was found.
-- Retrieve an item from the table.
-- Raises Key_Not_Found if the key is not in the table.
function Get
(This : access Hash_Table; -- Get value from this hash table.
Key : in String) -- Look up this key.
return Item_Type; -- The item that was found.
-----------------
-- Indexed access
-----------------
-- Get the index of a given key.
procedure Get_Index
(This : access Hash_Table; -- Get key from this hash table.
Key : in String; -- Iteration pointer to the current field.
Index : out Positive; -- The index of the requested key.
Found : out Boolean); -- True if the key was found.
-- Get the index of a given key.
function Get_Index
(This : access Hash_Table; -- Get key from this hash table.
Key : in String) -- Iteration pointer to the current field.
return Positive; -- The index of the requested key.
-- Get the key at a given index position.
function Get_Key
(This : access Hash_Table; -- Get key from this hash table.
Index : in Positive) -- Iteration pointer to the current field.
return String; -- The requested key.
-- Get the item at a given index position.
function Get_Item
(This : access Hash_Table; -- Get item from this hash table.
Index : in Positive) -- Iteration pointer to the current field.
return Item_Type -- The requested item.
renames Inner_Tables.Get_Item;
------------
-- Iterating
------------
-- Iterate over the items in the table. You should start with an
-- Index of 0 and stop iterating as soon as Index is 0 again.
procedure Next
(This : access Hash_Table; -- Iterate through this hash table.
Index : in out Natural) -- Iteration pointer to the current field.
renames Inner_Tables.Next;
------------------------
-- Performance debugging
------------------------
-- Print a visual representation of the hash table's usage. Empty
-- fields are represented by a '-' character, used fields by '#'.
procedure Print_Usage
(This : access Hash_Table) -- Print usage of this hash table.
renames Inner_Tables.Print_Usage;
end String_Hash_Tables;