|
definition:
|
checkCData :: SpanInfo -> [ConstrDecl] -> CSM ()
checkCData si (con:cons) = case si of
(SpanInfo (Span (Position ls cs) (Position le ce)) (_:(Span (Position l c) _):ks)) ->
unless (ls == (getLi (getSpanInfo (last (con:cons))))) --one line
(if (ls == l) -- first line till equal sign
then
(if (not (null (cons))) -- one constructor
then
(if (spanAlign (take (length cons) ks)) -- alignment of bars
then
(if ((null ks) || ((getFirstBar ks) == (cs+2)) || (getFirstBar ks == c)) -- indentation
then
(unless (checkAlign getCol (getCol (getSpanInfo con)) cons) -- alignment of constructors
(report (Message (Span (Position ls cs) (Position le ce))
(colorizeKey "data declaration constructors"<+> text "not aligned")
( text "align"
<+> colorizeKey "constructors"
)
)
)
)
else
(report (Message (Span (Position ls cs) (Position le ce))
(colorizeKey "data declaration" <+> text "body wrong indention")
( text "indent by 2"
<+> colorizeKey "from declaration"
<+> text "or write"
<+> colorizeKey "="
<+> text "in line with data"
)
)
)
)
else
(report (Message (Span (Position ls cs) (Position le ce))
(colorizeKey "|" <+> text "of data declaration not aligned")
( text "align"
<+> colorizeKey "|"
)
)
)
)
else
(report (Message (Span (Position ls cs) (Position le ce))
(colorizeKey "data declaration" <+> text "wrong formatting")
( text "if only one constructor, write in one line"
)
)
)
)
else
(report (Message (Span (Position ls cs) (Position l c))
(colorizeKey "data declaration" <+> text "wrong formatting")
( text "write"
<+> colorizeKey "data"
<+> text "till"
<+> colorizeKey "="
<+> text "in one line"
)
)
)
)
_ -> return ()
checkCData _ [] = return ()
|
|
demand:
|
argument 2
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
-- Checks different formatting aspects.
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{({SpanInfo},{:}) |-> _ || ({NoSpanInfo},{:}) |-> _ || (_,{[]}) |-> _}
|
|
name:
|
checkCData
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
Curry.SpanInfo.SpanInfo -> [Curry.Types.ConstrDecl]
-> Control.Monad.Trans.State.StateT Types.CheckState Data.Functor.Identity.Identity ()
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|