-;;; engraver-documentation-lib.scm -- Functions for engraver documentation
+;;; engraver-doumentation-lib.scm -- Functions for engraver documentation
;;;
;;; source file of the GNU LilyPond music typesetter
;;;
-;;; (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;; Jan Nieuwenhuizen <janneke@gnu.org>
-(eval-string (ly-gulp-file "translator-description.scm"))
;; alist of translater descriptions
-(define (document-translator-property prop-desc)
+(define (document-translator-property sym)
(cons
(string-append
- "@code{" (car prop-desc) "} "
- "(" (type-name (cadr prop-desc)) "):")
- (caddr prop-desc)))
+ "@code{" (symbol->string sym) "} "
+ "(" (type-name (object-property sym 'translation-type?)) "):")
+ (object-property sym 'translation-doc)))
;; First level Engraver description and
;; second level Context description
-(define (document-engraver where engraver-descr)
-
+(define (document-engraver where engraver)
+
(let* (
(level (if (eq? where 'context) 3 2))
- (props (car (cdddr engraver-descr)))
- (name (car engraver-descr))
- (desc (cadr engraver-descr))
- (objs (caddr engraver-descr))
+ (propsr (cdr (assoc 'properties-read (Translator::description engraver))))
+ (propsw (cdr (assoc 'properties-written (Translator::description engraver))))
+ (name (Translator::name engraver))
+ (name-sym (string->symbol name))
+ (desc (cdr (assoc 'description (Translator::description engraver))))
+ (grobs (engraver-grobs engraver))
)
(string-append
(texi-section level (engraver-name name) (eq? where 'context))
desc
"\n\n"
- (if (null? props)
+ (if (null? propsr)
""
(string-append
- (texi-section (+ level 1) "Properties" #f)
+ (texi-section (+ level 1) "Properties (read)" #f)
(description-list->texi
- (map (lambda (x) (document-translator-property x)) props))))
- (if (null? objs)
+ (map (lambda (x) (document-translator-property x)) propsr))))
+ (if (null? propsw)
+ ""
+ (string-append
+ (texi-section (+ level 1) "Properties (write)" #f)
+ (description-list->texi
+ (map (lambda (x) (document-translator-property x)) propsw))))
+ (if (null? grobs)
""
(string-append
- "This engraver creates \n "
- (human-listify (map reffy (map element-name objs)))
- " elements.")
+ "This engraver creates the following grobs: \n "
+ (human-listify (map ref-ify (uniq-list (sort grobs string<? ))))
+ ".")
)
"\n\n"
context-description-alist))))
(string-append
name " is part of contexts: "
- (human-listify (map reffy (map context-name contexts))))))))
+ (human-listify (map ref-ify (map context-name contexts))))))))
;; First level Engraver description
-(define (document-separate-engraver top description)
- (let ((name (car description)))
+(define (document-separate-engraver top grav)
+ (let ((name (Translator::name grav)))
(processing name)
(string-append
(node (engraver-name name))
- (document-engraver 'self description))))
+ (document-engraver 'self grav))))
;; Second level, part of Context description
+(define (find-engraver-by-name name list)
+ (if (null? list)
+ #f
+ (if (equal? name (Translator::name (car list)))
+ (car list)
+ (find-engraver-by-name name (cdr list)))))
+
(define (document-engraver-by-name name)
(let*
(
- (eg (assoc (string->symbol name) engraver-description-alist))
+ (eg (find-engraver-by-name name all-engravers-list))
)
(if (eq? eg #f)
(string-append "Engraver " name ", not documented.\n")
- (document-engraver 'context (cdr eg))
+ (document-engraver 'context eg)
)
))
(cdr (assoc 'consists context-desc))
(cdr (assoc 'end-consists context-desc))
))
+ (grobs (context-grobs context-desc))
+ (grob-refs (map (lambda (x) (ref-ify x)) grobs))
)
(string-append
desc
+ "\n\nThis context creates the following grobs: \n\n"
+ (human-listify (uniq-list (sort grob-refs string<? )))
+ "."
(if (null? accepts)
"This context is a `bottom' context; it can not contain other contexts."
(string-append
+ "\n\nContext "
name " can contain \n"
- (human-listify (map reffy (map context-name accepts)))))
+ (human-listify (map ref-ify (map context-name accepts)))))
"\n\nThis context is built from the following engravers: "
(if no-copies
- (human-listify (map reffy (map engraver-name consists)))
+ (human-listify (map ref-ify (map engraver-name consists)))
(apply string-append
(map document-engraver-by-name consists))))))
+(define (engraver-grobs grav)
+ (let* (
+ (eg (if (string? grav)
+ (find-engraver-by-name grav all-engravers-list)
+ grav))
+
+ )
+
+ (if (eq? eg #f)
+ '()
+ (map symbol->string (cdr (assoc 'grobs-created (Translator::description eg))))
+ )
+ ))
+
+(define (context-grobs context-desc)
+ (let* (
+ (consists (append
+ (list (cdr (assoc 'group-type context-desc)))
+ (cdr (assoc 'consists context-desc))
+ (cdr (assoc 'end-consists context-desc))
+ ))
+ (grobs (apply append
+ (map engraver-grobs consists))
+ )
+ )
+ grobs
+ ))
+
;; First level Context description
(define (document-context top context-desc)
(texi-section 2 (context-name name) #f)
doc)))
+(define (symbol<? l r)
+ (string<? (symbol->string l) (symbol->string r)))
+
(define (document-paper name)
- (let* ((paper-alist (My_lily_parser::paper_description))
- (names (sort (map car paper-alist) string<?))
+ (let* ((paper-alist
+ (sort (My_lily_parser::paper_description)
+ (lambda (x y) (symbol<? (car x) (car y)))))
+ (names (sort (map symbol->string (map car paper-alist)) string<?))
(contexts (map cdr paper-alist))
(doc (apply string-append
(map (lambda (x) (document-context name x)) contexts))))
names))
doc)))
+(define all-engravers-list (ly-get-all-translators))
(define (document-all-engravers name)
- (let* ((descs (map cdr engraver-description-alist))
- (names (map car engraver-description-alist))
+ (let* ((gravs all-engravers-list)
+ (names (map Translator::name gravs))
(doc (apply string-append
(map (lambda (x) (document-separate-engraver name x))
- descs))))
-
+ gravs))))
(string-append
(texi-node-menu name (map (lambda (x) (cons (engraver-name x) ""))
names))
doc)))
+(define (document-all-engraver-properties name)
+ (let* ((ps (sort (map symbol->string all-translation-properties) string<?))
+ (sortedsyms (map string->symbol ps))
+ (propdescs (map document-translator-property sortedsyms))
+ (texi (description-list->texi propdescs)))
+
+ (string-append
+ (node name)
+ (texi-section 1 name #f)
+ texi)))
projects / lilypond.git / blobdiff