Merge pull request #41 from neolem/master

Redefine constant_type to for ocaml 4.03

Author: alainfrisch

ast_convenience.ml

@@ -25,6 +25,18 @@ module Label = struct
 
 end
 
+module Constant = struct 
+  type t = Parsetree.constant =
+     Pconst_integer of string * char option 
+   | Pconst_char of char 
+   | Pconst_string of string * string option 
+   | Pconst_float of string * char option 
+
+  let of_constant x = x 
+
+  let to_constant x = x
+
+end 
 
 let may_tuple ?loc tup = function
   | [] -> None

ast_convenience.mli

@@ -4,9 +4,9 @@
 
 (** {1 Convenience functions to help build and deconstruct AST fragments.} *)
 
-open Parsetree
 open Asttypes
 open Ast_helper
+open Parsetree
 
 (** {2 Compatibility modules} *)
 
@@ -26,6 +26,23 @@ module Label : sig
 
 end
 
+(** {2 Provides a unified abstraction over differences in Parsetree.constant and Asttypes.constant 
+ * types defined in ocaml 4.03 and 4.02 respectively}*)
+module Constant : sig 
+  type t = Parsetree.constant =
+     Pconst_integer of string * char option 
+   | Pconst_char of char 
+   | Pconst_string of string * string option 
+   | Pconst_float of string * char option 
+ 
+  (** Convert Asttypes.constant to Constant.t *) 
+  val of_constant : Parsetree.constant -> t
+
+  (** Convert Constant.t to Asttypes.constant *)
+  val to_constant : t -> Parsetree.constant
+
+end
+
 (** {2 Misc} *)
 
 val lid: ?loc:loc -> string -> lid