relpipe-data/examples/guile-file-count-size-sum.sh
branchv_0
changeset 316 d7ae02390fac
parent 248 e76ca9f7d6cb
equal deleted inserted replaced
315:d4c2968a391f 316:d7ae02390fac
     5 
     5 
     6 find "$1" -type f -print0 \
     6 find "$1" -type f -print0 \
     7 	| relpipe-in-filesystem \
     7 	| relpipe-in-filesystem \
     8 		--file path \
     8 		--file path \
     9 		--file size \
     9 		--file size \
    10 	| relpipe-tr-guile \
    10 	| relpipe-tr-scheme \
    11 		--relation 'f.*' \
    11 		--relation 'f.*' \
    12 		--output-attribute 'count' integer \
    12 		--output-attribute 'count' integer \
    13 		--output-attribute 'sum'   integer \
    13 		--output-attribute 'sum'   integer \
    14 		--before-records '
    14 		--before-records '
    15 			(define $sum   0)
    15 			(define $sum   0)