package ppx_log

You can search for identifiers within the package.

in-package search v0.2.0

Ppx_sexp_message-like extension nodes for lazily rendering log messages

Install

Dune Dependency

github.com Changelog MIT License Edit opam file Versions (4)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

v0.17.0.tar.gz

sha256=2208f047b699d0661e94415868e8e9e4a6e5287a8eceaf7318f572ccd622859a

doc/src/ppx_log_kernel/parsed_extension.ml.html

Source file `parsed_extension.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
open! Base
open! Import
open Ppxlib

let single_expr_attr name =
  Attribute.declare name Pstr_eval Ast_pattern.(single_expr_payload __) (fun x -> x)
;;

let tags_attr = single_expr_attr "tags"
let time_attr = single_expr_attr "time"
let level_attr = single_expr_attr "level"

let legacy_add_extra_tag_parentheses_attr =
  Attribute.declare "legacy_tag_parentheses" Pstr_eval Ast_pattern.(pstr nil) ()
;;

type t =
  { args : expression
  ; tags_attr : expression option
  ; level_attr : expression option
  ; time_attr : expression option
  ; legacy_add_extra_tag_parentheses : bool
  }

let pattern () =
  let open Ast_pattern in
  pstr (as__ (pstr_eval __ drop) ^:: nil)
  |> map ~f:(fun f decl args ->
       { args
       ; tags_attr = Attribute.get tags_attr decl
       ; level_attr = Attribute.get level_attr decl
       ; time_attr = Attribute.get time_attr decl
       ; legacy_add_extra_tag_parentheses =
           Attribute.get legacy_add_extra_tag_parentheses_attr decl |> Option.is_some
       }
       |> f)
;;