(string * 'a) list ->
?group:Femtolib.Config_file.group ->
string list ->
?short_name:string ->
'a ->
string ->
object
  val mutable hooks : ('a -> 'a -> unit) list
  val mutable shortname : string option
  val mutable value : 'a
  method add_hook : ('a -> 'a -> unit) -> unit
  method private exec_hooks : 'a -> 'a -> unit
  method get : 'a
  method get_default : 'a
  method get_default_formatted : Format.formatter -> unit
  method get_formatted : Format.formatter -> unit
  method get_help : string
  method get_help_formatted : Format.formatter -> unit
  method get_name : string list
  method get_short_name : string option
  method get_spec : Arg.spec
  method private of_raw : Raw.cp -> 'a
  method reset : unit
  method set : 'a -> unit
  method set_raw : Raw.cp -> unit
  method set_short_name : string -> unit
  method private set_string : string -> unit
  method private to_raw : 'a -> Raw.cp
end