Merge pull request #115 from smucclaw/remove-gf

Remove GF dependency

Setup.hs

@@ -1,89 +1,2 @@
 import Distribution.Simple
-import Distribution.Simple.PreProcess
-import Distribution.PackageDescription
-import Distribution.Simple.LocalBuildInfo
-import Distribution.Simple.Program
-import System.FilePath ((</>))
-import Distribution.Simple.Utils (createDirectoryIfMissingVerbose, installOrdinaryFile)
-import Distribution.Simple.Setup (installDest, InstallFlags (installVerbosity), CopyFlags (copyDest, copyVerbosity))
-import Distribution.Simple.Flag
-import Distribution.Verbosity
-import System.Environment (lookupEnv)
-
--- Custom preprocessor for GF files
-
--- Currently has problems with stack due to:
--- https://github.com/commercialhaskell/stack/issues/3491
-
--- TODO: Fix the above issue
-
-main :: IO ()
-main = defaultMainWithHooks userHooks
-
-userHooks :: UserHooks
-userHooks = simpleUserHooks {
-    hookedPreProcessors = gfPPSuffix : knownSuffixHandlers
-  , postCopy = \args insF pDesc lbi -> do
-        -- print $ buildDir lbi
-        let cdest = fromFlag $ copyDest insF
-        let dDir = datadir $ absoluteComponentInstallDirs pDesc lbi (localUnitId lbi) cdest
-        let verbosity = fromFlag $ copyVerbosity insF
-        let src = buildDir lbi </> "l4-generated" </> "ParsePredicates.pgf"
-        let dst = dDir </> "grammars" </> "ParsePredicates.pgf"
-        -- print dDir
-        createDirectoryIfMissingVerbose verbosity True (dDir </> "grammars")
-        installOrdinaryFile verbosity src dst
-        return ()
-}
-
-gfPPSuffix :: PPSuffixHandler
-gfPPSuffix = ("gf" , gfPP)
-
-gfPP :: BuildInfo -> LocalBuildInfo -> ComponentLocalBuildInfo -> PreProcessor
-gfPP bi lbi clbi = PreProcessor {
-    platformIndependent = True,
-    runPreProcessor = \(inDir,inFile) (outDir,outFile) verbosity -> do
-        -- putStrLn $ "hello world! " ++ show ((inDir,inFile), (outDir,outFile), verbosity)
-        gfLibPath <- lookupEnv "GF_LIB_PATH"
-        putStrLn $ "GF_LIB_PATH=" ++ show gfLibPath
-        let lexical = getLexCategories inFile
-            concrete = case inFile of
-                         "ParsePredicates.gf" -> [inDir </> "ParsePredicatesEng.gf"]
-                         _ -> []
-        let args =
-                [ "-make"
-                , "-v=0"
-                , "-f", "haskell"
-                , "--haskell=gadt" ]
-                ++ lexical
-                ++ ["--output-dir=" ++ outDir
-                , "--gfo-dir=" ++ outDir
-                , inDir </> inFile
-                ] ++ concrete
-
-        print args
-        (gfProg, _) <- requireProgram verbosity gfProgram (withPrograms lbi)
-        -- runDbProgram verbosity gfProgram (withPrograms lbi) args
-        runProgram verbosity gfProg args
-        putStrLn "Done running"
-}
-
-gfProgram :: Program
-gfProgram = simpleProgram "gf"
-
-getLexCategories fname = case fname of
-    "Atoms.gf"
-        -> lexPrefix "Atom"
-    "Prop.gf"
-        -> getLexCategories "Atoms.gf"
-    "Answer.gf"
-        -> getLexCategories "Atoms.gf"
-    "Questions.gf"
-        -> getLexCategories "Atoms.gf"
-    "Predicates.gf"
-        -> lexPrefix "N,V,A,N2,N3,V2,A2,VA,V2V,VV,V3,VS,V2A,V2S,V2Q,Adv,AdV,AdA,AdN,ACard,CAdv,Conj,Interj,PN,Prep,Pron,Quant,Det,Card,Text,Predet,Subj"
-    "ParsePredicates.gf"
-        -> getLexCategories "Predicates.gf"
-    _ -> []
-    where
-      lexPrefix x = ["--haskell=lexical", "--lexical="++x]
+main = defaultMain