git.annexia.org
/
perl4caml.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
116fd09
)
New version 0.9.3. Added dump_hv, dump_av functions to Data::Dumper.
author
rich
<rich>
Thu, 31 Mar 2005 13:46:31 +0000
(13:46 +0000)
committer
rich
<rich>
Thu, 31 Mar 2005 13:46:31 +0000
(13:46 +0000)
Makefile.config
patch
|
blob
|
history
wrappers/pl_Data_Dumper.ml
patch
|
blob
|
history
diff --git
a/Makefile.config
b/Makefile.config
index
4320086
..
09b89f6
100644
(file)
--- a/
Makefile.config
+++ b/
Makefile.config
@@
-1,5
+1,5
@@
# perl4caml configuration -*- Makefile -*-
# perl4caml configuration -*- Makefile -*-
-# $Id: Makefile.config,v 1.2
4 2005-02-13 17:40:17
rich Exp $
+# $Id: Makefile.config,v 1.2
5 2005-03-31 13:46:31
rich Exp $
# PERLINCDIR
# Directory containing the Perl include files, eg. <EXTERN.h>.
# PERLINCDIR
# Directory containing the Perl include files, eg. <EXTERN.h>.
@@
-42,4
+42,4
@@
DYNALOADER_HACK := /usr/lib/perl/5.8/auto/DynaLoader/DynaLoader.a
# PACKAGE and VERSION
PACKAGE := perl4caml
# PACKAGE and VERSION
PACKAGE := perl4caml
-VERSION := 0.9.
2
+VERSION := 0.9.
3
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)