let parse_inst ch =
let h = Hashtbl.create 1000 in
try
while true do
let s = (input_line ch) in
match Pcre.split ~rex:blank_regexp s with
|status::name::version::_ when status = "ii"-> Hashtbl.add h (name,version) ()
|_ -> ()
done ;
h
with End_of_file -> h