diff options
| author | krasimir <krasimir@chalmers.se> | 2008-05-29 17:55:05 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-05-29 17:55:05 +0000 |
| commit | 88d3f61f41f7b6299e0d0f9e0047dd955cb67571 (patch) | |
| tree | 62fd337e92ac607469d47ade41ed19cd5209e59c /src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs | |
| parent | 1bcc4aab8178434a890a3c723582b5fbd45a5a84 (diff) | |
change the library root namespace from GF.GFCC to PGF
Diffstat (limited to 'src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs')
| -rw-r--r-- | src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs b/src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs deleted file mode 100644 index 23bb8a542..000000000 --- a/src-3.0/GF/GFCC/Raw/PrintGFCCRaw.hs +++ /dev/null @@ -1,35 +0,0 @@ -module GF.GFCC.Raw.PrintGFCCRaw (printTree) where - -import GF.GFCC.CId -import GF.GFCC.Raw.AbsGFCCRaw - -import Data.List (intersperse) -import Numeric (showFFloat) -import qualified Data.ByteString.Char8 as BS - -printTree :: Grammar -> String -printTree g = prGrammar g "" - -prGrammar :: Grammar -> ShowS -prGrammar (Grm xs) = prRExpList xs - -prRExp :: Int -> RExp -> ShowS -prRExp _ (App x []) = showString x -prRExp n (App x xs) = p (showString 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) = showFFloat Nothing x -prRExp _ AMet = showChar '?' - -mkEsc :: Char -> ShowS -mkEsc s = case s of - '"' -> showString "\\\"" - '\\' -> showString "\\\\" - _ -> showChar s - -prRExpList :: [RExp] -> ShowS -prRExpList = concatS . intersperse (showChar ' ') . map (prRExp 1) - -concatS :: [ShowS] -> ShowS -concatS = foldr (.) id |