sig
  type flag_list = (string * string) list
  val parse_string : string -> unit
  val parse_file : ?dir:string -> string -> unit
  val tags_of_filename : string -> Tags.t
  val flags_of_filename : string -> Command.spec
  val has_tag : string -> bool
  val tag_file : Pathname.t -> Tags.elt list -> unit
  val tag_any : Tags.elt list -> unit
end