-----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.8 2000/10/26 16:51:44 sewardj Exp $
+-- $Id: DriverState.hs,v 1.9 2000/10/27 14:56:00 sewardj Exp $
--
-- Settings for the driver
--
GLOBAL_VAR(v_Verbose, False, Bool)
is_verbose = do v <- readIORef v_Verbose; if v then return "-v" else return ""
--- where to keep temporary files
-GLOBAL_VAR(v_TmpDir, cDEFAULT_TMPDIR, String )
-
-- Keep output from intermediate phases
GLOBAL_VAR(v_Keep_hi_diffs, False, Bool)
GLOBAL_VAR(v_Keep_hc_files, False, Bool)
-----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.5 2000/10/27 13:50:25 sewardj Exp $
+-- $Id: TmpFiles.hs,v 1.6 2000/10/27 14:56:00 sewardj Exp $
--
-- Temporary file management
--
) where
-- main
-import DriverState
import Config
import Util
#include "HsVersions.h"
GLOBAL_VAR(v_FilesToClean, [], [String] )
+GLOBAL_VAR(v_TmpDir, cDEFAULT_TMPDIR, String )
+
initTempFileStorage = do
-- check whether TMPDIR is set in the environment