scm/generate-interface-doc.scm

   1
   2 ;;; generate-interface-doc.scm -- Generate list of all intefaces, for refman
   3 ;;;
   4 ;;; source file of the GNU LilyPond music typesetter
   5 ;;;
   6 ;;; (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
   8
   9 ;;; File entry point for generated documentation
  10
  11 ;;; Running LilyPond on this file generates the documentation
  12
  13
  14
  15 ;; We use ly-gulp because these files live in
  16 ;;
  17 ;;     PATH=$LILYPONDPREFIX/scm:<datadir>/scm
  18 ;;
  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"))
  22
  23 ;;(define no-copies #t)  ; from 490 to 410K, but doesn't look nice yet
  24 ;;
  25 ;; Also, copies of interfaces use up lots more space, but that's
  26 ;; functional because the default property values of the interfaces
  27 ;; are described...
  28 (define no-copies #f)
  29
  30 (let* ((doc (string-append
  31              (document-all-interfaces "Full Grob interface list")
  32              )
  33        )
  34        (name "interfaces")
  35        (outname (string-append name ".itexi"))
  36        (out (open-output-file outname)))
  37
  38   (writing-wip outname)
  39   (display
  40    (string-append
  41     ;;(itexi-file-head
  42     ;;
  43     ;; ;; we can't use (dir) and top if we're included by lilypond.tely
  44     ;; "Grob interfaces" name ""
  45     ;; '(
  46     ;;   ("Grob interfaces" . "Grob Interfaces")
  47     ;;   ))
  48     doc
  49     "\n")
  50    out))
  51
  52 (newline (current-error-port))