Make state be a global special variable

1 files changed, 82 insertions, 17 deletions

diff --git a/src/state.lisp b/src/state.lisp
index 6348ee3..ef4050d 100644
--- a/src/state.lisp
+++ b/src/state.lisp
@@ -2,30 +2,95 @@
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/state
   (:documentation "Holds the global state")
-  (:use :c2cl)
+  (:nicknames :state)
+  (:use :c2cl :ukkoclot/src/rw-lock)
   (:import-from :com.dieggsy.f-string :enable-f-strings)
-  (:import-from :conf :bot-token)
+  (:import-from :conf :*config* :bot-token)
+  (:import-from :sqlite :sqlite-handle)
   (:export
-   #:bot
-   #:make-bot
-   #:bot-p
-   #:copy-bot
-   #:bot-db
-   #:bot-base-uri
-   #:bot-power-on
-   #:bot-username%
-   #:bot-id%))
+   #:*state*
+   #:state
+   #:make-state
+   #:state-p
+   #:db
+   #:base-uri
+   #:power-on
+   #:set-power-on
+   #:username%
+   #:set-username%
+   #:id%
+   #:set-id%))
 (in-package :ukkoclot/src/state)
 
 (enable-f-strings)
 
-(defstruct (bot (:constructor make-bot%))
-  (db (error "No value given for DB") :read-only t)
-  (base-uri (error "No value given for base-uri") :read-only t)
+(defstruct (state (:constructor make-state%))
+  (lock (make-rw-lock :name "state's lock") :type rw-lock :read-only t)
+  (db (error "No value given for DB") :type sqlite-handle :read-only t)
+  (base-uri (error "No value given for base-uri") :type string :read-only t)
   (power-on t :type boolean)
   (username% nil :type (or string null))
   (id% nil :type (or integer null)))
 
-(defun make-bot (db)
-  (let ((base-uri #f"https://api.telegram.org/bot{(bot-token)}/"))
-    (make-bot% :db db :base-uri base-uri)))
+(defun make-state (db &optional (config *config*))
+  (check-type db sqlite-handle)
+  (let ((base-uri #f"https://api.telegram.org/bot{(bot-token config)}/"))
+    (make-state% :db db :base-uri base-uri)))
+
+(defvar *state* nil
+  "Bot's general state.  You should initialise this with a value before doing anything fun.")
+
+(defun db (&optional (state *state*))
+  "Get the database handle of the bot."
+  (with-slots (lock db) state
+    (with-read-lock (lock)
+      db)))
+
+(defun base-uri (&optional (state *state*))
+  "Get the base URI of the bot."
+  (with-slots (lock base-uri) state
+    (with-read-lock (lock)
+      base-uri)))
+
+(defun power-on (&optional (state *state*))
+  "Get whether the bot is running"
+  (with-slots (lock power-on) state
+    (with-read-lock (lock)
+      power-on)))
+
+(defun set-power-on (new-value &optional (state *state*))
+  "Set the value of the power-on"
+  (with-slots (lock power-on) state
+    (with-write-lock (lock)
+      (setf power-on new-value))))
+
+(defsetf power-on (&optional (state '*state*)) (new-value)
+  `(set-power-on ,new-value ,state))
+
+(defun username% (&optional (state *state*))
+  "Get the cached bot's username, you should probably use `ukkoclot/src/tg:bot-username' instead."
+  (with-slots (lock username%) state
+    (with-read-lock (lock)
+      username%)))
+
+(defun set-username% (new-value &optional (state *state*))
+  (with-slots (lock username%) state
+    (with-write-lock (lock)
+      (setf username% new-value))))
+
+(defsetf username% (&optional (state '*state*)) (new-value)
+  `(set-username% ,new-value ,state))
+
+(defun id% (&optional (state *state*))
+  "Get the cached bot's ID, you should probably use `ukkoclot/src/tg:bot-id' instead."
+  (with-slots (lock id%) state
+    (with-read-lock (lock)
+      id%)))
+
+(defun set-id% (new-value &optional (state *state*))
+  (with-slots (lock id%) state
+    (with-write-lock (lock)
+      (setf id% new-value))))
+
+(defsetf id% (&optional (state '*state*)) (new-value)
+  `(set-id% ,new-value ,state))