| definition: |
processCommand :: ReplState -> String -> IO (Maybe ReplState)
processCommand rst cmds
| null cmds = skipCommand "unknown command"
| head cmds == '!' = unsafeExec rst $ processSysCall rst (strip $ tail cmds)
| otherwise = case matchedCmds of
[] -> skipCommand $ "unknown command: ':" ++ cmds ++ "'"
[(fcmd, act)] -> if fcmd `elem` ["eval","load","quit","reload"]
then act rst (strip args)
else unsafeExec rst $ act rst (strip args)
(_:_:_) -> skipCommand $ "ambiguous command: ':" ++ cmds ++ "'"
where (cmd, args) = break (==' ') cmds
matchedCmds = filter (isPrefixOf (map toLower cmd) . fst) replCommands
|
| demand: |
argument 2 |
| deterministic: |
deterministic operation |
| documentation: |
-- Process a command of the REPL. -- The result is either just a new ReplState or Nothing if an error occurred. |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_) |-> _}
|
| name: |
processCommand |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
REPL.State.ReplState -> String -> Prelude.IO (Prelude.Maybe REPL.State.ReplState) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |