|
definition: |
labelList :: ToHtmlGenerator
labelList erdname (Entity entityName attrlist) relationships allEntities =
cmtfunc
("The labels of a " ++ entityName ++ " entity, as used in HTML tables.")
(thisModuleName erdname, lowerFirst entityName ++ "LabelList") 2 Public
(withHTMLContext (listType (listType htmlTVar)))
[simpleRule []
(list2ac (
(map (\ (Attribute name domain _ _) ->
list2ac
[applyF (html "textstyle")
[string2ac ("spicey_label spicey_label_for_type_"++
domainToString domain),
string2ac name]])
attrlist) ++
(map (\ (ename,erel) -> list2ac
[applyF (html "textstyle")
[string2ac "spicey_label spicey_label_for_type_relation",
string2ac $ erel ++ ename]])
(map (\n -> (n,"")) manyToOneEntities ++ manyToManyEntities))
)
)]
where
manyToManyEntities = manyToMany allEntities (Entity entityName attrlist)
manyToOneEntities = manyToOne (Entity entityName attrlist) relationships
|
|
demand: |
argument 2 |
|
deterministic: |
deterministic operation |
|
failfree: |
<FAILING> |
|
indeterministic: |
referentially transparent operation |
|
infix: |
no fixity defined |
|
iotype: |
{(_,{Entity},_,_) |-> _}
|
|
name: |
labelList |
|
precedence: |
no precedence defined |
|
result-values: |
_ |
|
signature: |
String -> Database.ERD.Entity -> [Database.ERD.Relationship] -> [Database.ERD.Entity] -> AbstractCurry.Types.CFuncDecl |
|
solution-complete: |
operation might suspend on free variables |
|
terminating: |
possibly non-terminating |
|
totally-defined: |
possibly non-reducible on same data term |