X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-markup.scm;h=8761deb83db17b031f0d65f12f1d7e9ef7395053;hb=0000bf354336882a1cb6d627570db840e5c05a27;hp=599015f8c352c300f16df97bff7372e4638d0bbf;hpb=ed8702ba953fe9dd62927c6312b36b369f022f93;p=lilypond.git

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 599015f8c3..8761deb83d 100644
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -1,54 +1,66 @@
+;;;; document-markup.scm -- part of generated backend documentation
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (doc-markup-function func)
-  (let*
-      (
-       (doc-str  (procedure-documentation func) )
-       (f-name (symbol->string (procedure-name  func)))
-       (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
-       (sig (object-property func 'markup-signature))
-       (arg-names
-	(map symbol->string 
-	     (cddr (cadr (procedure-source func)))))
-       
-       (sig-type-names (map type-name sig))
-       (signature (zip arg-names  sig-type-names))
-       (signature-str
-	(string-join
-	 (map (lambda (x) (string-append
-			   "@var{" (car x) "} ("  (cadr x) ")" ))
-	      (zip arg-names  sig-type-names))
-	 " " )))
+  (let* ((doc-str  (procedure-documentation func))
+	 (f-name (symbol->string (procedure-name  func)))
+	 (c-name (regexp-substitute/global #f "-markup(-list)?$" f-name  'pre "" 'post))
+	 (sig (object-property func 'markup-signature))
+	 (arg-names (let ((arg-list (cadr (procedure-source func))))
+                      (if (list? arg-list)
+                          (map symbol->string (cddr arg-list))
+                          (make-list (length sig) "arg"))))
+	 (sig-type-names (map type-name sig))
+	 (signature-str
+	  (string-join
+	   (map (lambda (x) (string-append
+			     "@var{" (car x) "} ("  (cadr x) ")" ))
+		(zip arg-names  sig-type-names))
+	   " " )))
     
-    
-       
-  (string-append
-   "\n\n@item @code{\\" c-name "} " signature-str
-   
-   "\n@findex " f-name "\n"
-   "\n@cindex " c-name "\n"
-   
-   (if (string? doc-str)
-       doc-str
-       "")
-  )))
+    (string-append
+     "\n\n@item @code{\\" c-name "} " signature-str
+     
+     "\n@findex " f-name "\n"
+     "\n@cindex @code{" c-name "}\n"
+     
+     (if (string? doc-str)
+	 doc-str
+	 ""))))
 
 (define (markup-function<? a b)
   (string<? (symbol->string (procedure-name a)) (symbol->string (procedure-name b))))
 
 (define (markup-doc-string)
   (string-append
-	 
-	 "@table @asis"
-	 (apply string-append
-	 
-		(map doc-markup-function
-		     (sort markup-function-list markup-function<?) ) )
-	 "\n@end table"
+   
+   "@table @asis"
+   (apply string-append
+	  
+	  (map doc-markup-function
+	       (sort markup-function-list markup-function<?)))
+   "\n@end table"))
 
-	 ))
+(define (markup-list-doc-string)
+  (string-append
+   "@table @asis"
+   (apply string-append
+	  (map doc-markup-function
+	       (sort markup-list-function-list markup-function<?)))
+   "\n@end table"))
 
 (define (markup-doc-node)
   (make <texi-node>
     #:name "Markup functions"
     #:desc "Definitions of the markup functions."
     #:text (markup-doc-string)))
+
+(define (markup-list-doc-node)
+  (make <texi-node>
+    #:name "Markup list functions"
+    #:desc "Definitions of the markup list functions."
+    #:text (markup-list-doc-string)))