53 lines
1 KiB
OCaml
53 lines
1 KiB
OCaml
open Ppxlib
|
|
open Expansion_helpers
|
|
|
|
module Ast = Ast_builder.Default
|
|
[%%expect{|
|
|
module Ast = Ppxlib.Ast_builder.Default
|
|
|}]
|
|
|
|
let quoter = Quoter.create ();;
|
|
[%%expect{|
|
|
val quoter : Quoter.t = <abstr>
|
|
|}]
|
|
|
|
let expr1 =
|
|
Ast.evar "foo" ~loc:Location.none
|
|
|> Quoter.quote quoter
|
|
[%%ignore]
|
|
|
|
Pprintast.string_of_expression expr1;;
|
|
[%%expect{|
|
|
- : string = "__0"
|
|
|}]
|
|
|
|
let expr2 =
|
|
Ast_builder.Default.evar ~loc:Location.none "bar"
|
|
|> Quoter.quote quoter
|
|
[%%ignore]
|
|
|
|
Pprintast.string_of_expression expr2;;
|
|
[%%expect{|
|
|
- : string = "__1"
|
|
|}]
|
|
|
|
let expr3 =
|
|
Ast.eapply ~loc:Location.none (Ast.evar "foo" ~loc:Location.none) [Ast.eunit ~loc:Location.none]
|
|
|> Quoter.quote quoter
|
|
[%%ignore]
|
|
|
|
Pprintast.string_of_expression expr3;;
|
|
[%%expect{|
|
|
- : string = "__2 ()"
|
|
|}]
|
|
|
|
let quoted =
|
|
let expr = Ast.elist ~loc:Location.none [expr1; expr2; expr3] in
|
|
Quoter.sanitize quoter expr
|
|
[%%ignore]
|
|
|
|
Pprintast.string_of_expression quoted;;
|
|
[%%expect{|
|
|
- : string =
|
|
"let __2 () = foo ()\nand __1 = bar\nand __0 = foo in [__0; __1; __2 ()]"
|
|
|}]
|