object
  val mutable cps :
    (string * Femtolib.Config_file.groupable_cp Femtolib.Config_file.nametree)
    Queue.t
  method add : 'a Femtolib.Config_file.cp -> unit
  method command_line_args :
    section_separator:string -> (string * Arg.spec * string) list
  method read :
    ?obsoletes:string ->
    ?no_default:bool ->
    ?on_type_error:(Femtolib.Config_file.groupable_cp ->
                    Femtolib.Config_file.Raw.cp ->
                    (Pervasives.out_channel -> unit) ->
                    string -> Pervasives.in_channel -> unit) ->
    string -> unit
  method write : ?with_help:bool -> string -> unit
end