Fri Apr 3 00:17:16 CEST 2009 Tobias Rautenkranz * initial import diff -rN -u old-qt.uitools/qt.uitools.mbd new-qt.uitools/qt.uitools.mbd --- old-qt.uitools/qt.uitools.mbd 1970-01-01 01:00:00.000000000 +0100 +++ new-qt.uitools/qt.uitools.mbd 2014-10-30 08:01:44.000000000 +0100 @@ -0,0 +1,14 @@ +;;;; -*- Mode: lisp; indent-tabs-mode: nil -*- + +(in-package :sysdef-user) + +(define-system :qt.uitools () + (:version 0 0 1) + (:documentation "Use Qt Designer .ui files.") + (:author "Tobias Rautenkranz") + (:needs :qt) + (:components + ("src" module + (:components + "package" + ("qt.uitools" (:needs "package")))))) diff -rN -u old-qt.uitools/src/package.lisp new-qt.uitools/src/package.lisp --- old-qt.uitools/src/package.lisp 1970-01-01 01:00:00.000000000 +0100 +++ new-qt.uitools/src/package.lisp 2014-10-30 08:01:44.000000000 +0100 @@ -0,0 +1,3 @@ +(defpackage :qt.uitools + (:use :cl :asdf :smoke :cffi)) + diff -rN -u old-qt.uitools/src/qt.uitools.lisp new-qt.uitools/src/qt.uitools.lisp --- old-qt.uitools/src/qt.uitools.lisp 1970-01-01 01:00:00.000000000 +0100 +++ new-qt.uitools/src/qt.uitools.lisp 2014-10-30 08:01:44.000000000 +0100 @@ -0,0 +1,24 @@ +(in-package :qt.uitools) + +(eval-when (:load-toplevel :compile-toplevel) + (define-foreign-library libsmokeqtuitools + (:unix "libsmokeqtuitools.so.2") + (t (:default "libsmokeqtuitools"))) + (use-foreign-library libsmokeqtuitools) + + (defcvar "qtuitools_Smoke" :pointer + "The Smoke QtUiTools binding") + + (defcfun (init-qtuitools-smoke "_Z20init_qtuitools_Smokev") :void) + + (defvar *binding* (null-pointer)) + + (init-qtuitools-smoke)) + +(eval-when (:load-toplevel) + (when (null-pointer-p *binding*) + (setf *binding* (init *qtuitools-smoke*)) + (make-smoke-classes *qtuitools-smoke*))) + +(define-methods *qtuitools-smoke*) +