diff options
Diffstat (limited to 'dev-lisp/cl-ncurses/files')
| -rw-r--r-- | dev-lisp/cl-ncurses/files/cl-ncurses-0.1.1-gentoo.patch | 126 | ||||
| -rw-r--r-- | dev-lisp/cl-ncurses/files/digest-cl-ncurses-0.1.1 | 1 |
2 files changed, 127 insertions, 0 deletions
diff --git a/dev-lisp/cl-ncurses/files/cl-ncurses-0.1.1-gentoo.patch b/dev-lisp/cl-ncurses/files/cl-ncurses-0.1.1-gentoo.patch new file mode 100644 index 000000000000..52f3b022a949 --- /dev/null +++ b/dev-lisp/cl-ncurses/files/cl-ncurses-0.1.1-gentoo.patch @@ -0,0 +1,126 @@ +diff -urN cl-ncurses_0.1.1.orig/Makefile cl-ncurses_0.1.1/Makefile +--- cl-ncurses_0.1.1.orig/Makefile 2004-03-07 17:24:47.000000000 -0600 ++++ cl-ncurses_0.1.1/Makefile 2004-05-09 14:04:58.806607224 -0500 +@@ -1,8 +1,16 @@ + NAME=cl-ncurses + SOURCES=ncurses.asd *.lisp glue.c README LICENSE Makefile + +-all: glue.o ++CFLAGS=-fPIC -DPIC ++LDFLAGS=-shared -L/lib -lncurses + ++glue.so: glue.o ++ $(LD) $(LDFLAGS) $^ -o $@ ++ ++.PHONY: dist clean ++ ++clean: ++ -rm -f glue.so glue.o *.fasl *.x86f *~ + dist: + mkdir $(NAME) + cp $(SOURCES) $(NAME)/ +diff -urN cl-ncurses_0.1.1.orig/cl-ncurses.asd cl-ncurses_0.1.1/cl-ncurses.asd +--- cl-ncurses_0.1.1.orig/cl-ncurses.asd 2004-03-09 12:49:46.000000000 -0600 ++++ cl-ncurses_0.1.1/cl-ncurses.asd 2004-05-09 13:56:44.541746904 -0500 +@@ -25,30 +25,6 @@ + + (in-package :asdf) + +-(defvar *gcc* "/usr/bin/gcc") +- +-(defvar *gcc-options* '(#-darwin "-shared" +- #+darwin "-bundle" +- "-fPIC")) +- +-(defmethod output-files ((o compile-op) (c c-source-file)) +- (list (make-pathname :name (component-name c) +- :type "so" +- :defaults (component-pathname c)))) +- +-(defmethod perform ((o load-op) (c c-source-file)) +- (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi))) +- (dolist (f (input-files o c)) +- (funcall loader f)))) +- +-(defmethod perform ((o compile-op) (c c-source-file)) +- (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A" +- *gcc* +- (namestring (component-pathname c)) +- *gcc-options* +- (namestring (car (output-files o c))))) +- (error 'operation-error :component c :operation o))) +- + (defsystem :cl-ncurses + :version "0.1.1" + :depends-on (:uffi) +@@ -77,7 +53,8 @@ + (:file "getcchar" :depends-on ("package")) + (:file "getch" :depends-on ("package")) + (:file "getstr" :depends-on ("glue")) +- (:c-source-file "glue") ++ (:file "glue-loader") ++ (:file "glue" :depends-on ("glue-loader")) + (:file "getyx" :depends-on ("package" "glue")) + (:file "in_wch" :depends-on ("package")) + (:file "in_wchstr" :depends-on ("package")) +diff -urN cl-ncurses_0.1.1.orig/glue-loader.lisp cl-ncurses_0.1.1/glue-loader.lisp +--- cl-ncurses_0.1.1.orig/glue-loader.lisp 1969-12-31 18:00:00.000000000 -0600 ++++ cl-ncurses_0.1.1/glue-loader.lisp 2004-05-09 13:57:48.397039424 -0500 +@@ -0,0 +1,45 @@ ++;;;; -*- mode: lisp; syntax: common-lisp; indent-tabs-mode: nil; base: 10; package: CL-NCURSES -*- ++ ++;;;; Author: Matthew Kennedy <mkennedy@gentoo.org> ++;;;; ++;;;; This code is adapted from clsql-uffi-loader.lisp which is part of ++;;;; CLSQL. clsql-uffi-loader.lisp comes with the following ++;;;; copyright: ++;;;; ++;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ++;;;; ++;;;; CLSQL users are granted the rights to distribute and use this ++;;;; software as governed by the terms of the Lisp Lesser GNU ++;;;; Public License (http://opensource.franz.com/preamble.html), ++;;;; also known as the LLGPL. ++;;;; ++ ++(in-package #:cl-ncurses) ++ ++(defparameter *uffi-library-path* ++ `(,(make-pathname :directory (pathname-directory *load-truename*)) ++ "/usr/lib/cl-ncurses/")) ++ ++(defparameter *uffi-library-filename* nil) ++ ++(defvar *uffi-supporting-libraries* '("c")) ++ ++(defvar *uffi-library-loaded* nil ++ "T if foreign library was able to be loaded successfully") ++ ++(defun load-uffi-foreign-library (&optional force) ++ (when force (setf *uffi-library-loaded* nil)) ++ (unless *uffi-library-loaded* ++ (setf *uffi-library-filename* (find-foreign-library "glue" *uffi-library-path*)) ++ (unless (probe-file *uffi-library-filename*) ++ (error "Unable to find glue.so")) ++ (if (load-foreign-library *uffi-library-filename* ++ :module "cl-ncurses" ++ :supporting-libraries ++ *uffi-supporting-libraries*) ++ (setq *uffi-library-loaded* t) ++ (error "Unable to load helper library ~A" *uffi-library-filename*)))) ++ ++(load-uffi-foreign-library) ++ ++;; glue-loader.lisp ends here +diff -urN cl-ncurses_0.1.1.orig/package.lisp cl-ncurses_0.1.1/package.lisp +--- cl-ncurses_0.1.1.orig/package.lisp 2004-03-09 12:50:30.000000000 -0600 ++++ cl-ncurses_0.1.1/package.lisp 2004-05-09 14:06:41.291027224 -0500 +@@ -29,7 +29,7 @@ + + (in-package :cl-ncurses) + +-(defvar *ncurses-search-paths* '("/usr/local/lib/" "/usr/lib/" "/lib/") ++(defvar *ncurses-search-paths* '("/lib/") + "The paths where to search the ncurses shared library") + + (defparameter *ncurses-path* diff --git a/dev-lisp/cl-ncurses/files/digest-cl-ncurses-0.1.1 b/dev-lisp/cl-ncurses/files/digest-cl-ncurses-0.1.1 new file mode 100644 index 000000000000..b2a0f5782128 --- /dev/null +++ b/dev-lisp/cl-ncurses/files/digest-cl-ncurses-0.1.1 @@ -0,0 +1 @@ +MD5 165275405aa2089e42aee453523ad35a cl-ncurses_0.1.1.tgz 21124 |