mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'meshtastic': review & fix DB message storage

Browse source
This commit is contained in:
pls.153 2024-02-24 22:23:34 +01:00
parent 95c8fcd8c0
commit 4a9434d7ea
5 changed files with 27 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

13
examples/meshtastic/lisp/db.lisp
View file

@ -11,11 +11,12 @@
(setf *file* (app:in-data-path "db"))
(ensure-directories-exist *file*)
(qt:ini-db qt:*cpp* (namestring *file*))
(query "create table if not exists messages (mid integer primary key, uid integer, message text)"))
(query "create table if not exists messages (mid integer primary key autoincrement, uid integer, message text)"))
(defun save-message (mid uid message)
(query "insert into messages (mid, uid, message) values (?, ?, ?)"
mid uid message))
(defun save-message (uid message)
"Inserts MESSAGE and returns the new MID."
(first (query "insert into messages (uid, message) values (?, ?)"
uid message)))
(defun load-message (mid)
(first (query "select message from messages where mid = ?"
@ -29,10 +30,6 @@
(query "select message from messages where uid = ? order by mid"
uid))
(defun max-message-id ()
(let ((val (first (query "select max(mid) from messages"))))
(if (numberp val) val 0)))
(defun delete-message (mid) ; see QML
(query "delete from messages where mid = ?"
mid)