[PicoLisp] Store extra HTTP headers in global variable

headers-patch.l

# load this code after loading http.l
# ex: pil http.l headers-patch.l --server 8000 yourcode.l

(patch _htHead
  '(T (if (eol) (char) (line T) @S))
  (fill '(T (if (eol) (char) (when @ (push '*Headers (list @ (cdr (line))))))
            . @S) ) )

http.patch

# v1

diff --git a/lib/http.l b/lib/http.l
index f274334..4046537 100644
--- a/lib/http.l
+++ b/lib/http.l
@@ -267,7 +267,7 @@
             (when (till "=^M^J")
                (_htSet @ (ht:Pack (cdr (line)) T))
                T ) )
-         (T (if (eol) (char) (line T))) ) )
+         (T (if (eol) (char) (when @ (push '*Headers (list @ (cdr (line))))))) ) )
    (unless *Gate
       (and (member ":" *Host) (con (prior @ *Host))) ) )

This minor code change makes HTTP headers accessible through the global variable *Headers. It does not include the headers already processed by PicoLisp such as host, referer, cookie, etc.

Apply the http.patch file to make changes permanent, or load the included headers-patch.l after loading http.l.