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

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

From:
jquelin
Date:
January 7, 2009 04:54
Subject:
[svn:parrot] r35119 - trunk/languages/befunge
Message ID:
20090107125411.55423CB9F9@x12.develooper.com
Author: jquelin
Date: Wed Jan  7 04:54:10 2009
New Revision: 35119

Modified:
   trunk/languages/befunge/debug.pir

Log:
debug help implemented


Modified: trunk/languages/befunge/debug.pir
==============================================================================
--- trunk/languages/befunge/debug.pir	(original)
+++ trunk/languages/befunge/debug.pir	Wed Jan  7 04:54:10 2009
@@ -111,6 +111,27 @@
     print "\n"
 .end
 
+.sub "_debug__help"
+    print "Available commands are:\n"
+    print " status        - print state of current IP\n"
+    print " dump          - dump playfield\n"
+    print " break c       - set a breakpoint on character c\n"
+    print " break x,y     - set a breakpoint at coords (x,y)\n"
+    print " break c:x     - set a breakpoint on column x\n"
+    print " break r:y     - set a breakpoint on row y\n"
+    print " delete c      - delete breakpoint on character c\n"
+    print " delete x,y    - delete breakpoint at coords (x,y)\n"
+    print " delete c:x    - delete breakpoint on column x\n"
+    print " delete r:y    - delete breakpoint on row y\n"
+    print " list          - list breakpoints\n"
+    print " next          - step one befunge instruction\n"
+    print " continue      - resume execution\n"
+    print " restart       - restart execution\n"
+    print " quit          - abort execution\n"
+    print " help          - display this message\n"
+    print "\n"
+.end
+
 # The interpreter has reached a breakpoint. Let's
 # stop and interact with user.
 .sub "_debug__interact"
@@ -133,9 +154,13 @@
 
   DEBUG__INTERACT__DUMP:
   DEBUG__INTERACT__HELP:
+    _debug__help()
+    goto DEBUG__INTERACT__LOOP
+
   DEBUG__INTERACT__LIST:
     print "Not yet implemented...\n"
     goto DEBUG__INTERACT__LOOP
+
   DEBUG__INTERACT__NEXT:
   DEBUG__INTERACT__QUIT:
 
@@ -170,23 +195,6 @@
         bsr DEBUG_DUMP_PLAYFIELD
         branch DEBUG_INTERACT
 DEBUG_INTERACT_HELP:
-        print "Available commands are:\n"
-        print " status        - print state of current IP\n"
-        print " dump          - dump playfield\n"
-        print " break c       - set a breakpoint on character c\n"
-        print " break x,y     - set a breakpoint at coords (x,y)\n"
-        print " break c:x     - set a breakpoint on column x\n"
-        print " break r:y     - set a breakpoint on row y\n"
-        print " delete c      - delete breakpoint on character c\n"
-        print " delete x,y    - delete breakpoint at coords (x,y)\n"
-        print " delete c:x    - delete breakpoint on column x\n"
-        print " delete r:y    - delete breakpoint on row y\n"
-        print " list          - list breakpoints\n"
-        print " next          - step one befunge instruction\n"
-        print " continue      - resume execution\n"
-        print " restart       - restart execution\n"
-        print " quit          - abort execution\n"
-        print " help          - display this message\n"
         print "\n"
         branch DEBUG_INTERACT
 DEBUG_INTERACT_NEXT:



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