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

example 'cl-repl': several revisions and small improvements

Browse source
This commit is contained in:
pls.153 2022-12-16 13:13:01 +01:00
parent 9037da0769
commit aaa98e00b8
11 changed files with 89 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/cl-repl/lisp/upload-download.lisp
View file

@ -43,7 +43,7 @@
(+ 4 (search *empty-line* content :start2 start))
(- x:it 4))
out)))))
(setf start (incf x:it boundary-length)))))
(setf start (+ x:it boundary-length)))))
(defun ensure-multipart/form-data (headers)
"Searches headers for 'multipart/form-data' and returns its boundary string."
@ -89,7 +89,11 @@ it saves uploaded files on the server."
(when ini
(register-context-handler *web-server* "/" 'static-resource/upload-handler
:arguments (list #+mobile *default-pathname-defaults*
#-mobile (merge-pathnames "www/"))))))
#-mobile (merge-pathnames "www/")))))
#+mobile
;; qrun*: only when running on main thread can we have return values from Qt
(x:when-it (qml:qrun* (qt:local-ip qt:*cpp*))
(format nil "http://~A:1701/" x:it)))
(defun stop ()
(stop-server *web-server*))