XCVB support (by Fare <fahree@gmail.com>)
parent
26774a0dd2
commit
d281b98717
2
bio.lisp
2
bio.lisp
|
@ -2,6 +2,8 @@
|
||||||
;;;
|
;;;
|
||||||
;;; See LICENSE for details.
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
#+xcvb (module (:depends-on ("package")))
|
||||||
|
|
||||||
(in-package cl+ssl)
|
(in-package cl+ssl)
|
||||||
|
|
||||||
(defconstant +bio-type-socket+ (logior 5 #x0400 #x0100))
|
(defconstant +bio-type-socket+ (logior 5 #x0400 #x0100))
|
||||||
|
|
|
@ -0,0 +1,25 @@
|
||||||
|
;;; -*- mode: lisp -*-
|
||||||
|
;;;
|
||||||
|
;;; Copyright (C) 2001, 2003 Eric Marsden
|
||||||
|
;;; Copyright (C) 2005 David Lichteblau
|
||||||
|
;;; Copyright (C) 2007 Pixel // pinterface
|
||||||
|
;;; "the conditions and ENSURE-SSL-FUNCALL are by Jochen Schmidt."
|
||||||
|
;;;
|
||||||
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
|
||||||
|
#+xcvb
|
||||||
|
(module
|
||||||
|
(:fullname "cl+ssl"
|
||||||
|
:depends-on ("package"
|
||||||
|
"reload"
|
||||||
|
"conditions"
|
||||||
|
"ffi"
|
||||||
|
"ffi-buffer-all"
|
||||||
|
(:cond ((:featurep :clisp) "ffi-buffer-clisp")
|
||||||
|
((:featurep (:not :clisp)) "ffi-buffer"))
|
||||||
|
"streams"
|
||||||
|
"bio")
|
||||||
|
:build-depends-on ("flexi-streams" "trivial-gray-streams" "cffi")
|
||||||
|
:supersedes-asdf ("cl+ssl")))
|
||||||
|
|
|
@ -4,6 +4,8 @@
|
||||||
;;;
|
;;;
|
||||||
;;; See LICENSE for details.
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
#+xcvb (module (:depends-on ("package")))
|
||||||
|
|
||||||
(in-package :cl+ssl)
|
(in-package :cl+ssl)
|
||||||
|
|
||||||
(eval-when (:compile-toplevel :load-toplevel :execute)
|
(eval-when (:compile-toplevel :load-toplevel :execute)
|
||||||
|
|
|
@ -1,3 +1,5 @@
|
||||||
|
#+xcvb (module (:depends-on ("package")))
|
||||||
|
|
||||||
(in-package :cl+ssl)
|
(in-package :cl+ssl)
|
||||||
|
|
||||||
(defconstant +initial-buffer-size+ 2048)
|
(defconstant +initial-buffer-size+ 2048)
|
||||||
|
|
|
@ -1,3 +1,5 @@
|
||||||
|
#+xcvb (module (:depends-on ("package" "reload" "conditions" "ffi" "ffi-buffer-all")))
|
||||||
|
|
||||||
(in-package :cl+ssl)
|
(in-package :cl+ssl)
|
||||||
|
|
||||||
(defun make-buffer (size)
|
(defun make-buffer (size)
|
||||||
|
|
|
@ -1,3 +1,5 @@
|
||||||
|
#+xcvb (module (:depends-on ("package")))
|
||||||
|
|
||||||
(in-package :cl+ssl)
|
(in-package :cl+ssl)
|
||||||
|
|
||||||
(defun make-buffer (size)
|
(defun make-buffer (size)
|
||||||
|
|
2
ffi.lisp
2
ffi.lisp
|
@ -4,6 +4,8 @@
|
||||||
;;;
|
;;;
|
||||||
;;; See LICENSE for details.
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
#+xcvb (module (:depends-on ("package" "conditions")))
|
||||||
|
|
||||||
(eval-when (:compile-toplevel)
|
(eval-when (:compile-toplevel)
|
||||||
(declaim
|
(declaim
|
||||||
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
||||||
|
|
|
@ -4,6 +4,8 @@
|
||||||
;;;
|
;;;
|
||||||
;;; See LICENSE for details.
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
#+xcvb (module (:depends-on ((:when (:featurep :sbcl) (:require :sb-posix)))))
|
||||||
|
|
||||||
(in-package :cl-user)
|
(in-package :cl-user)
|
||||||
|
|
||||||
(defpackage :cl+ssl
|
(defpackage :cl+ssl
|
||||||
|
|
|
@ -13,6 +13,8 @@
|
||||||
;;; - but not every time ffi.lisp is re-loaded as would happen if we
|
;;; - but not every time ffi.lisp is re-loaded as would happen if we
|
||||||
;;; put this directly into ffi.lisp
|
;;; put this directly into ffi.lisp
|
||||||
|
|
||||||
|
#+xcvb (module (:depends-on ("package")))
|
||||||
|
|
||||||
(in-package :cl+ssl)
|
(in-package :cl+ssl)
|
||||||
|
|
||||||
(cffi:define-foreign-library libssl
|
(cffi:define-foreign-library libssl
|
||||||
|
|
|
@ -5,6 +5,12 @@
|
||||||
;;;
|
;;;
|
||||||
;;; See LICENSE for details.
|
;;; See LICENSE for details.
|
||||||
|
|
||||||
|
#+xcvb
|
||||||
|
(module
|
||||||
|
(:depends-on ("package" "conditions" "ffi"
|
||||||
|
(:cond ((:featurep :clisp) "ffi-buffer-clisp")
|
||||||
|
(t "ffi-buffer")))))
|
||||||
|
|
||||||
(eval-when (:compile-toplevel)
|
(eval-when (:compile-toplevel)
|
||||||
(declaim
|
(declaim
|
||||||
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))
|
||||||
|
|
Loading…
Reference in New Issue