From 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
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-2.9/Transfer/Syntax/ResolveLayout.hs | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 src-2.9/Transfer/Syntax/ResolveLayout.hs

(limited to 'src-2.9/Transfer/Syntax/ResolveLayout.hs')

diff --git a/src-2.9/Transfer/Syntax/ResolveLayout.hs b/src-2.9/Transfer/Syntax/ResolveLayout.hs
deleted file mode 100644
index 9d7ab607a..000000000
--- a/src-2.9/Transfer/Syntax/ResolveLayout.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-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