Blame camlp4/Camlp4Parsers/Camlp4QuotationExpander.ml
|
Packit |
1f8b6b |
open Camlp4; (* -*- camlp4r -*- *)
|
|
Packit |
1f8b6b |
(****************************************************************************)
|
|
Packit |
1f8b6b |
(* *)
|
|
Packit |
1f8b6b |
(* OCaml *)
|
|
Packit |
1f8b6b |
(* *)
|
|
Packit |
1f8b6b |
(* INRIA Rocquencourt *)
|
|
Packit |
1f8b6b |
(* *)
|
|
Packit |
1f8b6b |
(* Copyright 2002-2006 Institut National de Recherche en Informatique et *)
|
|
Packit |
1f8b6b |
(* en Automatique. All rights reserved. This file is distributed under *)
|
|
Packit |
1f8b6b |
(* the terms of the GNU Library General Public License, with the special *)
|
|
Packit |
1f8b6b |
(* exception on linking described in LICENSE at the top of the Camlp4 *)
|
|
Packit |
1f8b6b |
(* source tree. *)
|
|
Packit |
1f8b6b |
(* *)
|
|
Packit |
1f8b6b |
(****************************************************************************)
|
|
Packit |
1f8b6b |
|
|
Packit |
1f8b6b |
(* Authors:
|
|
Packit |
1f8b6b |
* - Daniel de Rauglaudre: initial version
|
|
Packit |
1f8b6b |
* - Nicolas Pouillard: refactoring
|
|
Packit |
1f8b6b |
*)
|
|
Packit |
1f8b6b |
|
|
Packit |
1f8b6b |
|
|
Packit |
1f8b6b |
module Id = struct
|
|
Packit |
1f8b6b |
value name = "Camlp4QuotationExpander";
|
|
Packit |
1f8b6b |
value version = Sys.ocaml_version;
|
|
Packit |
1f8b6b |
end;
|
|
Packit |
1f8b6b |
|
|
Packit |
1f8b6b |
module Make (Syntax : Sig.Camlp4Syntax)
|
|
Packit |
1f8b6b |
= struct
|
|
Packit |
1f8b6b |
module M = Camlp4QuotationCommon.Make Syntax Syntax.AntiquotSyntax;
|
|
Packit |
1f8b6b |
include M;
|
|
Packit |
1f8b6b |
end;
|
|
Packit |
1f8b6b |
|
|
Packit |
1f8b6b |
let module M = Register.OCamlSyntaxExtension Id Make in ();
|