64 lines
1.1 KiB
OCaml
64 lines
1.1 KiB
OCaml
|
open Ppxlib
|
||
|
|
|
||
|
|
let identifier = Longident.Lident "mod"
|
||
|
|
;;
|
||
|
|
[%%ignore]
|
||
|
|
|
||
|
|
Format.asprintf "%a" Pprintast.longident identifier
|
||
|
|
;;
|
||
|
|
[%%expect{|
|
||
|
|
- : string = "\\#mod"
|
||
|
|
|}]
|
||
|
|
|
||
|
|
module Build = Ast_builder.Make(struct let loc = Location.none end)
|
||
|
|
|
||
|
|
(* 10 mod 3 *)
|
||
|
|
let expr =
|
||
|
|
let open Build in
|
||
|
|
eapply (pexp_ident (Located.mk identifier)) [(eint 10); (eint 3)]
|
||
|
|
;;
|
||
|
|
[%%ignore]
|
||
|
|
|
||
|
|
Format.asprintf "%a" Pprintast.expression expr
|
||
|
|
;;
|
||
|
|
[%%expect{|
|
||
|
|
- : string = "10 mod 3"
|
||
|
|
|}]
|
||
|
|
|
||
|
|
(* [let f = (mod) *)
|
||
|
|
let stri =
|
||
|
|
let open Build in
|
||
|
|
pstr_value Nonrecursive
|
||
|
|
[ value_binding
|
||
|
|
~pat:(pvar "f")
|
||
|
|
~expr:(pexp_ident (Located.mk identifier))
|
||
|
|
]
|
||
|
|
;;
|
||
|
|
[%%ignore]
|
||
|
|
|
||
|
|
Format.asprintf "%a" Pprintast.structure_item stri
|
||
|
|
;;
|
||
|
|
[%%expect{|
|
||
|
|
- : string = "let f = (mod)"
|
||
|
|
|}]
|
||
|
|
|
||
|
|
let stri2 =
|
||
|
|
let open Build in
|
||
|
|
pstr_value
|
||
|
|
Nonrecursive
|
||
|
|
[ value_binding
|
||
|
|
~pat:(pvar "f")
|
||
|
|
~expr:(pexp_function
|
||
|
|
[pparam_val Nolabel None (pvar "lsl")]
|
||
|
|
None
|
||
|
|
(Pfunction_body (pexp_ident (Located.mk identifier))))
|
||
|
|
]
|
||
|
|
;;
|
||
|
|
[%%ignore]
|
||
|
|
|
||
|
|
Format.asprintf "%a" Pprintast.structure_item stri2
|
||
|
|
;;
|
||
|
|
[%%expect{|
|
||
|
|
- : string = "let f (lsl) = (mod)"
|
||
|
|
|}]
|