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: