split package/lib, starting on grovel file (successful sofar)

Author: orthecreedence

cl-libuv.asd

@@ -1,11 +1,16 @@
+(cl:eval-when (:load-toplevel :execute)
+  (asdf:operate 'asdf:load-op 'cffi-grovel))
+
 (asdf:defsystem cl-libuv
   :author "Andrew Danger Lyon <[email protected]>"
   :license "MIT"
   :version "0.1.5"
   :description "Low-level libuv bindings for Common Lisp."
   :depends-on (#:cffi #:alexandria)
-  :components ((:file "libuv")
-               (:file "wrapper" :depends-on ("libuv"))
+  :components ((:file "package")
+               (:file "lib" :depends-on ("package"))
+               (cffi-grovel:grovel-file "grovel" :depends-on ("package"))
+               (:file "wrapper" :depends-on ("package" "grovel"))
                (:file "bindings" :depends-on ("wrapper"))
                (:file "win-error" :depends-on ("wrapper"))
                (:file "exports" :depends-on ("bindings" "win-error"))

grovel.lisp

@@ -0,0 +1,9 @@
+(in-package :libuv-grovel)
+
+#+windows
+(progn
+  (cc-flags "-Ic:/include/"
+            "-Ic:/include/uv/"))
+
+(include "uv.h")
+

lib.lisp

@@ -0,0 +1,15 @@
+(in-package :libuv)
+
+(eval-when (:load-toplevel)
+  (define-foreign-library libuv
+    (:darwin (:or "libuv.dylib"))
+    (:unix (:or "libuv.so"
+                "/usr/lib/libuv.so"
+                "/usr/local/lib/libuv.so"
+                ; brew's install of libevent on Mac OX X
+                "/usr/local/lib/libuv.dylib"))
+    (:windows (:or "libuv.dll"))
+    (t (:default "libuv")))
+  (unless (foreign-library-loaded-p 'libuv)
+    (use-foreign-library libuv)))
+

libuv.lisp

@@ -0,0 +1,27 @@
+(defpackage #:libuv-grovel
+  (:use :cl :cffi-grovel))
+
+(defpackage #:libuv
+  (:use :cl :cffi :libuv-grovel)
+  (:nicknames :uv)
+  (:export #:+af-unspec+
+           #:+af-unix+
+           #:+af-inet+
+           #:+af-inet-6+
+           #:+sock-stream+
+           #:+ipproto-tcp+
+
+           #:errval
+           #:alloc-uv-buf
+           #:uv-buf-read
+           #:free-uv-buf
+           #:alloc-handle
+           #:alloc-req
+           #:free-handle
+           #:free-req
+           #:handle-type))
+
+(defpackage #:libuv.accessors
+  (:use :cl :cffi :libuv :libuv-grovel)
+  (:nicknames :uv-a))
+