[svn:parrot] r46837 - in branches/gsoc_past_optimization: examples/library runtime/parrot/library/PAST

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Fri May 21 04:29:54 2010
New Revision: 46837
URL: https://trac.parrot.org/parrot/changeset/46837

Log:
Change to 4-space indent for consistency.

Modified:
   branches/gsoc_past_optimization/examples/library/pastwalker.pir
   branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.pir

Modified: branches/gsoc_past_optimization/examples/library/pastwalker.pir
==============================================================================
--- branches/gsoc_past_optimization/examples/library/pastwalker.pir	Fri May 21 04:16:05 2010	(r46836)
+++ branches/gsoc_past_optimization/examples/library/pastwalker.pir	Fri May 21 04:29:54 2010	(r46837)
@@ -4,59 +4,59 @@
 .namespace ['PAST';'Walker']
 
 .sub 'onload' :anon :init :load
-	load_bytecode 'PCT.pbc'
-	load_bytecode 'PAST/Walker.pbc'
-	$P0 = subclass ['PAST'; 'Walker'], ['PAST'; 'Walker'; 'Dumper']
-	$P0 = subclass ['PAST'; 'Walker'], ['PAST'; 'Walker'; 'Changer']
+    load_bytecode 'PCT.pbc'
+    load_bytecode 'PAST/Walker.pbc'
+    $P0 = subclass ['PAST'; 'Walker'], ['PAST'; 'Walker'; 'Dumper']
+    $P0 = subclass ['PAST'; 'Walker'], ['PAST'; 'Walker'; 'Changer']
 .end
-
+    
 .sub 'walk' :multi(['PAST';'Walker';'Dumper'], ['PAST'; 'Val'])
-	.param pmc walker
-	.param pmc node
-	say "Val {"
-	$P0 = node.'value'()
-	print "  value => "
-	say $P0
-	'walkChildren'(walker, node)
-	say "} laV"
+    .param pmc walker
+    .param pmc node
+    say "Val {"
+    $P0 = node.'value'()
+    print "  value => "
+    say $P0
+    'walkChildren'(walker, node)
+    say "} laV"
 .end
 
 .sub 'walk' :multi(['PAST';'Walker';'Dumper'], ['PAST';'Var'])
-	.param pmc walker
-	.param pmc node
-	say "Var {"
-	'walkChildren'(walker, node)
-	say "} raV"
+    .param pmc walker
+    .param pmc node
+    say "Var {"
+    'walkChildren'(walker, node)
+    say "} raV"
 .end
 
 .sub 'walk' :multi(['PAST';'Walker';'Changer'], ['PAST';'Val'])
-	.param pmc walker
-	.param pmc node
-	node.'value'(5)
+    .param pmc walker
+    .param pmc node
+    node.'value'(5)
 .end
 
 .namespace []
 
 .sub 'main' :main
-	.local pmc past, dumper, changer, walk
-	past = new ['PAST';'Var']
-	$P0 = new ['PAST';'Val']
-	$P0.'value'(0)
-	push past, $P0
-	$P0 = new ['PAST';'Var']
-	push past, $P0
-
-	walk = get_hll_global ['PAST';'Walker'], 'walk'
-
-	dumper = new ['PAST';'Walker';'Dumper']
-	walk(dumper, past)
-
-	say "\n\nChanging:\n"
-	
-	changer = new ['PAST';'Walker';'Changer']
-	walk(changer, past)
-
-	walk(dumper, past)
+    .local pmc past, dumper, changer, walk
+    past = new ['PAST';'Var']
+    $P0 = new ['PAST';'Val']
+    $P0.'value'(0)
+    push past, $P0
+    $P0 = new ['PAST';'Var']
+    push past, $P0
+    
+    walk = get_hll_global ['PAST';'Walker'], 'walk'
+    
+    dumper = new ['PAST';'Walker';'Dumper']
+    walk(dumper, past)
+    
+    say "\n\nChanging:\n"
+    
+    changer = new ['PAST';'Walker';'Changer']
+    walk(changer, past)
+    
+    walk(dumper, past)
 .end
 
 # Local Variables:

Modified: branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.pir
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.pir	Fri May 21 04:16:05 2010	(r46836)
+++ branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.pir	Fri May 21 04:29:54 2010	(r46837)
@@ -12,7 +12,7 @@
 =cut
 
 .sub 'onload' :anon :init :load
-	$P0 = newclass ['PAST'; 'Walker']
+    $P0 = newclass ['PAST'; 'Walker']
 .end
 
 .namespace ['PAST'; 'Walker']
@@ -34,9 +34,9 @@
 =cut
 
 .sub 'walk' :multi(['PAST';'Walker'], ['PAST';'Node'])
-	.param pmc walker
-	.param pmc node
-	.tailcall 'walkChildren'(walker, node)
+    .param pmc walker
+    .param pmc node
+    .tailcall 'walkChildren'(walker, node)
 .end
 
 =item walkChildren(walker, node)
@@ -46,19 +46,19 @@
 =cut
 
 .sub 'walkChildren' :multi(_, ['PAST';'Node'])
-	.param pmc walker
-	.param pmc node
-	.local int max, curr
-	.local pmc child
-	max = elements node
-	curr = 0
+    .param pmc walker
+    .param pmc node
+    .local int max, curr
+    .local pmc child
+    max = elements node
+    curr = 0
 
 loop:
-	ge curr, max, end
-	child = node[curr]
-	'walk'(walker, child)
-	inc curr
-	branch loop
+    ge curr, max, end
+    child = node[curr]
+    'walk'(walker, child)
+    inc curr
+    branch loop
 end:
 .end
 
@@ -77,8 +77,8 @@
 =cut
 
 .sub 'walk' :method
-	.param pmc node
-	.tailcall 'walk'(self, node)
+    .param pmc node
+    .tailcall 'walk'(self, node)
 .end
 
 =item walkChildren(node)
@@ -88,8 +88,8 @@
 =cut
 
 .sub 'walkChildren' :method
-	.param pmc node
-	.tailcall 'walkChildren'(self, node)
+    .param pmc node
+    .tailcall 'walkChildren'(self, node)
 .end
 
 =back