emptygif
اللغة: العربية

كل اللغات وأطر العمل

Ring + reitit Clojure

مقتطف بلغة Clojure لـ Ring + reitit يستجيب لطلبات /pixel.gif بملف GIF الفارغ، الذي يُفك ترميزه مرة واحدة عند بدء التشغيل.

Ring + reitit Clojure

التثبيت
{:deps {metosin/reitit-ring {:mvn/version "0.11.0"} ring/ring-jetty-adapter {:mvn/version "1.15.5"}}}
الملف
core.clj
التشغيل
clojure -M -m pixel.core
(ns pixel.core
  (:require [reitit.ring :as ring]
            [ring.adapter.jetty :as jetty])
  (:import (java.util Base64)))

(def gif (.decode (Base64/getDecoder) "R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="))

(def app
  (ring/ring-handler
   (ring/router
    ["/pixel.gif" {:get (fn [_]
                        {:status 200
                         :headers {"Content-Type" "image/gif"
                                   "Content-Length" (str (alength gif))
                                   "Cache-Control" "no-store"}
                         :body gif})}])
   (ring/create-default-handler)))

(defn -main []
  (jetty/run-jetty app {:port 8080 :join? true}))

شغّلنا هذا المقتطف وقارنّا البايتات التي أعادها.

التحقق

curl -sI http://localhost:8080/pixel.gif

الموقع الرسمي: Ring + reitit