factor/basis/strings/tables/tables.factor

! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences fry math.order splitting ;
IN: strings.tables

<PRIVATE

: map-last ( seq quot -- seq )
    [ dup length <reversed> ] dip '[ 0 = @ ] 2map ; inline

: max-length ( seq -- n )
    [ length ] [ max ] map-reduce ;

: format-row ( seq ? -- seq )
    [
        dup max-length
        '[ _ "" pad-tail ] map
    ] unless ;

: format-column ( seq ? -- seq )
    [
        dup max-length
        '[ _ CHAR: \s pad-tail ] map
    ] unless ;

PRIVATE>

: format-table ( table -- seq )
    [ [ [ string-lines ] map ] dip format-row flip ] map-last concat
    flip [ format-column ] map-last flip [ " " join ] map ;