summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortilpner2018-08-12 21:18:47 +0200
committertilpner2018-08-12 21:18:47 +0200
commit45627e033c5ce8fc03dd6727287a3b947de2adc9 (patch)
tree7516e1bde9a70a30a52ddea638d9e1f199d60551
parentc92f41c9edb8546da266923b22182346d9526e75 (diff)
downloadmeep-45627e033c5ce8fc03dd6727287a3b947de2adc9.tar.gz
meep-45627e033c5ce8fc03dd6727287a3b947de2adc9.tar.xz
meep-45627e033c5ce8fc03dd6727287a3b947de2adc9.zip
Add qeval moduleHEADmaster
-rw-r--r--modules/3-eval.rkt46
1 files changed, 46 insertions, 0 deletions
diff --git a/modules/3-eval.rkt b/modules/3-eval.rkt
new file mode 100644
index 0000000..3f28de0
--- /dev/null
+++ b/modules/3-eval.rkt
@@ -0,0 +1,46 @@
+#lang racket/base
+(require irc/core irc/bot irc/command irc/clean
+ racket/match racket/format racket/port racket/function racket/system racket/string racket/path
+ json)
+
+(define (s cmd . args)
+ (string-trim (with-output-to-string
+ (thunk (apply system* cmd args #:set-pwd? #t)))))
+
+(define syntax #px"^([[:alpha:]]+)>\\s(.*)$")
+(define evaluator-dir (getenv "EVALUATORS"))
+evaluator-dir
+
+(define evaluators
+ (let ([desc-dir (build-path evaluator-dir "desc")])
+ (for/hash ([desc-path (directory-list desc-dir #:build? #t)])
+ (values (path->string (file-name-from-path desc-path))
+ (read-json (open-input-file desc-path))))))
+
+(define (pretty-newlines s)
+ (string-replace s "\n" "⏎ "))
+
+(on (and (command-is 'PRIVMSG)
+ (suffix-match (regexp-match syntax it)))
+ (match-define (list all lang input) (regexp-match syntax (suffix)))
+ (define evaluator-cmd (build-path evaluator-dir "bin" lang))
+ (if (file-exists? evaluator-cmd)
+ (let ([output (s evaluator-cmd input)])
+ (if (zero? (string-length output))
+ (reply "<eval succeeded, but no output>")
+ (reply (string-append "> " (clean-control (pretty-newlines output))))))
+ (reply "no such handler (yet, this is still new)")))
+
+(define-command (eval)
+ #:help "Display usage information for the qeval feature"
+ (reply (format "The eval feature is invoked via 'name> code', where name is one of ~a. Use (eval-desc name) for further information"
+ (hash-keys evaluators))))
+
+(define-command (eval-desc name)
+ #:help "Describe an evaluator"
+ (define e (hash-ref evaluators (stringify name)))
+ (reply (format "The ~a evaluator has the aliases ~a, and runs with ~a MB RAM and the following software: ~a"
+ (hash-ref e 'name)
+ (hash-ref e 'aliases)
+ (hash-ref e 'mem)
+ (hash-ref e 'available))))