| definition: |
transFuncArgsInProp :: String -> [CTypeExpr] -> CExpr -> CExpr
transFuncArgsInProp mainmod argtypes propexp
| any isFunctionalType argtypes
= CLambda (map CPVar vars)
(let (nvars,locals) = unzip (map ftype2let (zip argtypes vars))
in letExpr (concat locals) (applyE propexp (map CVar nvars)))
| otherwise = propexp
where
vars = map (\i -> (i,"x" ++ show i)) [1 .. length argtypes]
ftype2let (texp,v@(j,xj)) =
if isFunctionalType texp
then let fx = (j + length argtypes, 'f':xj)
in (fx,
[CLocalPat (CPVar fx)
(CSimpleRhs (applyF (mainmod,"list2Func") [CVar v]) [])])
else (v,[])
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
------------------------------------------------------------------------- -- If some arguments of a property are functional, translate these -- arguments (which have generated values of type `[(a,b)]`) into -- a function by introducing let bindings and use `list2func`. -- For instance, a property `p` with argument types `[(Int->Int), [Int]]` -- is translated into the expression -- \x1 x2 -> let fx1 = list2func x1 in p fx1 x2 |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| name: |
transFuncArgsInProp |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
String -> [AbstractCurry.Types.CTypeExpr] -> AbstractCurry.Types.CExpr -> AbstractCurry.Types.CExpr |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |