From df77a1380c4abcb910987cce4e0bace9a042cd76 Mon Sep 17 00:00:00 2001
From: Mark Polesky <address@hidden>
Date: Tue, 20 Apr 2010 23:52:36 -0700
Subject: [PATCH] lily.scm: Generate typecheck-doc-table texinfo string.

---
 scm/lily.scm |   20 ++++++++++++++++++--
 1 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/scm/lily.scm b/scm/lily.scm
index 8cfebbd..93c6909 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -49,8 +49,8 @@
 "Render at higher resolution (using given factor)
 and scale down result to prevent jaggies in
 PNG images.")
-    (aux-files #t 
-"Create .tex, .texi, .count files in the 
+    (aux-files #t
+"Create .tex, .texi, .count files in the
 EPS backend.")
     (backend ps
 "Select backend.  Possible values: 'eps, 'null,
@@ -455,6 +455,22 @@ LilyPond safe mode.  The syntax is the same as `define*-public'."
 	(,symbol? . "symbol")
 	(,vector? . "vector")))
 
+(define (make-doc-typecheck-row entry)
+  (string-append
+    "@item @code{"
+    (symbol->string (procedure-name (car entry)))
+    "} @tab "
+    (cdr entry)
+    "\n"))
+
+(define typecheck-doc-table
+  (string-append
+    "@multitable @columnfractions .33 .66\n"
+    "@headitem Type predicate @tab Description\n"
+    (apply string-append
+           (map make-doc-typecheck-row type-p-name-alist))
+    "@end multitable\n"))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; timing
 
-- 
1.6.3.3