Changeset 22005

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

Files:

• docs/Perl6/Spec/Functions.pod (modified) (4 diffs)
• src/perl6/STD.pm (modified) (5 diffs)
• src/perl6/gimme5 (modified) (1 diff)

docs/Perl6/Spec/Functions.pod

@@ -13 +13 @@
                 Mark Stosberg <mark@summersault.com>
  Date:          12 Mar 2005
- Last Modified: 18 Jul 2008
- Version:       23
+ Last Modified: 22 Aug 2008
+ Version:       24
 
 This document attempts to document the list of builtin functions in Perl 6.
@@ -560 +560 @@
 =item delete
 
- our List multi method delete (@array : *@indices ) is export
+ our List method delete (@array : *@indices ) is export
 
 Sets elements specified by C<@indices> in the invocant to a
@@ -577 +577 @@
 =item exists
 
- our Bool multi method exists (@array : Int *@indices ) is export
+ our Bool method exists (@array : Int *@indices )
 
 True if the specified Array element has been assigned to. This
@@ -585 +585 @@
 an error.
 
-An unary form is expected. See C<Hash::delete>.
+A unary form is expected. See C<Hash::delete>.
 
 

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;