release: 1.5.7

[lilypond.git] / scm / generate-documentation.scm

diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index 0af8fa789a7acfa66ede1bff7e5624b80d9e1f93..114d5f2de74a6026a71f7a7602344e3272878894 100644 (file)
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -3,7 +3,7 @@
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
 ;;; 
-;;; (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;; File entry point for generated documentation
@@ -16,11 +16,12 @@
 ;;
 ;;     PATH=$LILYPONDPREFIX/scm:<datadir>/scm
 ;;
-(eval-string (ly-gulp-file "documentation-lib.scm"))
-(eval-string (ly-gulp-file "engraver-documentation-lib.scm"))
-(eval-string (ly-gulp-file "backend-documentation-lib.scm"))
-
-
+(eval-string
+ (apply string-append
+ (map ly-gulp-file '("documentation-lib.scm"
+                               "engraver-documentation-lib.scm"
+                               "music-documentation-lib.scm"
+                               "backend-documentation-lib.scm"))))
 
 ;;(define no-copies #t)  ; from 490 to 410K, but doesn't look nice yet
 ;;
@@ -30,14 +31,19 @@
 (define no-copies #f)
 
 (let* ((doc (string-append
-            (document-paper "LilyPond interpretation contexts")
-            (document-all-engravers "LilyPond engravers")
-            (document-all-elements "LilyPond backend")
-            (document-all-interfaces "LilyPond interfaces")))
+            (document-music "LilyPond music properties") 
+            (document-paper "LilyPond interpretation contexts")
+            (document-all-engravers "LilyPond engravers")
+            (document-all-engraver-properties "LilyPond context properties")        
+            (document-all-grobs "LilyPond backend")
+            (document-all-interfaces "LilyPond interfaces")
+            (document-all-backend-properties "LilyPond backend properties")
+            )
+       )
        (name "lilypond-internals")
        (outname (string-append name ".texi"))
        (out (open-output-file outname)))
-    
+
   (writing-wip outname)
   (display 
    (string-append
@@ -45,13 +51,38 @@
      
      ;; we can't use (dir) and top if we're included by lilypond.tely
      "LilyPond internals" name "(lilypond.info)"
-     '(("LilyPond interpretation contexts" . "Hierarchy and grouping of Engravers")
-       ("LilyPond engravers" . "Engravers create Elements")
-       ("LilyPond backend" . "Detailed description of all Elements")
-       ("LilyPond interfaces" . "Element Interfaces")))
-     
+     '(
+       ("LilyPond music properties" . "properties for Music representation")
+       ("LilyPond interpretation contexts" . "Hierarchy and grouping of Engravers")
+       ("LilyPond engravers" . "Engravers create Grobs")
+       ("LilyPond context properties" . "context properties")       
+       ("LilyPond backend" . "Detailed description of all Grobs")
+       ("LilyPond interfaces" . "Grob Interfaces")
+       ("LilyPond backend properties" . "Grob properties")
+       ("Index" . "index")
+       ))
+
+    
+    
     doc
+
+    "@node Index
+@unnumbered Concept index
+
+@printindex cp
+
+@unnumbered Variable index
+
+@printindex vr
+
+@unnumbered Function index
+
+@printindex fn
+
+"
+
+    
     "\n@bye")
-    out))
+   out))
 
 (newline (current-error-port))