diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-14 05:10:19 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
commit | b7c7b062aa09d88b9cb4ea8e881f48a584287033 (patch) | |
tree | c802b1f26ad9a6977aee0fa6f20f25f23b420753 /module/vcomponent/util/describe.scm | |
parent | Limit coverage to only use half of all threads by default. (diff) | |
download | calp-b7c7b062aa09d88b9cb4ea8e881f48a584287033.tar.gz calp-b7c7b062aa09d88b9cb4ea8e881f48a584287033.tar.xz |
Remove (vcomponent util describe).
Vcomponent's 'write' method is now good enough for debug printing,
removing the need for this quasi-formatted output.
Diffstat (limited to 'module/vcomponent/util/describe.scm')
-rw-r--r-- | module/vcomponent/util/describe.scm | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/module/vcomponent/util/describe.scm b/module/vcomponent/util/describe.scm deleted file mode 100644 index ab020d6e..00000000 --- a/module/vcomponent/util/describe.scm +++ /dev/null @@ -1,46 +0,0 @@ -(define-module (vcomponent util describe) - :use-module (hnh util) - :use-module ((srfi srfi-1) :select (car+cdr)) - :use-module (srfi srfi-71) - :use-module (vcomponent base) - :use-module (text util) - :export (describe)) - -(define* (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 (car+cdr 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))) - (awhen (vline-source vline) - (display ((@@ (vcomponent formats ical parse) get-line) it))) - (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)))) - (sort* (properties vcomponent) - string<? - ;; TODO is key always a symbol? - (compose symbol->string car))) - - (for child in (children vcomponent) - (describe child (+ indent 2))) - - (format #t "~aEND ~a~%" ii (type vcomponent))) |