Commit fc4eaa77 authored by Dave Cooper's avatar Dave Cooper

added setup-cffi

parent 2462c834
"(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :zacl)"
"(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :zacl)"
......@@ -4,7 +4,7 @@
"The Gendl® Common Lisp Portability" :author
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170802" :depends-on
:version "20170828" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :zacl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings #-(or allegro ccl sbcl) :acl-compat #+(or ccl sbcl) :zacl)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode (#-(or allegro ccl sbcl) :acl-compat #+(or ccl sbcl) :zacl)
......
("cffi")
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:setup-cffi :description
"The Gendl® setup-cffi Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20170828" :depends-on (:cffi)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components ((:file "source/setup")))
(in-package :cffi)
(defun %exe-path% ()
#+sbcl (make-pathname :name nil :type nil :defaults sb-ext:*core-pathname*)
#+ccl (make-pathname :name nil :type nil :defaults (first (ccl::command-line-arguments)))
#+allegro (translate-logical-pathname "sys:")
#+lispworks (make-pathname :name nil :type nil :defaults (first system:*line-arguments-list*)))
(pushnew (merge-pathnames (format nil "dlls/~a/" (if (member :32-bit-target *features*) "32" "64"))
(%exe-path%))
cffi:*foreign-library-directories*)
(define-foreign-library libeay32
(:windows "libeay32.dll"))
(use-foreign-library libeay32)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment