+;;;; safe-lily.scm --
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;;
+;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
(define safe-objects
-
(map
(lambda (sym)
- (cons sym (primitive-eval sym)))
+ (cons sym (primitive-eval sym)))
'(ly:add-interface
ly:add-moment
ly:all-grob-interfaces
+ ly:all-output-backend-commands
+ ly:all-stencil-expressions
ly:bracket
ly:context-find
ly:context-id
ly:music-set-property!
ly:music-transpose
ly:music?
- ly:my-lily-parser?
+ ly:lily-parser?
ly:number->string
ly:option-usage
ly:output-def-clone
ly:output-def-scope
ly:output-description
- ly:page-header-lines-footer-stencil
- ly:page-paper-lines
- ly:page?
ly:paper-book?
ly:paper-def?
ly:paper-get-font
ly:paper-get-number
- ly:paper-line-break-score
- ly:paper-line-height
- ly:paper-line-number
- ly:paper-line-stencil
- ly:paper-line?
+ ly:paper-system-break-penalty
+ ly:paper-system-extent
+ ly:paper-system-number
+ ly:paper-system-stencil
+ ly:paper-system?
ly:output-def-lookup
ly:parse-string
ly:parser-parse-string
ly:pitch-transpose
ly:pitch<?
ly:pitch?
- ly:ragged-page-breaks
ly:round-filled-box
ly:run-translator
ly:set-option
- ly:score-bookify
ly:set-point-and-click
ly:spanner-broken-into
ly:spanner-get-bound
ly:warn
;; need these for parsing init files:
- ;; todo: should have a macro define-safe-public
- DOUBLE-FLAT
- THREE-Q-FLAT
- FLAT
- SEMI-FLAT
- NATURAL
- SEMI-SHARP
- SHARP
+ ;; todo: should have a macro define-safe-public
+ DOUBLE-FLAT
+ THREE-Q-FLAT
+ FLAT
+ SEMI-FLAT
+ NATURAL
+ SEMI-SHARP
+ SHARP
THREE-Q-SHARP
DOUBLE-SHARP
SEMI-TONE
make-voice-props-set
chord-name->german-markup
note-name->german-markup
- default-toplevel-music-handler
- default-toplevel-book-handler
- default-toplevel-score-handler
Accidental_interface::after_line_breaking
Accidental_interface::print
Separating_group_spanner::set_spacing_rods
Side_position_interface::aligned_on_support_refpoints
Side_position_interface::aligned_side
- Slur::after_line_breaking
- Slur::height
- Slur::print
+ New_slur::after_line_breaking
+ New_slur::height
+ New_slur::print
Spacing_spanner::set_springs
Span_bar::before_line_breaking
Span_bar::get_bar_size
Vaticana_ligature::brew_ligature_primitive
Vaticana_ligature::print
Volta_bracket_interface::print
-
-
-
-
)))
(define-public (make-safe-lilypond-module)
- (let*
- ((m (make-safe-module)))
- (for-each
- (lambda (p) (module-define! m (car p) (cdr p)))
- safe-objects)
+ (let* ((m (make-safe-module)))
+ (for-each (lambda (p) (module-define! m (car p) (cdr p))) safe-objects)
m))
-