* buildscripts/lilypond.words.py: add drum names as note names to

       Emacs-mode.

diff --git a/ChangeLog b/ChangeLog
index 4cd5909050722610a3cb3f8510d64b00ec92fcae..61bfaa6274806b9097ddcb3d8067cb1f703ff97d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-19  Heikki Junes  <hjunes@cc.hut.fi>
+
+       * buildscripts/lilypond.words.py: add drum names as note names to
+       Emacs-mode.
+
 2003-09-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * input/regression/hairpin-dashed.ly: new file.

diff --git a/buildscripts/lilypond.words.py b/buildscripts/lilypond.words.py
index c21202b0517812d8ce7f6daad4e764be6c6942fb..10c8f9f5163b2e929c4e1aeda767c9b608a15a52 100755 (executable)
--- a/buildscripts/lilypond.words.py
+++ b/buildscripts/lilypond.words.py
@@ -74,29 +74,6 @@ for name in [
            outlines = outlines + [prekw + m.group(2)]
     F.close()
 
-# more identifiers
-for name in [
-'ly/declarations-init.ly',
-'ly/paper11-init.ly',
-'ly/paper13-init.ly',
-'ly/paper16-init.ly',
-'ly/paper19-init.ly',
-'ly/paper20-init.ly',
-'ly/paper23-init.ly',
-'ly/paper26-init.ly',
-'ly/paper-as5-init.ly',
-'ly/paper-as9-init.ly',
-'ly/paper-init.ly',
-'ly/params-init.ly',
-'ly/params-as-init.ly',
-]:
-    F = open(name, 'r')
-    for line in F.readlines():
-        m = re.search(r"^(\s*)([a-zA-Z]+)(\s*=)",line)
-        if m:
-           outlines = outlines + [prekw + m.group(2)]
-    F.close()
-
 # note names
 for name in [
 'ly/catalan.ly',
@@ -112,13 +89,21 @@ for name in [
 ]:
     F = open(name, 'r')
     for line in F.readlines():
-       for pattern in [
-       r"^(\s*\()([a-z]+)([^l]+ly:make-pitch)",
-       ]:
-           m = re.search(pattern,line)
-           if m:
-                print(m.group(2))
-               outlines = outlines + ['' + m.group(2)]
+       m = re.search(r"^(\s*\()([a-z]+)([^l]+ly:make-pitch)",line)
+       if m:
+           outlines = outlines + ['' + m.group(2)]
+    F.close()
+
+# (short) drum names
+for name in [
+'share/lilypond/scm/drums.scm'
+]:
+    F = open(name, 'r')
+    for line in F.readlines():
+       m = re.search(r"^(\s*\([a-z]+\s*)([a-z]+)(\s*,\(ly:make-pitch)",line)
+       if m:
+           print(m.group(2))
+           outlines = outlines + ['' + m.group(2)]
     F.close()
     
 # reserved words