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

[svn:parrot] r33950 - trunk/examples/tge/branch

From:
coke
Date:
December 15, 2008 22:05
Subject:
[svn:parrot] r33950 - trunk/examples/tge/branch
Message ID:
20081216060525.9D7B9CBA12@x12.develooper.com
Author: coke
Date: Mon Dec 15 22:05:24 2008
New Revision: 33950

Modified:
   trunk/examples/tge/branch/transform.pir

Log:
update file against recent PIR syntax updates. (Get RT #48034 to fail the way it's reported in the ticket.)



Modified: trunk/examples/tge/branch/transform.pir
==============================================================================
--- trunk/examples/tge/branch/transform.pir	(original)
+++ trunk/examples/tge/branch/transform.pir	Mon Dec 15 22:05:24 2008
@@ -28,7 +28,7 @@
     # Compile a grammar from the source grammar file
     .local pmc grammar
     grammar = new 'TGE'
-    grammar.agcompile(source)
+    grammar.'agcompile'(source)
 
     # Build up the tree for testing
     .local pmc tree
@@ -36,10 +36,10 @@
 
     # Apply the grammar to the test tree
     .local pmc AGI
-    AGI = grammar.apply(tree)
+    AGI = grammar.'apply'(tree)
 
     # Retrieve the value of a top level attribute
-    $P4 = AGI.get('gmin')
+    $P4 = AGI.'get'('gmin')
     print "----\nthe global minimum attribute value is: "
     print $P4
     print " of type: "
@@ -48,7 +48,7 @@
     print "\n"
 
     # Rerieve the transformed tree
-    $P5 = AGI.get('result')
+    $P5 = AGI.'get'('result')
 #    $S5 = typeof $P5
 #    print $S5
 #    print "\n"



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