Welcome to the CHICKEN Scheme pasting service

procter lolevel-api - Thoughts? pasted by certainty on Sat Jun 2 17:54:42 2012

(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"))
[ permalink | raw ]

procter reformatted added by certainty on Sat Jun 2 17:58:54 2012

(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"))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 3 when given `'(1 2 3 4)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV