[svn:parrot] r37781 - branches/pge1/runtime/parrot/library/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Sat Mar 28 00:53:51 2009
New Revision: 37781
URL: https://trac.parrot.org/parrot/changeset/37781

Log:
[pge]:  Switch more 'result_object' ==> '!make'

Modified:
   branches/pge1/runtime/parrot/library/PGE/Glob.pir

Modified: branches/pge1/runtime/parrot/library/PGE/Glob.pir
==============================================================================
--- branches/pge1/runtime/parrot/library/PGE/Glob.pir	Sat Mar 28 00:43:26 2009	(r37780)
+++ branches/pge1/runtime/parrot/library/PGE/Glob.pir	Sat Mar 28 00:53:51 2009	(r37781)
@@ -55,7 +55,7 @@
     exp = new ['PGE';'Exp';'Concat']
     $I0 = 1
     $P0 = new ['PGE';'Exp';'Anchor']
-    $P0.'result_object'('^')
+    $P0.'!make'('^')
     exp[0] = $P0
     if null match goto analyze_1
     $P0 = match['expr']
@@ -63,7 +63,7 @@
     inc $I0
   analyze_1:
     $P0 = new ['PGE';'Exp';'Anchor']
-    $P0.'result_object'('$')
+    $P0.'!make'('$')
     exp[$I0] = $P0
 
     .tailcall exp.'compile'(adverbs :flat :named)
@@ -165,7 +165,7 @@
 =item C<glob_literal(PMC mob, PMC adverbs)>
 
 Scan a literal from a string, stopping at any metacharacters such
-as C<*> or C<[>.  Return the matched portion, with the C<result_object>
+as C<*> or C<[>.  Return the matched portion, with the I<ast object>
 set to the decoded literal.
 
 =cut
@@ -180,7 +180,7 @@
     ($S0, $I0) = 'scan_literal'(target, pos, '*?[{')
     if $I0 <= pos goto end
     mob.'to'($I0)
-    mob.'result_object'($S0)
+    mob.'!make'($S0)
   end:
     .return (mob)
 .end
@@ -199,7 +199,7 @@
     ##   The '?' is already in mob['KEY'], so we don't need to find it here.
     (mob, $I0) = mob.'new'(mob, 'grammar'=>'PGE::Exp::CCShortcut')
     mob.'to'($I0)
-    mob.'result_object'('.')
+    mob.'!make'('.')
     .return (mob)
 .end
 
@@ -223,7 +223,7 @@
     mob['max'] = GLOB_INF
     $P0 = mob.'new'(mob, 'grammar'=>'PGE::Exp::CCShortcut')
     $P0.'to'(pos)
-    $P0.'result_object'('.')
+    $P0.'!make'('.')
     mob[0] = $P0
     .return (mob)
 .end
@@ -285,7 +285,7 @@
   scan_end:
     inc pos
     mob.'to'(pos)
-    mob.'result_object'(charlist)
+    mob.'!make'(charlist)
     .return (mob)
 
   err_noclose:
@@ -311,7 +311,7 @@
 
     ($S0, pos) = 'scan_literal'(target, pos, ',}')
     mob.'to'(pos)
-    mob.'result_object'($S0)
+    mob.'!make'($S0)
   alt_loop:
     if pos >= lastpos goto err_noclose
     $S0 = substr target, pos, 1
@@ -324,7 +324,7 @@
     $P0 = mob.'new'(mob, 'grammar'=>'PGE::Exp::Literal')
     ($S0, pos) = 'scan_literal'(target, pos, ',}')
     mob.'to'(pos)
-    $P0.'result_object'($S0)
+    $P0.'!make'($S0)
     mob[1] = $P0
     goto alt_loop
   end: