git.annexia.org
/
perl4caml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New version 0.9.3. Added dump_hv, dump_av functions to Data::Dumper.
[perl4caml.git]
/
wrappers
/
pl_Data_Dumper.ml
diff --git
a/wrappers/pl_Data_Dumper.ml
b/wrappers/pl_Data_Dumper.ml
index
837eb69
..
12f19c5
100644
(file)
--- a/
wrappers/pl_Data_Dumper.ml
+++ b/
wrappers/pl_Data_Dumper.ml
@@
-2,7
+2,7
@@
*
* Copyright (C) 2005 Merjis Ltd.
*
*
* Copyright (C) 2005 Merjis Ltd.
*
- * $Id: pl_Data_Dumper.ml,v 1.
1 2005-01-31 15:23:23
rich Exp $
+ * $Id: pl_Data_Dumper.ml,v 1.
2 2005-03-31 13:46:32
rich Exp $
*)
open Perl
*)
open Perl
@@
-24,3
+24,9
@@
let new_ r =
let dump r =
string_of_sv (call_class_method "Data::Dumper" "Dump" [r])
let dump r =
string_of_sv (call_class_method "Data::Dumper" "Dump" [r])
+
+let dump_hv hv =
+ dump (arrayref (av_of_sv_list [hashref hv]))
+
+let dump_av av =
+ dump (arrayref av)