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

option -mac to vt command (uses open with ps)

Browse Source
This commit is contained in:
aarne
2008-03-06 21:27:14 +00:00
parent 9779c35b8e
commit 71d3221e12
7 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12,7 +12,8 @@ dps = dropWhile isSpace
spaceIf pre post w = case w of
_ | pre w -> "\n" ++ w
_ | post w -> w ++ "\n"
c:cs | isAlpha c || isDigit c -> " " ++ w
c:_ | isAlpha c || isDigit c -> " " ++ w
'_':_ -> " " ++ w
_ -> w
keywordGF w = elem w ["cat","fun","lin","lincat","lindef","oper","param"]