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

Merge AId and App forms in GFCCRaw.

Browse Source
This commit is contained in:
bjorn
2008-01-29 15:53:50 +00:00
parent 730a9905f3
commit 42382d6f93
4 changed files with 25 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/GF/GFCC/Raw/PrintGFCCRaw.hs
View File

@@ -10,15 +10,14 @@ printTree g = prGrammar g ""
prGrammar :: Grammar -> ShowS
prGrammar (Grm xs) = prRExpList xs
prRExp :: RExp -> ShowS
prRExp (App x []) = showChar '(' . prCId x . showChar ')'
prRExp (App x xs) = showChar '(' . prCId x . showChar ' '
. prRExpList xs . showChar ')'
prRExp (AId x) = prCId x
prRExp (AInt x) = shows x
prRExp (AStr x) = showChar '"' . concatS (map mkEsc x) . showChar '"'
prRExp (AFlt x) = shows x -- FIXME: simpler format
prRExp AMet = showChar '?'
prRExp :: Int -> RExp -> ShowS
prRExp _ (App x []) = prCId x
prRExp n (App x xs) = p (prCId x . showChar ' ' . prRExpList xs)
where p s = if n == 0 then s else showChar '(' . s . showChar ')'
prRExp _ (AInt x) = shows x
prRExp _ (AStr x) = showChar '"' . concatS (map mkEsc x) . showChar '"'
prRExp _ (AFlt x) = shows x -- FIXME: simpler format
prRExp _ AMet = showChar '?'
mkEsc :: Char -> ShowS
mkEsc s = case s of
@@ -29,7 +28,7 @@ mkEsc s = case s of
_ -> showChar s
prRExpList :: [RExp] -> ShowS
prRExpList = concatS . intersperse (showChar ' ') . map prRExp
prRExpList = concatS . intersperse (showChar ' ') . map (prRExp 1)
prCId :: CId -> ShowS
prCId (CId x) = showString x