CurryInfo: call-analysis-3.2.0 / Analysis.checkArgs
definition: 
|
checkArgs :: (Int,Bool,Bool,Bool,String) -> [String]
-> (Int,Bool,Bool,Bool,String)
checkArgs (depth,max,wlist,callpat,prog) args = case args of
[] -> mainCallError []
("-d":ks:margs) -> let k = case readNat ks of
[(n,"")] -> n
_ -> mainCallError args
in checkArgs (k,max,wlist,callpat,prog) margs
("-max":margs) -> checkArgs (depth,True,wlist,callpat,prog) margs
("-wlist":margs) -> checkArgs (depth,max,True,callpat,prog) margs
("-fix":margs) -> checkArgs (depth,max,False,callpat,prog) margs
("-call" :margs) -> checkArgs (depth,max,wlist,True,prog) margs
[mainmod] -> (depth,max,wlist,callpat,mainmod)
_ -> mainCallError []
|
|
demand:
|
arguments 1 2 |
|
deterministic:
|
deterministic operation |
|
failfree:
|
(_, _) |
|
indeterministic:
|
referentially transparent operation |
|
infix:
|
no fixity defined |
|
iotype:
|
{({(,,,,)},{[]}) |-> _ || ({(,,,,)},{:}) |-> _}
|
|
name:
|
checkArgs |
|
precedence:
|
no precedence defined |
|
result-values:
|
_ |
|
signature:
|
(Prelude.Int, Prelude.Bool, Prelude.Bool, Prelude.Bool, String) -> [String] -> (Prelude.Int, Prelude.Bool, Prelude.Bool, Prelude.Bool, String) |
|
solution-complete:
|
operation might suspend on free variables |
|
terminating:
|
possibly non-terminating |
|
totally-defined:
|
possibly non-reducible on same data term |