Module Cam_files (.ml)


module Cam_files: sig .. end

Configuration



module O: Config_file
type file_type = string 

type rule = {
   rule_name : string;
   rule_f : string array -> string -> bool;
}
val ft_unknown : string

Configuration


val rc_ft : string
val ft_ini : O.group
val save_ft : unit -> unit
val load_ft : unit -> unit
val value_to_ft_handler : O.Raw.cp -> string * string list
val ft_handler_to_value : string * string list -> O.Raw.cp
val ft_handler_cp_wrapper : (string * string list) O.wrappers
val value_to_rule : O.Raw.cp -> string * string
val rule_to_value : string * string -> O.Raw.cp
val rule_cp_wrapper : (string * string) O.wrappers
val default_editor_command : string
val default_ft_rules_and_handlers : (string * string * string list) list
val default_ft_rules : (string * string) list
val default_ft_handlers : (string * string list) list
val ft_rules : (file_type * string) O.list_cp
val ft_handlers : (file_type * string list) O.list_cp
val default_open_file_command : O.string_cp

Configuring the file type rules


module C: Configwin
val file_type_choices : unit -> file_type list

type conf_ft = {
   mutable conf_ft : string;
   mutable conf_rule : string;
}
val params_for_ft_rule : rule list -> conf_ft -> C.parameter_kind list
val edit_ft_rules : rule list -> unit

Configuring the file type handlers



type conf_fth = {
   mutable conf_ft : string;
   mutable conf_hdls : string list;
}
val params_for_ft : conf_fth -> C.parameter_kind list
val edit_ft_handlers : unit -> unit

File types rules


val rules : (string, rule) Hashtbl.t
val register_rule : rule -> unit
val file_types : unit -> file_type list
val file_type_of_file : string -> file_type
val _regexp_rule : string array -> string -> bool

File types handlers

We need to associate:
val file_type_handlers : (file_type, string list) Hashtbl.t
val associate_handler : file_type -> string -> unit

Launchin commands on files


val command_on_files : string -> string list -> unit
val edition_commands_menu_entries : ?line:int -> string -> GToolbox.menu_entry list
val popup_file_commands_menu : string -> unit