X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-functions.scm;h=1e473f107ac3b61e444fa243abe41ed4927e3a41;hb=da12a3eb8e07ec4e910ead9f39f477920251190a;hp=19b619b365f7c8bb6e4abad078263a2268b56817;hpb=fd58a98a46a3def26b80a895f1f7b81c92590fc3;p=lilypond.git diff --git a/scm/document-functions.scm b/scm/document-functions.scm index 19b619b365..1e473f107a 100644 --- a/scm/document-functions.scm +++ b/scm/document-functions.scm @@ -1,6 +1,12 @@ +;;;; document-funcions.scm -- part of generated backend documentation +;;;; +;;;; source file of the GNU LilyPond music typesetter +;;;; +;;;; (c) 1998--2007 Han-Wen Nienhuys +;;;; Jan Nieuwenhuizen + (use-modules - (ice-9 regex) - ) + (ice-9 regex)) (define (dashify-underscores str) (regexp-substitute/global #f "_" str 'pre "-" 'post)) @@ -16,36 +22,23 @@ (string-append "@defun " (symbol->string name) " " (format-c-header c-header) "\n" doc-string - "\n@end defun\n\n") - ) + "\n@end defun\n\n")) (define all-scheme-functions (hash-fold (lambda (key val prior) - (cons (cons key val) prior) - ) + (cons (cons key val) prior)) '() (ly:get-all-function-documentation))) (define (all-scheme-functions-doc) - (let* - ( - - (fdocs (map (lambda (x) - (document-scheme-function (car x) (cadr x) (cddr x)) - ) - all-scheme-functions) - ) - (sfdocs (sort fdocs string #:name "Scheme functions" - #:desc "Primitive functions exported by LilyPond" + #:desc "Primitive functions exported by LilyPond." #:text - (apply string-append sfdocs) - ) - )) - + (apply string-append sfdocs)))) -; (dump-node (all-scheme-functions-doc) (current-output-port) 0 ) +;; (dump-node (all-scheme-functions-doc) (current-output-port) 0 )