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

Lin to tables.

Browse Source 
Lin to tables.
New unicode flag.
This commit is contained in:
aarne
2003-11-10 14:57:51 +00:00
parent c84ce99de2
commit 7a44450b34
6 changed files with 32 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Source/PrintGF.hs
View File

@@ -17,10 +17,11 @@ render :: [String] -> String
render = rend 0 where
rend i ss = case ss of
--H these three are hand-written
--H these four are hand-written
"{0" :ts -> cons "{" $ rend (i+1) ts
t :"}0" :ts -> cons t $ space "}" $ rend (i-1) ts
t : "." :ts -> cons t $ cons "." $ rend i ts
"\\" :ts -> cons "\\" $ rend i ts
"[" :ts -> cons "[" $ rend i ts
"(" :ts -> cons "(" $ rend i ts