From 122d73ac9d2472f91ed00965d03d1e761da72699 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 16 Dec 2025 08:20:54 -0500 Subject: refactor: Rename Bot to Ava, remove cost guardrail - Rename Omni/Bot.hs to Omni/Ava.hs - Delete Omni/Bot.scm (unused Guile version) - Remove cost limit (was 10 cents, now 0) - Increase max iterations from 10 to 50 --- Omni/Bot.scm | 61 ------------------------------------------------------------ 1 file changed, 61 deletions(-) delete mode 100755 Omni/Bot.scm (limited to 'Omni/Bot.scm') diff --git a/Omni/Bot.scm b/Omni/Bot.scm deleted file mode 100755 index ff81c53..0000000 --- a/Omni/Bot.scm +++ /dev/null @@ -1,61 +0,0 @@ -#!/usr/bin/env run.sh -!# -;; : out omnibot -;; -;; Usage with ii: -;; -;; tail -f \#omni/out | guile -L $CODEROOT -s Omni/Bot.scm -;; -(define-module (Omni Bot) #:export (main)) - -(import (ice-9 rdelim)) -(import (ice-9 match)) -(import (ice-9 regex)) -(import (ice-9 receive)) -(import (bs core)) -(import (prefix (bs string) string.)) - -(define (log msg) - (display msg (current-error-port))) - -(define (is-command? msg) - (string.prefix? msg "omnibot:")) - -(define (parse-line line) - (if (eof-object? line) - (exit) - (let ([matches (regexp-exec - (make-regexp "<(\\S*)>(.*)" regexp/extended) - (string-drop line 11))]) - (if matches - `(user - ,(match:substring matches 1) - ,(string.lstrip (match:substring matches 2) #\space)) - `(system ,(string-drop line 11)))))) - -(define (dispatch user msg) - (let ([msg (-> msg - (string-drop (string-length "omnibot:")) - (string.lstrip #\space))]) - (cond - ((equal? msg "hi") - (display (fmt "~a: well, hello!" user))) - - (else - (display (fmt "command not understood: ~a" msg)))))) - -(define (main args) - (while #t - (match (parse-line (read-line)) - [('user user msg) - (if (is-command? msg) - (dispatch user msg) - (begin - (log (fmt "user: ~a " user)) - (log (fmt "message: ~a" msg))))] - - [('system msg) - (log (fmt "system: ~a" msg))]) - - (newline) - (force-output))) -- cgit v1.2.3