57 lines
1.8 KiB
Scheme
57 lines
1.8 KiB
Scheme
(library
|
|
(thin check)
|
|
|
|
(export thin-dump
|
|
thin-dump-flags)
|
|
|
|
(import
|
|
(bcache block-manager)
|
|
(persistent-data btree)
|
|
(fmt fmt)
|
|
(list-utils)
|
|
(matchable)
|
|
(parser-combinators)
|
|
(srfi s8 receive)
|
|
(thin metadata)
|
|
(thin mapping-tree)
|
|
(chezscheme))
|
|
|
|
(define (dump-dev-tree cache root)
|
|
(btree-each (btree-open device-details-vt cache root)
|
|
(lambda (k v)
|
|
(fmt #t
|
|
"dev-id: " k "\n"
|
|
" mapped blocks: " (ftype-ref ThinDeviceDetails (mapped-blocks) v) "\n"
|
|
" transaction id: " (ftype-ref ThinDeviceDetails (transaction-id) v) "\n"
|
|
" creation time: " (ftype-ref ThinDeviceDetails (creation-time) v) "\n"
|
|
" snapshotted time: " (ftype-ref ThinDeviceDetails (snapshotted-time) v) "\n"))))
|
|
|
|
(define-enumeration thin-check-element
|
|
(quiet
|
|
clear-needs-check-flag
|
|
ignore-non-fatal-errors
|
|
skip-mappings
|
|
super-block-only)
|
|
thin-check-flags)
|
|
|
|
(define (thin-check metadata-path flags)
|
|
(tag 'superblock `((uuid . "<not implemented yet>")
|
|
(time . )
|
|
(transaction . 1)
|
|
(flags . 0)
|
|
(version . 2)
|
|
(data-block-size . 128)
|
|
(nr-data-blocks . ,(apply + nr-mappings)))
|
|
|
|
(with-bcache (cache metadata-path 1024)
|
|
(with-block (b cache 0 (get-flags))
|
|
(let ((sb (block->superblock b)))
|
|
(fmt (current-output-port)
|
|
"block-nr: " (ftype-ref ThinSuperblock (block-nr) sb) "\n"
|
|
"magic: " (ftype-ref ThinSuperblock (magic) sb) "\n"
|
|
"data-mapping-root: " (ftype-ref ThinSuperblock (data-mapping-root) sb) "\n"
|
|
"device-details-root: " (ftype-ref ThinSuperblock (device-details-root) sb) "\n")
|
|
(dump-dev-tree cache (ftype-ref ThinSuperblock (device-details-root) sb)))))))
|
|
|
|
)
|