Changeset 22005 for src/perl6

Timestamp:

08/22/08 11:08:07 (3 months ago)

Author:

lwall

Message:

[STD] remove p5ish usages of exists/delete
[gimme5] translate .:exists and .:delete forms to p5
[S29] remove "is export" from exists/delete methods

Location:

src/perl6

Files:

• STD.pm (modified) (5 diffs)
• gimme5 (modified) (1 diff)

src/perl6/STD.pm

@@ -154 +154 @@
     say print open close printf sprintf slurp unlink link symlink
     elems grep map first reduce sort push reverse take splice
-    exists delete
 
     zip each roundrobin caller
@@ -180 +179 @@
 push @routinenames, "HOW", "fail", "temp", "let";
 
-# if True ref False unless length bless delete exists
+# please don't add: ref length bless delete exists
 
 my %routinenames;
@@ -458 +457 @@
 
 token ws {
-    # XXX exists is a p5ism
-    :my @stub = return self if exists self.<_>[self.pos]<ws>;
+    :my @stub = return self if self.<_>[self.pos].:exists<ws>;
     :my $startpos = self.pos;
 
@@ -3313 +3311 @@
 # hopefully we can include these tokens in any outer LTM matcher
 regex stdstopper {
-    :my @stub = return self if exists self.<_>[self.pos]<endstmt>;
+    :my @stub = return self if self.<_>[self.pos].:exists<endstmt>;
     [
     | <?terminator>
@@ -3975 +3973 @@
 token in (Str $stop, Str $insides, Str $name = $insides) {
     :my $GOAL is context = $stop;
-    <x=$insides> $stop {{ $/.{$insides} = $<x>; delete $<x> }} || <.panic: "Unable to parse $name; couldn't find final '$stop'">
+    <x=$insides> $stop {{ $/.{$insides} = $<x>; $/.:delete<x> }} || <.panic: "Unable to parse $name; couldn't find final '$stop'">
 }
 

src/perl6/gimme5

@@ -80 +80 @@
     $f =~ s/\\x([0-9a-fA-F]{3,4})/\\x{$1}/g;
     $f =~ s!\$([0-9]+)!\$\$C{$1}!g;
+    $f =~ s/(\S+\.):(exists|delete)/$2 $1/g if $f =~ /\.:(exists|delete)/;
     while ($f ne "") {
         #print "$f\n" if $trace;