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 end