From 6e4104ffa98279fcf105dd6386e1f7162f889fc0 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 20 Sep 2007 21:51:54 +0000 Subject: compact printing of gf files --- src/GF/Infra/CompactPrint.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/GF/Infra/CompactPrint.hs (limited to 'src/GF/Infra/CompactPrint.hs') diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs new file mode 100644 index 000000000..eb8be2292 --- /dev/null +++ b/src/GF/Infra/CompactPrint.hs @@ -0,0 +1,11 @@ +module GF.Infra.CompactPrint where +import Data.Char + +compactPrint = concat . map spaceIf . words + +spaceIf w = case w of + _ | keyword w -> "\n" ++ w + c:cs | isAlpha c || isDigit c -> " " ++ w + _ -> w + +keyword w = elem w ["cat","fun","lin","lincat","oper","param"] -- cgit v1.2.3