ly/guile-debugger.ly

   1 %%%% This file is part of LilyPond, the GNU music typesetter.
   2 %%%%
   3 %%%% Copyright (C) 2009 by Ian Hulin <ian@hulin.org.uk>
   4 %%%%
   5 %%%% LilyPond is free software: you can redistribute it and/or modify
   6 %%%% it under the terms of the GNU General Public License as published by
   7 %%%% the Free Software Foundation, either version 3 of the License, or
   8 %%%% (at your option) any later version.
   9 %%%%
  10 %%%% LilyPond is distributed in the hope that it will be useful,
  11 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 %%%% GNU General Public License for more details.
  14 %%%%
  15 %%%% You should have received a copy of the GNU General Public License
  16 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  17
  18
  19
  20 %%  \include this file to enable the setting of breakpoints in guile.
  21 %%  Once loaded, this file will open a guile debug prompt.  Type
  22 %%  help
  23 %%  at the debug prompt to get a list of possible commands.
  24 %%  For more information, see the Contributors' Guide.
  25
  26
  27 \version "2.13.4"
  28
  29 #(use-modules
  30   (ice-9 debugger)
  31   (ice-9 debugging trace)
  32   (ice-9 debugging steps)
  33   (ice-9 debugging ice-9-debugger-extensions))
  34
  35 #(define (break! proc)
  36    (install-trap (make <procedure-trap>
  37                    #:procedure proc
  38                    #:behaviour debug-trap)))
  39
  40 #(define (trace! proc)
  41    (install-trap (make <procedure-trap>
  42                    #:procedure proc
  43                    #:behaviour (list trace-trap
  44                                      trace-at-exit))))
  45
  46 #(define (trace-subtree! proc)
  47    (install-trap (make <procedure-trap>
  48                    #:procedure proc
  49                    #:behaviour (list trace-trap
  50                                      trace-until-exit))))
  51
  52 #(module-define! (resolve-module '(guile-user))
  53                  'lilypond-module
  54                  (current-module))
  55 #(top-repl)
  56 #(set-current-module lilypond-module)