Commit fd14814f authored by rrt's avatar rrt
Browse files

[project @ 2001-08-30 10:15:01 by rrt]

Make it work on Windows
parent 5b431cfd
......@@ -13,7 +13,8 @@ module CmdSyntax ( Var, MacroName, TestName, MacroDef(..),
where
import IO
import System
import System ( getProgName, exitWith, ExitCode(..) )
import KludgedSystem ( system )
---------------------------------------------------------------------
-- misc
......@@ -28,8 +29,9 @@ die :: String -> IO a
die s = do officialMsg s; exitWith (ExitFailure 1)
my_system s
= do exit_code <- system s
--putStrLn (show exit_code)
= do -- putStr ("***" ++ s)
exit_code <- system s
-- putStrLn "ok"
return exit_code
isLeft (Left _) = True
......
......@@ -6,7 +6,7 @@ import CmdSemantics ( parseOneTFile, processParsedTFile )
import GetOpt
import Directory
import System
import System ( getArgs )
import List
import Maybe ( isJust, fromJust )
import Monad ( when )
......
......@@ -2,7 +2,7 @@ TOP = ..
include $(TOP)/mk/boilerplate.mk
RUNTESTS_SRCS= \
TopSort.hs CmdLexer.hs CmdParser.hs CmdSemantics.hs CmdSyntax.hs Main.hs \
TopSort.hs CmdLexer.hs CmdParser.hs CmdSemantics.hs CmdSyntax.hs KludgedSystem.hs Main.hs \
basicRxLib/AbsTreeDefs.hs basicRxLib/Assertions.hs \
basicRxLib/AugTreeDefs.hs basicRxLib/AugmentTree.hs \
basicRxLib/BagRE.hs basicRxLib/CompileREP.hs \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment