| definition: |
updQNamesInCExpr :: Update CExpr QName
updQNamesInCExpr f =
trExpr CVar CLit (CSymbol . f) CApply lam ldecl doexp lcomp ccase ctyped
reccon recupd
where
lam pats exp = CLambda (map (updQNamesInCPattern f) pats) exp
ldecl locals exp = CLetDecl (map (updQNamesInCLocalDecl f) locals) exp
doexp stms = CDoExpr (map (updQNamesInCStatement f) stms)
lcomp exp stms = CListComp exp (map (updQNamesInCStatement f) stms)
ccase ct exp bs = CCase ct exp
(map (\ (pat,rhs) -> (updQNamesInCPattern f pat, updQNamesInCRhs f rhs)) bs)
ctyped exp texp = CTyped exp (updQNamesInCQualTypeExpr f texp)
reccon rec fields = CRecConstr (f rec) (map (\ (l,e) -> (f l,e)) fields)
recupd exp fields = CRecUpdate exp (map (\ (l,e) -> (f l,e)) fields)
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| failfree: |
_ |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> {trExpr}}
|
| name: |
updQNamesInCExpr |
| precedence: |
no precedence defined |
| result-values: |
{trExpr}
|
| signature: |
((String, String) -> (String, String)) -> AbstractCurry.Types.CExpr -> AbstractCurry.Types.CExpr |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
reducible on all ground data terms |