Author: infinoid
Date: Wed Jan 7 20:19:34 2009
New Revision: 35187
Modified:
trunk/languages/befunge/befunge.pir
trunk/languages/befunge/debug.pir
trunk/languages/befunge/flow.pir
Log:
[cage] Fix some trailing whitespace.
Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir (original)
+++ trunk/languages/befunge/befunge.pir Wed Jan 7 20:19:34 2009
@@ -69,28 +69,28 @@
if debug == 0 goto TICK_NODEBUG
debug__check_breakpoint()
-
+
TICK_NODEBUG:
# flags handling
if char == '"' goto FLOW_TOGGLE_STRING_MODE
if flag == 1 goto IO_PUSH_CHAR
if flag == 2 goto FLOW_TRAMPOLINE
if flag == 3 goto END
-
+
# sole number
if char < '0' goto NOT_NUM
if char <= '9' goto MATHS_PUSH_NUMBER
NOT_NUM:
-
+
# direction changing
if char == '>' goto FLOW_GO_EAST
if char == '^' goto FLOW_GO_NORTH
if char == 'v' goto FLOW_GO_SOUTH
if char == '<' goto FLOW_GO_WEST
-
+
# unknown instruction
goto MOVE_PC
-
+
=pod
@@ -160,10 +160,10 @@
MATHS_PUSH_NUMBER:
maths__push_number()
goto MOVE_PC
-
-
+
+
# instruction executed, now move the pc
-
+
MOVE_PC:
# reload status & associated vars, that may have
# changed in the subs
@@ -172,7 +172,7 @@
dir = status["dir"]
x = status["x"]
y = status["y"]
-
+
if dir == 1 goto MOVE_EAST
if dir == 2 goto MOVE_SOUTH
if dir == 3 goto MOVE_WEST
Modified: trunk/languages/befunge/debug.pir
==============================================================================
--- trunk/languages/befunge/debug.pir (original)
+++ trunk/languages/befunge/debug.pir Wed Jan 7 20:19:34 2009
@@ -141,7 +141,7 @@
.sub "_debug__dump_playfield"
.local string divider, line
.local pmc playfield
-
+
playfield = get_global "playfield"
divider = repeat '-', 82
concat divider, "\n"
@@ -158,7 +158,7 @@
$S0 = chr $I2
concat line, $S0
inc $I1
- goto DEBUG__DUMP_PLAYFIELD__NEXT_CHAR
+ goto DEBUG__DUMP_PLAYFIELD__NEXT_CHAR
DEBUG__DUMP_PLAYFIELD__EOL:
concat line, "|\n"
print line
@@ -190,7 +190,7 @@
if $S1 == "list" goto DEBUG__INTERACT__LIST
if $S1 == "next" goto DEBUG__INTERACT__NEXT
if $S1 == "quit" goto DEBUG__INTERACT__QUIT
-
+
=pod
substr S11, S10, 0, 5
@@ -210,7 +210,7 @@
DEBUG__INTERACT__DUMP:
_debug__dump_playfield()
goto DEBUG__INTERACT__LOOP
-
+
DEBUG__INTERACT__HELP:
_debug__help()
goto DEBUG__INTERACT__LOOP
@@ -255,7 +255,7 @@
DEBUG_INTERACT_STATUS:
bsr DEBUG_PRINT_STATUS
branch DEBUG_INTERACT
-
+
=cut
DEBUG__INTERACT__END:
Modified: trunk/languages/befunge/flow.pir
==============================================================================
--- trunk/languages/befunge/flow.pir (original)
+++ trunk/languages/befunge/flow.pir Wed Jan 7 20:19:34 2009
@@ -54,14 +54,14 @@
.sub "flow__toggle_string_mode"
$P0 = get_global "status"
$I0 = $P0["flag"]
-
+
if $I0 == 1 goto FLOW__TOGGLE_STRING_MODE__OFF
$P0["flag"] = 1
goto FLOW__TOGGLE_STRING_MODE__DONE
-
+
FLOW__TOGGLE_STRING_MODE__OFF:
$P0["flag"] = 0
-
+
FLOW__TOGGLE_STRING_MODE__DONE:
set_global "status", $P0
.end
