(****************************************************************************)

(*                                                                          *)

(*                                   OCaml                                  *)

(*                                                                          *)

(*                            INRIA Rocquencourt                            *)

(*                                                                          *)

(*  Copyright  2006   Institut National de Recherche  en  Informatique et   *)

(*  en Automatique.  All rights reserved.  This file is distributed under   *)

(*  the terms of the GNU Library General Public License, with the special   *)

(*  exception on linking described in LICENSE at the top of the Camlp4      *)

(*  source tree.                                                            *)

(*                                                                          *)

(****************************************************************************)

(* Authors:

 * - Daniel de Rauglaudre: initial version

 * - Nicolas Pouillard: refactoring

 *)

module Id = struct

  value name = "Camlp4.PreCast";

  value version = Sys.ocaml_version;

end;

type camlp4_token = Sig.camlp4_token ==

  [ KEYWORD       of string

  | SYMBOL        of string

  | LIDENT        of string

  | UIDENT        of string

  | ESCAPED_IDENT of string

  | INT           of int and string

  | INT32         of int32 and string

  | INT64         of int64 and string

  | NATIVEINT     of nativeint and string

  | FLOAT         of float and string

  | CHAR          of char and string

  | STRING        of string and string

  | LABEL         of string

  | OPTLABEL      of string

  | QUOTATION     of Sig.quotation

  | ANTIQUOT      of string and string

  | COMMENT       of string

  | BLANKS        of string

  | NEWLINE

  | LINE_DIRECTIVE of int and option string

  | EOI ];

module Loc = Struct.Loc;

module Ast = Struct.Camlp4Ast.Make Loc;

module Token = Struct.Token.Make Loc;

module Lexer = Struct.Lexer.Make Token;

module Gram = Struct.Grammar.Static.Make Lexer;

module DynLoader = Struct.DynLoader;

module Quotation = Struct.Quotation.Make Ast;

module MakeSyntax (U : sig end) = OCamlInitSyntax.Make Ast Gram Quotation;

module Syntax = MakeSyntax (struct end);

module AstFilters = Struct.AstFilters.Make Ast;

module MakeGram = Struct.Grammar.Static.Make;

module Printers = struct

  module OCaml = Printers.OCaml.Make Syntax;

  module OCamlr = Printers.OCamlr.Make Syntax;

  (* module OCamlrr = Printers.OCamlrr.Make Syntax; *)

  module DumpOCamlAst = Printers.DumpOCamlAst.Make Syntax;

  module DumpCamlp4Ast = Printers.DumpCamlp4Ast.Make Syntax;

  module Null = Printers.Null.Make Syntax;

end;