| definition: |
breakWhereFreeClause :: String -> (String,String)
breakWhereFreeClause exp =
let revexp = reverse exp
in if take 4 revexp == "eerf"
then let woWhere = findWhere (drop 4 revexp)
in if null woWhere
then (exp,"")
else (reverse woWhere, drop (length woWhere) exp)
else (exp,"")
where
findWhere [] = []
findWhere (c:cs) | isSpace c && take 6 cs == "erehw " = drop 6 cs
| otherwise = findWhere cs
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- Breaks a main expression into an expression and a where...free clause. -- If the where clause is not present, the `where` part is empty. |
| failfree: |
_ |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> {(,)}}
|
| name: |
breakWhereFreeClause |
| precedence: |
no precedence defined |
| result-values: |
{(,)}
|
| signature: |
String -> (String, String) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |