CurryInfo: call-analysis-3.2.0 / Analysis.showSemInt
definition: 
|
showSemInt :: ADom a -> SemInt a -> String
showSemInt adom eqs =
let semIntLine = "{" ++ intercalate ", " (map showEq eqs) ++ "}"
in show (length eqs) ++ " semantic equations:\n" ++
if length semIntLine < 80
then semIntLine
else "{" ++ intercalate ",\n " (map showEq eqs) ++ "}"
where
showe = adomShow adom
showEq (Eq f args r) =
f ++ (if null args
then []
else '(' : intercalate "," (map showe args) ++ ")")
++ " = " ++ showe r
|
|
demand:
|
no demanded arguments |
|
deterministic:
|
deterministic operation |
|
documentation:
|
show a semantic interpretation w.r.t. an abstract domain (containing a show function for semantic elements) |
|
failfree:
|
(_, _) |
|
indeterministic:
|
referentially transparent operation |
|
infix:
|
no fixity defined |
|
iotype:
|
{(_,_) |-> _}
|
|
name:
|
showSemInt |
|
precedence:
|
no precedence defined |
|
result-values:
|
_ |
|
signature:
|
ADom a -> [SemEq a] -> String |
|
solution-complete:
|
operation might suspend on free variables |
|
terminating:
|
possibly non-terminating |
|
totally-defined:
|
possibly non-reducible on same data term |