mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
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:
parent
19f36366c9
commit
ae51aa9136
1 changed files with 32 additions and 0 deletions
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue