From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 25 Jun 2008 16:54:35 +0000 Subject: changed names of resource-1.3; added a note on homepage on release --- src/Transfer/Syntax/ResolveLayout.hs | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 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..9d7ab607a --- /dev/null +++ b/src/Transfer/Syntax/ResolveLayout.hs @@ -0,0 +1,29 @@ +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 (t@(PT (Pn _ l' c') _):ts) = + replicate (l'-l) '\n' + ++ replicate (if l' == l then c'-c else c'-1) ' ' + ++ s ++ prTokens_ l' (c'+length s) ts + where s = prToken t +-- prTokens_ l c (Err p:ts) = + +layout :: String -> String +layout s = prTokens ts' +-- ++ "\n" ++ show ts' + where ts = tokens s + ts' = resolveLayout True ts + +main :: IO () +main = do args <- getArgs + case args of + [] -> getContents >>= putStrLn . layout + fs -> mapM_ (\f -> readFile f >>= putStrLn . layout) fs -- cgit v1.2.3