open Camlp4.PreCast
open Syntax

open Pcre

let gen_re_str loc _ s =
    <:str_item@loc<Pcre.pmatch ~pat:$str:s$>>

let gen_re_expr loc _ s =
    <:expr@loc<Pcre.pmatch ~pat:$str:s$>>

let _ =
  Quotation.add "" Quotation.DynAst.expr_tag gen_re_expr;
  Quotation.add "" Quotation.DynAst.str_item_tag gen_re_str