| definition: |
checkExecutables :: ICOptions -> IO ()
checkExecutables opts = do
let execs = if null (optMain opts) || optShowGraph opts == 0
then []
else ["dot", optViewPDF opts] ++
(if null (optOutput opts) then [] else ["pdftk"])
mapM_ checkExec execs
where
checkExec p = do
exp <- fileInPath p
unless exp $ do
putStrLn $ "Executable '" ++ p ++ "' not found in path: " ++
"icurry interpreter terminated"
exitWith 1
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> _}
|
| name: |
checkExecutables |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
ICurry.Options.ICOptions -> Prelude.IO () |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |