| 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 |