From dbe8e61acc616b8f5ac07e8df89eb98a7997c29d Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 25 Nov 2005 16:36:19 +0000 Subject: Move transfer into the GF repo. --- src/Transfer/Syntax/ResolveLayout.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 src/Transfer/Syntax/ResolveLayout.hs (limited to 'src/Transfer/Syntax/ResolveLayout.hs') diff --git a/src/Transfer/Syntax/ResolveLayout.hs b/src/Transfer/Syntax/ResolveLayout.hs new file mode 100644 index 000000000..02c730585 --- /dev/null +++ b/src/Transfer/Syntax/ResolveLayout.hs @@ -0,0 +1,22 @@ +module Main where + +import System.Environment (getArgs) + +import Transfer.Syntax.Lex +import Transfer.Syntax.Layout + +prTokens :: [Token] -> String +prTokens = prTokens_ 1 1 + where + prTokens_ _ _ [] = "" + prTokens_ l c (PT p t:ts) = +-- prTokens_ l c (Err p:ts) = + +layout :: String -> String +layout s = prTokens . resolveLayout True . tokens + +main :: IO () +main = do args <- getArgs + case args of + [] -> getContents >>= putStrLn . layout + fs -> mapM_ (\f -> readFile f >>= putStrLn . layout) fs -- cgit v1.2.3