Sat Apr 3 19:19:09 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Replace mudballs with ASDF and support the modular Smoke.
hunk ./kde.examples.mbd 1
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-
-(in-package :sysdef-user)
-
-(define-system :kde.examples ()
- (:version 0 0 1)
- (:documentation "KDE examples.")
- (:keywords "KDE")
- (:author "Tobias Rautenkranz")
- (:license "GPL")
- (:needs :kde)
- (:components
- ("src" module
- (:components
- "package"
- ("hello-world" (:needs "package"))
- ("mandelbrot" module
- (:needs "package")
- (:components
- "render"
- ("mandelbrotwidget" (:needs "render"))
- ("mandelbrot" (:needs "mandelbrotwidget"))))))))
rmfile ./kde.examples.mbd
hunk ./src/hello-world.lisp 4
-(in-package :kde.examples)
+(in-package :cl-smoke.kde.examples)
hunk ./src/hello-world.lisp 7
+ "KDE Hello World"
hunk ./src/kmandelbrot/kmandelbrotui.rc 24
-(kde:kstandardaction.name kde:kstandardaction.+zoomin+)
+(kde:standard-action.name kde:standard-action.+zoom-in+)
hunk ./src/mandelbrot/mandelbrot.lisp 1
-;;; Copyright (C) 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
+;;; Copyright (C) 2009, 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
hunk ./src/mandelbrot/mandelbrot.lisp 16
-(in-package :kde.examples)
-
-(declaim (optimize (debug 3)))
+(in-package :cl-smoke.kde.examples)
hunk ./src/mandelbrot/mandelbrot.lisp 42
+ "KDE Mandelbrot example"
hunk ./src/mandelbrot/mandelbrot.lisp 46
- (resource-dir (directory-namestring
- (mb.sysdef:component-pathname
- (mb.sysdef:find-component :kde.examples "src")))))
- [_$_]
+ (resource-dir [_$_]
+ (namestring
+ (asdf:component-pathname
+ (asdf:find-component
+ (asdf:find-component (asdf:find-system :cl-smoke.kde.examples)
+ "src")
+ "kmandelbrot")))))
hunk ./src/mandelbrot/mandelbrot.lisp 81
- (qt:exec window))))
+ (qt:exec))))
hunk ./src/mandelbrot/mandelbrotwidget.lisp 16
-(in-package :kde.examples)
-(declaim (optimize (debug 3)))
+(in-package :cl-smoke.kde.examples)
hunk ./src/mandelbrot/mandelbrotwidget.lisp 130
- (when (logand (cxx:buttons event) (value qt:+left-button+))
+ (when (and (logand (cxx:buttons event) (value qt:+left-button+))
+ (last-drag-pos widget))
hunk ./src/mandelbrot/render.lisp 17
-(in-package :kde.examples)
+(in-package :cl-smoke.kde.examples)
hunk ./src/package.lisp 24
-(defpackage :kde.examples
+(defpackage :cl-smoke.kde.examples
hunk ./src/package.lisp 26
+ (:nicknames :kde.examples)
hunk ./src/package.lisp 29
+
+(in-package :cl-smoke.kde.examples)
+
+(defun test-all ()
+ (let ((qt:*exec-p* nil))
+ (do-external-symbols (example :cl-smoke.kde.examples)
+ (when (fboundp example)
+ (format *debug-io* "testing ~A~%"
+ (documentation (symbol-function example)
+ 'function))
+ (funcall (symbol-function example))))))
addfile ./test.lisp
hunk ./test.lisp 1
+#|
+exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"
+# Used for testing on darcs record.
+|#
+
+(asdf:operate 'asdf:load-op :cl-smoke.kde.examples)
+(asdf:operate 'asdf:test-op :cl-smoke.kde.examples)
+
+(sb-ext:quit)
changepref test
sh test.lisp