4 (define (format-c-header c-h)
5 (regexp-substitute/global
7 (regexp-substitute/global #f "(SCM|\\)|\\() *" c-h 'pre "" 'post)
11 (define (document-scheme-function name c-header doc-string)
13 "@defun " (symbol->string name) " " (format-c-header c-header) "\n"
18 (define all-scheme-functions
20 (lambda (key val prior)
21 (cons (cons key val) prior)
23 '() (ly:get-all-function-documentation))
26 (define (all-scheme-functions-doc)
30 (fdocs (map (lambda (x)
31 (document-scheme-function (car x) (cadr x) (cddr x))
35 (sfdocs (sort fdocs string<?))
40 #:name "Scheme functions"
41 #:desc "Primitive functions exported by LilyPond"
43 (apply string-append sfdocs)
48 ; (dump-node (all-scheme-functions-doc) (current-output-port) 0 )