From 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 21 May 2008 09:26:44 +0000 Subject: GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3 --- src-3.0/Transfer/Syntax/ResolveLayout.hs | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 src-3.0/Transfer/Syntax/ResolveLayout.hs (limited to 'src-3.0/Transfer/Syntax/ResolveLayout.hs') diff --git a/src-3.0/Transfer/Syntax/ResolveLayout.hs b/src-3.0/Transfer/Syntax/ResolveLayout.hs new file mode 100644 index 000000000..9d7ab607a --- /dev/null +++ b/src-3.0/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