develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl

From:
coke
Date:
December 30, 2008 12:29
Subject:
[svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl
Message ID:
20081230202936.92D16CB9FA@x12.develooper.com
Author: coke
Date: Tue Dec 30 12:29:35 2008
New Revision: 34663

Modified:
   trunk/runtime/parrot/library/Tcl/Glob.pir

Log:
avoid [DEPRECATED] opcodes. avoid a keyed lookup since we're already in this NS.



Modified: trunk/runtime/parrot/library/Tcl/Glob.pir
==============================================================================
--- trunk/runtime/parrot/library/Tcl/Glob.pir	(original)
+++ trunk/runtime/parrot/library/Tcl/Glob.pir	Tue Dec 30 12:29:35 2008
@@ -86,18 +86,18 @@
     load_bytecode 'PCT/HLLCompiler.pbc'
 
     optable = new ['PGE';'OPTable']
-    store_global '$optable', optable
+    set_global '$optable', optable
 
-    $P0 = find_global 'glob_literal'
+    $P0 = get_global 'glob_literal'
     optable.'newtok'('term:', 'precedence'=>'=', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_quest'
+    $P0 = get_global 'glob_quest'
     optable.'newtok'('term:?', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_star'
+    $P0 = get_global 'glob_star'
     optable.'newtok'('term:*', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_enum'
+    $P0 = get_global 'glob_enum'
     optable.'newtok'('term:[', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
     optable.'newtok'('infix:', 'looser'=>'term:', 'assoc'=>'list', 'nows'=>1, 'match'=>'PGE::Exp::Concat')
@@ -127,7 +127,7 @@
     .param pmc adverbs         :slurpy :named
 
     .local pmc optable, match
-    optable = find_global ['Tcl';'Glob'], '$optable'
+    optable = get_global '$optable'
     match = optable.'parse'(mob)
     .return (match)
 .end



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About