40 lines
1.3 KiB
Haskell
40 lines
1.3 KiB
Haskell
|
--
|
||
|
-- Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||
|
-- GPL version 2 or later (see http://www.gnu.org/copyleft/gpl.html)
|
||
|
--
|
||
|
|
||
|
import Eval.Haskell (unsafeEval)
|
||
|
|
||
|
import Data.Maybe (isJust, fromJust)
|
||
|
import Control.Monad (when)
|
||
|
|
||
|
import System.Exit (exitWith, ExitCode(ExitSuccess))
|
||
|
import System.IO (getContents, putStrLn)
|
||
|
import System.Posix.Resource (setResourceLimit,
|
||
|
Resource(ResourceCPUTime),
|
||
|
ResourceLimits(ResourceLimits),
|
||
|
ResourceLimit(ResourceLimit))
|
||
|
|
||
|
rlimit = ResourceLimit 3
|
||
|
|
||
|
context = prehier ++ datas ++ controls
|
||
|
|
||
|
prehier = ["Char", "List", "Maybe", "Numeric", "Random" ]
|
||
|
|
||
|
datas = map ("Data." ++) [
|
||
|
"Bits", "Bool", "Char", "Dynamic", "Either",
|
||
|
"FiniteMap", "Graph", "Int", "Ix", "List",
|
||
|
"Maybe", "Ratio", "Set", "Tree", "Tuple", "Typeable", "Word"
|
||
|
]
|
||
|
|
||
|
controls = map ("Control." ++) ["Monad", "Arrow"]
|
||
|
|
||
|
main = do
|
||
|
setResourceLimit ResourceCPUTime (ResourceLimits rlimit rlimit)
|
||
|
s <- getContents
|
||
|
when (not . null $ s) $ do
|
||
|
s <- unsafeEval ("(take 2048 (show ("++s++")))") context
|
||
|
when (isJust s) (putStrLn (fromJust s))
|
||
|
exitWith ExitSuccess
|
||
|
|