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