gnu: Add cl-async-ssl.

* gnu/packages/lisp-xyz.scm (sbcl-cl-async-ssl, cl-async-ssl,
  ecl-cl-async-ssl): New variables.
This commit is contained in:
Guillaume Le Vaillant 2020-01-17 11:17:38 +01:00
parent 19f36366c9
commit ae51aa9136
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -9559,3 +9559,35 @@ (define-public cl-async-repl
(define-public ecl-cl-async-repl
(sbcl-package->ecl-package sbcl-cl-async-repl))
(define-public sbcl-cl-async-ssl
(package
(inherit sbcl-cl-async-base)
(name "sbcl-cl-async-ssl")
(inputs
`(("cffi" ,sbcl-cffi)
("cl-async" ,sbcl-cl-async)
("openssl" ,openssl)
("vom" ,sbcl-vom)))
(arguments
(substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
((#:asd-file _ "") "cl-async-ssl.asd")
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/ssl/package.lisp"
(("libcrypto\\.so")
(string-append (assoc-ref inputs "openssl")
"/lib/libcrypto.so"))
(("libssl\\.so")
(string-append (assoc-ref inputs "openssl")
"/lib/libssl.so")))
#t))))))
(synopsis "SSL wrapper around cl-async socket implementation")))
(define-public cl-async-ssl
(sbcl-package->cl-source-package sbcl-cl-async-ssl))
(define-public ecl-cl-async-ssl
(sbcl-package->ecl-package sbcl-cl-async-ssl))