@@ -1,3 +1,42 @@

+(in-package :cl-user)

+(defpackage cl-yaml-asd

+  (:use :cl :asdf))

+(in-package :cl-yaml-asd)

+

+(defclass c->so (source-file) ())

+

+(defmethod source-file-type ((c c->so) (s module)) "c")

+

+(defmethod output-files ((operation compile-op) (f c->so))

+  (values

+    (list

+      (make-pathname :name "yaml_wrapper"

+                     :type #+unix "so" #+darwin "dylib" #+windows "dll"

+                     :defaults (component-pathname f))) t))

+

+(defmethod perform ((o load-op) (c c->so)) t)

+

+(defparameter +c-flags+ "-Wall -Wextra -c -fPIC -O3 -ansi")

+(defparameter +linker-flags+ "-lyaml")

+

+(defun comp (file out)

+  (format t "clang ~A -o out.o ~A; clang out.o -shared -o ~A ~A"

+          (namestring file) +c-flags+ (namestring out) +linker-flags+)

+  (format nil "clang ~A -o out.o ~A && clang out.o -shared -o ~A ~A && rm out.o"

+          (namestring file) +c-flags+ (namestring out) +linker-flags+))

+

+(defmethod perform ((o compile-op) (c c->so))

+  (if (not (zerop (run-shell-command

+                   (comp (make-pathname :name "yaml"

+                                        :type "c"

+                                        :defaults

+                                        (merge-pathnames

+                                         "src"

+                                         (component-pathname c)))

+                         (namestring (car (output-files o c)))))))

+      (error 'operation-error :component c :operation o)

+      t))

+

 (defsystem cl-yaml

   :version "0.1"

   :author "Fernando Borretti"

@@ -9,8 +48,9 @@

   :components ((:module "src"

                 :serial t

                 :components

-                ((:file "yaml")

-                 (:file "cl-yaml")))

+                ((:static-file "yaml.h")

+                 (c->so "yaml" :depends-on ("yaml.h"))

+                 (:file "ffi")))

                (:module "spec"))

   :description ""

   :long-description