(use procter)

(define proc/partitions (make-full-qualified-reader "/proc/partitions" (make-table-parser horizontal-headers #t)))

(define property-table-reader (make-reader (make-table-parser vertical-headers: #t delimiter: '(seq (+ whitespace) ":" (*whitespace)))))

(define table-reader (make-reader (make-table-parser horizontal-headers: #t)))


(print "Partitions")
(pp (proc/partitions))

(print "Crypto")
(pp (property-table-reader "/proc/crypto"))

(print "Swaps")
(pp (table-reader "/proc/swaps"))

(print "net/core/somaxconn")
(pp ((make-reader (make-table-reader) path-prefix: "/proc/sys/net/core/") "somaxconn"))

(use procter)

(define proc/partitions 
   (make-full-qualified-reader "/proc/partitions" (make-table-parser horizontal-headers #t)))

(define property-table-reader 
  (make-reader 
     (make-table-parser vertical-headers: #t 
                        delimiter: '(seq (+ whitespace) ":" (* whitespace)))))

(define table-reader 
  (make-reader 
    (make-table-parser horizontal-headers: #t)))


(print "Partitions")
(pp (proc/partitions))

(print "Crypto")
(pp (property-table-reader "/proc/crypto"))

(print "Swaps")
(pp (table-reader "/proc/swaps"))

(print "net/core/somaxconn")
(pp ((make-reader (make-table-reader) path-prefix: "/proc/sys/net/core/") "somaxconn"))