GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-21 23:23:11 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed reading argvars from gfc in gf-to-gfcc

Browse Source
This commit is contained in:
aarne committed 2007-09-21 12:00:31 +00:00
1 parent 73ef8309ab
commit 0260265de0
4 files changed
+19 -12
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/GF/Infra/CompactPrint.hs
+2 -2
View File
@@ -1,11 +1,11 @@
module GF.Infra.CompactPrint where
import Data.Char
compactPrint = concat . map spaceIf . words
compactPrint = tail . 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"]
keyword w = elem w ["cat","fun","lin","lincat","lindef","oper","param"]