Author: allison
Date: Mon Feb 20 15:44:45 2006
New Revision: 11686
Modified:
trunk/ (props changed)
trunk/compilers/tge/TGE.pir
trunk/compilers/tge/TGE/Instance.pir
trunk/compilers/tge/TGE/Rule.pir
Log:
TGE standardized on :method syntax.
Modified: trunk/compilers/tge/TGE.pir
==============================================================================
--- trunk/compilers/tge/TGE.pir (original)
+++ trunk/compilers/tge/TGE.pir Mon Feb 20 15:44:45 2006
@@ -90,7 +90,7 @@ of TGE::Rule objects, which are the sema
=cut
-.sub __init method
+.sub __init :method
$P1 = new PerlArray
setattribute self, 'rules', $P1
.end
@@ -101,7 +101,7 @@ Add a rule to the current attribute gram
=cut
-.sub 'agrule' method
+.sub 'agrule' :method
.param pmc type
.param pmc name
.param pmc parent
@@ -126,7 +126,7 @@ Compile a grammar from a source string.
=cut
-.sub 'agcompile' method
+.sub 'agcompile' :method
.param string source
.local pmc agparse
.local pmc rule_data
@@ -173,7 +173,7 @@ I<top node> of the data structure.
=cut
-.sub 'apply' method
+.sub 'apply' :method
.param pmc tree
.local pmc newtree
.local pmc visit
@@ -214,7 +214,7 @@ Produce a data dump of the current conte
=cut
-.sub 'dump' method
+.sub 'dump' :method
$P0 = getattribute self, 'rules'
$I1 = $P0
Modified: trunk/compilers/tge/TGE/Instance.pir
==============================================================================
--- trunk/compilers/tge/TGE/Instance.pir (original)
+++ trunk/compilers/tge/TGE/Instance.pir Mon Feb 20 15:44:45 2006
@@ -27,7 +27,7 @@ constructor parameters.
=cut
-.sub __init method
+.sub __init :method
$P0 = new PerlHash
$P1 = new PerlHash
$P2 = new PerlUndef
@@ -37,7 +37,7 @@ constructor parameters.
.end
# Call all visitors for a given node
-.sub _scan_node method
+.sub _scan_node :method
.param pmc node
.param pmc name :optional
.param int got_name :opt_flag
@@ -88,7 +88,7 @@ node.
=cut
-.sub get method
+.sub get :method
.param pmc name
.param pmc node :optional
.param int got_node :opt_flag
@@ -141,7 +141,7 @@ eval_cell:
.end
# Evaluate a thunk.
-.sub _eval_cell method
+.sub _eval_cell :method
.param pmc cell
.param pmc node
.local pmc value
@@ -163,7 +163,7 @@ return_value:
.end
# Install a thunk in a particular attribute slot of a particular object.
-.sub _install_action method
+.sub _install_action :method
.param pmc node
.param pmc rule
@@ -232,7 +232,7 @@ error_defined:
.end
# This determines the semantics of .attr.
-.sub _lookup_child method
+.sub _lookup_child :method
.param pmc node
.param pmc name
$S0 = name
Modified: trunk/compilers/tge/TGE/Rule.pir
==============================================================================
--- trunk/compilers/tge/TGE/Rule.pir (original)
+++ trunk/compilers/tge/TGE/Rule.pir Mon Feb 20 15:44:45 2006
@@ -34,7 +34,7 @@ attribute grammar rule.
=cut
-.sub __init method
+.sub __init :method
$P0 = new PerlUndef
$P1 = new PerlUndef
$P2 = new PerlUndef
@@ -54,7 +54,7 @@ Produce a data dump of the current conte
=cut
-.sub "dump" method
+.sub "dump" :method
$P0 = getattribute self, "type"
print "\t\t\t'type' => '"
print $P0
