sig   val self : State.t   val add : Cabs.cabsloc -> string -> unit   val get : Cabs.cabsloc -> string list   val iter : (Cabs.cabsloc -> string -> unit) -> unit   val fold : (Cabs.cabsloc -> string -> 'a -> 'a) -> 'a -> 'a end