https.l

# https.l
#
# The MIT License (MIT)
#
# Copyright (c) 2015 Alexander Williams, Unscramble <license@unscramble.jp>

(symbols 'https 'pico)

(load (pack (car (file)) "local.l"))

(load (pack (car (file)) "module.l"))

(setq
  *Https              (pack (car (file)) ".lib/libneon.so")
  *Buffer_size        8192
  *Headers            '(("Accept" . "*/*")
                        ("Accept-Charset" . "utf-8")
                        ("User-Agent" . "picolisp-https") )

  *NE_FEATURE_SSL     1
  *NE_FEATURE_ZLIB    2
  *NE_FEATURE_IPV6    3
  *NE_FEATURE_LFS     4
  *NE_FEATURE_SOCKS   5
  *NE_FEATURE_TS_SSL  6
  *NE_FEATURE_I18N    7
  *NE_FEATURE_SSPI    8

  *NE_ABUFSIZ         256

  *NE_OK              0
  *NE_ERROR           1
  *NE_LOOKUP          2
  *NE_AUTH            3
  *NE_PROXYAUTH       4
  *NE_CONNECT         5
  *NE_TIMEOUT         6
  *NE_FAILED          7
  *NE_RETRY           8
  *NE_REDIRECT        9 )

# ffi-bindings
(load (pack (car (file)) "ffi.l"))

# internal
(load (pack (car (file)) "internal.l"))

# initialize
(when (=0 (ne-has-support *NE_FEATURE_SSL))
      (throw-error NIL "Missing support for SSL/TLS") )

(when (=0 (ne-has-support *NE_FEATURE_TS_SSL))
      (throw-error NIL "Missing support for thread-safe SSL") )

(unless (= *NE_OK (ne-sock-init))
        (throw-error NIL "Could not initiate socket") )

(seed (in "/dev/urandom" (rd 20)))


# public
(de uriparse (Url)
  (parse-uri Url) )

(de req-get (Url Headers Filename)
  (req  "GET" Url Headers Filename) )

(de req-head (Url Headers)
  (req  "HEAD" Url Headers) )

(de req-post (Url Headers Filename Body)
  (req  "POST" Url Headers Filename Body) )

(de req-put (Url Headers Filename Body)
  (req  "PUT" Url Headers Filename Body) )

(de req-delete (Url Headers Filename)
  (req  "DELETE" Url Headers Filename) )

[de req (Method Url Headers Filename Body)
  (let ((Session Path Request) (create-session-request Method Url Headers))
    (let Buffer (set-request-body Request Body)
      (finally
        (end-request-session Request Session Buffer)
        (let Output (request-dispatch Request Session)
          (parse-response Request Url Output) ]