5 (define (format-c-header c-h)
6 (regexp-substitute/global
8 (regexp-substitute/global #f "(SCM|\\)|\\() *" c-h 'pre "" 'post)
12 (define (document-scheme-function name c-header doc-string)
14 "@defun " (symbol->string name) " " (format-c-header c-header) "\n"
19 (define all-scheme-functions
21 (lambda (key val prior)
22 (cons (cons key val) prior)
24 '() (ly:get-all-function-documentation))
27 (define (all-scheme-functions-doc)
31 (fdocs (map (lambda (x)
32 (document-scheme-function (car x) (cadr x) (cddr x))
36 (sfdocs (sort fdocs string<?))
41 #:name "Scheme functions"
42 #:desc "Primitive functions exported by LilyPond"
44 (apply string-append sfdocs)
49 ; (dump-node (all-scheme-functions-doc) (current-output-port) 0 )