develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35151 - trunk/languages/befunge

From:
jquelin
Date:
January 7, 2009 10:04
Subject:
[svn:parrot] r35151 - trunk/languages/befunge
Message ID:
20090107180406.8EC57CB9F9@x12.develooper.com
Author: jquelin
Date: Wed Jan  7 10:04:05 2009
New Revision: 35151

Modified:
   trunk/languages/befunge/flow.pir

Log:
migrated tabs to 4 spaces


Modified: trunk/languages/befunge/flow.pir
==============================================================================
--- trunk/languages/befunge/flow.pir	(original)
+++ trunk/languages/befunge/flow.pir	Wed Jan  7 10:04:05 2009
@@ -6,38 +6,38 @@
 # Befunge stack unchanged.
 # delta <- (0,-1)
 FLOW_GO_NORTH:
-        set I2, 0
-        branch MOVE_PC
+    set I2, 0
+    branch MOVE_PC
 
 # Go east.
 # Befunge stack unchanged.
 # delta <- (1,0)
 FLOW_GO_EAST:
-        set I2, 1
-        branch MOVE_PC
+    set I2, 1
+    branch MOVE_PC
 
 # Go south.
 # Befunge stack unchanged.
 # delta <- (0,1)
 FLOW_GO_SOUTH:
-        set I2, 2
-        branch MOVE_PC
+    set I2, 2
+    branch MOVE_PC
 
 # Go west.
 # Befunge stack unchanged.
 # delta <- (-1,0)
 FLOW_GO_WEST:
-        set I2, 3
-        branch MOVE_PC
+    set I2, 3
+    branch MOVE_PC
 
 FLOW_GO_AWAY:
-        save 4
-        bsr MATHS_RAND
-        restore I10
-        set I2, I10
-        save I2
-        restore I2
-        branch MOVE_PC
+    save 4
+    bsr MATHS_RAND
+    restore I10
+    set I2, I10
+    save I2
+    restore I2
+    branch MOVE_PC
 
 # East/West if.
 # Befunge stack:
@@ -45,12 +45,12 @@
 #   after:      ...
 # delta <- if (b) (-1,0) else (1,0)
 FLOW_EW_IF:
-        set I10, P2
-        unless I10, FLOW_EW_IF_POP_1
-        pop I10, P2
+    set I10, P2
+    unless I10, FLOW_EW_IF_POP_1
+    pop I10, P2
 FLOW_EW_IF_POP_1:
-        eq I10, 0, FLOW_GO_EAST
-        branch FLOW_GO_WEST
+    eq I10, 0, FLOW_GO_EAST
+    branch FLOW_GO_WEST
 
 # North/South if.
 # Befunge stack:
@@ -58,12 +58,12 @@
 #   after:      ...
 # delta <- if (b) (0,-1) else (0,1)
 FLOW_NS_IF:
-        set I10, P2
-        unless I10, FLOW_NS_IF_POP_1
-        pop I10, P2
+    set I10, P2
+    unless I10, FLOW_NS_IF_POP_1
+    pop I10, P2
 FLOW_NS_IF_POP_1:
-        eq I10, 0, FLOW_GO_SOUTH
-        branch FLOW_GO_NORTH
+    eq I10, 0, FLOW_GO_SOUTH
+    branch FLOW_GO_NORTH
 
 
 # Greater than.
@@ -72,44 +72,44 @@
 #   after:      ... a>b
 # Result is either 1 or 0.
 FLOW_COMPARE:
-        set I10, P2
-        unless I10, FLOW_COMPARE_POP_1
-        pop I10, P2
+    set I10, P2
+    unless I10, FLOW_COMPARE_POP_1
+    pop I10, P2
 FLOW_COMPARE_POP_1:
-        set I11, P2
-        unless I11, FLOW_COMPARE_POP_2
-        pop I11, P2
+    set I11, P2
+    unless I11, FLOW_COMPARE_POP_2
+    pop I11, P2
 FLOW_COMPARE_POP_2:
-        set I12, 1
-        gt I11, I10, FLOW_COMPARE_TRUE
-        set I12, 0
+    set I12, 1
+    gt I11, I10, FLOW_COMPARE_TRUE
+    set I12, 0
 FLOW_COMPARE_TRUE:
-        push P2, I12
-        branch MOVE_PC
+    push P2, I12
+    branch MOVE_PC
 
 # Toggle string mode.
 # Befunge stack unchanged.
 FLOW_TOGGLE_STRING_MODE:
-        eq I4, 1, FLOW_TOGGLE_STRING_MODE_OFF
-        set I4, 1
-        branch MOVE_PC
+    eq I4, 1, FLOW_TOGGLE_STRING_MODE_OFF
+    set I4, 1
+    branch MOVE_PC
 FLOW_TOGGLE_STRING_MODE_OFF:
-        set I4, 0
-        branch MOVE_PC
+    set I4, 0
+    branch MOVE_PC
 
 # Trampoline.
 # Befunge stack unchanged.
 # Skip next instruction (pos < pos + delta)
 FLOW_BRIDGE:
-        set I4, 2
-        branch MOVE_PC
+    set I4, 2
+    branch MOVE_PC
 
 # Stop.
 # Befunge stack unchanged.
 # End program.
 FLOW_END:
-        set I4, 3
-        branch MOVE_PC
+    set I4, 3
+    branch MOVE_PC
 
 =cut
 



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