|
definition: |
checkConsistency :: PM [Statement] -> ParserInfo -> Pos -> PM [Statement]
checkConsistency (PM (WM (Errors err) ws)) _ _ = PM $ WM (throwPR err) ws
checkConsistency (PM (WM (OK ast) ws)) pinfo p =
let relMap = getRelations pinfo
colMap = getAttrList pinfo
nullMap = getNullables pinfo
(PM (WM resPR warns)) =
sequencePM (map (checkStatement p relMap colMap nullMap) ast)
in (PM $ WM resPR (ws ++ warns))
|
|
demand: |
argument 1 |
|
deterministic: |
deterministic operation |
|
documentation: |
Invokes the consistency check if a valid AST is given, does nothing otherwise. |
|
failfree: |
<FAILING> |
|
indeterministic: |
referentially transparent operation |
|
infix: |
no fixity defined |
|
iotype: |
{({PM},_,_) |-> _}
|
|
name: |
checkConsistency |
|
precedence: |
no precedence defined |
|
result-values: |
_ |
|
signature: |
CPP.ICode.ParseMonad.PM [CPP.ICode.Parser.SQL.AST.Statement] -> CPP.ICode.Parser.SQL.ParserInfoType.ParserInfo -> CPP.ICode.ParsePos.Pos -> CPP.ICode.ParseMonad.PM [CPP.ICode.Parser.SQL.AST.Statement] |
|
solution-complete: |
operation might suspend on free variables |
|
terminating: |
possibly non-terminating |
|
totally-defined: |
possibly non-reducible on same data term |