2 ;;; generate-documentation.scm -- Generate documentation
4 ;;; source file of the GNU LilyPond music typesetter
6 ;;; (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
9 ;;; File entry point for generated documentation
11 ;;; Running LilyPond on this file generates the documentation
15 ;; We use ly-gulp because these files live in
17 ;; PATH=$LILYPONDPREFIX/scm:<datadir>/scm
19 (eval-string (ly-gulp-file "documentation-lib.scm"))
20 (eval-string (ly-gulp-file "engraver-documentation-lib.scm"))
21 (eval-string (ly-gulp-file "backend-documentation-lib.scm"))
25 ;;(define no-copies #t) ; from 490 to 410K, but doesn't look nice yet
27 ;; Also, copies of interfaces use up lots more space, but that's
28 ;; functional because the default property values of the interfaces
32 (let* ((doc (string-append
33 (document-paper "LilyPond interpretation contexts")
34 (document-all-engravers "LilyPond engravers")
35 (document-all-elements "LilyPond backend")))
36 (name "lilypond-internals")
37 (outname (string-append name ".texi"))
38 (out (open-output-file outname)))
45 ;; we can't use (dir) and top if we're included by lilypond.tely
46 "LilyPond internals" name "(lilypond.info)"
47 '(("LilyPond interpretation contexts" . "Hierarchy and grouping of Engravers")
48 ("LilyPond engravers" . "Engravers create Elements")
49 ("LilyPond backend" . "Detailed description of all Elements")))
55 (newline (current-error-port))