From a1da4b7c4808b3da1a0dba5a85b5e35134d9222c Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 26 Jun 2008 21:05:50 +0000
Subject: removed Transfer interpreter

---
 src/Transfer/Syntax/ResolveLayout.hs | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete 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
deleted file mode 100644
index 9d7ab607a..000000000
--- a/src/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