| definition: |
groupLines :: [SourceLine] -> (String,[(SourceLine,String)])
groupLines sls =
let (modcmts,progcmts) = break (==ModDef) sls
in if progcmts == []
then ("", groupProgLines sls)
else (concatMap getComment modcmts,
groupProgLines (filter (/=ModDef) (tail progcmts)))
where
getComment src = case src of
Comment cmt -> cmt ++ "\n"
_ -> "" -- this case should usually not occur
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- group the classified lines into module comment and list of -- (Func/DataDef,comment) pairs: |
| failfree: |
_ |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> {(,)}}
|
| name: |
groupLines |
| precedence: |
no precedence defined |
| result-values: |
{(,)}
|
| signature: |
[SourceLine] -> (String, [(SourceLine, String)]) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |