blob: 41c62c567844a09cd157ee960c6b66bc41ea42f8 (
plain)
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
|
(define-module (vcomponent describe)
:use-module (util)
:use-module (vcomponent base)
:use-module (text util))
(define*-public (describe vcomponent optional: (indent 0))
(define ii (make-string indent #\space))
(define iii (make-string (1+ indent) #\space))
(define maxlen (find-max (map
(lambda (a) (string-length (symbol->string a)))
(map car (properties vcomponent)))))
(format #t "~aBEGIN ~a~%" ii (type vcomponent))
(for-each (lambda (kv)
(let* ((key . values) kv)
(define (out vline)
(format #t "~a~a = ~a"
iii
(trim-to-width (symbol->string key) maxlen)
(trim-to-width
(format #f "~a" (value vline))
(- 80 indent maxlen)))
(unless (null? (parameters vline))
(display " ;")
(for (key value) in (parameters vline)
(format #t " ~a=~a" key value)))
(newline))
(if (list? values)
(for-each out values)
(out values))))
(properties vcomponent))
(for child in (children vcomponent)
(describe child (+ indent 2)))
(format #t "~aEND ~a~%" ii (type vcomponent)))
|