Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
cl-pdf: Oops, some files were accidentally missed in previous cleanup…
… commit.

git-svn-id: http://www.fractalconcept.com:8000/public/open-source/cl-pdf@125 9d29c65d-f3d6-0310-ab0c-b43ff62e96ec
  • Loading branch information
attila.lendvai committed Dec 10, 2006
1 parent bf7b3cc commit 44d3441
Show file tree
Hide file tree
Showing 7 changed files with 31 additions and 16 deletions.
2 changes: 1 addition & 1 deletion bar-codes.lisp
Expand Up @@ -4,7 +4,7 @@

;; code 128 barcode from Lars Rustemeier

(in-package pdf)
(in-package #:pdf)

;;
;; Utils
Expand Down
27 changes: 17 additions & 10 deletions cl-pdf.asd
Expand Up @@ -4,22 +4,29 @@
;;; 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)
(in-package :common-lisp-user)

(defpackage #:cl-pdf-system
(:use #:cl #:asdf))

(in-package #:cl-pdf-system)

;;;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*)
(eval-when (:load-toplevel :compile-toplevel :execute)
(pushnew :use-salza-zlib *features*)
;;(pushnew :use-uffi-zlib *features*)
;;(pushnew :use-abcl-zlib *features*)
;;(pushnew :use-no-zlib *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")
(error "You must choose which zlib implementation you want to use!")

#-(or uffi (not use-uffi-zlib))
#+(and (not uffi) use-uffi-zlib)
(ignore-errors
(print "Trying to load UFFI:")
(asdf:operate 'asdf:load-op :uffi)
(pushnew :uffi cl:*features*)
(operate 'load-op :uffi)
(pushnew :uffi *features*)
(print "UFFI loaded."))

(load (merge-pathnames "iterate/iterate.asd" *load-truename*))
Expand All @@ -38,7 +45,7 @@
: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*))
(pushnew :cl-pdf *features*))
:components ((:file "defpackage")
(:file "config" :depends-on ("defpackage"))
#+use-uffi-zlib (:file "init" :depends-on ("config"))
Expand Down
7 changes: 6 additions & 1 deletion config.lisp
Expand Up @@ -2,7 +2,7 @@
;;; 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 pdf)
(in-package #:pdf)

;;; This file contains some special variables which need to be set
;;; depending on your Lisp implementation/OS/installation.
Expand All @@ -23,6 +23,11 @@
(defvar *compress-streams* nil
"Enables the internal streams compression by zlib")

(defvar *embed-fonts* :default
"t, nil, or :default (let make-font-dictionary and font-descriptor decide for themselves)")

(defvar *compress-fonts* t "nil or decode filter designator")

;the cl-pdf base directory
(defvar *cl-pdf-base-directory*
(make-pathname :name nil :type nil :version nil
Expand Down
2 changes: 1 addition & 1 deletion init.lisp
Expand Up @@ -2,7 +2,7 @@
;;; 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 pdf)
(in-package #:pdf)

(defvar *zlib-loaded* nil)

Expand Down
2 changes: 1 addition & 1 deletion pdf-geom.lisp
Expand Up @@ -2,7 +2,7 @@
;;; 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 pdf)
(in-package #:pdf)

;;; Geometry functions contributed by Eduardo Muñoz

Expand Down
2 changes: 1 addition & 1 deletion x11-colors.lisp
@@ -1,4 +1,4 @@
(in-package :pdf)
(in-package #:pdf)

#-lispworks
(defvar *x11-colors*
Expand Down
5 changes: 4 additions & 1 deletion zlib.lisp
Expand Up @@ -2,7 +2,7 @@
;;; 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 pdf)
(in-package #:pdf)

;;; UFFI zlib

Expand Down Expand Up @@ -58,6 +58,7 @@

#+use-abcl-zlib
(defun load-zlib (&optional force)
(declare (ignore force))
(setf *compress-streams* t))

#+use-abcl-zlib
Expand All @@ -81,6 +82,7 @@

#+use-salza-zlib
(defun load-zlib (&optional force)
(declare (ignore force))
(setf *compress-streams* t))

#+use-salza-zlib
Expand All @@ -103,6 +105,7 @@
;;; no-zlib
#+use-no-zlib
(defun load-zlib (&optional force)
(declare (ignore force))
(setf *compress-streams* nil))

#+use-no-zlib
Expand Down

0 comments on commit 44d3441

Please sign in to comment.