Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r36150 - in trunk/runtime/parrot/library: . PGE
From:
coke
Date:
January 29, 2009 09:56
Subject:
[svn:parrot] r36150 - in trunk/runtime/parrot/library: . PGE
Message ID:
20090129175637.3CFA8CB9AE@x12.develooper.com
Author: coke
Date: Thu Jan 29 09:56:36 2009
New Revision: 36150
Modified:
trunk/runtime/parrot/library/JSON.pir
trunk/runtime/parrot/library/PGE/Hs.pir
Log:
avoid usage of DEPRECATED Data::Escape library.
Modified: trunk/runtime/parrot/library/JSON.pir
==============================================================================
--- trunk/runtime/parrot/library/JSON.pir (original)
+++ trunk/runtime/parrot/library/JSON.pir Thu Jan 29 09:56:36 2009
@@ -355,8 +355,6 @@
.return (result)
.end
-.include 'library/Data/Escape.pir'
-
=back
=head1 TODO
Modified: trunk/runtime/parrot/library/PGE/Hs.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Hs.pir (original)
+++ trunk/runtime/parrot/library/PGE/Hs.pir Thu Jan 29 09:56:36 2009
@@ -54,7 +54,6 @@
.sub "__onload" :load
.local pmc load
- load_bytecode "Data/Escape.pir"
$P0 = get_class ['PGE';'Match']
.end
@@ -162,10 +161,9 @@
.local int ari, arc
.local int tmpi, cond
.local string tmps, key
- .local pmc capt, iter, subelm, elm, escape
+ .local pmc capt, iter, subelm, elm
out = ""
- escape = get_hll_global ["Data::Escape"], "String"
start:
out .= "PGE_Match "
@@ -212,7 +210,7 @@
unless cond goto subrules_fail
elm = capt[key]
out .= '("'
- tmps = escape(key)
+ tmps = escape key
out .= tmps
out .= '", '
bsr dumper
@@ -235,7 +233,8 @@
out .= tmps
ret
dumper_string:
- tmps = escape(elm)
+ $S0 = elm
+ tmps = escape $S0
out .= 'PGE_String "'
out .= tmps
out .= '"'
-
[svn:parrot] r36150 - in trunk/runtime/parrot/library: . PGE
by coke