Skip to content
Browse files

Merge pull request #5 from AlexCharlton/master

Separate ASDF file into cl-devil.asd, cl-ilu.asd and cl-ilut.asd
  • Loading branch information...
2 parents 9e8d7f2 + fe5ce3b commit 0e326c6c911299883852ebf2e33d48f8680f995d @zkat committed
Showing with 77 additions and 69 deletions.
  1. +0 −3 cl-devil.asd
  2. +7 −0 cl-ilu.asd
  3. +7 −0 cl-ilut.asd
  4. +40 −0 ilu.lisp
  5. +23 −0 ilut.lisp
  6. +0 −66 package.lisp
View
3 cl-devil.asd
@@ -7,7 +7,4 @@
((:file "package")
(:file "internal" :depends-on ("package"))
(:file "il" :depends-on ("package" "internal"))
- (:file "ilu" :depends-on ("package" "internal" "il"))
- (:file "ilut" :depends-on ("package" "internal" "il"))
(:file "utilities" :depends-on ("package" "il"))))
-
View
7 cl-ilu.asd
@@ -0,0 +1,7 @@
+;;;; -*- Lisp -*-
+;;;; cl-ilu -- libILU binding for CL. See README for licensing information.
+
+(asdf:defsystem cl-ilu
+ :depends-on (#:cffi #:alexandria #:cl-devil)
+ :components
+ ((:file "ilu")))
View
7 cl-ilut.asd
@@ -0,0 +1,7 @@
+;;;; -*- Lisp -*-
+;;;; cl-ilut -- libILUT binding for CL. See README for licensing information.
+
+(asdf:defsystem cl-ilut
+ :depends-on (#:cffi #:alexandria #:cl-devil)
+ :components
+ ((:file "ilut")))
View
40 ilu.lisp
@@ -1,4 +1,44 @@
;;;; cl-devil -- DevIL binding for CL. See README for licensing information.
+(defpackage #:ilu
+ (:use #:cl #:cffi #:%il)
+ (:shadow #:error)
+ (:export
+ :init
+ :alienify
+ :blur-avg
+ :blur-gaussian
+ :build-mipmaps
+ :colours-used
+ :colors-used
+ :compare-image
+ :contrast
+ :crop
+ :delete-image
+ :edge-detect-p
+ :edge-detect-s
+ :emboss
+ :enlarge-canvas
+ :error-string
+ :flip-image
+ :gamma-correct-inter
+ :gamma-correct-scale
+ :gen-image
+ :get-integer
+ :invert-alpha
+ :mirror
+ :negative
+ :noisify
+ :pixelsize
+ :rotate
+ :saturate
+ :scale
+ :sharpen
+ :swap-colours
+ :swap-colors
+ ;; :get-image-info
+ ;; :get-string
+ :image-parameter
+ ))
(in-package :ilu)
View
23 ilut.lisp
@@ -1,4 +1,27 @@
;;;; cl-devil -- DevIL binding for CL. See README for licensing information.
+(defpackage #:ilut
+ (:use #:cl #:cffi #:%il)
+ (:shadow #:error)
+ (:export
+ #:CONVERT-TO-SDL-SURFACE
+ #:DISABLE
+ #:ENABLE
+ #:GET-BOOLEAN
+ #:GL-BIND-MIPMAPS
+ #:GL-BIND-TEX-IMAGE
+ #:GL-BUILD-MIPMAPS
+ #:GL-LOAD-IMAGE
+ #:GL-SAVE-IMAGE
+ #:GL-SCREEN
+ #:GL-SCREENIE
+ #:GL-SET-TEX
+ #:GL-SUB-TEX
+ #:GL-TEX-IMAGE
+ #:INIT
+ #:RENDERER
+ #:SDL-SURFACE-FROM-BITMAP
+ #:SDL-SURFACE-LOAD-IMAGE
+ ))
(in-package :ilut)
View
66 package.lisp
@@ -96,69 +96,3 @@
#:lib-mng-error
#:unknown-error
))
-
-(defpackage #:ilu
- (:use #:cl #:cffi #:%il)
- (:shadow #:error)
- (:export
- :init
- :alienify
- :blur-avg
- :blur-gaussian
- :build-mipmaps
- :colours-used
- :colors-used
- :compare-image
- :contrast
- :crop
- :delete-image
- :edge-detect-p
- :edge-detect-s
- :emboss
- :enlarge-canvas
- :error-string
- :flip-image
- :gamma-correct-inter
- :gamma-correct-scale
- :gen-image
- :get-integer
- :invert-alpha
- :mirror
- :negative
- :noisify
- :pixelsize
- :rotate
- :saturate
- :scale
- :sharpen
- :swap-colours
- :swap-colors
- ;; :get-image-info
- ;; :get-string
- :image-parameter
- ))
-
-(defpackage #:ilut
- (:use #:cl #:cffi #:%il)
- (:shadow #:error)
- (:export
- #:CONVERT-TO-SDL-SURFACE
- #:DISABLE
- #:ENABLE
- #:GET-BOOLEAN
- #:GL-BIND-MIPMAPS
- #:GL-BIND-TEX-IMAGE
- #:GL-BUILD-MIPMAPS
- #:GL-LOAD-IMAGE
- #:GL-SAVE-IMAGE
- #:GL-SCREEN
- #:GL-SCREENIE
- #:GL-SET-TEX
- #:GL-SUB-TEX
- #:GL-TEX-IMAGE
- #:INIT
- #:RENDERER
- #:SDL-SURFACE-FROM-BITMAP
- #:SDL-SURFACE-LOAD-IMAGE
- ))
-

0 comments on commit 0e326c6

Please sign in to comment.
Something went wrong with that request. Please try again.