Module Ecaml__.Advice
val around_values : Ecaml.Symbol.t -> Core_kernel.Source_code_position.t -> (Ecaml__.Import.Value.t, 'a) Ecaml.Sync_or_async.t -> ?docstring:string -> for_function:Ecaml.Symbol.t -> ?interactive:Ecaml.Defun.Interactive.t -> ?should_profile:bool -> ((Ecaml__.Import.Value.t list -> Ecaml__.Import.Value.t) -> Ecaml__.Import.Value.t list -> 'a) -> unitaround_values ?docstring ?interactive here return_type advice_name f ~for_functiondefines functionadvice_namewith bodyfand adds it as advice onfor_function.Compared to
around_funcall,around_valuesprovides looser coupling when the advice doesn't need to interact with the arguments or return value offor_function.
module On_parse_error : sig ... endval around_funcall : Ecaml.Symbol.t -> Core_kernel.Source_code_position.t -> ?docstring:string -> for_function:Ecaml.Symbol.t -> ?interactive:Ecaml.Defun.Interactive.t -> ?on_parse_error:On_parse_error.t -> ?should_profile:bool -> 'a Ecaml__.Import.Funcall.t -> ('a -> 'a) -> unitaround_funcallprovides typeful access to the arguments and return value offor_function.
val add_predefined_function : Ecaml.Symbol.t -> for_function:Ecaml.Symbol.t -> unit(describe-function 'advice-add)
val remove : Ecaml.Symbol.t -> for_function:Ecaml.Symbol.t -> unit(describe-function 'advice-remove)