cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

split response processing: prepare - finish

Browse source
This commit is contained in:
Helmut Merz 2025-05-19 16:40:36 +02:00
parent c52d6adca7
commit 84ce2c9e3a
1 changed files with 19 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
web/response.lisp
View file

@ -14,23 +14,20 @@
(in-package :scopes/web/response)
;;;; server interaction - receive response message from action processing chain
;;; predefined action handlers / default actions
;;;; predefined action handlers / default actions
(defun render-msg (resp msg)
(push msg (messages resp))
(actor:stop resp)
;(finish resp)
)
(if msg
(push msg (messages resp)))
(prepare resp)
(finish resp))
(defun set-cookie (resp msg)
(util:plist-add (headers resp)
:set-cookie (render-cookie (shape:data msg)))
(actor:stop resp)
;(finish resp)
)
(render-msg resp nil))
(defvar *interaction-default-actions*
(defvar *default-actions*
(core:define-actions '((:response :set-cookie) set-cookie)
'(nil render-msg)))
@ -42,10 +39,9 @@
(defvar *html-response-class* nil)
;(defclass response (core:base-context)
(defclass response (core:base-context actor:fg-actor) ; actor:bg-actor
(defclass response (core:base-context actor:fg-actor)
((context :reader context :initarg :context)
(core:actions :initform *interaction-default-actions*)
(core:actions :initform *default-actions*)
(env :reader env :initarg :env)
(messages :accessor messages :initform nil)
(headers :accessor headers :initform nil)
@ -93,19 +89,21 @@
(defun make-headers (resp)
(cons :content-type (cons (ctype resp) (headers resp))))
(defun prepare (resp)
(let ((headers (make-headers resp))
(rcode 200))
(setf (writer resp) (funcall (responder resp) (list rcode headers)))))
(defun finish (resp)
(let* ((headers (make-headers resp))
(rcode 200)
(writer (funcall (responder resp) (list rcode headers))) )
(dolist (msg (messages resp))
(funcall writer (render-content resp msg)))
(funcall writer nil :close t)))
(dolist (msg (messages resp))
(funcall (writer resp) (render-content resp msg)))
(funcall (writer resp) nil :close t)
(actor:stop resp))
(defun render (resp)
#'(lambda (responder)
(setf (responder resp) responder)
(actor:start resp)
(finish resp)))
(actor:start resp)))
(defun render-not-found(resp)
(list 404 '(:content-type "text/plain") '("Not found")))