sb-fastcgi/test.lisp at master · bookvik/sb-fastcgi · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
;;;
;;; sb-fastcgi : http://kdr2.net/sb-fastcgi.html
;;;
;;; Author : KDr2 <killy.draw@gmail.com>  http://kdr2.net
;;;
;;; License : BSD License
;;;


;;; A1. load sb-fascgi asdf
(asdf:operate 'asdf:load-op 'sb-fastcgi)
;;; A2. load libfcgi.so
(sb-fastcgi:load-libfcgi "./c_src/libfcgi.so")

;;; B1. simple app using fcgi-style interface
(defun simple-app (req)
  (let ((c (format nil "Content-Type: text/plain

Hello, I am a fcgi-program using Common-Lisp
~%~A~%"
                   (sb-fastcgi:fcgx-getenv req)))
        (d (sb-fastcgi:fcgx-read req))) ;; post body
    (sb-fastcgi:fcgx-puts req c)
    (sb-fastcgi:fcgx-puts req (SB-EXT:OCTETS-TO-STRING d :external-format :utf-8))))

;;; B2. run the simple app above
(defun run-app-0 ()
  (sb-fastcgi:simple-server #'simple-app))

(defun run-app-0.5 ()
  (sb-fastcgi:socket-server-threaded #'simple-app
                                     :inet-addr "0.0.0.0"
                                     :port 9000))

#+nil
(run-app-0)

;;; C1. app using WSGI-style interface
(defun wsgi-app (env start-response)
  (funcall start-response "200 OK" '(("X-author" . "Who?")
                                     ("Content-Type" . "text/html")))
  (let ((post (funcall (cdr (assoc :POST-READER env)))))
    (list "ENV (show in alist format): <br>" env
          "<br>LISP FEATURES (show in list format): <br>" *features*
          "<br>POST BODY(read once):<br>" post)))

;;; C2. run app above on 0.0.0.0:9000 (by default)
(defun run-app-1 ()
  (sb-fastcgi:socket-server-threaded
   (sb-fastcgi:make-serve-function #'wsgi-app)
   :inet-addr "0.0.0.0"
   :port 9000))

;;; C3. run app above on a unix-domain-socket
(defun run-app-1-unix-sock ()
  (sb-fastcgi:socket-server-threaded
   (sb-fastcgi:make-serve-function #'wsgi-app)
   :sock-path "/tmp/sb-fastcgi.sock"))

;;; C4. a nested WSGI-style app example
(defun wsgi-app2 (app)
  (lambda (env start-response)
    (let ((content-0 (funcall app env start-response))) ; call inner app
      ;;reset X-author in headers
      (funcall start-response nil '(("X-author" . "KDr2!")))
      (append '("Prefix <br/>")  content-0 '("<br/>Postfix")))))

;;; C5. run (test-app1 test-app2) nested app
(defun run-app-2 ()
  (sb-fastcgi:socket-server-threaded
   (sb-fastcgi:make-serve-function (wsgi-app2 #'wsgi-app))
   :inet-addr "0.0.0.0"
   :port 9000))

;;; D. pack the webapp to a executable file
(defun make-exe (&optional (name "sbcl.fcgi"))
  (sb-ext:save-lisp-and-die name
                            :executable t
                            :purify t
                            :toplevel (lambda ()
                                        (unwind-protect (run-app-2)
                                          (sb-ext:quit)))))

(run-app-1)