From 6a9c03abb630bb56dc46f19feab4764c6dc48690 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Wed, 8 Apr 2026 10:54:08 -0400 Subject: [PATCH] chore: move start-agent.sh and test-shell.lisp to their correct scopes --- start-agent.sh | 4 ---- test-shell.lisp | 29 ----------------------------- 2 files changed, 33 deletions(-) delete mode 100755 start-agent.sh delete mode 100644 test-shell.lisp diff --git a/start-agent.sh b/start-agent.sh deleted file mode 100755 index d4319e4..0000000 --- a/start-agent.sh +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/bash -export SKILLS_WHITELIST="org-skill-shell-actuator,org-skill-chat,org-skill-emacs-bridge,org-skill-object-store-persistence,org-skill-inbox-processor,org-skill-scribe" -cd /home/user/memex/projects/org-agent -./org-agent-server > /home/user/memex/org-agent-whitelist.log 2>&1 diff --git a/test-shell.lisp b/test-shell.lisp deleted file mode 100644 index 1da64e2..0000000 --- a/test-shell.lisp +++ /dev/null @@ -1,29 +0,0 @@ -(require :usocket) - -(defun test-shell-execution () - (let* ((socket (usocket:socket-connect "127.0.0.1" 9105)) - (stream (usocket:socket-stream socket)) - ;; We send a chat message asking to run date - (msg "(:type :event :payload (:sensor :chat-message :text \"run date\"))") - (len (length msg)) - (framed (format nil "~6,'0x~a" len msg))) - (format t "Sending request: ~a~%" msg) - (write-string framed stream) - (finish-output stream) - (format t "Waiting for Shell Actuator response...~%") - (handler-case - (loop - (let* ((len-prefix (make-string 6))) - (read-sequence len-prefix stream) - (let* ((msg-len (parse-integer len-prefix :radix 16)) - (payload (make-string msg-len))) - (read-sequence payload stream) - (format t "AGENT REPLY: ~a~%" payload) - ;; We look for the Shell Command Result headline in the response - (when (search "Shell Command Result" payload) - (format t "SUCCESS: Shell output received!~%") - (return))))) - (error (c) (format t "ERROR: ~a~%" c))) - (usocket:socket-close socket))) - -(test-shell-execution)