forked from GitHub/gf-core
84 lines
2.1 KiB
Haskell
84 lines
2.1 KiB
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : PrintParser
|
|
-- Maintainer : PL
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/03/29 11:17:56 $
|
|
-- > CVS $Author: peb $
|
|
-- > CVS $Revision: 1.2 $
|
|
--
|
|
-- Pretty-printing of parser objects
|
|
-----------------------------------------------------------------------------
|
|
|
|
module GF.Printing.PrintParser (Print(..),
|
|
prtBefore, prtAfter, prtSep,
|
|
prtBeforeAfter,
|
|
prIO
|
|
) where
|
|
|
|
-- haskell modules:
|
|
import List (intersperse)
|
|
-- gf modules:
|
|
import Operations (Err(..))
|
|
import Ident (Ident(..))
|
|
import qualified PrintGFC as P
|
|
|
|
------------------------------------------------------------
|
|
|
|
prtBefore :: Print a => String -> [a] -> String
|
|
prtBefore before = prtBeforeAfter before ""
|
|
|
|
prtAfter :: Print a => String -> [a] -> String
|
|
prtAfter after = prtBeforeAfter "" after
|
|
|
|
prtSep :: Print a => String -> [a] -> String
|
|
prtSep sep = concat . intersperse sep . map prt
|
|
|
|
prtBeforeAfter :: Print a => String -> String -> [a] -> String
|
|
prtBeforeAfter before after as = concat [ before ++ prt a ++ after | a <- as ]
|
|
|
|
prIO :: Print a => a -> IO ()
|
|
prIO = putStr . prt
|
|
|
|
class Print a where
|
|
prt :: a -> String
|
|
prtList :: [a] -> String
|
|
prtList as = "[" ++ prtSep "," as ++ "]"
|
|
|
|
instance Print a => Print [a] where
|
|
prt = prtList
|
|
|
|
instance (Print a, Print b) => Print (a, b) where
|
|
prt (a, b) = "(" ++ prt a ++ "," ++ prt b ++ ")"
|
|
|
|
instance (Print a, Print b, Print c) => Print (a, b, c) where
|
|
prt (a, b, c) = "(" ++ prt a ++ "," ++ prt b ++ "," ++ prt c ++ ")"
|
|
|
|
instance (Print a, Print b, Print c, Print d) => Print (a, b, c, d) where
|
|
prt (a, b, c, d) = "(" ++ prt a ++ "," ++ prt b ++ "," ++ prt c ++ "," ++ prt d ++ ")"
|
|
|
|
instance Print Char where
|
|
prt = return
|
|
prtList = id
|
|
|
|
instance Print Int where
|
|
prt = show
|
|
|
|
instance Print Integer where
|
|
prt = show
|
|
|
|
instance Print a => Print (Maybe a) where
|
|
prt (Just a) = "!" ++ prt a
|
|
prt Nothing = "Nothing"
|
|
|
|
instance Print a => Print (Err a) where
|
|
prt (Ok a) = prt a
|
|
prt (Bad str) = str
|
|
|
|
instance Print Ident where
|
|
prt ident = str
|
|
where str = P.printTree ident
|
|
|