1 files changed, 54 insertions, 0 deletions
diff --git a/kaakaa/tools/base.scm b/kaakaa/tools/base.scm
new file mode 100644
index 0000000..38aed17
--- /dev/null
+++ b/kaakaa/tools/base.scm
@@ -0,0 +1,54 @@
+;;; kaakaa --- Tiny, security-focused AI agent in Guile
+;;; Copyright © 2026 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of kaakaa.
+;;;
+;;; kaakaa is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; kaakaa is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with kaakaa.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (kaakaa tools base)
+  #:use-module (rnrs io ports)
+  #:use-module (guix build utils)
+  #:use-module (kaakaa tools)
+  #:export (%list-files
+            %base-tools))
+
+(define %read
+  (tool #:description "Read file"
+        #:parameters `(("path" . ,(tool-parameter
+                                   #:type "string"
+                                   #:description "File path to read"
+                                   #:required? #t)))
+        #:proc (lambda* (#:key path)
+                 ;; TODO: Handle non-existent files.
+                 (display (call-with-input-file path
+                            get-string-all)))
+        #:title (const "Read file")
+        #:kind (const "read")))
+
+(define %list-files
+  (tool #:description "List files in current directory"
+        #:parameters (list)
+        #:proc (lambda _
+                 (for-each (lambda (file)
+                             (display file)
+                             (newline))
+                           (find-files (getcwd))))
+        #:title (const "List files")
+        #:kind (const "read")))
+
+(define %base-tools
+  `(("read" . ,%read)
+    ("list-files" . ,%list-files)))
+
+;; TODO: Implement write, grep and find.