gistfile1.io

handlers := Map clone

handlers atPut("reset", method(
    "reset"
))

handlers atPut("compile", method(fun_source,
    Compiler messageForString(fun_source) doInContext(self)
))

handlers atPut("add", method(a, b,
    a + b
))

handleCommand := method(cmd,
    handlers hasKey(cmd) ifTrue(
        return handlers at(cmd) performWithArgList("call", call evalArgs slice(1))
    ) ifFalse(
        return "unknown command"
    )
)

handleCommand("reset") println
handleCommand("test") println
handleCommand("add", 2, 2) println
handleCommand("compile", "method(arg, \"The Answer is: #{arg}\" interpolate println)") call(42)

/* *** OUTPUT ***

reset
unknown command
4
The Answer is: 42

*/