;;;; (ice-9 debugger state) -- debugger state representation ;;; Copyright (C) 2002 Free Software Foundation, Inc. ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as ;;; published by the Free Software Foundation; either version 2, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this software; see the file COPYING. If not, write to ;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;; Boston, MA 02111-1307 USA ;;; ;;; As a special exception, the Free Software Foundation gives permission ;;; for additional uses of the text contained in its release of GUILE. ;;; ;;; The exception is that, if you link the GUILE library with other files ;;; to produce an executable, this does not by itself cause the ;;; resulting executable to be covered by the GNU General Public License. ;;; Your use of that executable is in no way restricted on account of ;;; linking the GUILE library code into it. ;;; ;;; This exception does not however invalidate any other reasons why ;;; the executable file might be covered by the GNU General Public License. ;;; ;;; This exception applies only to the code released by the ;;; Free Software Foundation under the name GUILE. If you copy ;;; code from other Free Software Foundation releases into a copy of ;;; GUILE, as the General Public License permits, the exception does ;;; not apply to the code that you add in this way. To avoid misleading ;;; anyone as to the status of such modified files, you must delete ;;; this exception notice from them. ;;; ;;; If you write modifications of your own for GUILE, it is your choice ;;; whether to permit this exception to apply to your modifications. ;;; If you do not wish that, delete this exception notice. (define-module (ice-9 debugger state) #:export (make-state state-stack state-index state-flags set-stack-index!)) (define state-rtd (make-record-type "debugger-state" '(stack index flags))) (define state? (record-predicate state-rtd)) (define make-state (let ((make-state-internal (record-constructor state-rtd '(stack index flags)))) (lambda (stack index . flags) (make-state-internal stack index flags)))) (define state-stack (record-accessor state-rtd 'stack)) (define state-index (record-accessor state-rtd 'index)) (define state-flags (record-accessor state-rtd 'flags)) (define set-state-index! (record-modifier state-rtd 'index)) (define (set-stack-index! state index) (let* ((stack (state-stack state)) (ssize (stack-length stack))) (set-state-index! state (cond ((< index 0) 0) ((>= index ssize) (- ssize 1)) (else index))))) ;;; (ice-9 debugger state) ends here.