XCVB support (by Fare <fahree@gmail.com>)

master
avodonosov 2009-10-24 20:09:40 +00:00
parent 26774a0dd2
commit d281b98717
10 changed files with 47 additions and 0 deletions

View File

@ -2,6 +2,8 @@
;;;
;;; See LICENSE for details.
#+xcvb (module (:depends-on ("package")))
(in-package cl+ssl)
(defconstant +bio-type-socket+ (logior 5 #x0400 #x0100))

25
build.xcvb Normal file
View File

@ -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")))

View File

@ -4,6 +4,8 @@
;;;
;;; See LICENSE for details.
#+xcvb (module (:depends-on ("package")))
(in-package :cl+ssl)
(eval-when (:compile-toplevel :load-toplevel :execute)

View File

@ -1,3 +1,5 @@
#+xcvb (module (:depends-on ("package")))
(in-package :cl+ssl)
(defconstant +initial-buffer-size+ 2048)

View File

@ -1,3 +1,5 @@
#+xcvb (module (:depends-on ("package" "reload" "conditions" "ffi" "ffi-buffer-all")))
(in-package :cl+ssl)
(defun make-buffer (size)

View File

@ -1,3 +1,5 @@
#+xcvb (module (:depends-on ("package")))
(in-package :cl+ssl)
(defun make-buffer (size)

View File

@ -4,6 +4,8 @@
;;;
;;; See LICENSE for details.
#+xcvb (module (:depends-on ("package" "conditions")))
(eval-when (:compile-toplevel)
(declaim
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))

View File

@ -4,6 +4,8 @@
;;;
;;; See LICENSE for details.
#+xcvb (module (:depends-on ((:when (:featurep :sbcl) (:require :sb-posix)))))
(in-package :cl-user)
(defpackage :cl+ssl

View File

@ -13,6 +13,8 @@
;;; - but not every time ffi.lisp is re-loaded as would happen if we
;;; put this directly into ffi.lisp
#+xcvb (module (:depends-on ("package")))
(in-package :cl+ssl)
(cffi:define-foreign-library libssl

View File

@ -5,6 +5,12 @@
;;;
;;; See LICENSE for details.
#+xcvb
(module
(:depends-on ("package" "conditions" "ffi"
(:cond ((:featurep :clisp) "ffi-buffer-clisp")
(t "ffi-buffer")))))
(eval-when (:compile-toplevel)
(declaim
(optimize (speed 3) (space 1) (safety 1) (debug 0) (compilation-speed 0))))