Fri Apr 3 00:17:38 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
diff -rN -u old-qt.webkit/qt.webkit.mbd new-qt.webkit/qt.webkit.mbd
--- old-qt.webkit/qt.webkit.mbd 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.webkit/qt.webkit.mbd 2014-10-30 07:04:21.000000000 +0100
@@ -0,0 +1,16 @@
+;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+
+(in-package :sysdef-user)
+
+(define-system :qt.webkit ()
+ (:version 0 0 1)
+ (:documentation "QtWebkit Web browser engine.")
+ (:keywords "Qt" "GUI" "Webkit" "browser" "html")
+ (:author "Tobias Rautenkranz")
+ (:license "X11")
+ (:needs :qt)
+ (:components
+ ("src" module
+ (:components
+ "package"
+ ("qt.webkit" (:needs "package"))))))
diff -rN -u old-qt.webkit/src/package.lisp new-qt.webkit/src/package.lisp
--- old-qt.webkit/src/package.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.webkit/src/package.lisp 2014-10-30 07:04:21.000000000 +0100
@@ -0,0 +1,3 @@
+(defpackage :qt.webkit
+ (:use :cl :asdf :smoke :cffi))
+
diff -rN -u old-qt.webkit/src/qt.webkit.lisp new-qt.webkit/src/qt.webkit.lisp
--- old-qt.webkit/src/qt.webkit.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.webkit/src/qt.webkit.lisp 2014-10-30 07:04:21.000000000 +0100
@@ -0,0 +1,21 @@
+(in-package :qt.webkit)
+
+(eval-when (:load-toplevel :compile-toplevel)
+(define-foreign-library libsmokeqtwebkit
+ (:unix "libsmokeqtwebkit.so.2")
+ (t (:default "libsmokeqtwebkit")))
+(use-foreign-library libsmokeqtwebkit)
+
+(defcvar "qtwebkit_Smoke" :pointer
+ "The Smoke QtWebkit binding")
+
+(defcfun (init-qtwebkit-smoke "_Z19init_qtwebkit_Smokev") :void)
+
+(defvar *binding* (null-pointer))
+
+ (init-qtwebkit-smoke)
+ (when (null-pointer-p *binding*)
+ (setf *binding* (init *qtwebkit-smoke*))
+ (make-smoke-classes *qtwebkit-smoke*)))
+
+(define-methods *qtwebkit-smoke*)