From 5263df38c65ceaa4d399a7ab1ce32a8f9ef0d2fe Mon Sep 17 00:00:00 2001
From: rich <rich>
Date: Mon, 31 Jan 2005 15:23:23 +0000
Subject: [PATCH 1/1] Skeletal wrapper for Data::Dumper.

---
 .depend                    |  2 ++
 MANIFEST                   |  1 +
 Makefile                   |  3 ++-
 wrappers/pl_Data_Dumper.ml | 26 ++++++++++++++++++++++++++
 4 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 wrappers/pl_Data_Dumper.ml

diff --git a/.depend b/.depend
index 4ca9e5a..b41d9b5 100644
--- a/.depend
+++ b/.depend
@@ -14,6 +14,8 @@ examples/parsedate.cmx: wrappers/pl_Date_Format.cmx \
     wrappers/pl_Date_Parse.cmx 
 examples/test.cmo: perl.cmi 
 examples/test.cmx: perl.cmx 
+wrappers/pl_Data_Dumper.cmo: perl.cmi 
+wrappers/pl_Data_Dumper.cmx: perl.cmx 
 wrappers/pl_Date_Calc.cmo: perl.cmi 
 wrappers/pl_Date_Calc.cmx: perl.cmx 
 wrappers/pl_Date_Format.cmo: perl.cmi 
diff --git a/MANIFEST b/MANIFEST
index 0341b68..9b76ac3 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -30,6 +30,7 @@ test/120-hv.ml
 test/130-hv-iter.ml
 test/140-ref.ml
 wrappers/.cvsignore
+wrappers/pl_Data_Dumper.ml
 wrappers/pl_Date_Calc.ml
 wrappers/pl_Date_Format.ml
 wrappers/pl_Date_Parse.ml
diff --git a/Makefile b/Makefile
index 0080c47..f8b91df 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,6 @@
 # Interface to Perl from OCaml.
 # Copyright (C) 2003 Merjis Ltd.
-# $Id: Makefile,v 1.29 2005-01-28 23:09:30 rich Exp $
+# $Id: Makefile,v 1.30 2005-01-31 15:23:23 rich Exp $
 
 include Makefile.config
 
@@ -28,6 +28,7 @@ SED := sed
 OCAMLDOCFLAGS := -html -stars -sort $(OCAMLCINCS)
 
 WRAPPERS := \
+	wrappers/pl_Data_Dumper.cmo \
 	wrappers/pl_Date_Calc.cmo \
 	wrappers/pl_Date_Format.cmo \
 	wrappers/pl_Date_Parse.cmo \
diff --git a/wrappers/pl_Data_Dumper.ml b/wrappers/pl_Data_Dumper.ml
new file mode 100644
index 0000000..837eb69
--- /dev/null
+++ b/wrappers/pl_Data_Dumper.ml
@@ -0,0 +1,26 @@
+(** Wrapper around Perl [Data::Dumper] class.
+  *
+  * Copyright (C) 2005 Merjis Ltd.
+  *
+  * $Id: pl_Data_Dumper.ml,v 1.1 2005-01-31 15:23:23 rich Exp $
+  *)
+
+open Perl
+
+let _ = eval "use Data::Dumper"
+
+class data_dumper (sv : sv) =
+
+object (self)
+  method sv = sv
+
+
+
+end
+
+let new_ r =
+  let sv = call_class_method "Data::Dumper" "new" [r] in
+  new data_dumper sv
+
+let dump r =
+  string_of_sv (call_class_method "Data::Dumper" "Dump" [r])
-- 
1.8.3.1