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

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

From:
infinoid
Date:
January 7, 2009 20:19
Subject:
[svn:parrot] r35187 - trunk/languages/befunge
Message ID:
20090108041935.4D5C6CB9FA@x12.develooper.com
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



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