[svn:parrot] r44539 - in trunk: . runtime/parrot/library runtime/parrot/library/Data runtime/parrot/library/Data/Dumper
coke at svn.parrot.org
coke at svn.parrot.org
Sun Feb 28 02:59:00 UTC 2010
Author: coke
Date: Sun Feb 28 02:58:59 2010
New Revision: 44539
URL: https://trac.parrot.org/parrot/changeset/44539
Log:
move Data::Dumper to Data;Dumper
Listed in deprecated.pod for a previous release, but no ticket listed.
(Apparently this library is untested.)
Modified:
trunk/DEPRECATED.pod
trunk/runtime/parrot/library/Data/Dumper.pir
trunk/runtime/parrot/library/Data/Dumper/Base.pir
trunk/runtime/parrot/library/Data/Dumper/Default.pir
trunk/runtime/parrot/library/dumper.pir
Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod Sun Feb 28 02:46:06 2010 (r44538)
+++ trunk/DEPRECATED.pod Sun Feb 28 02:58:59 2010 (r44539)
@@ -309,10 +309,9 @@
=item Library name changes [eligible in 2.1]
The use of C<::> a namespace separator is deprecated. Core libraries will
-change to use multi-level keys instead. For example, C<Data::Dumper> will
-change to C<Data; Dumper>. Affected libraries also include:
-C<Parrot::Coroutine>, C<SDL>, C<Test::Builder>, C<YAML::Dumper>, and
-C<PCRE::NCI>.
+change to use multi-level keys instead. For example, C<YAML::Dumper> will
+change to C<YAML; Dumper>. Affected libraries also include:
+C<Parrot::Coroutine>, C<SDL>, C<Test::Builder>, and C<PCRE::NCI>.
=back
Modified: trunk/runtime/parrot/library/Data/Dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Dumper.pir Sun Feb 28 02:46:06 2010 (r44538)
+++ trunk/runtime/parrot/library/Data/Dumper.pir Sun Feb 28 02:58:59 2010 (r44539)
@@ -3,19 +3,19 @@
.sub __library_data_dumper_onload :load
.local pmc dd_class
- dd_class = get_class "Data::Dumper"
+ dd_class = get_class ['Data'; 'Dumper']
if null dd_class goto load_library
goto END
load_library:
load_bytecode "Data/Dumper/Default.pbc"
- newclass $P0, "Data::Dumper"
+ newclass $P0, ['Data'; 'Dumper']
END:
.return ()
.end
-.namespace ["Data::Dumper"]
+.namespace ['Data'; 'Dumper']
.sub dumper :method
.param pmc dump
@@ -36,7 +36,7 @@
.local pmc ddd_class
push_eh ERROR2
- ddd_class = get_class "Data::Dumper::Default"
+ ddd_class = get_class ['Data'; 'Dumper'; 'Default']
style = ddd_class."new"()
pop_eh
@@ -49,14 +49,14 @@
ERROR2:
pop_eh
- print "can not find class Data::Dumper::Default!\n"
+ print "can not find class ['Data'; 'Dumper'; 'Default']!\n"
end
.return ( 0 )
ERROR:
print "Syntax:\n"
- print "Data::Dumper::dumper( pmc )\n"
- print "Data::Dumper::dumper( pmc, name )\n"
- print "Data::Dumper::dumper( pmc, name, indent )\n"
+ print "dumper( pmc )\n"
+ print "dumper( pmc, name )\n"
+ print "dumper( pmc, name, indent )\n"
.return ( 0 )
.end
Modified: trunk/runtime/parrot/library/Data/Dumper/Base.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Dumper/Base.pir Sun Feb 28 02:46:06 2010 (r44538)
+++ trunk/runtime/parrot/library/Data/Dumper/Base.pir Sun Feb 28 02:58:59 2010 (r44539)
@@ -28,12 +28,12 @@
.sub __library_data_dumper_base_onload :load
.local pmc ddb_class
- ddb_class = get_class "Data::Dumper::Base"
+ ddb_class = get_class ['Data'; 'Dumper'; 'Base']
if null ddb_class goto create_ddb
goto END
create_ddb:
- newclass $P0, "Data::Dumper::Base"
+ newclass $P0, ['Data'; 'Dumper'; 'Base']
addattribute $P0, "dumper"
addattribute $P0, "level"
addattribute $P0, "indention"
@@ -43,7 +43,7 @@
.return ()
.end
-.namespace ["Data::Dumper::Base"]
+.namespace ['Data'; 'Dumper'; 'Base']
=item style."prepare"( dumper, indent )
Modified: trunk/runtime/parrot/library/Data/Dumper/Default.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Dumper/Default.pir Sun Feb 28 02:46:06 2010 (r44538)
+++ trunk/runtime/parrot/library/Data/Dumper/Default.pir Sun Feb 28 02:58:59 2010 (r44539)
@@ -20,19 +20,19 @@
.sub __library_data_dumper_default_onload :load
.local pmc ddb_class
- ddb_class = get_class "Data::Dumper::Default"
+ ddb_class = get_class ['Data'; 'Dumper'; 'Default']
if null ddb_class goto create_ddb
goto END
create_ddb:
load_bytecode 'Data/Dumper/Base.pbc'
- get_class $P0, "Data::Dumper::Base"
- subclass $P0, $P0, "Data::Dumper::Default"
+ get_class $P0, ['Data'; 'Dumper'; 'Base']
+ subclass $P0, $P0, ['Data'; 'Dumper'; 'Default']
END:
.return ()
.end
-.namespace ["Data::Dumper::Default"]
+.namespace ['Data'; 'Dumper'; 'Default']
=head1 METHODS
Modified: trunk/runtime/parrot/library/dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/dumper.pir Sun Feb 28 02:46:06 2010 (r44538)
+++ trunk/runtime/parrot/library/dumper.pir Sun Feb 28 02:58:59 2010 (r44539)
@@ -34,7 +34,7 @@
say ''
say " .local pmc foo, dumper"
say " foo = new 'ResizablePMCArray'"
- say " dumper = new 'Data::Dumper'"
+ say " dumper = new ['Data'; 'Dumper']"
say ''
say " dumper.'dumper'( foo, 'foo' )"
say ".end"
@@ -148,13 +148,13 @@
.local pmc dd_class
.local int is_defined
- get_class dd_class, "Data::Dumper"
+ get_class dd_class, ['Data'; 'Dumper']
if null dd_class goto load_dd_pir
goto TYPE_OK
load_dd_pir:
load_bytecode "Data/Dumper.pbc"
- get_class dd_class, "Data::Dumper"
+ get_class dd_class, ['Data'; 'Dumper']
if null dd_class goto no_class
goto TYPE_OK
@@ -164,13 +164,13 @@
TYPE_OK:
errorsoff .PARROT_ERRORS_GLOBALS_FLAG
- self = get_hll_global ['Data::Dumper'], 'global'
+ self = get_hll_global ['Data'; 'Dumper'], 'global'
errorson .PARROT_ERRORS_GLOBALS_FLAG
if null self goto create_type
create_type:
- new self, "Data::Dumper"
- set_hll_global ['Data::Dumper'], 'global', self
+ new self, ['Data'; 'Dumper']
+ set_hll_global ['Data'; 'Dumper'], 'global', self
END:
.return( self )
More information about the parrot-commits
mailing list