|
definition:
|
execOrJIT :: String -> String -> String -> [String] -> [String] -> IO Int
execOrJIT scriptfile progname progtext curryargs rtargs = do
let binname = if isRelative scriptfile
then "." </> scriptfile <.> "bin"
else scriptfile <.> "bin"
binexists <- doesFileExist binname
binok <- if binexists
then do
stime <- getModificationTime scriptfile
btime <- getModificationTime binname
return (btime>stime)
else return False
if binok
then do
ec <- system $ unwords $ binname : rtargs
if ec==0
then return 0
else -- An error occurred with the old binary, hence we try to re-compile:
compileAndExec binname
else compileAndExec binname
where
compileAndExec binname = do
writeFile progname progtext
ec <- saveCurryProgram progname curryargs binname
if ec==0 then system $ unwords $ binname : rtargs
else return ec
|
|
demand:
|
no demanded arguments
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
-- Execute an already compiled binary (if it is newer than the first file arg)
-- or compile the program and execute the binary:
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_,_,_,_) |-> _}
|
|
name:
|
execOrJIT
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
String -> String -> String -> [String] -> [String] -> Prelude.IO Prelude.Int
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|