cvsuser 05/01/13 19:01:28
Modified: runtime/parrot/library/Data/Dumper Default.imc
t/library dumper.t
Log:
Add support for dumping Integer PMCs, plus test of same.
Revision Changes Path
1.7 +15 -0 parrot/runtime/parrot/library/Data/Dumper/Default.imc
Index: Default.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/Data/Dumper/Default.imc,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Default.imc 13 Dec 2004 13:46:22 -0000 1.6
+++ Default.imc 14 Jan 2005 03:01:26 -0000 1.7
@@ -546,6 +546,21 @@
callmethod
.end
+=item style."pmcInteger"( name, val )
+
+Dumps an Integer PMC.
+
+=cut
+
+.sub pmcInteger method
+ .param string name
+ .param pmc val
+
+ print val
+
+ .return ( 1 )
+.end
+
=back
=head1 AUTHOR
1.11 +17 -2 parrot/t/library/dumper.t
Index: dumper.t
===================================================================
RCS file: /cvs/public/parrot/t/library/dumper.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- dumper.t 2 Jan 2005 11:34:54 -0000 1.10
+++ dumper.t 14 Jan 2005 03:01:28 -0000 1.11
@@ -1,7 +1,7 @@
#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: dumper.t,v 1.10 2005/01/02 11:34:54 leo Exp $
+# $Id: dumper.t,v 1.11 2005/01/14 03:01:28 scog Exp $
=head1 NAME
@@ -19,7 +19,7 @@
use strict;
-use Parrot::Test tests => 15;
+use Parrot::Test tests => 16;
# no. 1
output_is(<<'CODE', <<'OUT', "dumping array of sorted numbers");
@@ -751,3 +751,18 @@
}
OUT
+# no. 16
+output_is(<<'CODE', <<'OUTPUT', "dumping Integer PMC");
+##PIR##
+.sub _main
+ .local pmc int1
+
+ new int1, .Integer
+ int1 = 12345
+ _dumper( "Int:", int1 )
+ end
+.end
+.include "library/dumper.imc"
+CODE
+"Int:" => 12345
+OUTPUT
