/usr/share/lilypond/2.14.2/scm/document-type-predicates.scm is in lilypond-data 2.14.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | ;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
;;;; Copyright (C) 2010--2011 Mark Polesky <markpolesky@yahoo.com>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; LilyPond is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public License
;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
(define (document-type-predicate entry)
(let ((pred (procedure-name (car entry))))
(string-append
"@item @code{"
(case pred
;; don't print "cheap-markup?"
((cheap-markup?) "markup?")
(else (symbol->string pred)))
"} @tab \n"
(case pred
;; clarify `list?' vs. `cheap-list?'
((list?) "list @emph{(use} @code{cheap-list?}
@emph{for faster processing)}")
((cheap-list?) "list @emph{(use this instead of}
@code{list?} @emph{for faster processing)}")
(else (cdr entry)))
"\n")))
(define (document-type-predicate-category alist nodename)
(string-append
"@node " nodename "\n"
"@unnumberedsubsec " nodename "\n"
"\n"
"@multitable @columnfractions .33 .66\n"
"@headitem Type predicate @tab Description\n"
(apply string-append
(sort (map document-type-predicate alist)
ly:string-ci<?))
"@end multitable\n"
"\n"))
(define-public type-predicates-doc-string
(string-append
"@menu\n"
"* R5RS primary predicates::\n"
"* R5RS secondary predicates::\n"
"* Guile predicates::\n"
"* LilyPond scheme predicates::\n"
"* LilyPond exported predicates::\n"
"@end menu\n"
"\n"
(apply
string-append
(map
(lambda (alist-nodename-list)
(apply document-type-predicate-category
alist-nodename-list))
`((,r5rs-primary-predicates "R5RS primary predicates")
(,r5rs-secondary-predicates "R5RS secondary predicates")
(,guile-predicates "Guile predicates")
(,lilypond-scheme-predicates "LilyPond scheme predicates")
(,lilypond-exported-predicates "LilyPond exported predicates"))))))
|