package asai

emit message explanation emits the explanation and continues the computation.

Example:

Reporter.emit TypeError "the type `nat' is extremely unnatural"

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

emitf message format ... formats and emits a message, and then continues the computation. Note that there should not be any literal control characters. See Diagnostic.text.

Example:

Reporter.emitf TypeError "type %a is too ugly" Syntax.pp tp

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

Emit a diagnostic and continue the computation.

fatal message explanation aborts the current computation with the explanation.

Example:

Reporter.fatal CatError "forgot to feed the cat"

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

fatalf message format ... constructs a diagnostic and aborts the current computation with the diagnostic. Note that there should not be any literal control characters. See Diagnostic.text.

Example:

Reporter.fatalf SecurityTooStrict "failed to write the password %s on the screen" password

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

Abort the computation with a diagnostic.

get_backtrace() returns the current backtrace.

with_backtrace bt f runs the thunk f with bt as the initial backtrace.

Example:

(* running code with a fresh backtrace *)
with_backtrace Emp @@ fun () -> ...

trace str f records the string str and runs the thunk f with the new backtrace.

• parameter loc

  The location of the text (usually the code) to highlight. Note that a location given here will become the new default location for inner emit and fatal.

tracef format ... f formats and records a frame in the backtrace, and runs the thunk f with the new backtrace. Note that there should not be any literal control characters. See Diagnostic.text.

• parameter loc

  The location of the text (usually the code) to highlight. Note that a location given here will become the new default location for inner emit and fatal.

trace_text text f records the text and runs the thunk f with the new backtrace.

• parameter loc

  The location of the text (usually the code) to highlight. Note that a location given here will become the new default location for inner emit and fatal.

trace_loctext loctext f records the loctext and runs the thunk f with the new backtrace. Note that a non-None location given here will become the new default location for inner emit and fatal.

get_loc() returns the current default location for emit and fatal.

with_loc loc f runs the thunk f with loc as the new default location for emit and fatal. Note that with_loc None will clear the current default location, while merge_loc None will keep it. See merge_loc.

merge_loc loc f "merges" loc into the current default location for emit and fatal and runs the thunk f. By "merge", it means that if loc is None, then the current default location is kept; otherwise, it is overwritten. Note that with_loc None will clear the current default location, while merge_loc None will keep it. See with_loc.

diagnostic message explanation constructs a diagnostic with the explanation along with the backtrace frames recorded via trace.

Example:

Reporter.diagnostic SyntaxError "too many emojis"

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

diagnosticf message format ... constructs a diagnostic along with the backtrace frames recorded via trace. Note that there should not be any literal control characters. See Diagnostic.text.

Example:

Reporter.diagnosticf TypeError "term %a does not type check, maybe" Syntax.pp tm

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

kdiagnosticf kont message format ... is kont (diagnosticf message format ...). Note that there should not be any literal control characters. See Diagnostic.text.

• parameter severity

  The severity (to overwrite the default severity inferred from the message).

• parameter loc

  The location of the text (usually the code) to highlight. The default value is the innermost location given by trace, with_loc, merge_loc, or run.

• parameter backtrace

  The backtrace (to overwrite the accumulative frames up to this point).

• parameter extra_remarks

  Additional remarks that are not part of the backtrace.

run ~emit ~fatal f runs the thunk f, using emit to handle non-fatal diagnostics before continuing the computation (see emit), and fatal to handle fatal diagnostics that have aborted the computation (see fatal).

• parameter init_loc

  The initial default location for inner emit and fatal.

• parameter init_backtrace

  The initial backtrace to start with. The default value is the empty backtrace.

• parameter emit

  The handler of non-fatal diagnostics.

• parameter fatal

  The handler of fatal diagnostics.

adopt m run f runs the thunk f that uses a different Reporter instance. It takes the runner run from that Reporter instance as an argument to handle effects, and will use m to transform diagnostics generated by f into ones in the current Reporter instance. The backtrace within f will include the backtrace that leads to adopt, and the innermost specified location will be carried over, too. The intended use case is to integrate diagnostics from a library into those in the main application.

adopt is a convenience function that can be implemented as follows:

let adopt m f run =
  run
    ?init_loc:(get_loc())
    ?init_backtrace:(Some (get_backtrace()))
    ~emit:(fun d -> emit_diagnostic (m d))
    ~fatal:(fun d -> fatal_diagnostic (m d))
    f

Here shows the intended usage, where Cool_lib is the library to be used in the main application:

Reporter.adopt (Diagnostic.map message_mapper) Cool_lib.Reporter.run @@ fun () -> ...

try_with ~emit ~fatal f runs the thunk f, using emit to intercept non-fatal diagnostics before continuing the computation (see emit), and fatal to intercept fatal diagnostics that have aborted the computation (see fatal). The default interceptors re-emit or re-raise the intercepted diagnostics.

• parameter emit

  The interceptor of non-fatal diagnostics. The default value is emit_diagnostic.

• parameter fatal

  The interceptor of fatal diagnostics. The default value is fatal_diagnostic.

map_diagnostic m f runs the thunk f and applies m to any diagnostic sent by f. It is a convenience function that can be implemented as follows:

let map_diagnostic m f =
  try_with
    ~fatal:(fun d -> fatal_diagnostic (m d))
    ~emit:(fun d -> emit_diagnostic (m d))
    f

• since 0.2.0

register_printer p registers a printer p via Printexc.register_printer to convert unhandled internal effects and exceptions into strings for the OCaml runtime system to display. Ideally, all internal effects and exceptions should have been handled by run and there is no need to use this function, but when it is not the case, this function can be helpful for debugging. The functor Reporter.Make always registers a simple printer to suggest using run, but you can register new ones to override it. The return type of the printer p should return Some s where s is the resulting string, or None if it chooses not to convert a particular effect or exception. The registered printers are tried in reverse order until one of them returns Some s for some s; that is, the last registered printer is tried first. Note that this function is a wrapper of Printexc.register_printer and all the registered printers (via this function or Printexc.register_printer) are put into the same list.

The input type of the printer p is a variant representation of all internal effects and exceptions used in this module:

• `Trace corresponds to the effect triggered by trace; and
• `Emit diag corresponds to the effect triggered by emit; and
• `Fatal diag corresponds to the exception triggered by fatal.

Note: Diagnostic.string_of_text can be handy for converting a text into a string.