+;;;; document-funcions.scm -- part of generated backend documentation
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;;
+;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; Jan Nieuwenhuizen <janneke@gnu.org>
+
(use-modules
- (ice-9 regex)
- )
+ (ice-9 regex))
(define (dashify-underscores str)
(regexp-substitute/global #f "_" str 'pre "-" 'post))
(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<?))
- )
-
-
+ (let* ((fdocs (map (lambda (x)
+ (document-scheme-function (car x) (cadr x) (cddr x)))
+ all-scheme-functions))
+ (sfdocs (sort fdocs string<?)))
(make <texi-node>
#:name "Scheme functions"
#: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 )