[svn:parrot] r40429 - in trunk: . compilers/pge/PGE

[coke at svn.parrot.org]

Author: coke
Date: Thu Aug  6 14:00:58 2009
New Revision: 40429
URL: https://trac.parrot.org/parrot/changeset/40429

Log:
Remove PGE::Match's find_key method (TT #851)
Not used anywhere else in the repo.

Modified:
   trunk/DEPRECATED.pod
   trunk/compilers/pge/PGE/Match.pir

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	Thu Aug  6 13:21:49 2009	(r40428)
+++ trunk/DEPRECATED.pod	Thu Aug  6 14:00:58 2009	(r40429)
@@ -250,12 +250,6 @@
 
 L<https://trac.parrot.org/parrot/ticket/843>
 
-=item C<find_key> method on PGE::Match [eligible in 1.5]
-
-The C<find_key> method on PGE::Match objects will be removed.
-
-L<https://trac.parrot.org/parrot/ticket/851>
-
 =back
 
 =head2 Parrot Compiler Toolkit

Modified: trunk/compilers/pge/PGE/Match.pir
==============================================================================
--- trunk/compilers/pge/PGE/Match.pir	Thu Aug  6 13:21:49 2009	(r40428)
+++ trunk/compilers/pge/PGE/Match.pir	Thu Aug  6 14:00:58 2009	(r40429)
@@ -278,40 +278,6 @@
 .end
 
 
-=item C<find_key([ key1, key2, ... ])>
-
-Find the first of C<key1>, C<key2>, etc. in the current
-Match object, and return it.  Returns '' if none of
-the specified keys are found.  If no keys are specified,
-then simply return the first key found.
-
-=cut
-
-.sub 'find_key' :method
-    .param pmc keys            :slurpy
-    if null keys goto first_key
-    unless keys goto first_key
-  loop:
-    unless keys goto not_found
-    $S0 = shift keys
-    $I0 = exists self[$S0]
-    unless $I0 goto loop
-    .return ($S0)
-  first_key:
-    $P0 = self.'hash'()
-    $P1 = iter $P0
-    unless $P1 goto not_found
-  next:
-    $S0 = shift $P1
-    $P2 = $P0[$S0]
-    $I0 = isa $P2, 'Capture'
-    unless $I0 goto next
-    .return ($S0)
-  not_found:
-    .return ('')
-.end
-
-
 =item C<_failcut(int cutvalue)>
 
 Immediately "fail" this Match object, removing any