-main = do args <- getArgs
- let (doTest, fname) =
- case args of
- (f:fn:_) | f == testFlag -> (True,fn)
- (fn:_) -> (False,fn)
- _ -> error $
- "usage: ./Driver [filename]"
- mapM_ (process doTest (initialEnv,[])) (libs ++ [fname])
- (_,modules) <- foldM (process doTest) (initialEnv,[]) (libs ++ [fname])
- let result = evalProgram modules
- putStrLn ("Result = " ++ show result)
- putStrLn "All done"
- where libs = map (baseDir ++) ["./ghc-prim/GHC/Generics.hcr",
- "./ghc-prim/GHC/PrimopWrappers.hcr",
- "./ghc-prim/GHC/Bool.hcr",
- "./ghc-prim/GHC/IntWord64.hcr",
- "./base/GHC/Base.hcr",
- "./base/GHC/List.hcr",
- "./base/GHC/Enum.hcr",
- "./base/GHC/Show.hcr",
- "./base/GHC/Num.hcr",
- "./base/GHC/ST.hcr",
- "./base/GHC/Real.hcr",
- "./base/GHC/STRef.hcr",
- "./base/GHC/Arr.hcr",
- "./base/GHC/Float.hcr",
- "./base/GHC/Read.hcr",
- "./base/GHC/Ptr.hcr",
- "./base/GHC/Word.hcr",
- "./base/GHC/Int.hcr",
- "./base/GHC/Unicode.hcr",
- "./base/GHC/IOBase.hcr",
- "./base/GHC/Err.hcr",
- "./base/GHC/Exception.hcr",
- "./base/GHC/Stable.hcr",
- "./base/GHC/Storable.hcr",
- "./base/GHC/Pack.hcr",
- "./base/GHC/Weak.hcr",
- "./base/GHC/Handle.hcr",
- "./base/GHC/IO.hcr",
- "./base/GHC/Dotnet.hcr",
- "./base/GHC/Environment.hcr",
- "./base/GHC/Exts.hcr",
- "./base/GHC/PArr.hcr",
- "./base/GHC/TopHandler.hcr",
- "./base/GHC/Desugar.hcr",
- "./base/Data/Ord.hcr",
- "./base/Data/Maybe.hcr",
- "./base/Data/Bits.hcr",
- "./base/Data/STRef/Lazy.hcr",
- "./base/Data/Generics/Basics.hcr",
- "./base/Data/Generics/Aliases.hcr",
- "./base/Data/Generics/Twins.hcr",
- "./base/Data/Generics/Instances.hcr",
- "./base/Data/Generics/Text.hcr",
- "./base/Data/Generics/Schemes.hcr",
- "./base/Data/Tuple.hcr",
- "./base/Data/String.hcr",
- "./base/Data/Either.hcr",
- "./base/Data/Char.hcr",
- "./base/Data/List.hcr",
- "./base/Data/HashTable.hcr",
- "./base/Data/Typeable.hcr",
- "./base/Data/Dynamic.hcr",
- "./base/Data/Function.hcr",
- "./base/Data/IORef.hcr",
- "./base/Data/Fixed.hcr",
- "./base/Data/Monoid.hcr",
- "./base/Data/Ratio.hcr",
- "./base/Data/STRef.hcr",
- "./base/Data/Version.hcr",
- "./base/Data/Complex.hcr",
- "./base/Data/Unique.hcr",
- "./base/Data/Foldable.hcr",
- "./base/Data/Traversable.hcr"]
\ No newline at end of file