23 lines
798 B
OCaml
23 lines
798 B
OCaml
open Camlp4.PreCast;;
|
|
module Caml =
|
|
Camlp4OCamlParser.Make
|
|
(Camlp4OCamlRevisedParser.Make
|
|
(Camlp4.OCamlInitSyntax.Make(Ast)(Gram)(Quotation)));;
|
|
|
|
let quotexpander str =
|
|
"[1; 2; 3]" (* ... do some real code on str *)
|
|
|
|
let patt_quotexpander loc _loc_name_opt str =
|
|
Gram.parse_string Caml.patt loc (quotexpander str)
|
|
|
|
let expr_quotexpander loc _loc_name_opt str =
|
|
Gram.parse_string Caml.expr loc (quotexpander str)
|
|
|
|
let str_item_quotexpander loc loc_name_opt str =
|
|
<:str_item@loc< $exp: expr_quotexpander loc loc_name_opt str$ >>
|
|
|
|
let () =
|
|
Syntax.Quotation.add "" Syntax.Quotation.DynAst.expr_tag expr_quotexpander;
|
|
Syntax.Quotation.add "" Syntax.Quotation.DynAst.str_item_tag str_item_quotexpander;
|
|
Syntax.Quotation.add "" Syntax.Quotation.DynAst.patt_tag patt_quotexpander
|