X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fsafe-lily.scm;h=ac89b1e2790177f1bb87d206bc516bddeb58a6c7;hb=fcbfe1bd96cdb1051ef5cf2b9bb270965221aeed;hp=65484d243cd852bad5162b59a4cafae01ac9e9d2;hpb=2a4d7df6e50f62cb03dc133fc9fb92b6806fa7c7;p=lilypond.git diff --git a/scm/safe-lily.scm b/scm/safe-lily.scm index 65484d243c..ac89b1e279 100644 --- a/scm/safe-lily.scm +++ b/scm/safe-lily.scm @@ -2,14 +2,14 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (map (lambda (sym) (set! safe-objects (cons (cons sym (primitive-eval sym)) safe-objects))) '(ly:add-interface - ly:add-moment + ly:moment-add ly:all-grob-interfaces ly:all-output-backend-commands ly:all-stencil-expressions @@ -26,12 +26,13 @@ ly:context? ly:dimension? ly:dir? - ly:div-moment + ly:moment-div ly:duration-dot-count ly:duration-factor ly:duration-log ly:durationstring ly:option-usage ly:output-def-clone ly:output-def-scope ly:output-description ly:paper-book? - ly:layout-def? + ly:prob-property + ly:output-def? ly:paper-get-font ly:paper-get-number - ly:paper-system-break-before-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:parser-print-book - ly:parser-print-score ly:pitch-alteration ly:pitch-diff ly:pitch-notename @@ -123,15 +119,14 @@ ly:set-option ly:set-point-and-click ly:spanner-broken-into - ly:spanner-get-bound + ly:spanner-bound ly:spanner? ly:stencil-add - ly:stencil-align-to! + ly:stencil-aligned-to ly:stencil-combine-at-edge ly:stencil-expr ly:stencil-extent ly:stencil-moved-to-edge - ly:stencil-set-extent! ly:stencil-translate ly:stencil-translate-axis ly:stencil? @@ -141,113 +136,74 @@ ly:translator? ly:transpose-key-alist ly:unit + ly:usage ly:version - ly:warn + ly:warning ;; FIXME: cannot change staff size in --safe-mode ;;$defaultpaper ;;$defaultmidi ;;$defaultlayout - Accidental_interface::after_line_breaking - Accidental_interface::print - Ambitus::print - Arpeggio::print - Arpeggio::brew_chord_bracket - Arpeggio::width_callback - Axis_group_interface::group_extent_callback - Bar_line::before_line_breaking - Bar_line::get_staff_bar_size - Bar_line::print - Beam::after_line_breaking - Beam::before_line_breaking - Beam::check_concave - Beam::least_squares - Beam::print - Beam::quanting - Beam::shift_region_to_valid - Beam::slope_damping - Beam::space_function - Break_align_interface::alignment_callback - Breathing_sign::offset_callback - Chord_name::after_line_breaking - Clef::before_line_breaking - Clef::print - Cluster::print - Cluster_beacon::height - Custos::print - Dot_column::side_position - Dots::print - Hairpin::print - Hara_kiri_group_spanner::force_hara_kiri_callback - Hara_kiri_group_spanner::y_extent - Horizontal_bracket::print - Hyphen_spanner::print - Hyphen_spanner::set_spacing_rods - Key_signature_interface::print - Line_spanner::after_line_breaking - Line_spanner::print - Lyric_extender::print - Measure_grouping::print - Mensural_ligature::brew_ligature_primitive - Mensural_ligature::print - Multi_measure_rest::percent - Multi_measure_rest::print - Multi_measure_rest::set_spacing_rods - Note_head::print - Note_head::brew_ez_stencil - Ottava_bracket::print - Paper_column::before_line_breaking - Paper_column::print - Percent_repeat_item_interface::beat_slash - Percent_repeat_item_interface::double_percent - Piano_pedal_bracket::print - Rest::after_line_breaking - Rest::extent_callback - Rest::polyphonic_offset_callback - Rest::print - Script_column::before_line_breaking - Script_interface::before_line_breaking - Script_interface::print - Self_alignment_interface::aligned_on_parent - Self_alignment_interface::aligned_on_self - Self_alignment_interface::centered_on_other_axis_parent - Self_alignment_interface::centered_on_parent - 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 - Spacing_spanner::set_springs - Span_bar::before_line_breaking - Span_bar::get_bar_size - Span_bar::print - Span_bar::width_callback - Spanner::set_spacing_rods - Staff_symbol::print - Staff_symbol_referencer::callback - Stem::before_line_breaking - Stem::width_callback - Stem::height - Stem::offset_callback - Stem::print - Stem_tremolo::height - Stem_tremolo::print - Sustain_pedal::print - System_start_delimiter::after_line_breaking - System_start_delimiter::print - Text_interface::print - Text_spanner::print - Tie::print - Tie_column::after_line_breaking - Time_signature::print - Tuplet_bracket::after_line_breaking - Tuplet_bracket::before_line_breaking - Tuplet_bracket::print - Vaticana_ligature::brew_ligature_primitive - Vaticana_ligature::print - Volta_bracket_interface::print + ly:accidental-interface::print + ly:ambitus::print + ly:arpeggio::print + ly:arpeggio::brew-chord-bracket + ly:bar-line::print + ly:breathing-sign::offset-callback + ly:clef::print + ly:cluster::print + ly:cluster-beacon::height + ly:custos::print + ly:dot-column::side-position + ly:dots::print + ly:hairpin::print + ly:hara-kiri-group-spanner::force-hara-kiri-callback + ly:hara-kiri-group-spanner::y-extent + ly:horizontal-bracket::print + ly:lyric-hyphen::print + ly:lyric-hyphen::set-spacing-rods + ly:key-signature-interface::print + ly:line-spanner::print + ly:lyric-extender::print + ly:measure-grouping::print + ly:mensural-ligature::brew-ligature-primitive + ly:mensural-ligature::print + ly:multi-measure-rest::percent + ly:multi-measure-rest::print + ly:multi-measure-rest::set-spacing-rods + ly:note-head::print +;; ly:note-head::brew-ez-stencil + ly:ottava-bracket::print + ly:paper-column::print + ly:percent-repeat-item-interface::beat-slash + ly:percent-repeat-item-interface::double-percent + ly:piano-pedal-bracket::print + ly:rest::print + ly:script-interface::print + ly:separating-group-spanner::set-spacing-rods + ly:slur::height + ly:slur::print + ly:spacing-spanner::set-springs + ly:span-bar::print + ly:spanner::set-spacing-rods + ly:staff-symbol::print + ly:staff-symbol-referencer::callback + ly:stem::height + ly:stem::offset-callback + ly:stem::print + ly:stem-tremolo::height + ly:stem-tremolo::print + ly:sustain-pedal::print + ly:system-start-delimiter::print + ly:text-interface::print + ly:text-spanner::print + ly:tie::print + ly:time-signature::print + ly:tuplet-bracket::print + ly:vaticana-ligature::brew-ligature-primitive + ly:vaticana-ligature::print + ly:volta-bracket-interface::print )) (define-public (make-safe-lilypond-module)