GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

cleaned up new GFCC, but added RP as deprecated

Browse Source
This commit is contained in:
aarne
2007-10-05 09:02:47 +00:00
parent cc104236df
commit 945a49214b
10 changed files with 244 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/GF/Infra/CompactPrint.hs
View File

@@ -1,11 +1,19 @@
module GF.Infra.CompactPrint where
import Data.Char
compactPrint = tail . concat . map spaceIf . words
compactPrint = compactPrintCustom keywordGF (const False)
spaceIf w = case w of
_ | keyword w -> "\n" ++ w
compactPrintGFCC = compactPrintCustom (const False) keywordGFCC
compactPrintCustom pre post = tail . concat . map (spaceIf pre post) . words
spaceIf pre post w = case w of
_ | pre w -> "\n" ++ w
_ | post w -> w ++ "\n"
c:cs | isAlpha c || isDigit c -> " " ++ w
_ -> w
keyword w = elem w ["cat","fun","lin","lincat","lindef","oper","param"]
keywordGF w = elem w ["cat","fun","lin","lincat","lindef","oper","param"]
keywordGFCC w =
last w == ';' ||
elem w ["flags","fun","cat","lin","oper","lincat","lindef","printname"]