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

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

From:
jquelin
Date:
January 7, 2009 09:59
Subject:
[svn:parrot] r35150 - trunk/languages/befunge
Message ID:
20090107175917.E98C5CB9F9@x12.develooper.com
Author: jquelin
Date: Wed Jan  7 09:59:17 2009
New Revision: 35150

Modified:
   trunk/languages/befunge/befunge.pir

Log:
starting tick() implemention


Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir	(original)
+++ trunk/languages/befunge/befunge.pir	Wed Jan  7 09:59:17 2009
@@ -68,8 +68,13 @@
 
     if debug == 0 goto TICK_NODEBUG
     debug__check_breakpoint()
+    
   TICK_NODEBUG:
-
+    if char == '"' goto FLOW_TOGGLE_STRING_MODE
+    
+    # unknown instruction
+    goto MOVE_PC
+    
 =pod
 
 
@@ -118,8 +123,15 @@
         eq S0, "g", IO_GET_VALUE
         eq S0, "p", IO_PUT_VALUE
 
-        # Unknow instruction.
-        branch MOVE_PC
+=cut
+
+  FLOW_TOGGLE_STRING_MODE:
+    flow__toggle_string_mode()
+    goto MOVE_PC
+    
+  MOVE_PC:
+
+=pod
 
 MAIN_TRAMPOLINE:
         set I4, 0               # no more trampoline



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