From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/GFCC/Raw/PrintGFCCRaw.hs | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 src/GF/GFCC/Raw/PrintGFCCRaw.hs

(limited to 'src/GF/GFCC/Raw/PrintGFCCRaw.hs')

diff --git a/src/GF/GFCC/Raw/PrintGFCCRaw.hs b/src/GF/GFCC/Raw/PrintGFCCRaw.hs
deleted file mode 100644
index d46d8096f..000000000
--- a/src/GF/GFCC/Raw/PrintGFCCRaw.hs
+++ /dev/null
@@ -1,36 +0,0 @@
-module GF.GFCC.Raw.PrintGFCCRaw (printTree) where
-
-import GF.GFCC.Raw.AbsGFCCRaw
-
-import Data.List (intersperse)
-import Numeric (showFFloat)
-
-printTree :: Grammar -> String
-printTree g = prGrammar g ""
-
-prGrammar :: Grammar -> ShowS
-prGrammar (Grm xs) = prRExpList xs
-
-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) = 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)
-
-prCId :: CId -> ShowS
-prCId (CId x) = showString x
-
-concatS :: [ShowS] -> ShowS
-concatS = foldr (.) id
-- 
cgit v1.2.3