main.ss

;;; -*- Gerbil -*-
(import :std/error
        :std/sugar
        :std/io
        (only-in :std/net/httpd/handler read-request-headers read-request-body))

(export main)

(def payload1 "Content-Length: 128\r\n\r\n{\"jsonrpc\":\"2.0\",\"id\":\"g0\",\"result\":[{\"uri\":\"file:///home/_/c/l\",\"name\":\"l\"},{\"uri\":\"file:///home/_/g/gerbil\",\"name\":\"gerbil\"}]}")

(def payload2 "Content-Length: 128\n\n{\"jsonrpc\":\"2.0\",\"id\":\"g0\",\"result\":[{\"uri\":\"file:///home/_/c/l\",\"name\":\"l\"},{\"uri\":\"file:///home/_/g/gerbil\",\"name\":\"gerbil\"}]}")

(def (main . args)
  (def ibuf (open-buffered-reader (string->bytes payload2)))
  (def headers (read-request-headers ibuf))
  (displayln "HOLA")
)