1 |
;;;; Guile Debugger command loop |
;;;; Guile Debugger command loop |
2 |
|
|
3 |
;;; Copyright (C) 1999, 2001, 2002 Free Software Foundation, Inc. |
;;; Copyright (C) 1999, 2001, 2002, 2003 Free Software Foundation, Inc. |
4 |
;;; |
;;; |
5 |
;;; This program is free software; you can redistribute it and/or |
;;; This program is free software; you can redistribute it and/or |
6 |
;;; modify it under the terms of the GNU General Public License as |
;;; modify it under the terms of the GNU General Public License as |
42 |
;;; If you do not wish that, delete this exception notice. |
;;; If you do not wish that, delete this exception notice. |
43 |
|
|
44 |
(define-module (ice-9 debugger command-loop) |
(define-module (ice-9 debugger command-loop) |
45 |
#:use-module (ice-9 debugger commands) |
#:use-module ((ice-9 debugger commands) :prefix debugger:) |
46 |
#:export (debugger-command-loop |
#:export (debugger-command-loop |
47 |
debugger-command-loop-error |
debugger-command-loop-error |
48 |
debugger-command-loop-quit) |
debugger-command-loop-quit) |
538 |
(error "Unknown value from lookup-command:" value))))) |
(error "Unknown value from lookup-command:" value))))) |
539 |
state)) |
state)) |
540 |
|
|
541 |
(define-command "frame" '('optional exact-nonnegative-integer) frame) |
(define-command "frame" '('optional exact-nonnegative-integer) debugger:frame) |
542 |
|
|
543 |
(define-command "position" '() position) |
(define-command "position" '() debugger:position) |
544 |
|
|
545 |
(define-command "up" '('optional exact-integer) up) |
(define-command "up" '('optional exact-integer) debugger:up) |
546 |
|
|
547 |
(define-command "down" '('optional exact-integer) down) |
(define-command "down" '('optional exact-integer) debugger:down) |
548 |
|
|
549 |
(define-command "backtrace" '('optional exact-integer) backtrace) |
(define-command "backtrace" '('optional exact-integer) debugger:backtrace) |
550 |
|
|
551 |
(define-command "evaluate" '(object) evaluate) |
(define-command "evaluate" '(object) debugger:evaluate) |
552 |
|
|
553 |
(define-command '("info" "args") '() info-args) |
(define-command '("info" "args") '() debugger:info-args) |
554 |
|
|
555 |
(define-command '("info" "frame") '() info-frame) |
(define-command '("info" "frame") '() debugger:info-frame) |
556 |
|
|
557 |
(define-command "quit" '() |
(define-command "quit" '() |
558 |
(lambda (state) |
(lambda (state) |
567 |
(define-command-alias '("info" "stack") "backtrace") |
(define-command-alias '("info" "stack") "backtrace") |
568 |
|
|
569 |
|
|
570 |
(define-command "continue" '() continue) |
(define-command "continue" '() debugger:continue) |
571 |
|
|
572 |
(define-command "finish" '() finish) |
(define-command "finish" '() debugger:finish) |
573 |
|
|
574 |
(define-command "trace-finish" '() trace-finish) |
(define-command "trace-finish" '() debugger:trace-finish) |
575 |
|
|
576 |
(define-command "step" '('optional exact-integer) step) |
(define-command "step" '('optional exact-integer) debugger:step) |
577 |
|
|
578 |
(define-command "next" '('optional exact-integer) next) |
(define-command "next" '('optional exact-integer) debugger:next) |