indexing
     status: "See notice at end of class"
     date: "$Date$"
     revision: "$Revision$"
     product: eiffelstore
     database: all_bases

class interface
     STRING_HDL

feature -- Status report

     is_mapped (key: STRING): BOOLEAN
                 -- Is key mapped to an Eiffel entity?
           require
                 keys_exists: key /= void

     mapped_value (key: STRING): ANY
                 -- Value mapped with key
           require
                 key_exists: key /= void
                 key_mapped: is_mapped (key)
           ensure
                 result_exists: Result /= void
     
feature -- Status setting

     clear_all
                 -- Remove all mapped keys.

     set_map_name (n: ANY; key: STRING)
                 -- Store item n with key key.
                 -- n can be Void.
           require
                 key_exists: key /= void
                 not_key_in_table: not is_mapped (key)
           ensure
                 ht.count = old ht.count + 1

     unset_map_name (key: STRING)
                 -- Remove item associated with key key.
           require
                 key_exists: key /= void
                 item_exists: is_mapped (key)
           ensure
                 ht.count = old ht.count - 1
     
invariant

           -- from ANY
     reflexive_equality: standard_is_equal (Current)
     reflexive_conformance: conforms_to (Current)

end -- class STRING_HDL