import "StandardLibrary" hiding (contains)

importJava "gnu.trove.map.hash.THashMap" where
    data T a b
    
    @JavaName "<init>"
    create :: () -> <Proc> T a b
    put :: T a b -> a -> b -> <Proc> Maybe b
    get :: T a b -> a -> <Proc> Maybe b
    @JavaName get
    unsafeGet :: T a b -> a -> <Proc> b
    
    contains :: T a b -> a -> <Proc> Boolean
    size :: T a b -> <Proc> Integer
    
importJava "org.simantics.scl.osgi.map.HashMapUtils" where 
    entries :: T a b -> <Proc> [(a,b)]

fromList :: [(a,b)] -> <Proc> T a b
fromList entries = do
    result = create ()
    for entries (\(k,v) -> do put result k v; ())
    result