Author: allison
Date: Mon Feb 20 14:56:39 2006
New Revision: 11685
Modified:
trunk/ (props changed)
trunk/languages/punie/lib/PAST/Node.pir
trunk/languages/punie/lib/PAST/Op.pir
trunk/languages/punie/lib/PAST/Val.pir
trunk/languages/punie/lib/POST/Node.pir
trunk/languages/punie/lib/POST/Op.pir
trunk/languages/punie/lib/POST/Val.pir
trunk/languages/punie/lib/POST/Var.pir
Log:
Standardizing on the :method syntax.
Modified: trunk/languages/punie/lib/PAST/Node.pir
==============================================================================
--- trunk/languages/punie/lib/PAST/Node.pir (original)
+++ trunk/languages/punie/lib/PAST/Node.pir Mon Feb 20 14:56:39 2006
@@ -20,7 +20,7 @@ All PAST nodes subclass from this base t
.end
-.sub __init method
+.sub __init :method
$P1 = new PerlUndef
$P2 = new Integer
$P3 = new PerlUndef
@@ -30,7 +30,7 @@ All PAST nodes subclass from this base t
setattribute self, "children", $P3
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param pmc children
@@ -42,22 +42,22 @@ All PAST nodes subclass from this base t
.return ()
.end
-.sub source method
+.sub source :method
$P2 = getattribute self, "source"
.return ($P2)
.end
-.sub pos method
+.sub pos :method
$P2 = getattribute self, "pos"
.return ($P2)
.end
-.sub children method
+.sub children :method
$P2 = getattribute self, "children"
.return ($P2)
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -79,7 +79,7 @@ All PAST nodes subclass from this base t
.return ()
.end
-.sub "dump_attribute" method
+.sub "dump_attribute" :method
.param string name
.param int level :optional
.local string indent
@@ -103,7 +103,7 @@ All PAST nodes subclass from this base t
.return ()
.end
-.sub "dump_children" method
+.sub "dump_children" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
Modified: trunk/languages/punie/lib/PAST/Op.pir
==============================================================================
--- trunk/languages/punie/lib/PAST/Op.pir (original)
+++ trunk/languages/punie/lib/PAST/Op.pir Mon Feb 20 14:56:39 2006
@@ -19,11 +19,12 @@ is a subclass of PAST::Node.
.return ()
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param string op
- .param pmc children
+ .param pmc children :optional
+ .param int got_children :opt_flag
$P1 = getattribute self, "source"
$P1 = source
$P2 = getattribute self, "pos"
@@ -31,11 +32,13 @@ is a subclass of PAST::Node.
$P3 = new PerlString
$P3 = op
setattribute self, "op", $P3
- setattribute self, "children", children
+ unless got_children goto no_children
+ setattribute self, "children", children
+ no_children:
.return ()
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -58,7 +61,7 @@ is a subclass of PAST::Node.
.return ()
.end
-.sub op method
+.sub op :method
$P2 = getattribute self, "op"
.return ($P2)
.end
Modified: trunk/languages/punie/lib/PAST/Val.pir
==============================================================================
--- trunk/languages/punie/lib/PAST/Val.pir (original)
+++ trunk/languages/punie/lib/PAST/Val.pir Mon Feb 20 14:56:39 2006
@@ -19,7 +19,7 @@ PAST::Val is a subclass of PAST::Node.
.return ()
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param string value
@@ -33,7 +33,7 @@ PAST::Val is a subclass of PAST::Node.
.return ()
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -56,12 +56,12 @@ PAST::Val is a subclass of PAST::Node.
.return ()
.end
-.sub value method
+.sub value :method
$P2 = getattribute self, "value"
.return ($P2)
.end
-.sub valtype method
+.sub valtype :method
.param string valtype :optional
unless valtype goto get
set:
Modified: trunk/languages/punie/lib/POST/Node.pir
==============================================================================
--- trunk/languages/punie/lib/POST/Node.pir (original)
+++ trunk/languages/punie/lib/POST/Node.pir Mon Feb 20 14:56:39 2006
@@ -20,7 +20,7 @@ All POST nodes subclass from this base t
.end
-.sub __init method
+.sub __init :method
$P1 = new PerlUndef
$P2 = new Integer
$P3 = new PerlUndef
@@ -30,7 +30,7 @@ All POST nodes subclass from this base t
setattribute self, "children", $P3
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param pmc children
@@ -42,23 +42,23 @@ All POST nodes subclass from this base t
.return ()
.end
-.sub source method
+.sub source :method
$P2 = getattribute self, "source"
.return ($P2)
.end
-.sub pos method
+.sub pos :method
$P2 = getattribute self, "pos"
.return ($P2)
.end
-.sub children method
+.sub children :method
$P2 = getattribute self, "children"
.return ($P2)
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -80,7 +80,7 @@ All POST nodes subclass from this base t
.return ()
.end
-.sub "dump_attribute" method
+.sub "dump_attribute" :method
.param string name
.param int level :optional
.local string indent
@@ -104,7 +104,7 @@ All POST nodes subclass from this base t
.return ()
.end
-.sub "dump_children" method
+.sub "dump_children" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
Modified: trunk/languages/punie/lib/POST/Op.pir
==============================================================================
--- trunk/languages/punie/lib/POST/Op.pir (original)
+++ trunk/languages/punie/lib/POST/Op.pir Mon Feb 20 14:56:39 2006
@@ -19,11 +19,12 @@ POST::Node.
.return ()
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param string op
- .param pmc children
+ .param pmc children :optional
+ .param int got_children :opt_flag
$P1 = getattribute self, "source"
$P1 = source
$P2 = getattribute self, "pos"
@@ -31,11 +32,13 @@ POST::Node.
$P3 = new PerlString
$P3 = op
setattribute self, "op", $P3
- setattribute self, "children", children
+ unless got_children goto no_children
+ setattribute self, "children", children
+ no_children:
.return ()
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -58,7 +61,7 @@ POST::Node.
.return ()
.end
-.sub op method
+.sub op :method
$P2 = getattribute self, "op"
.return ($P2)
.end
Modified: trunk/languages/punie/lib/POST/Val.pir
==============================================================================
--- trunk/languages/punie/lib/POST/Val.pir (original)
+++ trunk/languages/punie/lib/POST/Val.pir Mon Feb 20 14:56:39 2006
@@ -19,7 +19,7 @@ POST::Val is a literal value in the OST.
.return ()
.end
-.sub "set_node" method
+.sub "set_node" :method
.param string source
.param int pos
.param string value
@@ -33,7 +33,7 @@ POST::Val is a literal value in the OST.
.return ()
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
@@ -56,12 +56,12 @@ POST::Val is a literal value in the OST.
.return ()
.end
-.sub value method
+.sub value :method
$P2 = getattribute self, "value"
.return ($P2)
.end
-.sub valtype method
+.sub valtype :method
.param string valtype :optional
.param int got_valtype :opt_flag
unless got_valtype goto get
Modified: trunk/languages/punie/lib/POST/Var.pir
==============================================================================
--- trunk/languages/punie/lib/POST/Var.pir (original)
+++ trunk/languages/punie/lib/POST/Var.pir Mon Feb 20 14:56:39 2006
@@ -79,7 +79,7 @@ of POST::Node.
.return ($P2)
.end
-.sub "dump" method
+.sub "dump" :method
.param int level :optional
.local string indent
indent = repeat " ", level # tab is 4 spaces here
