@@ -43,15 +43,14 @@ Jim := Object clone do( setSlot("text", line afterSeq(":") afterSeq(":")) case(text, (beginsWithSeq(Jim nick .. ":"), sendToChannel(sentChannel, text afterSeq(":"))) - (beginsWithSeq("!>"), - what := text afterSeq("!> ") - if(Jim ?sx, - string := Jim sx doSandboxString("(" .. what .. ") asString") asString - sendToChannel(sentChannel, string), - Jim sx := Jim createSandbox - sendToChannel(sentChannel, "Creating new sandbox") - string := Jim sx doSandboxString("(" .. what .. ") asString") asString - sendToChannel(sentChannel, string) + (beginsWithSeq("! "), + what := text afterSeq("! ") + if(Jim ?sx, nil, Jim sx := Jim createSandbox; sendToChannel(sentChannel, "Creating new sandbox")) + Jim sx doSandboxString("e := try(" .. what .. ")") asString + if(Jim sx doSandboxString("if(e ?error) asString") == "true", + sendToChannel(sentChannel, "Errored out. Reason: " .. Jim sx doSandboxString("(e ?error) asString") asString) + if(Jim sx doSandboxString("if(e ?showStack, e showStack, false) asString") != "false", sendToChannel(sentChannel, Jim sx doSandboxString("e showStack asString") asString)), + sendToChannel(sentChannel, sx doSandboxString("(" .. what .. ") asString") asString) ) ) (beginsWithSeq("!newSandbox"), sendToChannel(sentChannel, "Creating new sandbox"); Jim sx := Jim createSandbox) @@ -95,4 +94,4 @@ Object case := method(obj, ) ) -Jim connect("Jimmmmmmm", "irc.freenode.net", "#fauna") \ No newline at end of file +Jim connect("Jimmmmmmm", "irc.freenode.net", "fauna") \ No newline at end of file jim.io 90aa3fa24be13ec8e7b9660c9d354e98ec2491af Ian Ownbey iownbey@notesake.com http://github.com/iownbey/jim/commit/fc67a1cbecd82ec240b7d7bcef06310382d3e9a2 fc67a1cbecd82ec240b7d7bcef06310382d3e9a2 2008-02-16T22:05:26-08:00 2008-02-16T22:05:26-08:00 Got eval working with errors (almost) cafa4ab292a4a7d4dfc23084e0e03713b668e1c5 Ian Ownbey iownbey@notesake.com