cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [RPC] added iri for failed stream when signalling an error.

This commit is contained in:
cage 2023-02-19 16:20:10 +01:00
parent a4f6e87765
commit 8deab8f098
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/gui/server/public-api-gemini-stream.lisp
View File

@ -262,10 +262,13 @@
(json:with-object-element (k)
(json:encode v)))))))))
(defun make-no-such-stream-error (iri)
(error (_ "no such stream ~s") iri))
(defun gemini-stream-parsed-line (iri line-number)
(let ((stream-wrapper (gw:find-db-stream-url iri)))
(if (null stream-wrapper)
(error "no such stream")
(make-no-such-stream-error iri)
(let ((parsed-lines (gw:parsed-lines stream-wrapper)))
(cond
((or (not (integerp line-number))
@ -296,7 +299,7 @@
(defun gemini-stream-parsed-line-slice (iri line-number-start line-number-end)
(let ((stream-wrapper (gw:find-db-stream-url iri)))
(if (null stream-wrapper)
(error "no such stream")
(make-no-such-stream-error iri)
(let ((parsed-lines (gw:parsed-lines stream-wrapper)))
(cond
((or (not (integerp line-number-start))
@ -324,7 +327,7 @@
(let ((stream-wrapper (gw:find-db-stream-url iri)))
(if stream-wrapper
stream-wrapper
(error "no such stream"))))
(make-no-such-stream-error iri))))
(defun gemini-all-stream-info ()
gw:*gemini-streams-db*)