blob: 5f94176f2d698af398d5fffa8dd1206a22925451 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!/usr/bin/env sh
# -*- mode: scheme; -*-
exec guile --no-auto-compile -e main -s "$0" "$@"
!#
;;; 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/>.
(use-modules (rnrs io ports)
(srfi srfi-37)
(ice-9 match)
(kaakaa config)
(kaakaa openai)
(kaakaa tea)
(kaakaa tools base)
(kaakaa utils))
(define (invalid-option opt name arg result)
(error "Invalid option" name))
(define (invalid-argument arg result)
(error "Invalid argument" arg))
(define %options
(list (option (list #\m "model") #t #f
(lambda (opt name arg result)
(acons 'model arg
result)))
(option (list #\a "api-base-uri") #t #f
(lambda (opt name arg result)
(acons 'api-base-uri arg result)))
(option (list #\k "api-key-command") #t #f
(lambda (opt name arg result)
(acons 'api-key-command arg result)))
(option (list #\v "version") #f #f
(lambda (opt name arg result)
(acons 'version #t result)))
(option (list #\h "help") #f #f
(lambda (opt name arg result)
(acons 'help #t result)))))
(define (print-usage program)
"Print kaakaa usage. @var{program} is the name of the executable used
to invoke kaakaa."
(format (current-error-port)
"Usage: ~a [OPTIONS]
Run kaakaa AI agent.
--api-base-uri=URI base API URI of LLM provider
--api-key-command=COMMAND command to run to get API key
--model=MODEL LLM model name
--version print version and exit
--help print this help and exit
"
program))
(define (die fmt . args)
"Print formatted message, followed by a newline and exit with failure."
(apply format (current-error-port) fmt args)
(newline (current-error-port))
(exit #f))
(define (get-api-key api-key-command)
"Run @var{api-key-command} and get the API key."
;; We use a shell to execute since
;; 1. api-key-command is a string, not a list of string arguments
;; 2. api-key-command may contain pipes
(call-with-input-pipe `("sh" "-c" ,api-key-command)
get-string-all))
(define main
(match-lambda
((program args ...)
(let ((args (args-fold args
%options
invalid-option
invalid-argument
'((model . "anthropic/claude-opus-4.6")
(api-base-uri . "https://openrouter.ai")))))
(when (assq-ref args 'help)
(print-usage program)
(exit #t))
(when (assq-ref args 'version)
(format (current-output-port)
"~a ~a~%"
%project %version)
(exit #t))
(unless (assq-ref args 'api-key-command)
(die "--api-key-command not specified"))
(tea-loop (initial-state)
(assq-ref args 'api-base-uri)
(get-api-key (assq-ref args 'api-key-command))
(assq-ref args 'model)
%base-tools)))))
|
