X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocumentation-generate.scm;h=6219ce53c3f3a0de56b2ad3f8ff3d26a4f190f7b;hb=814c79bafcf4dd9f51ce917285fbe026e9cdd46a;hp=e90b5868923c4883edd2ecc532f815b9aa542c6c;hpb=a48fe82a448339d0acb1a2c63a92e946b5c018b3;p=lilypond.git diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm index e90b586892..6219ce53c3 100644 --- a/scm/documentation-generate.scm +++ b/scm/documentation-generate.scm @@ -1,158 +1,143 @@ -;;; generate-documentation.scm -- Generate documentation -;;; -;;; source file of the GNU LilyPond music typesetter -;;; -;;; (c) 2000--2004 Han-Wen Nienhuys -;;; Jan Nieuwenhuizen +;;;; generate-documentation.scm -- Generate documentation +;;;; +;;;; source file of the GNU LilyPond music typesetter +;;;; +;;;; (c) 2000--2007 Han-Wen Nienhuys +;;;; Jan Nieuwenhuizen ;;; File entry point for generated documentation - ;;; Running LilyPond on this file generates the documentation -(debug-enable 'debug) -(debug-enable 'backtrace) -(read-enable 'positions) +;;(set-debug-cell-accesses! 5000) ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; TODO : make modules of these! ;;;;;;;;;;;;;;;; -; todo: naming: grob vs. layout property - -(define load-files '("documentation-lib.scm" - "document-functions.scm" - "document-translation.scm" - "document-music.scm" - "document-backend.scm" - "document-markup.scm" - )) -(map ly:load load-files) - - -;;(define no-copies #t) ; from 490 to 410K, but doesn't look nice yet -;; -;; Also, copies of interfaces use up lots more space, but that's -;; functional because the default property values of the interfaces -;; are described... -(define no-copies #f) - - - - - - - - - - +;; todo: naming: grob vs. layout property +(map ly:load '("documentation-lib.scm" + "document-functions.scm" + "document-translation.scm" + "document-music.scm" + "document-identifiers.scm" + "document-backend.scm" + "document-markup.scm")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(dump-node (all-scheme-functions-doc) - (open-output-file "scheme-functions.tely") - 2) +(display + (slot-ref (all-scheme-functions-doc) 'text) + (open-output-file "scheme-functions.tely")) (display (markup-doc-string) + (open-output-file "markup-commands.tely")) - (open-output-file "markup-commands.tely") - ) +(display + (markup-list-doc-string) + (open-output-file "markup-list-commands.tely")) -(dump-node - (make - #:name "Layout property overview" - #:desc "All user serviceable layout properties" - #:text (backend-properties-doc-string all-user-grob-properties)) +(display + (identifiers-doc-string) + (open-output-file "identifiers.tely")) - (open-output-file "layout-properties.tely") - 2) -(dump-node - (make - #:name "Context property overview" - #:desc "All user serviceable context properties" - #:text (translation-properties-doc-string all-user-translation-properties)) - - (open-output-file "context-properties.tely") - 2) +(display + (backend-properties-doc-string all-user-grob-properties) + (open-output-file "layout-properties.tely")) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(display + (translation-properties-doc-string all-user-translation-properties) + (open-output-file "context-properties.tely")) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define file-name "lilypond-internals") (define outname (string-append file-name ".texi")) - (define out-port (open-output-file outname)) (writing-wip outname) - - - - (display (string-append - (texi-file-head "LilyPond program-reference" outname "(lilypond-internals.info)") + (texi-file-head "LilyPond program-reference" file-name + "(lilypond/lilypond-internals.info)") " -@ifhtml -@macro usermanref{NAME} -@uref{../lilypond/\\NAME\\.html,\\NAME\\} -@cindex \\NAME\\ -@end macro -@end ifhtml +@c NOTE: This is documentation-generate.scm, not macros.itexi -@ifinfo -@macro usermanref{NAME} -@inforef{\\NAME\\,,lilypond} -@cindex \\NAME\\ -@end macro -@end ifinfo @ifhtml -@macro glossaryref{NAME} -@uref{../music-glossary/\\NAME\\.html,\\NAME\\} +@c ***** HTML ***** + +@macro ruser{NAME} +@ref{\\NAME\\,,,lilypond} @cindex \\NAME\\ @end macro -@end ifhtml -@ifinfo @macro glossaryref{NAME} -@inforef{\\NAME\\,,music-glossary} +@ref{\\NAME\\,,,music-glossary} @cindex \\NAME\\ @end macro -@end ifinfo - - -@macro internalsref{NAME} -@ref{\\NAME\\} -@end macro - -@ifhtml @macro inputfileref{DIR,NAME} -@uref{../../../../\\DIR\\/out-www/collated-files.html#\\NAME\\,@file{\\DIR\\/\\NAME\\}}@c +@uref{source/\\DIR\\/out-www/collated-files.html#\\NAME\\,@file{\\DIR\\/\\NAME\\}}@c @end macro +@macro q{TEXT} +@html +‘\\TEXT\\’ +@end html +@end macro @end ifhtml + @ifinfo +@c ***** info ***** + +@macro ruser{NAME} +@inforef{\\NAME\\,,,lilypond} +@cindex \\NAME\\ +@end macro + +@macro glossaryref{NAME} +@inforef{\\NAME\\,,lilypond/music-glossary} +@cindex \\NAME\\ +@end macro @macro inputfileref{DIR,NAME} @file{\\DIR\\/\\NAME\\} @end macro +@macro q{TEXT} +`\\TEXT\\' +@end macro @end ifinfo + @iftex +@c ***** TeX ***** + +@macro ruser{NAME} +@ref{\\NAME\\}@c +@end macro + @macro inputfileref{DIR,NAME}@c @file{\\DIR\\/\\NAME\\}@c @end macro + +@macro q{TEXT} +`\\TEXT\\' +@end macro @end iftex +@macro internalsref{NAME} +@ref{\\NAME\\} +@end macro + @ignore @omftitle LilyPond internals @@ -164,11 +149,17 @@ @end ignore -") out-port) +") + out-port) (define top-node (make #:name "Top" + #:text + (string-append "This is the program reference for version " + (lilypond-version) + " of LilyPond, the GNU music typesetter.") + #:children (list (music-doc-node) @@ -176,30 +167,17 @@ (backend-doc-node) (all-scheme-functions-doc) (make - #:name "Index" + #:name "Indexes" #:text " @unnumbered Concept index @printindex cp -@unnumbered Variable index - -@printindex vr - @unnumbered Function index @printindex fn -\n@bye" - - - ) - ))) - +\n@bye")))) (dump-node top-node out-port 0) (newline (current-error-port)) - - - -