remove all files that aren't used in GF-3.0

1 files changed, 0 insertions, 58 deletions

diff --git a/src-3.0/GF/Source/TestGF.hs b/src-3.0/GF/Source/TestGF.hs
deleted file mode 100644
index 1c5da52ab..000000000
--- a/src-3.0/GF/Source/TestGF.hs
+++ /dev/null
@@ -1,58 +0,0 @@
--- automatically generated by BNF Converter

-module Main where

-

-

-import IO ( stdin, hGetContents )

-import System ( getArgs, getProgName )

-

-import GF.Source.LexGF

-import GF.Source.ParGF

-import GF.Source.SkelGF

-import GF.Source.PrintGF

-import GF.Source.AbsGF

-

-

-

-

-import GF.Source.ErrM

-

-type ParseFun a = [Token] -> Err a

-

-myLLexer = myLexer

-

-type Verbosity = Int

-

-putStrV :: Verbosity -> String -> IO ()

-putStrV v s = if v > 1 then putStrLn s else return ()

-

-runFile :: (Print a, Show a) => Verbosity -> ParseFun a -> FilePath -> IO ()

-runFile v p f = putStrLn f >> readFile f >>= run v p

-

-run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO ()

-run v p s = let ts = myLLexer s in case p ts of

-           Bad s    -> do putStrLn "\nParse              Failed...\n"

-                          putStrV v "Tokens:"

-                          putStrV v $ show ts

-                          putStrLn s

-           Ok  tree -> do putStrLn "\nParse Successful!"

-                          showTree v tree

-

-

-

-showTree :: (Show a, Print a) => Int -> a -> IO ()

-showTree v tree

- = do

-      putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree

-      putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree

-

-main :: IO ()

-main = do args <- getArgs

-          case args of

-            [] -> hGetContents stdin >>= run 2 pGrammar

-            "-s":fs -> mapM_ (runFile 0 pGrammar) fs

-            fs -> mapM_ (runFile 2 pGrammar) fs

-

-

-

-

-