Ring Middleware の基礎

Transcript

1. 3JOH
   .JEEMFXBSF
   ͷجૅ -JTQ
   .FFU
   6Q
   QSFTFOUFE
   CZ
   4IJCVZBMJTQ
   
   !@BZBUP@Q
   
   $ZCP[V
   4UBSUVQT
   *OD

2. ͋΍ͽʔ !@BZBUP@Q
   $ZCP[V
   4UBSUVQT
   *OD
   
   +BQBO
   $MPKVSJBOT
   "ENJO

3. 3JOH
   ͷίϯηϓτ Handler Request Response Middleware ࠓ೔͸
   .JEEMFXBSF
   ͷ͓࿩

4. 3JOH
   .JEEMFXBSF

5. 3JOH
   .JEEMFXBSF (defn wrap-member [handler] (fn [req] (->> (get-in req [:params

   :member-id]) find-member (assoc req :member) handler))) ߴ֊ؔ਺
   ϋϯυϥΛड͚औΔ
   ϦΫΤετΛऔΔؔ਺Λฦ͢ ৽͍͠ϋϯυϥ

6. (defn wrap-member [handler] (fn [req] (->> (get-in req [:params :member-id])

   find-member (assoc req :member) handler))) 3JOH
   .JEEMFXBSF ߴ֊ؔ਺
   ϋϯυϥΛड͚औΔ
   ϦΫΤετΛऔΔؔ਺Λฦ͢ ৽͍͠ϋϯυϥ ϋϯυϥ ϦΫΤετ ؔ਺

7. .JEEMFXBSF
   Λద༻͢Δ (defn wrap-answer [handler] (fn [req] (handler (assoc req :ans

   42)))) (defn handler [req] (res/response (get req :ans))) XSBQBOTXFS
   ϛυϧ΢ΣΞΛ
   IBOEMFS
   ΁ద༻͢Δ (def app (wrap-answer handler))

8. .JEEMFXBSF
   Λద༻͢Δ (let [handler (fn [req] (res/response (get req :ans))] (fn

   [req] (handler (assoc req :ans 42)))) XSBQBOTXFS
   ϛυϧ΢ΣΞΛ
   IBOEMFS
   ΁ద༻͢Δ (fn [req] (res/response (get (assoc req :ans 42) :ans)))

9. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

10. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    $
    ͕ϦΫΤετϚοϓΛॲཧ͠
    ৽ͨͳϦΫΤετϚοϓΛ࣍ͷϋϯυϥ΁౉͢

11. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    #
    ͕ϦΫΤετϚοϓΛॲཧ͠
    ৽ͨͳϦΫΤετϚοϓΛ࣍ͷϋϯυϥ΁౉͢

12. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    "
    ͕ϦΫΤετϚοϓΛॲཧ͠
    ৽ͨͳϦΫΤετϚοϓΛ࣍ͷϋϯυϥ΁౉͢

13. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    )BOEMFS
    ͕ϦΫΤετϚοϓΛॲཧ͠
    ϨεϙϯεϚοϓΛੜ੒ฦ٫͢Δ

14. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    "
    ͕ϨεϙϯεϚοϓΛॲཧ͠
    ৽ͨͳϨεϙϯεϚοϓΛฦ٫͢Δ

15. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    #
    ͕ϨεϙϯεϚοϓΛॲཧ͠
    ৽ͨͳϨεϙϯεϚοϓΛฦ٫͢Δ

16. ϦΫΤετͷྲྀΕ Handler Middleware A Middleware B Middleware C Request Response

    .JEEMFXBSF
    $
    ͕ϨεϙϯεϚοϓΛॲཧ͠
    ৽ͨͳϨεϙϯεϚοϓΛฦ٫͢Δ

17. ϛυϧ΢ΣΞ͸ͲͷΑ͏ʹಇ͔͘ ઌʹద༻ͨ͠ϛυϧ΢ΣΞ͕಺ଆʹͳΔ
    ֎ଆͷϛυϧ΢ΣΞ͕ઌʹϦΫΤετϚοϓΛ
 ॲཧͰ͖Δ
    ಺ଆͷϛυϧ΢ΣΞ͕ઌʹϨεϙϯεϚοϓΛ
 ॲཧͰ͖Δ

18. 3JOH
    .JEEMFXBSF
    ࣮૷ύλʔϯ

19. ࣮૷ύλʔϯ ϦΫΤετϚοϓߋ৽ύλʔϯ
    ϨεϙϯεϚοϓߋ৽ύλʔϯ
    ৚݅෼ذύλʔϯ
    Ϋϩʔδϟ ดแ ύλʔϯ

20. ϦΫΤετϚοϓߋ৽ύλʔϯ (defn wrap-member [handler] (fn [req] (->> (get-in req [:params

    :member-id]) find-member (assoc req :member) handler))) ϦΫΤετϚοϓΛߋ৽ͯ͠ϋϯυϥ΁౉͢
    Ұൠతʹϋϯυϥ΁౉͢લͷڞ௨ॲཧΛ୲͏ ϦΫΤετϚοϓʹ௥Ճ

21. (defn wrap-html [handler] (fn [req] (-> (handler req) (res/content-type "text/html"))))

    ϨεϙϯεϚοϓߋ৽ύλʔϯ ϋϯυϥͷฦ٫ͨ͠ϨεϙϯεϚοϓΛߋ৽͢Δ
    Ϩεϙϯεͷ
    .*.&
    λΠϓΛ
 ౷Ұͨ͠Γ͢Δͷʹศར ϨεϙϯεϚοϓʹ௥Ճ

22. (defn wrap-auth [handler] (fn [req] (if (authenticated? req) (handler req)

    (auth-error-handler req)))) ৚݅෼ذύλʔϯ ࣮ߦ͢ΔϋϯυϥΛ৚݅ʹΑͬͯมߋ͢Δ
    ϧʔςΟϯά΍ೝূೝՄͷॲཧΛ͢Δ
 ڞ௨ॲཧͰར༻͞ΕΔ ৚݅Ͱ࣮ߦର৅Λมߋ

23. (defn wrap-fib [handler] (let [memoized-fib (memoize fib)] (fn [req] (let

    [n (->long (get-in req [:params :n]))] (-> (assoc req :fib-num (memoized-fib n)) handler))))) Ϋϩʔδϟ ดแ ύλʔϯ ؀ڥΛด͡ࠐΊͯ৽͍͠ϋϯυϥΛฦ٫͢Δ
    ॏ͍ॲཧͳͲΛϝϞԽͨ͠ΓɺԿ౓΋ܭࢉ͢Δҙຯ ͕ͳ͍΋ͷΛด͡ࠐΊͯ͠·͑Δ ฦ٫͢Δؔ਺ʹด͡ࠐΊΔ

24. ى͜Γ͕ͪͳ໰୊

25. ໰୊ (defn show-user [req] (let [user-id (get-in req [:params :user-id])

    db (:db req) (-> (find-user-by-id db user-id) res/ok
 res/html)))

26. ໰୊
    ڊେͳϦΫΤετϚοϓ ϛυϧ΢ΣΞΛཔΓ͗ͯ͢ؾ͕෇͍ͨΒ
 ϦΫΤετϚοϓ͕େ͖͘ͳΓ͍͗ͯ͢Δ (defn show-user [req] (let [user-id (get-in req

    [:params :user-id]) db (:db req) (-> (find-user-by-id db user-id) res/ok
 res/html)))

27. ໰୊
    શͯݟ͑ͯ͠·͏ ϛυϧ΢ΣΞͰϦΫΤετϚοϓʹӨڹΛ༩͑ Ε͹શͯͷϋϯυϥ͔Βத਎͕ݟ͑ͯ͠·͏ (defn show-user [req] (let [user-id (get-in req

    [:params :user-id]) db (:db req) (-> (find-user-by-id db user-id) res/ok
 res/html)))

28. ໰୊ (def app (-> handler wrap-keyword-params wrap-nested-params wrap-multipart-params wrap-params))

29. ໰୊
    ӅΕͨґଘؔ܎ खಈͰॱ൪Λܾఆ͠ͳ͚Ε͹ͳΒͳ͍
    ґଘؔ܎ͷଘࡏ͕໨ʹݟ͑ͳ͍ (def app (-> handler wrap-keyword-params wrap-nested-params wrap-multipart-params

    wrap-params)) ґଘؔ܎͕ੜ·Ε͍ͯΔ

30. ·ͱΊ

31. ·ͱΊ 3JOH
    .JEEMFXBSF
    ͸୯७ͳߴ֊ؔ਺
    ࢓૊Έ͸୯७͚ͩͲڧྗ
    طʹ࠶ར༻ՄೳͳϥΠϒϥϦ͕୔ࢁ͋Δ
    ͨͩ͠ɺཚ༻͢ΔͱԿॲ͔ΒԿ͕ೖ͖͍ͬͯͯ Δͷ͔෼͔Βͳ͘ͳΔͷͰରࡦ͕ඞཁ