val parse : string -> in_channel -> Hgen_types.AST.def list
type scope =
  Hgen_analyzer.scope = {
  idents : Hgen_types.CiSet.t;
  int_type : [ `Int | `Int32 ];
  recfield_type : [ `Immutable | `Mutable ];
}
val exists_in_array : ('a -> bool) -> 'a array -> bool
val analyze :
  Hgen_types.AST.def list -> Hgen_types.TS.entity Hgen_types.CiHashtbl.t