[match/match.git] / program / Formatter.hs

module Formatter where
import Data.List

#if __GLASGOW_HASKELL__ <= 606
intercalate xs xss = concat (intersperse xs xss)
#endif

padWith :: a -> Int -> [a] -> [a]
padWith _ 0 l = l
padWith e n [] = replicate n e
-- http://hackage.haskell.org/trac/haskell-prime/wiki/RemoveNPlusK
-- Ugg... GHC could at least give a meaningful error message. ~ Matt 2011-08-27
padWith e n (h:t) =
	if n == 0 then error "padWith: list is already longer than the requested length"
	else h:(padWith e (n-1) t)

formatTable :: [[String]] -> String
formatTable cells =
	let columnWidths = map (\col -> maximum $ map length col)
		$ transpose cells in
	intercalate "\n" $
		map (\row ->
			let rowCells = zipWith (padWith ' ') columnWidths row in
			intercalate " " rowCells
		) cells
Commit	Line	Data
967c39ef MM	1	module Formatter where
	2	import Data.List
	3
7b8c0e4e MM	4	#if __GLASGOW_HASKELL__ <= 606
	5	intercalate xs xss = concat (intersperse xs xss)
	6	#endif
	7
967c39ef MM	8	padWith :: a -> Int -> [a] -> [a]
	9	padWith _ 0 l = l
	10	padWith e n [] = replicate n e
00819c19 MM	11	-- http://hackage.haskell.org/trac/haskell-prime/wiki/RemoveNPlusK
	12	-- Ugg... GHC could at least give a meaningful error message. ~ Matt 2011-08-27
	13	padWith e n (h:t) =
	14	if n == 0 then error "padWith: list is already longer than the requested length"
	15	else h:(padWith e (n-1) t)
967c39ef MM	16
	17	formatTable :: [[String]] -> String
	18	formatTable cells =
	19	let columnWidths = map (\col -> maximum $ map length col)
	20	$ transpose cells in
	21	intercalate "\n" $
	22	map (\row ->
	23	let rowCells = zipWith (padWith ' ') columnWidths row in
	24	intercalate " " rowCells
	25	) cells