Карта InputStream to Clojure Ring

Question

Я вижу, что когда веб-браузер подключается к HTTP-серверу, отправляются следующие строки:

GET / HTTP/1.1
Content-Length: 13

Hello, world!

Я хочу написать программу, которая берет InputStream, читает эти строки и возвращает карту запроса Ring в соответствии с спецификация кольца.

Не могли бы вы предложить библиотеку Clojure для этой цели? Я быстро взглянул на исходные коды веб-сервера с поддержкой кольца (например, http-kit), но пока безуспешно.

clojure ring

1

erdos 21 Авг 2018 в 00:10

Answer 1

Это, безусловно, может быть достигнуто с помощью библиотеки http-kit. Но есть 2 проблемы:

Класс org.httpkit.server.ClojureRing является закрытым. Вы должны получить доступ к его методу через отражение.
Значение :remote-addr считывается из объекта InetSocketAddress, назначенного для запроса, или вам необходимо иметь заголовок X-Forwarded-For в строке запроса.

Вот рабочая демонстрация:

(let [request "POST / HTTP/1.1\nContent-Length: 13\nX-Forwarded-For: 127.0.0.1\n\nHello, world!"
      bytes (java.nio.ByteBuffer/wrap (.getBytes request))
      decoder (org.httpkit.server.HttpDecoder. 
                8388608 4096 ProxyProtocolOption/DISABLED)
      method (.getMethod org.httpkit.server.ClojureRing 
                         "buildRequestMap"
                         (into-array [org.httpkit.server.HttpRequest]))]
  (.setAccessible method true)
  (.invoke method nil (object-array [(.decode decoder bytes)]))) 

=>
{:remote-addr "127.0.0.1",
 :headers {"content-length" "13", "x-forwarded-for" "127.0.0.1"},
 :async-channel nil,
 :server-port 80,
 :content-length 13,
 :websocket? false,
 :content-type nil,
 :character-encoding "utf8",
 :uri "/",
 :server-name nil,
 :query-string nil,
 :body #object[org.httpkit.BytesInputStream 0x4f078b2 "BytesInputStream[len=13]"],
 :scheme :http,
 :request-method :post}

2

Olim Saidov 23 Авг 2018 в 18:48

Answer 2

Если вы ищете библиотеку для преобразования текстового HTTP-ввода в карту запросов Ring, не ищите дальше, чем Ring, лучшая библиотека для работы с HTTP и , создающими карты запросов Ring.

3

amalloy 21 Авг 2018 в 00:52

Answer 3

Вы можете просмотреть кулинарную книгу Clojure, онлайн здесь, или даже лучше в печатной форме.

Веб-разработка с Clojure также является хорошей книгой.

У меня также есть пример "Hello World" с использованием библиотеки Pedestal здесь.

Вот пример карты запроса с использованием Pedestal:

request => 
{:protocol "HTTP/1.1",
 :async-supported? true,
 :remote-addr "127.0.0.1",
 :servlet-response
 #object[io.pedestal.test$test_servlet_response$reify__34946 0x3e71aa38 "io.pedestal.test$test_servlet_response$reify__34946@3e71aa38"],
 :servlet
 #object[io.pedestal.http.servlet.FnServlet 0x7168112e "io.pedestal.http.servlet.FnServlet@7168112e"],
 :headers {"content-length" "0", "content-type" ""},
 :server-port -1,
 :servlet-request
 #object[io.pedestal.test$test_servlet_request$reify__34934 0x3422eca "io.pedestal.test$test_servlet_request$reify__34934@3422eca"],
 :content-length 0,
 :content-type "",
 :path-info "/echo/abcdef/12345",
 :character-encoding "UTF-8",
 :url-for #<Delay@5190186c: :not-delivered>,
 :uri "/echo/abcdef/12345",
 :server-name nil,
 :query-string nil,
 :path-params {:list-id "abcdef", :item-id "12345"},
 :body
 #object[io.pedestal.test.proxy$javax.servlet.ServletInputStream$ff19274a 0x2aff7cc4 "io.pedestal.test.proxy$javax.servlet.ServletInputStream$ff19274a@2aff7cc4"],
 :scheme nil,
 :request-method :get,
 :context-path ""}

Обновление . Синтаксический анализ не требуется. Вы можете создать кольцевой ответ с очень простой картой:

(defn respond-hello [request]  ; we ignore the request 
  {:status 200 :body "Hello, world!"})

Не уверен, что вы на самом деле после здесь .....? Если вы действительно хотите проводить разбор с нуля, лучшим вариантом является Instaparse.

-1

Alan Thompson 21 Авг 2018 в 15:46

Карта InputStream to Clojure Ring

3 ответа

Новые вопросы

clojure