/[guile]/guile/guile-core/ice-9/debugger/command-loop.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/debugger/command-loop.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ossau, Mon Nov 4 18:58:15 2002 UTC revision 1.3 by mdj, Tue Mar 11 19:57:43 2003 UTC
# Line 1  Line 1 
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
# Line 42  Line 42 
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)
# Line 538  Line 538 
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)
# Line 567  Line 567 
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26