/usr/share/lilypond/2.18.2/scm/guile-debugger.scm is in lilypond-data 2.18.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | ;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
;;;; Copyright (C) 2010--2012 Ian Hulin <ian@hulin.org.uk>
;;;;
;;;; LilyPond 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 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; LilyPond 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 LilyPond. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; This file provides the support routines for a guile debugger called
;;; from an environment controlled by LilyPond. It works in conjunction
;;; with file guile-debugger.ly.
;;; Code:
(define-module (scm guile-debugger)
#:use-module (ice-9 debugger)
#:use-module (ice-9 debugging traps)
#:use-module (ice-9 debugging trace)
#:use-module (ice-9 debugging steps)
#:use-module (ice-9 debugging ice-9-debugger-extensions)
#:use-module (ice-9 readline)
#:export (set-break!
clear-break!
set-trace-call!
clear-trace-call!
set-trace-subtree!
clear-trace-subtree!
debug-help))
(define (set-break! proc)
(install-trap (make <procedure-trap>
#:procedure proc
#:behaviour debug-trap)))
(define (clear-break! proc)
(uninstall-trap (make <procedure-trap>
#:procedure proc
#:behaviour debug-trap)))
(define (set-trace-call! proc)
(install-trap (make <procedure-trap>
#:procedure proc
#:behaviour (list trace-trap
trace-at-exit))))
(define (clear-trace-call! proc)
(uninstall-trap (make <procedure-trap>
#:procedure proc
#:behaviour (list trace-trap
trace-at-exit))))
(define (set-trace-subtree! proc)
(install-trap (make <procedure-trap>
#:procedure proc
#:behaviour (list trace-trap
trace-until-exit))))
(define (clear-trace-subtree! proc)
(uninstall-trap (make <procedure-trap>
#:procedure proc
#:behaviour (list trace-trap
trace-until-exit))))
(define (debug-help )
(display "\nYou may add the following commands as debugging statements in your source file\n")
(display "or enter the set-x! commands at the guile prompt:\n\n")
(display " (set-break! <procedure>)\n")
(display " causes guile to enter debugger on a call to <procedure>\n")
(display " (clear-break! <procedure>)\n")
(display " disables a breakpoint previously set on a call to <procedure>\n")
(display " (set-trace-call! <procedure>)\n")
(display " prints out a line when Scheme enters or exits <procedure>\n")
(display " (clear-trace-call! <procedure>)\n")
(display " turns off tracing calls to <procedure>\n")
(display " (set-trace-subtree! <procedure>)\n")
(display " displays each line of Scheme code executed during a call to <procedure>\n")
(display " (clear-trace-subtree! <procedure>)\n")
(display " turns off tracing code during calls to <procedure>\n\n")
(display "Enter help at the guile debug> prompt for further information on debugger commands\n")
(newline))
|