Initial port. Ebuild contributed by Matthew Kennedy <mkennedy@gentoo.org>; Resolves Bug #36691.

(Portage version: 2.1_pre2)

2 files changed, 108 insertions, 0 deletions

diff --git a/dev-lisp/cl-pdf/files/110-gentoo.patch b/dev-lisp/cl-pdf/files/110-gentoo.patch
new file mode 100644
index 000000000000..5e0822c14258
--- /dev/null
+++ b/dev-lisp/cl-pdf/files/110-gentoo.patch
@@ -0,0 +1,107 @@
+diff -ur cl-pdf-110.orig/cl-pdf.asd cl-pdf-110/cl-pdf.asd
+--- cl-pdf-110.orig/cl-pdf.asd	2005-12-30 17:54:52.000000000 -0600
++++ cl-pdf-110/cl-pdf.asd	2005-12-30 18:19:59.000000000 -0600
+@@ -4,45 +4,21 @@
+ ;;; You can reach me at marc.battyani@fractalconcept.com or marc@battyani.net
+ ;;; The homepage of cl-pdf is here: http://www.fractalconcept.com/asp/html/cl-pdf.html
+ 
+-(in-package asdf)
+-
+-;;;Choose the zlib implementation you want to use (only one!)
+-(pushnew :use-salza-zlib cl:*features*)
+-;(pushnew :use-uffi-zlib cl:*features*)
+-;(pushnew :use-abcl-zlib cl:*features*)
+-;(pushnew :use-no-zlib cl:*features*)
+-
+-#-(or use-uffi-zlib use-salza-zlib use-abcl-zlib use-no-zlib)
+-(Error "You must choose which zlib version you want to use")
+-
+-#-(or uffi (not use-uffi-zlib))
+-(ignore-errors
+-  (print "Trying to load UFFI:")
+-  (asdf:operate 'asdf:load-op :uffi)
+-  (pushnew :uffi cl:*features*)
+-  (print "UFFI loaded."))
+-
+-(load (merge-pathnames "iterate/iterate.asd" *load-truename*))
+-
+-#+use-salza-zlib
+-(load (merge-pathnames "salza/salza.asd" *load-truename*))
++(defpackage #:cl-pdf-system (:use #:common-lisp #:asdf))
++(in-package #:cl-pdf-system)
+ 
+ #+clisp (setf *warn-on-floating-point-contagion* nil)
+ 
+-(defsystem :cl-pdf
++(defsystem #:cl-pdf
+   :name "cl-pdf"
+   :author "Marc Battyani <marc.battyani@fractalconcept.com>"
+-  :version "2.0"
+   :maintainer "Marc Battyani <marc.battyani@fractalconcept.com>"
+   :licence "BSD like licence"
+   :description "Common Lisp PDF Generation Library"
+   :long-description "The cl-pdf package provides a stand-alone Common Lisp library to generate PDF files."
+-  :perform (load-op :after (op cl-pdf)
+-		    (pushnew :cl-pdf cl:*features*))
+   :components ((:file "defpackage")
+ 	       (:file "config" :depends-on ("defpackage"))
+-	       #+use-uffi-zlib (:file "init" :depends-on ("config"))
+-	       (:file "zlib" :depends-on ("defpackage" #+use-uffi-zlib "init"))
++	       (:file "zlib" :depends-on ("defpackage"))
+ 	       (:file "font-metrics"  :depends-on ("config"))
+ 	       (:file "encodings"  :depends-on ("defpackage"))
+ 	       (:file "t1-font" :depends-on ("font-metrics" "encodings"))
+@@ -56,4 +32,4 @@
+ 	       (:file "text" :depends-on ("pdf-base"))
+ 	       (:file "bar-codes" :depends-on ("pdf-geom"))
+ 	       (:file "chart" :depends-on ("text" "pdf-geom")))
+-  :depends-on (:iterate #+use-salza-zlib :salza))
++  :depends-on (#:iterate #:salza))
+diff -ur cl-pdf-110.orig/cl-pdf-parser.asd cl-pdf-110/cl-pdf-parser.asd
+--- cl-pdf-110.orig/cl-pdf-parser.asd	2005-12-30 17:54:52.000000000 -0600
++++ cl-pdf-110/cl-pdf-parser.asd	2005-12-30 18:24:04.000000000 -0600
+@@ -1,8 +1,9 @@
+ ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+ 
+-(in-package asdf)
++(defpackage #:cl-pdf-parser-system (:use #:common-lisp #:asdf))
++(in-package #:cl-pdf-parser-system)
+ 
+-(defsystem :cl-pdf-parser
++(defsystem #:cl-pdf-parser
+   :name "cl-pdf-parser"
+   :author "Marc Battyani <marc.battyani@fractalconcept.com>"
+   :maintainer "Marc Battyani <marc.battyani@fractalconcept.com>"
+@@ -10,4 +11,4 @@
+   :long-description "PDF parser"
+   :components ((:file "pdf-parser" :depends-on ())
+                (:file "pdf-template" :depends-on ("pdf-parser")))
+-  :depends-on (:cl-pdf))
++  :depends-on (#:cl-pdf))
+diff -ur cl-pdf-110.orig/config.lisp cl-pdf-110/config.lisp
+--- cl-pdf-110.orig/config.lisp	2005-12-30 17:54:52.000000000 -0600
++++ cl-pdf-110/config.lisp	2005-12-30 18:26:52.000000000 -0600
+@@ -32,7 +32,7 @@
+ ;; The *afm-files-directories* is only for the 14 predefined fonts.
+ ;; other fonts must have their afm files read only when they are loaded
+ (defparameter *afm-files-directories*
+-  (list (merge-pathnames #P"afm/*.afm" *cl-pdf-base-directory*))
++  '(#p"/usr/share/fonts/afm/")
+   "The directory containing the Adobe Font Metrics files for the 14 predefined fonts")
+ 
+ ;; define the :pdf-binary feature if your Lisp implementation accepts
+diff -ur cl-pdf-110.orig/zlib.lisp cl-pdf-110/zlib.lisp
+--- cl-pdf-110.orig/zlib.lisp	2005-12-30 17:54:52.000000000 -0600
++++ cl-pdf-110/zlib.lisp	2005-12-30 18:21:53.000000000 -0600
+@@ -79,11 +79,9 @@
+ 
+ ;;; salza zlib
+ 
+-#+use-salza-zlib
+ (defun load-zlib (&optional force)
+   (setf *compress-streams* t))
+ 
+-#+use-salza-zlib
+ (defun compress-string (string)
+   (let* ((input (if (stringp string)
+ 		    (deflate::string-to-octets string 0 (length string))
diff --git a/dev-lisp/cl-pdf/files/digest-cl-pdf-110 b/dev-lisp/cl-pdf/files/digest-cl-pdf-110
new file mode 100644
index 000000000000..f97242d09987
--- /dev/null
+++ b/dev-lisp/cl-pdf/files/digest-cl-pdf-110
@@ -0,0 +1 @@
+MD5 f640a5e7f0d60d2f43b1445ee60a2ea0 cl-pdf-110.tar.bz2 641436