scm/safe-lily.scm

   1 (define safe-objects
   2
   3   (map
   4    (lambda (sym)
   5      (cons sym (primitive-eval sym)))
   6    '(ly:add-interface
   7      ly:add-moment
   8      ly:all-grob-interfaces
   9      ly:bracket
  10      ly:context-find
  11      ly:context-id
  12      ly:context-name
  13      ly:context-parent
  14      ly:context-property
  15      ly:context-property-where-defined
  16      ly:context-pushpop-property
  17      ly:context-set-property!
  18      ly:context-unset-property
  19      ly:context?
  20      ly:dimension?
  21      ly:dir?
  22      ly:div-moment
  23      ly:duration-dot-count
  24      ly:duration-factor
  25      ly:duration-log
  26      ly:duration<?
  27      ly:duration?
  28      ly:export
  29      ly:find-glyph-by-name
  30      ly:font-design-size
  31      ly:font-encoding-alist
  32      ly:font-filename
  33      ly:font-magnification
  34      ly:font-metric?
  35      ly:font-name
  36      ly:format-output
  37      ly:get-all-function-documentation
  38      ly:get-all-translators
  39      ly:get-default-font
  40      ly:get-glyph
  41      ly:get-option
  42      ly:grob-alist-chain
  43      ly:grob-extent
  44      ly:grob-original
  45      ly:grob-paper
  46      ly:grob-parent
  47      ly:grob-pq-less?
  48      ly:grob-property
  49      ly:grob-script-priority-less
  50      ly:grob-set-property!
  51      ly:grob-staff-position
  52      ly:grob-suicide
  53      ly:grob-system
  54      ly:grob-translate-axis!
  55      ly:grob?
  56      ly:input-location
  57      ly:input-location?
  58      ly:input-message
  59      ly:intlog2
  60      ly:item-break-dir
  61      ly:item?
  62      ly:iterator?
  63      ly:make-bare-music
  64      ly:make-duration
  65      ly:make-moment
  66      ly:make-music-function
  67      ly:make-pitch
  68      ly:make-stencil
  69      ly:moment<?
  70      ly:moment?
  71      ly:mul-moment
  72      ly:music-compress
  73      ly:music-deep-copy
  74      ly:music-duration-compress
  75      ly:music-duration-length
  76      ly:music-length
  77      ly:music-list?
  78      ly:music-mutable-properties
  79      ly:music-name
  80      ly:music-property
  81      ly:music-scorify
  82      ly:music-set-property!
  83      ly:music-transpose
  84      ly:music?
  85      ly:my-lily-parser?
  86      ly:number->string
  87      ly:option-usage
  88      ly:output-def-clone
  89      ly:output-def-scope
  90      ly:output-description
  91      ly:page-header-lines-footer-stencil
  92      ly:page-paper-lines
  93      ly:page?
  94      ly:paper-book?
  95      ly:paper-def?
  96      ly:paper-get-font
  97      ly:paper-get-number
  98      ly:paper-line-break-penalty
  99      ly:paper-line-extent
 100      ly:paper-line-number
 101      ly:paper-line-stencil
 102      ly:paper-line?
 103      ly:output-def-lookup
 104      ly:parse-string
 105      ly:parser-parse-string
 106      ly:parser-print-book
 107      ly:parser-print-score
 108      ly:pitch-alteration
 109      ly:pitch-diff
 110      ly:pitch-notename
 111      ly:pitch-octave
 112      ly:pitch-quartertones
 113      ly:pitch-semitones
 114      ly:pitch-steps
 115      ly:pitch-transpose
 116      ly:pitch<?
 117      ly:pitch?
 118      ly:round-filled-box
 119      ly:run-translator
 120      ly:set-option
 121      ly:score-bookify
 122      ly:set-point-and-click
 123      ly:spanner-broken-into
 124      ly:spanner-get-bound
 125      ly:spanner?
 126      ly:stencil-add
 127      ly:stencil-align-to!
 128      ly:stencil-combine-at-edge
 129      ly:stencil-expr
 130      ly:stencil-extent
 131      ly:stencil-moved-to-edge
 132      ly:stencil-set-extent!
 133      ly:stencil-translate
 134      ly:stencil-translate-axis
 135      ly:stencil?
 136      ly:text-dimension
 137      ly:translator-description
 138      ly:translator-name
 139      ly:translator?
 140      ly:transpose-key-alist
 141      ly:unit
 142      ly:version
 143      ly:warn
 144
 145      ;; need these for parsing init files:
 146      ;; todo: should have a macro define-safe-public
 147      DOUBLE-FLAT
 148      THREE-Q-FLAT
 149      FLAT
 150      SEMI-FLAT
 151      NATURAL
 152      SEMI-SHARP
 153      SHARP
 154      THREE-Q-SHARP
 155      DOUBLE-SHARP
 156      SEMI-TONE
 157      START
 158      STOP
 159      alist->hash-table
 160      default-chord-modifier-list
 161      sequential-music-to-chord-exceptions
 162      make-music
 163      make-articulation
 164      make-event-chord
 165      make-penalty-music
 166      make-span-event
 167      set-start-grace-properties
 168      set-stop-grace-properties
 169      set-default-paper-size
 170      set-part-combine-listener
 171      context-spec-music
 172      make-voice-props-revert
 173      make-voice-props-set
 174      chord-name->german-markup
 175      note-name->german-markup
 176      default-toplevel-music-handler
 177      default-toplevel-book-handler
 178      default-toplevel-score-handler
 179
 180      Accidental_interface::after_line_breaking
 181      Accidental_interface::print
 182      Ambitus::print
 183      Arpeggio::print
 184      Arpeggio::brew_chord_bracket
 185      Arpeggio::width_callback
 186      Axis_group_interface::group_extent_callback
 187      Bar_line::before_line_breaking
 188      Bar_line::get_staff_bar_size
 189      Bar_line::print
 190      Beam::after_line_breaking
 191      Beam::before_line_breaking
 192      Beam::check_concave
 193      Beam::least_squares
 194      Beam::print
 195      Beam::quanting
 196      Beam::shift_region_to_valid
 197      Beam::slope_damping
 198      Beam::space_function
 199      Break_align_interface::alignment_callback
 200      Breathing_sign::offset_callback
 201      Chord_name::after_line_breaking
 202      Clef::before_line_breaking
 203      Clef::print
 204      Cluster::print
 205      Cluster_beacon::height
 206      Custos::print
 207      Dot_column::side_position
 208      Dots::print
 209      Hairpin::print
 210      Hara_kiri_group_spanner::force_hara_kiri_callback
 211      Hara_kiri_group_spanner::y_extent
 212      Horizontal_bracket::print
 213      Hyphen_spanner::print
 214      Hyphen_spanner::set_spacing_rods
 215      Key_signature_interface::print
 216      Line_spanner::after_line_breaking
 217      Line_spanner::print
 218      Lyric_extender::print
 219      Measure_grouping::print
 220      Mensural_ligature::brew_ligature_primitive
 221      Mensural_ligature::print
 222      Multi_measure_rest::percent
 223      Multi_measure_rest::print
 224      Multi_measure_rest::set_spacing_rods
 225      Note_head::extent
 226      Note_head::print
 227      Note_head::brew_ez_stencil
 228      Ottava_bracket::print
 229      Paper_column::before_line_breaking
 230      Paper_column::print
 231      Percent_repeat_item_interface::beat_slash
 232      Percent_repeat_item_interface::double_percent
 233      Piano_pedal_bracket::print
 234      Rest::after_line_breaking
 235      Rest::extent_callback
 236      Rest::polyphonic_offset_callback
 237      Rest::print
 238      Script_column::before_line_breaking
 239      Script_interface::before_line_breaking
 240      Script_interface::print
 241      Self_alignment_interface::aligned_on_parent
 242      Self_alignment_interface::aligned_on_self
 243      Self_alignment_interface::centered_on_other_axis_parent
 244      Self_alignment_interface::centered_on_parent
 245      Separating_group_spanner::set_spacing_rods
 246      Side_position_interface::aligned_on_support_refpoints
 247      Side_position_interface::aligned_side
 248      Slur::after_line_breaking
 249      Slur::height
 250      Slur::print
 251      Spacing_spanner::set_springs
 252      Span_bar::before_line_breaking
 253      Span_bar::get_bar_size
 254      Span_bar::print
 255      Span_bar::width_callback
 256      Spanner::set_spacing_rods
 257      Staff_symbol::print
 258      Staff_symbol_referencer::callback
 259      Stem::before_line_breaking
 260      Stem::dim_callback
 261      Stem::height
 262      Stem::off_callback
 263      Stem::print
 264      Stem_tremolo::height
 265      Stem_tremolo::print
 266      Sustain_pedal::print
 267      System_start_delimiter::after_line_breaking
 268      System_start_delimiter::print
 269      Text_item::print
 270      Text_spanner::print
 271      Tie::print
 272      Tie_column::after_line_breaking
 273      Time_signature::print
 274      Tuplet_bracket::after_line_breaking
 275      Tuplet_bracket::before_line_breaking
 276      Tuplet_bracket::print
 277      Vaticana_ligature::brew_ligature_primitive
 278      Vaticana_ligature::print
 279      Volta_bracket_interface::print
 280
 281
 282
 283
 284      )))
 285
 286 (define-public (make-safe-lilypond-module)
 287   (let*
 288       ((m (make-safe-module)))
 289     (for-each
 290      (lambda (p) (module-define! m (car p) (cdr p)))
 291      safe-objects)
 292     m))
 293