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:
- file type -> handler commands (kept in configuration file)
- handler name -> function
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