]> git.donarmstrong.com Git - lilypond.git/commitdiff
(mangle_cxx_identifier): new
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 31 Jan 2006 23:52:53 +0000 (23:52 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 31 Jan 2006 23:52:53 +0000 (23:52 +0000)
function. Class_bla::foo_bar_[px] ->
ly:class-bla::foo-bar[?!]. Changes throughout

37 files changed:
ChangeLog
Documentation/user/advanced-notation.itely
Documentation/user/basic-notation.itely
Documentation/user/changing-defaults.itely
Documentation/user/introduction.itely
VERSION
input/mutopia/R.Schumann/romanze-op28-2.ly
input/regression/apply-output.ly
input/regression/balloon.ly
input/regression/beam-default-lengths.ly
input/regression/beam-shortened-lengths.ly
input/regression/multi-measure-rest-text.ly
input/regression/spacing-folded-clef2.ly
input/regression/stencil-hacking.ly
input/test/bar-number-regular-interval.ly
input/test/boxed-stencil.ly
input/test/circle.ly
input/wilhelmus.ly
lily/include/lily-guile-macros.hh
lily/include/music-iterator.hh
lily/lily-guile.cc
lily/music-iterator.cc
ly/bagpipe.ly
ly/gregorian-init.ly
ly/init.ly
ly/property-init.ly
python/convertrules.py
scm/define-grob-properties.scm
scm/define-grobs.scm
scm/define-markup-commands.scm
scm/define-music-types.scm
scm/layout-beam.scm
scm/markup.scm
scm/music-functions.scm
scm/output-lib.scm
scm/safe-lily.scm
scripts/convert-ly.py

index 095b44e663ef4a7379c32d0bef5a212833f2390d..1e02e32a4ad9e401928c1d54bd15ac004543e765 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-01  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * lily/lily-guile.cc (mangle_cxx_identifier): new
+       function. Class_bla::foo_bar_[px] ->
+       ly:class-bla::foo-bar[?!]. Changes throughout
+
 2006-01-31  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * flower/include/guile-compatibility.hh (scm_from_unsigned): add scm_from_unsigned().
index 7a0813d0d99a2b6e71c0da0be4633eb673f403bd..ddb55ab23439dfcf6026b1ecbaa6fd7f43fe5498 100644 (file)
@@ -1541,7 +1541,7 @@ tsMarkup =\markup {
 }
 
 {
-  \override Staff.TimeSignature #'stencil = #Text_interface::print
+  \override Staff.TimeSignature #'stencil = #ly:text-interface::print
   \override Staff.TimeSignature #'text = #tsMarkup
   \time 3/2
   c'2 \bar ":" c'4 c'4.
index e238793a61a782f15038b32fc845500b5f92e8df..fcc9fea43f48abd0c03de781ac31b7f7c9108fd3 100644 (file)
@@ -3010,7 +3010,7 @@ measure rest with a different print function,
 
 @lilypond[fragment,verbatim]
 \override MultiMeasureRest #'stencil
-  = #Multi_measure_rest::percent
+  = #ly:multi-measure-rest::percent
 R1
 @end lilypond
 
index c26a309bcd49ce03d2631d1fce0bed65bab667f3..d81994a3080ed0c259183c729ee123f2e3d0b788 100644 (file)
@@ -1149,8 +1149,8 @@ does not amount to much.  The initialization file
      (self-alignment-X . 0)
      (self-alignment-Y . 0)
      (script-priority . 100)
-     (stencil . ,Text_interface::print)
-     (direction . ,Script_interface::calc_direction)
+     (stencil . ,ly:text-interface::print)
+     (direction . ,ly:script-interface::calc-direction)
      (font-encoding . fetaNumber)
      (font-size . -5)          ; don't overlap when next to heads.
      (meta . ((class . Item)
@@ -1336,7 +1336,7 @@ of the broken tie is translated up.
 When applying this trick, the new @code{after-line-breaking} callback
 should also call the old one @code{after-line-breaking}, if there is
 one.  For example, if using this with @code{Hairpin},
-@code{Hairpin::after_line_breaking} should also be called.
+@code{ly:hairpin::after-line-breaking} should also be called.
 
 
 @item Some objects cannot be changed with @code{\override} for
index 8f03e9461d0400ad275503c138bda663409f9053..fad434478a4ee1789f4f49c43ced6becc28d84bc 100644 (file)
@@ -319,7 +319,7 @@ fragment.
     (if (and (memq 'note-head-interface interfaces)
              (memq pos '(-2 -3 -5)))
         (begin
-          (ly:grob-set-property! grob 'stencil Text_interface::print)
+          (ly:grob-set-property! grob 'stencil ly:text-interface::print)
           (ly:grob-set-property! grob 'font-family 'roman)
           (ly:grob-set-property!
            grob 'text
@@ -336,7 +336,7 @@ fragment.
    \set autoBeaming = ##f
    \time 2/4
    <d f g>4
-   \once \override NoteHead #'stencil = #Note_head::brew_ez_stencil
+   \once \override NoteHead #'stencil = #ly:note-head::brew-ez-stencil
    <d f g>
    \once \override NoteHead #'style = #'cross
    <d f g>
diff --git a/VERSION b/VERSION
index e2a6db2c1de033fcb6807dafc73b480190d3ab93..b82c8c0b58e3ac144e4da15f36fccac2a664f822 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1,6 +1,6 @@
 PACKAGE_NAME=LilyPond
 MAJOR_VERSION=2
 MINOR_VERSION=7
-PATCH_LEVEL=30
+PATCH_LEVEL=31
 MY_PATCH_LEVEL=
 
index a8ef53b557788dc2fe80b4aec627e24aee1c1217..1a84a5ed4dd342f048601d3973342df5957cfaaf 100644 (file)
@@ -4,7 +4,7 @@
 
 #(set-global-staff-size 16)
 
-\version "2.6.0"
+\version "2.7.31"
 
 \header {
   title = "Romanzen"
@@ -249,7 +249,7 @@ leftb =  \transpose c cis {
     #(set-accidental-style 'piano-cautionary)
     \override PianoStaff.NoteCollision   #'merge-differently-dotted = ##t
     \set PianoStaff.connectArpeggios = ##t
-    \override PianoStaff.Arpeggio #'print-function = #Arpeggio::brew_chord_bracket
+    \override PianoStaff.Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 
     \override PianoStaff.InstrumentName #'font-size = #6
     \override PianoStaff.InstrumentName #'font-shape = #'italic
index 1b2791c8193dfa52ad54e74ed9bcce97d5d4ef14..e5f714851bb3138a80102b353013f2b9db0fcceb 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "2.7.13
+\version "2.7.31
 \header {
 
   texidoc = "The @code{\applyOutput} expression is the most flexible way to
@@ -21,7 +21,7 @@ position.
    (if (and (memq 'note-head-interface ifs)
        (memq sp '(-2 -3 -5)))
     (begin
-     (ly:grob-set-property! gr 'stencil Text_interface::print)
+     (ly:grob-set-property! gr 'stencil ly:text-interface::print)
      (ly:grob-set-property! gr 'font-family 'roman)
      (ly:grob-set-property!
       gr 'text
index c7f78c45cd34702c948948fbe333f99bba086e5d..00a11bed3c49cc0d081f9ee3b51315f40ff7b7b5 100644 (file)
@@ -3,7 +3,7 @@
   texidoc = "With balloon texts, objects in the output can be marked,
 with lines and explanatory text added."
 }
-\version "2.7.13"
+\version "2.7.31"
 
 \layout{ raggedright = ##t }
 
@@ -12,8 +12,8 @@ with lines and explanatory text added."
   \relative c'  {
 
     %% by hand:
-    \once\override Stem #'stencil = #Balloon_interface::print
-    \once\override Stem #'original-stencil = #Stem::print
+    \once\override Stem #'stencil = #ly:balloon-interface::print
+    \once\override Stem #'original-stencil = #ly:stem::print
     \once\override Stem #'balloon-text = #"I'm a stem"
     \once\override Stem #'balloon-text-offset = #'(3 . 4)
     \once\override Stem #'balloon-text-props
index e066c1b60992517a888c49663e8663b7a4736654..a05c7096808331ab341375891be97d8ba00eb49b 100644 (file)
@@ -1,6 +1,6 @@
 \layout{ raggedright = ##t}
 
-\version "2.7.13"
+\version "2.7.31"
 
 \header{
   texidoc="Beamed stems have standard lengths if possible. Quantization is switched off in this example."
     (ly:make-simple-closure
      (list chain-grob-member-functions
       `(,cons 0 0)
-      Beam::calc_least_squares_positions
-      Beam::slope_damping
-      Beam::shift_region_to_valid
-      Beam::set_stem_lengths
+      ly:beam::calc-least-squares-positions
+      ly:beam::slope-damping
+      ly:beam::shift-region-to-valid
+      ly:beam::set-stem-lengths
     )))
 
   f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f] 
index b27d7349d9146856a54668c7d2594e78fc0002b2..a774f19018c08ead15bb9bd2d0f46174c21e97a7 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "2.7.13"
+\version "2.7.31"
 
 \header{
   texidoc="Beams in unnatural direction, have shortened stems, but do not look too short."
@@ -13,9 +13,9 @@
     (ly:make-simple-closure
      (list chain-grob-member-functions
       `(,cons 0 0)
-      Beam::calc_least_squares_positions
-      Beam::slope_damping
-      Beam::shift_region_to_valid
+      ly:beam::calc-least-squares-positions
+      ly:beam::slope-damping
+      ly:beam::shift-region-to-valid
     )))
   
   \stemUp
index b53496b00cfca2a17a1d6965747fa69dc3e01eec..005dbbffee4790d564c4e1cae063aa607fab8a46 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.7.14"
+\version "2.7.31"
 
 \header  {
 
@@ -23,7 +23,7 @@ measures stretch to accomodate wide texts.
   R2.*3_\markup { \roman "a1b2c3" }
   R2.*10^"inner"^"top"_"inner"_"bot"
   \override MultiMeasureRestText  #'springs-and-rods
-    = #Multi_measure_rest::set_text_rods
+    = #ly:multi-measure-rest::set-text-rods
 
   R2.^"very very very very very very long text"
   c'2.
index 23e6ff2cd7231aca0cb0a4c8c8eb0e4400b2e0d3..5d50aac3c68fafec5cc10bf1f27db06d733afdd0 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.7.14"
+\version "2.7.31"
 \header {
 
 texidoc = "A clef can be folded below notes in a different staff, if
@@ -11,8 +11,8 @@ can show where columns are in the score."
 
     \context {
        \Score
-       \override NonMusicalPaperColumn  #'stencil = #Paper_column::print
-       \override PaperColumn  #'stencil = #Paper_column::print   
+       \override NonMusicalPaperColumn  #'stencil = #ly:paper-column::print
+       \override PaperColumn  #'stencil = #ly:paper-column::print        
        \override NonMusicalPaperColumn #'font-family = #'roman
        \override PaperColumn #'font-family = #'roman     
 
index 525b8444991a3de962678d29cf577d17b15f82c8..1ca4d9ed9b3f7a7409810662491a92433680255f 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "2.7.14"
+\version "2.7.31"
 
 \header { texidoc=" You can write stencil callbacks in Scheme, thus
 providing custom glyphs for notation elements.  A simple example is
@@ -18,7 +18,7 @@ Example usage:
 
   \\property NoteHead \\override #'print-function
                   =
-                     #(parenthesize-callback Note_head::print)
+                     #(parenthesize-callback ly:note-head::print)
                    
 "
 
@@ -55,13 +55,13 @@ GROB.  The dimensions of the stencil is not affected.
 
     \override NoteHead  #'stencil
     =
-    #(parenthesize-callback Note_head::print)
+    #(parenthesize-callback ly:note-head::print)
     g bes
     \revert NoteHead #'stencil
 
     \override Beam  #'stencil
     =
-    #(parenthesize-callback Beam::print)
+    #(parenthesize-callback ly:beam::print)
 
     a8 gis8 a2.
     
index 78b4a9f7e72643b70f05618b4717078c7b699d47..ae6fcac0aef4a5e69e62374551186fa966a788bd 100644 (file)
@@ -5,7 +5,7 @@ Bar numbers can be printed at regular intervals, inside a box or a circle.
 
 " }
 
-\version "2.7.14"
+\version "2.7.31"
 
 \relative c'{
    \override Score.BarNumber  #'break-visibility = #end-of-line-invisible
@@ -13,11 +13,11 @@ Bar numbers can be printed at regular intervals, inside a box or a circle.
    \override Score.BarNumber #'font-size = #2
 
    \override Score.BarNumber  #'stencil
-   = #(make-stencil-boxer 0.1 0.25 Text_interface::print)
+   = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print)
    \repeat unfold 5 { c1 } \bar "|"
 
    \override Score.BarNumber  #'stencil
-   = #(make-stencil-circler 0.1 0.25 Text_interface::print)
+   = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
    \repeat unfold 4 { c1 } \bar "|."
 }
 
index 6ff226d390038ae0006cd882e25c100326f92cbc..2a020e5c5de7f6b77950e660a218c39a1aa9cdbb 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "2.7.14"
+\version "2.7.31"
 \header {
   texidoc = "@cindex Boxed Stencil
 
@@ -11,15 +11,15 @@ grob. " }
 \relative c''  {
 
   \override TextScript  #'stencil =
-  #(make-stencil-boxer 0.1 0.3 Text_interface::print)
+  #(make-stencil-boxer 0.1 0.3 ly:text-interface::print)
 
   c'4^"foo"
 
   \override Stem  #'stencil =
-  #(make-stencil-boxer 0.05 0.25 Stem::print)
+  #(make-stencil-boxer 0.05 0.25 ly:stem::print)
 
   \override Score.RehearsalMark  #'stencil =
-  #(make-stencil-boxer 0.15 0.3 Text_interface::print)
+  #(make-stencil-boxer 0.15 0.3 ly:text-interface::print)
   b8
   \revert Stem #'stencil
 
index 3ff498c8296877f85fa45a3ff663f4710e803b76..3147ab6e381a24463a149561ae1096506a0ae1eb 100644 (file)
@@ -1,5 +1,5 @@
 
-\version "2.7.14"
+\version "2.7.31"
 \header {
 texidoc = "@cindex Circle
 
@@ -19,5 +19,5 @@ c1
 c2 d^\markup{\circle \finger "2"}
 \override Score.BarNumber #'break-visibility = #all-visible
 \override Score.BarNumber  #'stencil
-  = #(make-stencil-circler 0.1 0.25 Text_interface::print)
+  = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
 }
\ No newline at end of file
index 73806699fe0c0bd5d29bf6f29a2a6721a23df411..5edc1c1c62ad6be5933fcaabe75ca2397d543521 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.7.14"
+\version "2.7.31"
 
 \header {
   texidoc = "Wilhelmus van Nassouwe"
@@ -173,7 +173,7 @@ oneHalfNoteTime = \markup {
       \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(2 . 2)
       
       %% Custom time signature
-      \override Staff.TimeSignature #'stencil = #Text_interface::print
+      \override Staff.TimeSignature #'stencil = #ly:text-interface::print
       \override Staff.TimeSignature #'text = #oneHalfNoteTime
       \noclefs
     
index 15243c0d8b0d3171cec96f596c62322a11a4e6cc..3eebaec544a9e2a97c8c6c284691e27c533be014 100644 (file)
@@ -87,15 +87,17 @@ inline SCM ly_symbol2scm (char const *x) { return scm_str2symbol ((x)); }
 /*
   Make TYPE::FUNC available as a Scheme function.
 */
+std::string mangle_cxx_identifier (std::string);
 #define MAKE_SCHEME_CALLBACK(TYPE, FUNC, ARGCOUNT)                     \
   SCM TYPE ::FUNC ## _proc;                                            \
   void                                                                 \
   TYPE ## _ ## FUNC ## _init_functions ()                              \
   {                                                                    \
-    TYPE ::FUNC ## _proc = scm_c_define_gsubr (#TYPE "::" #FUNC,       \
+    std::string id = mangle_cxx_identifier (String (#TYPE) + "::" + String (#FUNC));\
+    TYPE ::FUNC ## _proc = scm_c_define_gsubr (id.c_str(),                     \
                                               (ARGCOUNT), 0, 0,        \
                                               (Scheme_function_unknown) TYPE::FUNC); \
-    scm_c_export (#TYPE "::" #FUNC, NULL);                             \
+    scm_c_export (id.c_str (), NULL);                                  \
   }                                                                    \
                                                                        \
   ADD_SCM_INIT_FUNC (TYPE ## _ ## FUNC ## _callback,                   \
index 2440ae8d996d37d9d0364db7d9181620af8a4c98..00ed6ad386aabf5fe3cd1980d9370cfff81c52b7 100644 (file)
@@ -93,7 +93,8 @@ private:
 bool is_child_context (Context *me, Context *child);
 
 #define IMPLEMENT_CTOR_CALLBACK(Class)                                 \
-  LY_DEFINE_MEMBER_FUNCTION (Class, constructor, #Class "::constructor", \
+  LY_DEFINE_MEMBER_FUNCTION (Class, constructor, \
+                            mangle_cxx_identifier (std::string (#Class) + "::constructor").c_str(), \
                             0, 0, 0,                                   \
                             (),                                        \
                             "")                                        \
index 6f70bae5f5406825a65fe54b115fe507ccb46e05..aa6a9cc40db4f84971ab34f27af43a2b0f595805 100644 (file)
@@ -721,3 +721,22 @@ procedure_arity (SCM proc)
   SCM fixed = scm_car (arity);
   return scm_to_int (fixed);
 }
+
+std::string
+mangle_cxx_identifier (std::string cxx_id)
+{
+  if (cxx_id.substr (0, 3) == "ly_")
+    cxx_id = cxx_id.replace (0, 3, "ly:");
+  else
+    {
+      cxx_id = String_convert::to_lower (cxx_id);
+      cxx_id = "ly:" + cxx_id;
+    }
+  if (cxx_id.substr (cxx_id.length () - 2) == "_p")
+    cxx_id = cxx_id.replace (cxx_id.length () - 2, 1, "?");
+  else if (cxx_id.substr (cxx_id.length () - 2) == "_x")
+    cxx_id = cxx_id.replace (cxx_id.length () - 2, 1, "!");
+
+  cxx_id = replace_all (cxx_id, '_', '-');
+  return cxx_id;
+}
index 00a5538dc25dd67b59c35ac9cc2a2e0d43e78247..326b97502886559ab3140f6e07f1c2573ecbcd77 100644 (file)
@@ -6,9 +6,6 @@
   (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
-/*
-  UGH. too many includes.
-*/
 
 #include "music-iterator.hh"
 
index 198227980036f7c61cbad26a9f3421cc061940c1..3d9c657d7bf8e1a1da77835c712bcd8bf817bc34 100755 (executable)
@@ -6,10 +6,10 @@
   Sven Axelsson, the Murray Pipes & Drums of Gothenburg
   (http://www.murrays.nu)
   
-  $Id: bagpipe.ly,v 1.8 2005/10/21 14:07:47 hanwen Exp $
+  $Id: bagpipe.ly,v 1.9 2006/01/31 23:52:53 hanwen Exp $
 %}
 
-\version "2.7.14"
+\version "2.7.31"
 
 % Notes of the scale of the Great Highland Bagpipe. Extra high notes for bombarde.
 % Flat notes used mainly in some modern music.
@@ -45,7 +45,7 @@ hideKeySignature = {
 }
 showKeySignature = {
   % Show the key signature e.g. for BMW compatibility.
-  \override Staff.KeySignature  #'stencil = #'Key_signature_interface::print
+  \override Staff.KeySignature  #'stencil = #'ly:key-signature-interface::print
   \set Staff.extraNatural = ##f
   \key d \major
   #(set-accidental-style 'forget)
index 307dc3f6b578a5371a775dd31089458e8820e316..63f70023c4eb8d2ea5c15a114f7f6aa1b86784c2 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.7.14"
+\version "2.7.31"
 
 %%%%%%%%
 %%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -56,7 +56,7 @@ caesura = {
   \breathe
 }
 divisioMinima = {
-  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_minima
+  \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-minima
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
   \once \override BreathingSign  #'extra-X-extent = #'(-1.0 . 0)
@@ -64,7 +64,7 @@ divisioMinima = {
   \breathe
 }
 divisioMaior = {
-  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_maior
+  \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-maior
   \once \override BreathingSign  #'Y-offset = #0
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -73,7 +73,7 @@ divisioMaior = {
   \breathe
 }
 divisioMaxima = {
-  \once \override BreathingSign  #'stencil = #Breathing_sign::divisio_maxima
+  \once \override BreathingSign  #'stencil = #ly:breathing-sign::divisio-maxima
   \once \override BreathingSign  #'Y-offset = #0
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
@@ -82,7 +82,7 @@ divisioMaxima = {
   \breathe
 }
 finalis = {
-  \once \override BreathingSign  #'stencil = #Breathing_sign::finalis
+  \once \override BreathingSign  #'stencil = #ly:breathing-sign::finalis
   \once \override BreathingSign  #'Y-offset = #0
 
   % Workaround: add padding.  Correct fix would be spacing engine handle this.
index e9b5a76398c98ec12093f587b0396d5d4f99e84b..677f4347b676a6bd0556db909d1ff356f27015d5 100644 (file)
@@ -1,6 +1,6 @@
 %% Toplevel initialisation file. 
 
-% switch on debugging.
+%% switch on debugging.
 #(if (and #t (defined? 'set-debug-cell-accesses!))
   (set-debug-cell-accesses! 5000))
 
index 18e3386511db9447953816443a53c69dc8644653..7fe0219e47275cc249320837be1ea345eec32fcb 100644 (file)
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "2.7.14"
+\version "2.7.31"
 
 stemUp = \override Stem  #'direction = #UP
 stemDown = \override Stem  #'direction = #DOWN 
@@ -52,7 +52,7 @@ tieSolid = {
 }
 
 setEasyHeads = \sequential {
-  \override NoteHead  #'stencil = #Note_head::brew_ez_stencil
+  \override NoteHead  #'stencil = #ly:note-head::brew-ez-stencil
   \override NoteHead #'font-size = #-7
   \override NoteHead #'font-family = #'sans
   \override NoteHead #'font-series = #'bold
@@ -151,7 +151,7 @@ arpeggioNeutral = \sequential {
   \revert Arpeggio  #'arpeggio-direction
 }
 arpeggioBracket = \sequential {
-  \override Arpeggio #'stencil = #Arpeggio::brew_chord_bracket
+  \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
 }
 
 glissando = #(make-music 'GlissandoEvent)
index 343f7828075d8f769454db4902059c9438792164..2cbc931f642592e18bdebfd61ecf96f0e9797cfc 100644 (file)
@@ -2687,3 +2687,17 @@ def conv (str):
 
 conversions.append (((2, 7, 30), conv,
                     """\\epsfile"""))
+
+
+def conv (str):
+       def sub_cxx_id (m):
+               str = m.group(1)
+               return 'ly:' + str.lower ().replace ('_','-')
+               
+       str = re.sub (r'([A-Z][a-z_0-9]+::[a-z_0-9]+)',
+                     sub_cxx_id, str)
+       return str
+
+conversions.append (((2, 7, 31), conv,
+                    """Foo_bar::bla_bla -> ly:foo-bar::bla-bla"""))
+
index 53ad479a5a076ca60b02e6d5c8803a11ca7a2ed0..5d530ab5d2e7691f05f10f8adb7ba8934f9babe8 100644 (file)
@@ -551,7 +551,7 @@ debugging")
      (stem-info ,pair? "caching of stem parameters")
      (note-columns ,pair? "list of NoteColumn grobs.")
 
-;;; add-join would be enough if in Mensural_ligature::brew_ligature_primitive
+;;; add-join would be enough if in ly:mensural-ligature::brew-ligature-primitive
 ;;; the next note could be seen
      (join-right-amount ,number? "")
 
index 6a871d11cd55075aac9a5b51599f6a7d7de43647..ea41007c0aee909e9cf0658e16a5f5313378f443 100644 (file)
@@ -22,9 +22,9 @@
        (avoid-slur . inside)
        (cautionary-style . parentheses)
 
-       (stencil . ,Accidental_interface::print)
+       (stencil . ,ly:accidental-interface::print)
        (after-line-breaking
-        . ,Accidental_interface::after_line_breaking)
+        . ,ly:accidental-interface::after-line-breaking)
                                        
        (meta . ((class . Item)
                 (interfaces . (accidental-interface
     
     (AccidentalSuggestion
      . (
-       (stencil . ,Accidental_interface::print)
+       (stencil . ,ly:accidental-interface::print)
        (X-offset . ,(ly:make-simple-closure
                      `(,+
-                       ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
-                       ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+                       ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
+                       ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
        (self-alignment-X . ,CENTER)
        (cautionary . #t)
        (cautionary-style . smaller)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (cautionary-style . parentheses)
        (direction . ,UP)
        (staff-padding . 0.25)
@@ -57,8 +57,8 @@
      . (
        (left-padding . 0.2)
 
-       (positioning-done . ,Accidental_placement::calc_positioning_done)
-       (X-extent . ,Axis_group_interface::width)                     
+       (positioning-done . ,ly:accidental-placement::calc-positioning-done)
+       (X-extent . ,ly:axis-group-interface::width)                  
        
        ;; this is quite small, but it is very ugly to have
        ;; accs closer to the previous note than to the next one.
@@ -68,8 +68,8 @@
     (Ambitus
      . (
        (axes . (0 1))
-       (X-extent . ,Axis_group_interface::width)
-       (X-extent . ,Axis_group_interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
+       (X-extent . ,ly:axis-group-interface::height)
 
        (space-alist . (
                        (clef . (extra-space . 0.5))
     (AmbitusLine
      . (
 
-       (stencil . ,Ambitus::print)
+       (stencil . ,ly:ambitus::print)
 
        (join-heads . #t)
        (thickness . 2)
-       (X-offset . ,Self_alignment_interface::centered_on_x_parent)
+       (X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
 
        (meta . ((class . Item)
                 (interfaces . (ambitus-interface
      . (
        (font-family . music)
        (padding . 0.5)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (cautionary-style . parentheses)
 
-       (stencil . ,Accidental_interface::print)
-       (after-line-breaking . ,Accidental_interface::after_line_breaking)
+       (stencil . ,ly:accidental-interface::print)
+       (after-line-breaking . ,ly:accidental-interface::after-line-breaking)
        (side-axis . ,X)
        
        (meta . ((class . Item)
      . (
        (duration-log . 2)
 
-       (stencil . ,Note_head::print)
+       (stencil . ,ly:note-head::print)
        (glyph-name . ,note-head::calc-glyph-name)
        
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (font-interface
                                note-head-interface
                                ledgered-interface))))))
 
     (Arpeggio
-     . ((X-extent . ,Arpeggio::width)
-       (stencil . ,Arpeggio::print)
-       (Y-offset . ,Staff_symbol_referencer::callback)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+     . ((X-extent . ,ly:arpeggio::width)
+       (stencil . ,ly:arpeggio::print)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (padding . 0.5)
        (side-axis . ,X)
        (break-visibility . ,all-visible)
        (breakable . #t)
 
-       (stencil . ,Bar_line::print)
+       (stencil . ,ly:bar-line::print)
        (glyph-name . ,bar-line::calc-glyph-name)
-       (bar-size .  ,Bar_line::calc_bar_size)
+       (bar-size .  ,ly:bar-line::calc-bar-size)
        
        (space-alist . (
                        (time-signature . (extra-space . 0.75))
 
     (BarNumber
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (breakable . #t)
        (break-visibility . ,begin-of-line-visible)
        (padding . 1.0)
        (direction . ,UP)
        (font-family . roman)
        (font-size . -2)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (self-alignment-X . 1)
 
        (meta .
     (BassFigure
      . (
        ;
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (meta . ((class . Item)
                 (interfaces . (text-interface
     (BassFigureBracket
      . (
        ;
-       (stencil . ,Enclosing_bracket::print)
+       (stencil . ,ly:enclosing-bracket::print)
 
        (edge-height . (0.2 . 0.2))
        (meta . ((class . Item)
     (BassFigureContinuation
      . (
 
-       (stencil . ,Figured_bass_continuation::print)
+       (stencil . ,ly:figured-bass-continuation::print)
 
-       (Y-offset . ,Figured_bass_continuation::center_on_figures)
+       (Y-offset . ,ly:figured-bass-continuation::center-on-figures)
        (meta . ((class . Spanner)
                 (interfaces . (figured-bass-continuation-interface))
                 ))))
      . (
        (axes . (,Y))
 
-       (Y-extent . ,Axis_group_interface::height)
+       (Y-extent . ,ly:axis-group-interface::height)
 
        (meta . ((class . Spanner)
                 (interfaces . (axis-group-interface
        (axes . (,Y))
        (threshold . (2 . 1000))
 
-       (positioning-done . ,Align_interface::calc_positioning_done)
-       (Y-extent . ,Axis_group_interface::height)
+       (positioning-done . ,ly:align-interface::calc-positioning-done)
+       (Y-extent . ,ly:axis-group-interface::height)
                                        
        (stacking-dir . -1)
        (meta . ((class . Spanner)
                        (ly:make-simple-closure
                         (list chain-grob-member-functions
                           `(,cons 0 0)
-                          Beam::calc_least_squares_positions
-                          Beam::slope_damping
-                          Beam::shift_region_to_valid
-                          Beam::quanting
+                          ly:beam::calc-least-squares-positions
+                          ly:beam::slope-damping
+                          ly:beam::shift-region-to-valid
+                          ly:beam::quanting
                           ))))
 
        ;; this is a hack to set stem lengths, if positions is set.
-       (quantized-positions . ,Beam::set_stem_lengths)
-       (concaveness . ,Beam::calc_concaveness)
-       (direction . ,Beam::calc_direction)
-       (shorten . ,Beam::calc_stem_shorten)
-       (beaming . ,Beam::calc_beaming)
-       (stencil . ,Beam::print)
+       (quantized-positions . ,ly:beam::set-stem-lengths)
+       (concaveness . ,ly:beam::calc-concaveness)
+       (direction . ,ly:beam::calc-direction)
+       (shorten . ,ly:beam::calc-stem-shorten)
+       (beaming . ,ly:beam::calc-beaming)
+       (stencil . ,ly:beam::print)
 
        ;; TODO: should be in SLT.
        (thickness . 0.48) ; in staff-space
        (breakable . #t)
        (stacking-dir . 1)
 
-       (positioning-done . ,Break_align_interface::calc_positioning_done)
-       (X-extent . ,Axis_group_interface::width)
+       (positioning-done . ,ly:break-align-interface::calc-positioning-done)
+       (X-extent . ,ly:axis-group-interface::width)
                                        
        (break-align-orders . ;; end of line
                            #((instrument-name
      . (
        (axes . (0))
 
-       (X-extent . ,Axis_group_interface::width)
+       (X-extent . ,ly:axis-group-interface::width)
 
        (meta . ((class . Item)
                 (interfaces . (break-aligned-interface
                        (first-note . (fixed-space . 1.0)) ;huh?
                        (right-edge . (extra-space . 0.1))))
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (text . ,(make-musicglyph-markup "scripts.rcomma"))
-       (Y-offset . ,Breathing_sign::offset_callback)
+       (Y-offset . ,ly:breathing-sign::offset-callback)
        (break-visibility . ,begin-of-line-invisible)
        (meta . ((class . Item)
                 (interfaces . (break-aligned-interface
     (Clef
      . (
 
-       (stencil . ,Clef::print)
-       (glyph-name . ,Clef::calc_glyph_name)
+       (stencil . ,ly:clef::print)
+       (glyph-name . ,ly:clef::calc-glyph-name)
                                        
        (breakable . #t)
        (font-family . music)
                        (first-note . (minimum-fixed-space . 5.0))
                        (next-note . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))))
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (clef-interface
                                staff-symbol-referencer-interface
     (ClusterSpannerBeacon
      . (
 
-       (Y-extent . ,Cluster_beacon::height)
+       (Y-extent . ,ly:cluster-beacon::height)
 
        (meta . ((class . Item)
                 (interfaces . (cluster-beacon-interface))))))
     (ClusterSpanner
      . (
 
-       (springs-and-rods . ,Spanner::set_spacing_rods)
-       (stencil . ,Cluster::print)
+       (springs-and-rods . ,ly:spanner::set-spacing-rods)
+       (stencil . ,ly:cluster::print)
 
 
        (minimum-length . 0.0)
     (ChordName
      . (
 
-       (stencil . ,Text_interface::print)
-       (after-line-breaking . ,Chord_name::after_line_breaking)
+       (stencil . ,ly:text-interface::print)
+       (after-line-breaking . ,ly:chord-name::after-line-breaking)
        
        (word-space . 0.0)
        (font-family . sans)
     (CombineTextScript
      . (
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (no-spacing-rods . #t)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (direction . ,UP)
        (padding . 0.5)
        (staff-padding . 0.5)
        (break-align-symbol . custos)
        (breakable . #t)
 
-       (stencil . ,Custos::print)
+       (stencil . ,ly:custos::print)
 
        (break-visibility . ,end-of-line-visible)
        (style . vaticana)
        (neutral-direction . ,DOWN)
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (space-alist . (
                        (first-note . (minimum-fixed-space . 0.0))
                        (right-edge . (extra-space . 0.1))))
        (axes . (0))
        (direction . ,RIGHT)
 
-       (positioning-done . ,Dot_column::calc_positioning_done) 
-       (X-extent . ,Axis_group_interface::width)
+       (positioning-done . ,ly:dot-column::calc-positioning-done) 
+       (X-extent . ,ly:axis-group-interface::width)
        
-       (X-offset . ,Dot_column::side_position)
+       (X-offset . ,ly:dot-column::side-position)
        (meta . ((class . Item)
                 (interfaces . (dot-column-interface
                                axis-group-interface))))))
     (Dots
      . (
 
-       (stencil . ,Dots::print)
+       (stencil . ,ly:dots::print)
 
        (dot-count . 1)
        (meta . ((class . Item)
 
     (DoublePercentRepeat
      . (
-       (stencil . ,Percent_repeat_item_interface::double_percent)
+       (stencil . ,ly:percent-repeat-item-interface::double-percent)
        (breakable . #t)
        (slope . 1.0)
        (font-encoding . fetaMusic)
     (DoublePercentRepeatCounter
      . (
 
-       (stencil . ,Text_interface::print)
-       (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_y_parent))
-                                                 ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (stencil . ,ly:text-interface::print)
+       (X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-y-parent))
+                                                 ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (font-encoding . fetaNumber)
        (self-alignment-X . 0)
        (font-size . -2) 
     (DynamicLineSpanner
      . (
        (axes . (1))
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (staff-padding . 0.1)
        (padding . 0.6)
        (avoid-slur . outside)
        (direction . ,DOWN)
        (side-axis . ,Y)
 
-       (Y-extent . ,Axis_group_interface::height)
-       (X-extent . ,Axis_group_interface::width)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
 
 
        (meta . ((class . Spanner)
 
        ;; todo.
 
-       (stencil . ,Text_interface::print)
-       (direction . ,Script_interface::calc_direction)
+       (stencil . ,ly:text-interface::print)
+       (direction . ,ly:script-interface::calc-direction)
 
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (self-alignment-X . 0)
-       (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
+       (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
        (self-alignment-Y . 0)
        (font-series . bold)
        (font-encoding . fetaDynamic)
     (DynamicTextSpanner
      . (
 
-       (stencil . ,Dynamic_text_spanner::print)
+       (stencil . ,ly:dynamic-text-spanner::print)
 
        ;; rather ugh with NCSB
        ;; (font-series . bold)
        (self-alignment-Y . 0)
        (script-priority . 100)
 
-       (stencil . ,Text_interface::print)
-       (direction . ,Script_interface::calc_direction)
+       (stencil . ,ly:text-interface::print)
+       (direction . ,ly:script-interface::calc-direction)
 
        (font-encoding . fetaNumber)
        (font-size . -5)                ; don't overlap when next to heads.
        (X-extent . #f)
        (Y-extent . #f)
 
-       (stencil . ,Line_spanner::print)
-       (after-line-breaking . ,Line_spanner::after_line_breaking)
+       (stencil . ,ly:line-spanner::print)
+       (after-line-breaking . ,ly:line-spanner::after-line-breaking)
        
 
        (meta . ((class . Spanner)
     (GridLine
      . (
 
-       (X-extent  . ,Grid_line_interface::width)
-       (stencil . ,Grid_line_interface::print)
+       (X-extent  . ,ly:grid-line-interface::width)
+       (stencil . ,ly:grid-line-interface::print)
 
        (self-alignment-X . ,CENTER)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+  ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent))
-                           ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+                     `(,+  ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
+                           ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
        (layer . 0)
        (meta . ((class . Item)
                 (interfaces . (self-alignment-interface
      . (
 
 
-       (stencil . ,Hairpin::print)
-       (springs-and-rods . ,Spanner::set_spacing_rods)
-       (after-line-breaking . ,Hairpin::after_line_breaking)
+       (stencil . ,ly:hairpin::print)
+       (springs-and-rods . ,ly:spanner::set-spacing-rods)
+       (after-line-breaking . ,ly:hairpin::after-line-breaking)
 
        (thickness . 1.0)
        (height . 0.6666)
        (minimum-length . 2.0)
        (bound-padding . 1.0)
        (self-alignment-Y . 0)
-       (Y-offset . ,Self_alignment_interface::y_aligned_on_self)
+       (Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
        (meta . ((class . Spanner)
                 (interfaces . (hairpin-interface
                                line-interface
     (HorizontalBracket
      . (
        (thickness . 1.0)
-       (stencil . ,Horizontal_bracket::print)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (stencil . ,ly:horizontal-bracket::print)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (padding . 0.2)
        (staff-padding . 0.2)
        (direction . ,DOWN)
     (InstrumentName
      . (
        (breakable . #t)
-       (Y-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::y_aligned_on_self))
-                                                 ,(ly:make-simple-closure (list Side_position_interface::y_aligned_on_support_refpoints)))))
+       (Y-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::y-aligned-on-self))
+                                                 ,(ly:make-simple-closure (list ly:side-position-interface::y-aligned-on-support-refpoints)))))
        
        ;; This direction is for aligned_on_support_refpoints
        ;; (?) --hwn
                        (left-edge . (extra-space . 1.0))))
 
        (self-alignment-Y . 0)
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (break-align-symbol . instrument-name)
        (break-visibility . ,begin-of-line-visible)
        (baseline-skip . 2)
     (KeyCancellation
      . (
 
-       (stencil . ,Key_signature_interface::print)
+       (stencil . ,ly:key-signature-interface::print)
 
        (space-alist . (
                        (time-signature . (extra-space . 1.25))
                        (key-signature . (extra-space . 0.5))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-cancellation)
        (break-visibility . ,begin-of-line-invisible)
        (breakable . #t)
     (KeySignature
      . (
 
-       (stencil . ,Key_signature_interface::print)
+       (stencil . ,ly:key-signature-interface::print)
 
        (space-alist . (
                        (time-signature . (extra-space . 1.15))
                        (staff-bar . (extra-space . 1.1))
                        (right-edge . (extra-space . 0.5))
                        (first-note . (fixed-space . 2.5))))
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (break-align-symbol . key-signature)
        (break-visibility . ,begin-of-line-visible)
        (breakable . #t)
     (LaissezVibrerTie
      . (
 
-       (stencil  . ,Tie::print)
-       (control-points . ,Laissez_vibrer_tie::calc_control_points)
-       (direction . ,Laissez_vibrer_tie::calc_direction)
+       (stencil  . ,ly:tie::print)
+       (control-points . ,ly:laissez-vibrer-tie::calc-control-points)
+       (direction . ,ly:laissez-vibrer-tie::calc-direction)
        
        (details . ((ratio . 0.333)
                    (height-limit . 1.0)))
      . (
        (X-extent . #f)
        (Y-extent . #f)
-       (positioning-done . ,Laissez_vibrer_tie_column::calc_positioning_done)
+       (positioning-done . ,ly:laissez-vibrer-tie-column::calc-positioning-done)
        (meta . ((class . Item)
                 (interfaces . (laissez-vibrer-tie-column-interface))
                 ))
     (LedgerLineSpanner
      . (
 
-       (springs-and-rods . ,Ledger_line_spanner::set_spacing_rods)
+       (springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
 
-       (stencil . ,Ledger_line_spanner::print)
+       (stencil . ,ly:ledger-line-spanner::print)
 
        (X-extent . #f)
        (Y-extent . #f)
        (edge-height . (0.7 . 0.7))
        (shorten-pair . (-0.2 . -0.2))
        (direction . ,UP)
-       (positions . ,Tuplet_bracket::calc_positions)
-       (stencil . ,Tuplet_bracket::print)
+       (positions . ,ly:tuplet-bracket::calc-positions)
+       (stencil . ,ly:tuplet-bracket::print)
        
        (meta . ((class . Spanner)
                 (interfaces . (tuplet-bracket-interface
        (minimum-length . 0.3)
        (minimum-distance . 0.1)
        (padding . 0.07)
-       (springs-and-rods . ,Hyphen_spanner::set_spacing_rods)
+       (springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
        
-       (stencil . ,Hyphen_spanner::print)
+       (stencil . ,ly:hyphen-spanner::print)
 
        (Y-extent . (0 . 0))
        (meta . ((class . Spanner)
     (LyricExtender
      . (
 
-       (stencil . ,Lyric_extender::print)
+       (stencil . ,ly:lyric-extender::print)
 
        (thickness . 0.8) ; linethickness
        (minimum-length . 1.5)
 
     (LyricSpace
      . ((minimum-distance . 0.3)
-       (springs-and-rods . ,Hyphen_spanner::set_spacing_rods)
+       (springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
        (padding . 0.0)
        (Y-extent . #f)
        (X-extent . #f)
     (LyricText
      . (
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
-       (X-offset . ,Self_alignment_interface::aligned_on_x_parent)
+       (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
        (self-alignment-X . 0)
        (word-space . 0.6)
        (font-series . bold-narrow)
 
     (MeasureGrouping
      . (
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
 
-       (stencil . ,Measure_grouping::print)
+       (stencil . ,ly:measure-grouping::print)
 
        (padding . 2)
        (direction . ,UP)
      . (
        (thickness . 1.4)
        (flexa-width . 2.0)
-       (stencil . ,Mensural_ligature::print)
+       (stencil . ,ly:mensural-ligature::print)
 
        (meta . ((class . Spanner)
                 (interfaces . (mensural-ligature-interface
     (MetronomeMark
      . (
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (direction . ,UP)
        (padding . 0.8)
        (side-axis . ,Y)
 
     (MultiMeasureRest
      . (
-       (stencil . ,Multi_measure_rest::print)
-       (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (stencil . ,ly:multi-measure-rest::print)
+       (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (staff-position . 0)
        (expand-limit . 10)
        (thick-thickness . 6.6)
 
     (MultiMeasureRestNumber
      . (
-       (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
-       (stencil . ,Text_interface::print)
+       (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
+       (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
-                          ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent)))))
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+                     `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))
+                          ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent)))))
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
 
        (self-alignment-X . 0)
 
     (MultiMeasureRestText
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
-                          ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
+                     `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent))
+                          ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
        
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (self-alignment-X . 0)
        (direction . ,UP)
        (padding . 0.2)
      . (
        (axes . (0 1))
 
-       (X-extent . ,Axis_group_interface::width)
-       (Y-extent . ,Axis_group_interface::height)
-       (positioning-done . ,Note_collision_interface::calc_positioning_done)
+       (X-extent . ,ly:axis-group-interface::width)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (positioning-done . ,ly:note-collision-interface::calc-positioning-done)
        
        (meta . ((class . Item)
                 (interfaces . (note-collision-interface
     (NoteColumn
      . (
        (axes . (0 1))
-       (X-extent . ,Axis_group_interface::width)
-       (Y-extent . ,Axis_group_interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
+       (Y-extent . ,ly:axis-group-interface::height)
 
        (meta . ((class . Item)
                 (interfaces . (axis-group-interface
     (NoteHead
      . (
 
-       (stencil . ,Note_head::print)
-       (stem-attachment . ,Note_head::calc_stem_attachment)
+       (stencil . ,ly:note-head::print)
+       (stem-attachment . ,ly:note-head::calc-stem-attachment)
        (glyph-name . ,note-head::calc-glyph-name) 
-       (Y-offset . ,Staff_symbol_referencer::callback)
-       (X-offset . ,Note_head::stem_x_shift)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
+       (X-offset . ,ly:note-head::stem-x-shift)
        (meta . ((class . Item)
                 (interfaces . (rhythmic-grob-interface
                                rhythmic-head-interface
     (NoteName
      . (
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (meta . ((class . Item)
                 (interfaces . (note-name-interface
        (self-alignment-X . 0)
        (break-visibility . ,begin-of-line-visible)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self))
-                          ,(ly:make-simple-closure (list Self_alignment_interface::centered_on_x_parent)))))
+                     `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self))
+                          ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent)))))
        
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
 
        ;; no Y dimensions, because of lyrics under tenor clef.
 
     (OttavaBracket
      . (
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
 
-       (stencil . ,Ottava_bracket::print)
+       (stencil . ,ly:ottava-bracket::print)
 
        (font-shape . italic)
        (shorten-pair . (0.0 . -0.6))
      . (
        (axes . (0))
 
-       (before-line-breaking . ,Paper_column::before_line_breaking)
-       ;; (stencil . ,Paper_column::print)
-       (X-extent . ,Axis_group_interface::width)
+       (before-line-breaking . ,ly:paper-column::before-line-breaking)
+       ;; (stencil . ,ly:paper-column::print)
+       (X-extent . ,ly:axis-group-interface::width)
        
 
        ;; debugging
     (PhrasingSlur
      . ((details . ,default-slur-details)
 
-       (control-points . ,Slur::calc_control_points)
-       (direction . ,Slur::calc_direction)
-       (springs-and-rods . ,Spanner::set_spacing_rods)
-       (Y-extent . ,Slur::height)
-       (stencil . ,Slur::print)                      
+       (control-points . ,ly:slur::calc-control-points)
+       (direction . ,ly:slur::calc-direction)
+       (springs-and-rods . ,ly:spanner::set-spacing-rods)
+       (Y-extent . ,ly:slur::height)
+       (stencil . ,ly:slur::print)                   
        
 
        (thickness . 1.1)
      . (
        (axes . (0))
 
-       (before-line-breaking . ,Paper_column::before_line_breaking)
-       (X-extent . ,Axis_group_interface::width)
-       ;;                    (stencil . ,Paper_column::print)
+       (before-line-breaking . ,ly:paper-column::before-line-breaking)
+       (X-extent . ,ly:axis-group-interface::width)
+       ;;                    (stencil . ,ly:paper-column::print)
        
        (breakable . #t)
 
     (PercentRepeat
      . (
 
-       (springs-and-rods . ,Multi_measure_rest::set_spacing_rods)
-       (stencil . ,Multi_measure_rest::percent)
+       (springs-and-rods . ,ly:multi-measure-rest::set-spacing-rods)
+       (stencil . ,ly:multi-measure-rest::percent)
 
        (slope . 1.0)
        (thickness . 0.48)
                                percent-repeat-interface))))))
     (PercentRepeatCounter
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
-                     `(,+ ,(ly:make-simple-closure (list Self_alignment_interface::x_centered_on_y_parent))
-                          ,(ly:make-simple-closure (list Self_alignment_interface::x_aligned_on_self)))))
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+                     `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::x-centered-on-y-parent))
+                          ,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (self-alignment-X . 0)
        (direction . ,UP)
        (padding . 0.2)
     (PianoPedalBracket
      . (
 
-       (stencil . ,Piano_pedal_bracket::print)
+       (stencil . ,ly:piano-pedal-bracket::print)
 
        (style . line)
        (bound-padding . 1.0)
 
     (RehearsalMark
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (X-offset . ,(ly:make-simple-closure
                      `(,+ ,(ly:make-simple-closure
-                            `(,Self_alignment_interface::x_aligned_on_self))
+                            `(,ly:self-alignment-interface::x-aligned-on-self))
                           ,(ly:make-simple-closure
-                            `(,Self_alignment_interface::centered_on_x_parent)))
+                            `(,ly:self-alignment-interface::centered-on-x-parent)))
                      ))
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (self-alignment-X . 0)
        (direction . ,UP)
        (breakable . #t)
 
     (RepeatSlash
      . (
-       (stencil . ,Percent_repeat_item_interface::beat_slash)
+       (stencil . ,ly:percent-repeat-item-interface::beat-slash)
        (thickness . 0.48)
        (slope . 1.7)
        (meta . ((class . Item)
                 (interfaces . (percent-repeat-interface))))))
     (Rest
      . (
-       (stencil . ,Rest::print)
-       (X-extent . ,Rest::width)
-       (Y-extent . ,Rest::height)
-       (Y-offset . ,Rest::y_offset_callback)
+       (stencil . ,ly:rest::print)
+       (X-extent . ,ly:rest::width)
+       (Y-extent . ,ly:rest::height)
+       (Y-offset . ,ly:rest::y-offset-callback)
        (minimum-distance . 0.25)
        (meta . ((class . Item)
                 (interfaces . (font-interface
     (RestCollision
      . (
        (minimum-distance . 0.75)
-       (positioning-done . ,Rest_collision::calc_positioning_done)
+       (positioning-done . ,ly:rest-collision::calc-positioning-done)
                                        
        (meta . ((class . Item)
                 (interfaces . (rest-collision-interface))))))
        (padding . 0.20)
        (staff-padding . 0.25)
        ;; (script-priority . 0) priorities for scripts, see script.scm
-       (X-offset . , Self_alignment_interface::centered_on_x_parent)
+       (X-offset . , ly:self-alignment-interface::centered-on-x-parent)
        
 
-       (stencil . ,Script_interface::print)
-       (direction . ,Script_interface::calc_direction)
+       (stencil . ,ly:script-interface::print)
+       (direction . ,ly:script-interface::calc-direction)
 
        (font-encoding . fetaMusic)
        (meta . ((class . Item)
     (ScriptColumn
      . (
 
-       (before-line-breaking . ,Script_column::before_line_breaking)
+       (before-line-breaking . ,ly:script-column::before-line-breaking)
 
        (meta . ((class . Item)
                 (interfaces . (script-column-interface))))))
     (SeparatingGroupSpanner
      . (
 
-       (springs-and-rods . ,Separating_group_spanner::set_spacing_rods)
+       (springs-and-rods . ,ly:separating-group-spanner::set-spacing-rods)
 
        (meta . ((class . Spanner)
                 (interfaces . (only-prebreak-interface
     (Slur
      . ((details . ,default-slur-details)
 
-       (control-points . ,Slur::calc_control_points)
-       (direction . ,Slur::calc_direction)
-       (springs-and-rods . ,Spanner::set_spacing_rods)
-       (Y-extent . ,Slur::height)
-       (stencil . ,Slur::print)
+       (control-points . ,ly:slur::calc-control-points)
+       (direction . ,ly:slur::calc-direction)
+       (springs-and-rods . ,ly:spanner::set-spacing-rods)
+       (Y-extent . ,ly:slur::height)
+       (stencil . ,ly:slur::print)
        
        (thickness . 1.0)
        (minimum-length . 1.5)
-                                       ; Slur::height)
+                                       ; ly:slur::height)
        (height-limit . 2.0)
        (ratio . 0.25)
        (meta . ((class . Spanner)
     (SpacingSpanner
      . (
 
-       (springs-and-rods . ,Spacing_spanner::set_springs)
+       (springs-and-rods . ,ly:spacing-spanner::set-springs)
        (average-spacing-wishes . #t)
        (grace-space-factor . 0.6)
        (shortest-duration-space . 2.0)
        (layer . 0)
        (breakable . #t)
 
-       (stencil . ,Span_bar::print)
-       (bar-size . ,Span_bar::calc_bar_size)
-       (X-extent . ,Span_bar::width)
-       (glyph-name . ,Span_bar::calc_glyph_name)
-       (before-line-breaking . ,Span_bar::before_line_breaking)
+       (stencil . ,ly:span-bar::print)
+       (bar-size . ,ly:span-bar::calc-bar-size)
+       (X-extent . ,ly:span-bar::width)
+       (glyph-name . ,ly:span-bar::calc-glyph-name)
+       (before-line-breaking . ,ly:span-bar::before-line-breaking)
 
        ;; ugh duplication!
 
 
     (StanzaNumber
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (font-series . bold)
        (padding . 1.0)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (side-axis . ,X)
        (direction . ,LEFT)
        (meta . ((class . Item)
     (SostenutoPedal
      . (
 
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
 
        (direction . ,RIGHT)
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (no-spacing-rods . #t)
        (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
        (font-shape . italic)
      . (
        (axes . (1))
 
-       (X-extent . ,Axis_group_interface::height)
+       (X-extent . ,ly:axis-group-interface::height)
 
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
 
        (padding . 1.2)
 
     (StaffSymbol
      . (
-       (Y-extent . ,Staff_symbol::height)
-       (stencil . ,Staff_symbol::print)
+       (Y-extent . ,ly:staff-symbol::height)
+       (stencil . ,ly:staff-symbol::print)
        (line-count . 5)
        (ledger-line-thickness . (1.0 . 0.1))
        (layer . 0)
 
     (Stem
      . (
-       (direction . ,Stem::calc_direction)
-       (default-direction . ,Stem::calc_default_direction)
-       (stem-end-position . ,Stem::calc_stem_end_position)
-       (stem-info . ,Stem::calc_stem_info)
-       (positioning-done . ,Stem::calc_positioning_done)
-       (stencil . ,Stem::print)
-       (X-extent . ,Stem::width)
-       (Y-extent . ,Stem::height)
-       (length . ,Stem::calc_length)
+       (direction . ,ly:stem::calc-direction)
+       (default-direction . ,ly:stem::calc-default-direction)
+       (stem-end-position . ,ly:stem::calc-stem-end-position)
+       (stem-info . ,ly:stem::calc-stem-info)
+       (positioning-done . ,ly:stem::calc-positioning-done)
+       (stencil . ,ly:stem::print)
+       (X-extent . ,ly:stem::width)
+       (Y-extent . ,ly:stem::height)
+       (length . ,ly:stem::calc-length)
        
        (thickness . 1.3)
 
        ;; We use the normal minima as minimum for the ideal lengths,
        ;; and the extreme minima as abolute minimum length.
 
-       (X-offset . ,Stem::offset_callback)
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (X-offset . ,ly:stem::offset-callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (meta . ((class . Item)
                 (interfaces . (stem-interface
                                font-interface))))))
 
     (StemTremolo
      . (
-       (Y-extent . ,Stem_tremolo::height)
-       (stencil . ,Stem_tremolo::print)
+       (Y-extent . ,ly:stem-tremolo::height)
+       (stencil . ,ly:stem-tremolo::print)
        (X-extent . #f)
        (beam-width . 1.6) ; staff-space
        (beam-thickness . 0.48) ; staff-space
     (SustainPedal
      . (
        (no-spacing-rods . #t)
-       (stencil . ,Sustain_pedal::print)
+       (stencil . ,ly:sustain-pedal::print)
        (self-alignment-X . 0)
        (direction . ,RIGHT)
        (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (meta . ((class . Item)
                 (interfaces . (piano-pedal-interface
                                text-spanner-interface
     (SustainPedalLineSpanner
      . (
        (axes . (1))
-       (X-extent . ,Axis_group_interface::height)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (X-extent . ,ly:axis-group-interface::height)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
     (System
      . (
        (axes . (0 1))
-       (X-extent . ,Axis_group_interface::width)
-       (Y-extent . ,Axis_group_interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
+       (Y-extent . ,ly:axis-group-interface::height)
        (meta . ((class . System)
                 (interfaces . (system-interface
                                axis-group-interface))))))
      . (
        (style . brace)
        (padding . 0.3)
-       (stencil . ,System_start_delimiter::print)
+       (stencil . ,ly:system-start-delimiter::print)
        (collapse-height . 5.0)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (font-encoding . fetaBraces)
        (Y-extent . #f)
     (SystemStartSquare
      . (
        (Y-extent . #f)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
-       (stencil . ,System_start_delimiter::print)
+       (stencil . ,ly:system-start-delimiter::print)
        (style . line-bracket)
        (thickness . 1.0)
        (meta . ((class . Spanner)
      . (
        (Y-extent . #f)
        (padding . 0.8)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
-       (stencil . ,System_start_delimiter::print)
+       (stencil . ,ly:system-start-delimiter::print)
        (style . bracket)
        (collapse-height . 5.0)
        (thickness . 0.45)
      . (
        (Y-extent . #f)
        (padding . 0.0)
-       (X-offset . ,Side_position_interface::x_aligned_side)
+       (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (style . bar-line)
        (thickness . 1.6)
-       (stencil . ,System_start_delimiter::print)
+       (stencil . ,ly:system-start-delimiter::print)
        (meta . ((class . Spanner)
                 (interfaces . (side-position-interface
                                system-start-delimiter-interface))))))
     (TabNoteHead
      . (
 
-       (stencil . ,Text_interface::print)
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (stencil . ,ly:text-interface::print)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (font-size . -2)
        (stem-attachment . (1.0 . 1.35))
        (font-series . bold)
     (TextScript
      . (
        (no-spacing-rods . #t)
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (direction . ,DOWN)
 
        ;; sync with Fingering ?
        (padding . 0.5)
        (staff-padding . 0.5)
 
-       (stencil . ,Text_interface::print)
-       (direction . ,Script_interface::calc_direction)
+       (stencil . ,ly:text-interface::print)
+       (direction . ,ly:script-interface::calc-direction)
 
        (avoid-slur . around)
        (slur-padding . 0.5)
 
     (TextSpanner
      . (
-       (stencil . ,Text_spanner::print)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (stencil . ,ly:text-spanner::print)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (font-shape . italic)
        (style . dashed-line)
        (staff-padding . 0.8)
 
     (Tie
      . (
-       (control-points . ,Tie::calc_control_points)
+       (control-points . ,ly:tie::calc-control-points)
        (avoid-slur . inside)
-       (direction . ,Tie::calc_direction)
-       (stencil . ,Tie::print)
+       (direction . ,ly:tie::calc-direction)
+       (stencil . ,ly:tie::print)
        (details . (
                    ;; for a full list, see tie-helper.cc
                    (ratio . 0.333)
 
     (TieColumn
      . (
-       (positioning-done . ,Tie_column::calc_positioning_done)
-       (before-line-breaking . ,Tie_column::before_line_breaking)
+       (positioning-done . ,ly:tie-column::calc-positioning-done)
+       (before-line-breaking . ,ly:tie-column::before-line-breaking)
        (X-extent . #f)
        (Y-extent . #f)
        (meta . ((class . Spanner)
 
     (TimeSignature
      . (
-       (stencil . ,Time_signature::print)
+       (stencil . ,ly:time-signature::print)
        (break-align-symbol . time-signature)
        (break-visibility . ,all-visible)
        (space-alist . (
 
     (TrillSpanner
      . (
-       (stencil . ,Dynamic_text_spanner::print)
+       (stencil . ,ly:dynamic-text-spanner::print)
        (edge-text . ,(cons (make-musicglyph-markup "scripts.trill")
                            ""))
        (style . trill)
        (staff-padding . 1.0)
        (padding . 0.5)
        (direction . ,UP)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (meta . ((class . Spanner)
                 (interfaces . (text-spanner-interface
                                font-interface))))))
 
     (TrillPitchAccidental
-     . ((X-offset . ,Side_position_interface::x_aligned_side)
+     . ((X-offset . ,ly:side-position-interface::x-aligned-side)
        (padding . 0.2)
        (direction . ,LEFT)
        (font-size . -4)
        (side-axis . ,X)
-       (stencil . ,Accidental_interface::print)
+       (stencil . ,ly:accidental-interface::print)
        (meta . ((class . Item)
                 (interfaces . (item-interface
                                accidental-interface
                                font-interface))))))
 
     (TrillPitchGroup
-     . ((X-offset . ,Side_position_interface::x_aligned_side)
+     . ((X-offset . ,ly:side-position-interface::x-aligned-side)
        (axes . (,X))
        (font-size . -4)
        (stencil . ,parenthesize-elements)
 
     (TrillPitchHead
      . (
-       (stencil . ,Note_head::print)
+       (stencil . ,ly:note-head::print)
        (duration-log . 2)
-       (Y-offset . ,Staff_symbol_referencer::callback)
+       (Y-offset . ,ly:staff-symbol-referencer::callback)
        (font-size . -4)
        (meta . ((class . Item)
                 (interfaces . (item-interface
        (shorten-pair . (-0.2 . -0.2))
        (staff-padding . 0.25)
        
-       (direction  . ,Tuplet_bracket::calc_direction)
-       (positions . ,Tuplet_bracket::calc_positions)
-       (connect-to-neighbor . ,Tuplet_bracket::calc_connect_to_neighbors)
-       (control-points . ,Tuplet_bracket::calc_control_points)
-       (stencil . ,Tuplet_bracket::print)
+       (direction  . ,ly:tuplet-bracket::calc-direction)
+       (positions . ,ly:tuplet-bracket::calc-positions)
+       (connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
+       (control-points . ,ly:tuplet-bracket::calc-control-points)
+       (stencil . ,ly:tuplet-bracket::print)
        
        (meta . ((class . Spanner)
                 (interfaces . (line-interface
 
     (TupletNumber
      . (
-       (stencil . ,Tuplet_number::print)
+       (stencil . ,ly:tuplet-number::print)
        (font-shape . italic)
        (font-size . -2)
        (avoid-slur . inside)
     
     (UnaCordaPedal
      . (
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (font-shape . italic)
        (no-spacing-rods . #t)
        (self-alignment-X . 0)
        (direction . ,RIGHT)
        (padding . 0.0)  ;; padding relative to UnaCordaPedalLineSpanner
-       (X-offset . ,Self_alignment_interface::x_aligned_on_self)
+       (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
        (meta . ((class . Item)
                 (interfaces . (text-interface
                                self-alignment-interface
     (UnaCordaPedalLineSpanner
      . (
        (axes . (1))
-       (X-extent . ,Axis_group_interface::height)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (X-extent . ,ly:axis-group-interface::height)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (padding . 1.2)
        (staff-padding . 1.2)
      . (
        (thickness . 0.6)
        (flexa-width . 2.0)
-       (stencil . ,Vaticana_ligature::print)
+       (stencil . ,ly:vaticana-ligature::print)
        (meta . ((class . Spanner)
                 (interfaces . (vaticana-ligature-interface
                                font-interface))))))
     (VerticalAlignment
      . (
        (axes . (1))
-       (positioning-done . ,Align_interface::calc_positioning_done)
-       (after-line-breaking . ,Align_interface::stretch_after_break)
-       (Y-extent . ,Axis_group_interface::height)
-       (X-extent . ,Axis_group_interface::width)
+       (positioning-done . ,ly:align-interface::calc-positioning-done)
+       (after-line-breaking . ,ly:align-interface::stretch-after-break)
+       (Y-extent . ,ly:axis-group-interface::height)
+       (X-extent . ,ly:axis-group-interface::width)
        (stacking-dir . -1)
        (meta . ((class . Spanner)
                 (interfaces . (align-interface
     (VerticalAxisGroup
      . (
        (axes . (1))
-       (Y-offset . ,Hara_kiri_group_spanner::force_hara_kiri_callback)
-       (Y-extent . ,Hara_kiri_group_spanner::y_extent)
-       (X-extent . ,Axis_group_interface::width)
+       (Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback)
+       (Y-extent . ,ly:hara-kiri-group-spanner::y-extent)
+       (X-extent . ,ly:axis-group-interface::width)
        (meta . ((class . Spanner)
                 (interfaces . (axis-group-interface
                                hara-kiri-group-interface
     (VocalName
      . (
        (breakable . #t)
-       (Y-offset . ,Side_position_interface::y_aligned_on_support_refpoints)
+       (Y-offset . ,ly:side-position-interface::y-aligned-on-support-refpoints)
        (direction . ,CENTER)
        (space-alist . ((left-edge . (extra-space . 1.0))))
        (break-align-symbol . instrument-name)
-       (stencil . ,Text_interface::print)
+       (stencil . ,ly:text-interface::print)
        (break-align-symbol . clef)
        (break-visibility . ,begin-of-line-visible)
        (baseline-skip . 2)
 
     (VoltaBracket
      . (
-       (stencil . ,Volta_bracket_interface::print)
-       (after-line-breaking . ,Volta_bracket_interface::after_line_breaking)
+       (stencil . ,ly:volta-bracket-interface::print)
+       (after-line-breaking . ,ly:volta-bracket-interface::after-line-breaking)
        (direction . ,UP)
        (padding . 1)
        (font-encoding . fetaNumber)
-       (Y-offset . ,Side_position_interface::y_aligned_side)
+       (Y-offset . ,ly:side-position-interface::y-aligned-side)
        (side-axis . ,Y)
        (thickness . 1.6)  ;;  linethickness
        (edge-height . (2.0 . 2.0)) ;; staffspace;
        (breakable . #t)
        (X-extent . #f)
        (Y-extent . #f)
-       (stencil . ,Line_spanner::print)
-       (after-line-breaking . ,Line_spanner::after_line_breaking)
+       (stencil . ,ly:line-spanner::print)
+       (after-line-breaking . ,ly:line-spanner::after-line-breaking)
        (meta . ((class . Spanner)
                 (interfaces . (line-spanner-interface
                                line-interface))))
index 8d327c003409031ec360caf71753f9958a1b56c0..7eb2dff7cbf514a08a534e1aa59fd187dd4d1462 100644 (file)
@@ -146,7 +146,7 @@ thickness and padding around the markup."
 ;;FIXME: is this working? 
 (def-markup-command (strut layout props) ()
   "Create a box of the same height as the space in the current font."
-  (let ((m (Text_interface::interpret_markup layout props " ")))
+  (let ((m (ly:text-interface::interpret-markup layout props " ")))
     (ly:make-stencil (ly:stencil-expr m)
                     '(1000 . -1000)
                     (ly:stencil-extent m X)
@@ -993,13 +993,13 @@ letter 'A'."
 (def-markup-command (markletter layout props num) (integer?)
   "Make a markup letter for @var{num}.  The letters start with A to Z
  (skipping I), and continues with double letters."
-  (Text_interface::interpret_markup layout props
+  (ly:text-interface::interpret-markup layout props
     (number->markletter-string number->mark-letter-vector num)))
 
 (def-markup-command (markalphabet layout props num) (integer?)
    "Make a markup letter for @var{num}.  The letters start with A to Z
  and continues with double letters."
-   (Text_interface::interpret_markup layout props
+   (ly:text-interface::interpret-markup layout props
      (number->markletter-string number->mark-alphabet-vector num)))
 
 
index 923fe97ad7396cb0d7c8501cafade0ef8d6fbe22..26354377f41641e00b980720c39a2c6f23828f8c 100644 (file)
@@ -21,7 +21,7 @@ where x is one of \\ppp, \\pp, \\p, \\mp, \\mf, \\f, \\ff, \\fff.")
      . (
        (description . "Call the argument with the current context during interpreting phase")
        (types . (general-music apply-context))
-       (iterator-ctor . ,Apply_context_iterator::constructor)
+       (iterator-ctor . ,ly:apply-context-iterator::constructor)
        ))
     (ApplyOutputEvent
      . (
@@ -36,7 +36,7 @@ arguments to func are 1. the grob, 2. the originating context,
 3. context where FUNC is called.
 
 ")
-       (iterator-ctor . ,Output_property_music_iterator::constructor)
+       (iterator-ctor . ,ly:output-property-music-iterator::constructor)
        (types . (general-music layout-instruction))
        ))
     (ArpeggioEvent 
@@ -65,9 +65,9 @@ is an articulation (such as @code{-.}, @code{->}, @code{\\tenuto},
     (AutoChangeMusic
      . (
        (description .  "Used for making voices that switch between piano staves automatically.")
-       (iterator-ctor . ,Auto_change_iterator::constructor)
-       (start-callback . ,Music_wrapper::start_callback)
-       (length-callback . ,Music_wrapper::length_callback)
+       (iterator-ctor . ,ly:auto-change-iterator::constructor)
+       (start-callback . ,ly:music-wrapper::start-callback)
+       (length-callback . ,ly:music-wrapper::length-callback)
        (types . (general-music music-wrapper-music auto-change-instruction))
        ))
     (BarCheck
@@ -75,7 +75,7 @@ is an articulation (such as @code{-.}, @code{->}, @code{\\tenuto},
        (description .
                     "Check whether this music coincides with the start of the measure.")
        (types . (general-music bar-check))
-       (iterator-ctor . ,Bar_check_iterator::constructor)
+       (iterator-ctor . ,ly:bar-check-iterator::constructor)
        ))
     (BassFigureEvent
      . (
@@ -117,7 +117,7 @@ Syntax:
        (description .  "Change staffs in Piano staff. 
 
 Syntax @code{\\translator Staff = @var{new-id}}.")
-       (iterator-ctor . , Change_iterator::constructor)
+       (iterator-ctor . , ly:change-iterator::constructor)
        (types . (general-music translator-change-instruction))
        ))
 
@@ -132,9 +132,9 @@ Syntax @code{\\translator Staff = @var{new-id}}.")
     (ContextSpeccedMusic
      . (
        (description .  "Interpret the argument music within a specific context.")
-       (iterator-ctor . ,Context_specced_music_iterator::constructor)
-       (length-callback . ,Music_wrapper::length_callback)
-       (start-callback . ,Music_wrapper::start_callback)
+       (iterator-ctor . ,ly:context-specced-music-iterator::constructor)
+       (length-callback . ,ly:music-wrapper::length-callback)
+       (start-callback . ,ly:music-wrapper::start-callback)
        (types . (context-specification general-music music-wrapper-music))
        ))
     
@@ -166,9 +166,9 @@ Syntax: @var{note}\\cr
     (EventChord
      . (
        (description .  "Internally used to group a set of events.")
-       (iterator-ctor . ,Event_chord_iterator::constructor)
-       (length-callback . ,Music_sequence::maximum_length_callback)
-       (to-relative-callback . ,Music_sequence::event_chord_relative_callback)
+       (iterator-ctor . ,ly:event-chord-iterator::constructor)
+       (length-callback . ,ly:music-sequence::maximum-length-callback)
+       (to-relative-callback . ,ly:music-sequence::event-chord-relative-callback)
        (types . (general-music event-chord simultaneous-music))
        ))
 
@@ -191,9 +191,9 @@ Syntax: @var{note}\\cr
     (GraceMusic
      . (
        (description .  "Interpret the argument as grace notes. ")
-       (start-callback . ,Grace_music::start_callback)
+       (start-callback . ,ly:grace-music::start-callback)
        (length . ,ZERO-MOMENT)
-       (iterator-ctor . ,Grace_iterator::constructor)
+       (iterator-ctor . ,ly:grace-iterator::constructor)
        (types . (grace-music music-wrapper-music general-music))
        ))
     (NoteGroupingEvent
@@ -243,9 +243,9 @@ Syntax: @var{note}\\laissezVibrer.")
 Syntax @var{\\oldaddlyrics }@var{music} @var{lyrics}.")
 
        (types . (general-music lyric-combine-music))
-       (length-callback . ,Lyric_combine_music::length_callback)
-       (start-callback . ,Music_sequence::first_start_callback)
-       (iterator-ctor . ,Old_lyric_combine_music_iterator::constructor)
+       (length-callback . ,ly:lyric-combine-music::length-callback)
+       (start-callback . ,ly:music-sequence::first-start-callback)
+       (iterator-ctor . ,ly:old-lyric-combine-music-iterator::constructor)
        ))
     
     (LyricCombineMusic
@@ -255,7 +255,7 @@ Syntax @var{\\oldaddlyrics }@var{music} @var{lyrics}.")
 Syntax @var{\\lyricsto }@var{voicename} @var{lyrics}.")
        (length . ,ZERO-MOMENT)
        (types . (general-music lyric-combine-music))
-       (iterator-ctor . ,Lyric_combine_music_iterator::constructor)
+       (iterator-ctor . ,ly:lyric-combine-music-iterator::constructor)
        ))
 
     (LyricEvent
@@ -302,9 +302,9 @@ Syntax
 to group start-mmrest, skip, stop-mmrest sequence. 
 
 Syntax @code{R2.*5} for 5 measures in 3/4 time.")
-       (length-callback . ,Music_sequence::cumulative_length_callback)
-       (start-callback . ,Music_sequence::first_start_callback)
-       (iterator-ctor . ,Sequential_music_iterator::constructor)
+       (length-callback . ,ly:music-sequence::cumulative-length-callback)
+       (start-callback . ,ly:music-sequence::first-start-callback)
+       (iterator-ctor . ,ly:sequential-music-iterator::constructor)
        (types . (general-music sequential-music))
        ))
     
@@ -338,7 +338,7 @@ individually.
 Syntax @code{\\outputproperty @var{predicate} @var{prop}
 = @var{val}}.")
 
-       (iterator-ctor . ,Output_property_music_iterator::constructor)
+       (iterator-ctor . ,ly:output-property-music-iterator::constructor)
        (types . (general-music layout-instruction))
        ))
     
@@ -351,16 +351,16 @@ SYNTAX
 @code{\\override [ @var{Ctxt} . ] @var{Obj} @var{prop} = @var{val}}
 ")
        (types . (general-music layout-instruction))
-       (iterator-ctor . ,Push_property_iterator::constructor)
+       (iterator-ctor . ,ly:push-property-iterator::constructor)
        ))
     (PartCombineMusic
      . (
        (description .  "Combine two parts on a staff, either merged or
 as separate voices.")
-       (length-callback . ,Music_sequence::maximum_length_callback)
-       (start-callback . ,Music_sequence::minimum_start_callback)
+       (length-callback . ,ly:music-sequence::maximum-length-callback)
+       (start-callback . ,ly:music-sequence::minimum-start-callback)
        (types . (general-music part-combine-music))
-       (iterator-ctor . ,Part_combine_iterator::constructor)
+       (iterator-ctor . ,ly:part-combine-iterator::constructor)
        ))
     (PhrasingSlurEvent
      . (
@@ -376,7 +376,7 @@ Syntax NOTE \\(  and \\) NOTE")
 
 Syntax: @code{\\property @var{context}.@var{prop} = @var{scheme-val}}.")
        (types . (layout-instruction general-music))
-       (iterator-ctor . ,Property_iterator::constructor)
+       (iterator-ctor . ,ly:property-iterator::constructor)
        ))
 
     (PropertyUnset
@@ -384,7 +384,7 @@ Syntax: @code{\\property @var{context}.@var{prop} = @var{scheme-val}}.")
        (description .  "Remove the definition of a context @code{\\property}.")
 
        (types . (layout-instruction general-music))
-       (iterator-ctor . ,Property_unset_iterator::constructor)
+       (iterator-ctor . ,ly:property-unset-iterator::constructor)
        ))
     
     (PesOrFlexaEvent
@@ -399,15 +399,15 @@ goes down).")
     (QuoteMusic
      . (
        (description . "Quote preprocessed snippets of music. ")
-       (iterator-ctor . ,Quote_iterator::constructor)
-       (length-callback . ,Music_wrapper::length_callback)
-       (start-callback . ,Music_wrapper::start_callback)
+       (iterator-ctor . ,ly:quote-iterator::constructor)
+       (length-callback . ,ly:music-wrapper::length-callback)
+       (start-callback . ,ly:music-wrapper::start-callback)
        (types . (general-music music-wrapper-music))
        ))
     
     (RelativeOctaveCheck
      . ((description . "Check if a pitch is in the correct octave.")
-       (to-relative-callback . ,Relative_octave_check::relative_callback)
+       (to-relative-callback . ,ly:relative-octave-check::relative-callback)
        (types . (general-music relative-octave-check))
        ))
     
@@ -440,7 +440,7 @@ previously added property from a graphical object definition
  ")
 
        (types . (general-music layout-instruction))
-       (iterator-ctor . ,      Pop_property_iterator::constructor)
+       (iterator-ctor . ,      ly:pop-property-iterator::constructor)
        ))
 
     (SequentialMusic
@@ -449,9 +449,9 @@ previously added property from a graphical object definition
 
 Syntax \\sequential @{..@} or simply @{..@} .")
 
-       (length-callback . ,Music_sequence::cumulative_length_callback)
-       (start-callback . ,Music_sequence::first_start_callback)
-       (iterator-ctor . ,Sequential_music_iterator::constructor)
+       (length-callback . ,ly:music-sequence::cumulative-length-callback)
+       (start-callback . ,ly:music-sequence::first-start-callback)
+       (iterator-ctor . ,ly:sequential-music-iterator::constructor)
        (types . (general-music sequential-music))
        ))
 
@@ -478,12 +478,12 @@ Syntax \\sequential @{..@} or simply @{..@} .")
 
 SYNTAX
 
-@code{ \\simultaneous @{ .. @}} or < .. >.")
+@code{ \\simultaneous @{ .. @}} or << .. >>.")
 
-       (iterator-ctor . ,Simultaneous_music_iterator::constructor)
-       (start-callback . ,Music_sequence::minimum_start_callback)
-       (length-callback . ,Music_sequence::maximum_length_callback)
-       (to-relative-callback . ,Music_sequence::simultaneous_relative_callback)
+       (iterator-ctor . ,ly:simultaneous-music-iterator::constructor)
+       (start-callback . ,ly:music-sequence::minimum-start-callback)
+       (length-callback . ,ly:music-sequence::maximum-length-callback)
+       (to-relative-callback . ,ly:music-sequence::simultaneous-relative-callback)
        
        (types . (general-music simultaneous-music))
        ))
@@ -492,7 +492,8 @@ SYNTAX
      . (
        (description . "Start or end slur. 
 
-Syntax NOTE(    and )NOTE")
+Syntax NOTE(    and NOTE) ")
+
        (types . (general-music span-event event slur-event))
        ))
     
@@ -527,19 +528,19 @@ Syntax NOTE(       and )NOTE")
 Syntax @code{\\times @var{fraction} @var{music}}, e.g.
 @code{\\times 2/3 @{ ... @}} for triplets.
  ")
-       (length-callback . ,Music_wrapper::length_callback)
-       (start-callback . ,Music_wrapper::start_callback)
-       (iterator-ctor . ,Time_scaled_music_iterator::constructor)
+       (length-callback . ,ly:music-wrapper::length-callback)
+       (start-callback . ,ly:music-wrapper::start-callback)
+       (iterator-ctor . ,ly:time-scaled-music-iterator::constructor)
        (types . (time-scaled-music music-wrapper-music general-music))
        ))
     
     (TransposedMusic
      . (
        (description .  "Music that has been transposed.")
-       (iterator-ctor . ,Music_wrapper_iterator::constructor)
-       (start-callback . ,Music_wrapper::start_callback)
-       (length-callback . ,Music_wrapper::length_callback)
-       (to-relative-callback . ,Relative_octave_music::no_relative_callback)
+       (iterator-ctor . ,ly:music-wrapper-iterator::constructor)
+       (start-callback . ,ly:music-wrapper::start-callback)
+       (length-callback . ,ly:music-wrapper::length-callback)
+       (to-relative-callback . ,ly:relative-octave-music::no-relative-callback)
        (types . (music-wrapper-music general-music transposed-music))
        ))
 
@@ -547,19 +548,19 @@ Syntax @code{\\times @var{fraction} @var{music}}, e.g.
      . (
        (description .  "Music that can not be converted from relative to absolute notation.
 For example, transposed music.")
-       (to-relative-callback . ,Relative_octave_music::no_relative_callback)
-       (iterator-ctor . ,Music_wrapper_iterator::constructor)
-       (length-callback . ,Music_wrapper::length_callback)
+       (to-relative-callback . ,ly:relative-octave-music::no-relative-callback)
+       (iterator-ctor . ,ly:music-wrapper-iterator::constructor)
+       (length-callback . ,ly:music-wrapper::length-callback)
        (types . (music-wrapper-music general-music unrelativable-music))
        ))
 
     (RelativeOctaveMusic
      . (
        (description .  "Music that was entered in relative octave notation.")
-       (to-relative-callback . ,Relative_octave_music::relative_callback)
-       (iterator-ctor . ,Music_wrapper_iterator::constructor)
-       (length-callback . ,Music_wrapper::length_callback)
-       (start-callback . ,Music_wrapper::start_callback)
+       (to-relative-callback . ,ly:relative-octave-music::relative-callback)
+       (iterator-ctor . ,ly:music-wrapper-iterator::constructor)
+       (length-callback . ,ly:music-wrapper::length-callback)
+       (start-callback . ,ly:music-wrapper::start-callback)
        (types . (music-wrapper-music general-music relative-octave-music))
        ))
     (ScriptEvent
@@ -578,7 +579,7 @@ does not create staffs or voices implicitly.
 
 Syntax: @code{\\skip }@var{duration}.")
        (length-callback . ,ly:music-duration-length)
-       (iterator-ctor . ,Simple_music_iterator::constructor)
+       (iterator-ctor . ,ly:simple-music-iterator::constructor)
        (types . (general-music event rhythmic-event skip-event))
        ))
     
@@ -659,38 +660,38 @@ Syntax: @code{\\\\}")
 
     (VoltaRepeatedMusic
      . (
-       (iterator-ctor . ,Volta_repeat_iterator::constructor)
+       (iterator-ctor . ,ly:volta-repeat-iterator::constructor)
        (description . "")
-       (start-callback .  ,Repeated_music::first_start)
-       (length-callback . ,Repeated_music::volta_music_length)
+       (start-callback .  ,ly:repeated-music::first-start)
+       (length-callback . ,ly:repeated-music::volta-music-length)
        (types . (general-music repeated-music volta-repeated-music))
        ))
     
     (UnfoldedRepeatedMusic
      . (
-       (iterator-ctor . ,Unfolded_repeat_iterator::constructor)
+       (iterator-ctor . ,ly:unfolded-repeat-iterator::constructor)
        (description .  "")
-       (start-callback .  ,Repeated_music::first_start)
+       (start-callback .  ,ly:repeated-music::first-start)
        (types . (general-music repeated-music unfolded-repeated-music))
-       (length-callback . ,Repeated_music::unfolded_music_length)
+       (length-callback . ,ly:repeated-music::unfolded-music-length)
        ))
     (PercentRepeatedMusic
      . (
        (description .  "Repeats encoded by percents.")
-       (iterator-ctor . ,Percent_repeat_iterator::constructor)
-       (start-callback .  ,Repeated_music::first_start)
-       (length-callback . ,Repeated_music::unfolded_music_length)
+       (iterator-ctor . ,ly:percent-repeat-iterator::constructor)
+       (start-callback .  ,ly:repeated-music::first-start)
+       (length-callback . ,ly:repeated-music::unfolded-music-length)
        (types . (general-music repeated-music percent-repeated-music))
        ))
     
     (TremoloRepeatedMusic
      . (
-       (iterator-ctor . ,Chord_tremolo_iterator::constructor)
+       (iterator-ctor . ,ly:chord-tremolo-iterator::constructor)
        (description .  "Repeated notes denoted by tremolo beams.")
-       (start-callback .  ,Repeated_music::first_start)
+       (start-callback .  ,ly:repeated-music::first-start)
 
        ;; the length of the repeat is handled by shifting the note logs
-       (length-callback . ,Repeated_music::folded_music_length)
+       (length-callback . ,ly:repeated-music::folded-music-length)
        (types . (general-music repeated-music tremolo-repeated-music))
        
        ))
@@ -698,9 +699,9 @@ Syntax: @code{\\\\}")
     (FoldedRepeatedMusic
      . (
        (description .  "Repeats with alternatives placed in parallel. ")
-       (iterator-ctor  . ,Folded_repeat_iterator::constructor)
-       (start-callback .  ,Repeated_music::minimum_start)
-       (length-callback . ,Repeated_music::folded_music_length)
+       (iterator-ctor  . ,ly:folded-repeat-iterator::constructor)
+       (start-callback .  ,ly:repeated-music::minimum-start)
+       (length-callback . ,ly:repeated-music::folded-music-length)
        (types . (general-music repeated-music folded-repeated-music))
        ))
     ))
index b1148c064ec878a69b746ca6187d4f8da05c40da..a5a81ed75f1b90d07161d0df468d1b0bece628b8 100644 (file)
 
 
 (define-public (check-quant-callbacks l r)
-  (list Beam::calc_least_squares_positions
-       Beam::slope_damping
-       Beam::shift_region_to_valid
-       Beam::quanting
+  (list ly:beam::calc-least-squares-positions
+       ly:beam::slope-damping
+       ly:beam::shift-region-to-valid
+       ly:beam::quanting
        (check-beam-quant l r)
        ))
                        
 
 (define-public (check-slope-callbacks comparison)
-  (list Beam::calc_least_squares_positions
-       Beam::slope_damping
-       Beam::shift_region_to_valid
-       Beam::quanting
+  (list ly:beam::calc-least-squares-positions
+       ly:beam::slope-damping
+       ly:beam::shift-region-to-valid
+       ly:beam::quanting
        (check-beam-slope-sign comparison)      
        ))
index 117d5bc818843b31d8bca173f3026c749239fad8..fc9fa946a3cf130ad90593032ffe1659c8951ee8 100644 (file)
@@ -391,7 +391,7 @@ eg: ((italic) (raise 4) (bold)), maps the commands on each markup argument, eg:
       empty-markup))
 
 
-(define-public interpret-markup Text_interface::interpret_markup)
+(define-public interpret-markup ly:text-interface::interpret-markup)
 (define-public (prepend-alist-chain key val chain)
   (cons (acons key val (car chain)) (cdr chain)))
 
index d3b5b2fda558be22e44a263e33ca11b50bd27c8c..b0ff69a6dbff5ae4669fd6dd9c019a9540cc0584 100644 (file)
@@ -841,7 +841,7 @@ if appropriate.
     (if (and (equal? nm object-name)
             (procedure? cb))
        (begin
-         (ly:grob-set-property! grob 'stencil  Balloon_interface::print)
+         (ly:grob-set-property! grob 'stencil  ly:balloon-interface::print)
          (set! (ly:grob-property grob 'original-stencil) cb)
          (set! (ly:grob-property grob 'balloon-text) text)
          (set! (ly:grob-property grob 'balloon-text-offset) off)
index ae5c6f71116f340b102b901df7a93a56815fb68a..ee652b2533c05a5289b5e9e0c2c041357cf6253e 100644 (file)
@@ -80,7 +80,7 @@
         (layout (ly:grob-layout grob))
         (defs (ly:output-def-lookup layout 'text-font-defaults))
         (props (ly:grob-alist-chain grob defs))
-        (circle (Text_interface::interpret_markup
+        (circle (ly:text-interface::interpret-markup
                  layout props (make-circle-markup text))))
     circle))
 
@@ -178,7 +178,7 @@ centered, X==1 is at the right, X == -1 is at the left."
 
 (define-public (first-bar-number-invisible barnum) (> barnum 1))
 
-;; See documentation of Item::visibility_lambda_
+;; See documentation of ly:item::visibility-lambda-
 (define-public begin-of-line-visible
   #(#f #f #t))
 (define-public end-of-line-visible
index 54bdeb032d8b2426c4f18c9c9952cc498fcea8e3..b76b3bc2d55041d02003c3a2ff17aa7b1b9b0820 100644 (file)
    ;;$defaultmidi
    ;;$defaultlayout
 
-   Accidental_interface::print
-   Ambitus::print
-   Arpeggio::print
-   Arpeggio::brew_chord_bracket
-   Bar_line::print
-   Breathing_sign::offset_callback
-   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::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::print
-   Percent_repeat_item_interface::beat_slash
-   Percent_repeat_item_interface::double_percent
-   Piano_pedal_bracket::print
-   Rest::print
-   Script_interface::print
-   Separating_group_spanner::set_spacing_rods
-   Slur::height
-   Slur::print
-   Spacing_spanner::set_springs
-   Span_bar::print
-   Spanner::set_spacing_rods
-   Staff_symbol::print
-   Staff_symbol_referencer::callback
-   Stem::height
-   Stem::offset_callback
-   Stem::print
-   Stem_tremolo::height
-   Stem_tremolo::print
-   Sustain_pedal::print
-   System_start_delimiter::print
-   Text_interface::print
-   Text_spanner::print
-   Tie::print
-   Time_signature::print
-   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:hyphen-spanner::print
+   ly:hyphen-spanner::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)
index 4d4850de1bea17baccddbaa0f69bfdb902949a40..9c22d98fa880c7635698dbdd5123f58c392a18fe 100644 (file)
@@ -175,7 +175,7 @@ def do_one_file (infile_name):
                        result = re.sub (lilypond_version_re_str,
                                         '\\' + newversion, result)
                elif add_version:
-
+                       result = newversion + '\n' + result
                        
                error_file.write ('\n')