darcs - qt.examples

1 ;; :weakly-depends-on loaded the system to late to use #+feature for

2 ;; components; thus we load them earlyer.

3 (dolist (system '(:cl-smoke.qt.webkit :cl-smoke.qt.uitools

4 :cl-smoke.qt.phonon))

5 (when (asdf:find-system system nil)

6 (asdf:oos 'asdf:load-op system)))

8 (defsystem :cl-smoke.qt.examples

9 :name :cl-smoke.qt.examples

10 :version (0 0 1)

11 :author "Tobias Rautenkranz"

12 :license "X11 & GPL"

13 :description "Qt examples."

14 :depends-on (:cl-smoke.qt.gui)

15 ;;:cl-opengl :cl-glu :cl-smoke.qt.opengl)

17 :components

18 ((:module "src"

19 :components

20 ((:file "package")

21 (:file "hello-world" :depends-on ("package"))

22 #+qt.phonon

23 (:file "video" :depends-on ("package"))

24 (:file "hello-world-quit" :depends-on ("package"))

25 (:file "i18n-hello-world" :depends-on ("package"))

26 (:file "tick-tack-toe" :depends-on ("package"))

27 (:file "launcher" :depends-on ("package"))

28 #+qt.uitools

29 (:file "ui" :depends-on ("package"))

30 (:file "repl" :depends-on ("package"))

31 #+qt.webkit

32 (:file "class-browser" :depends-on ("package"))

33 (:module "qt"

34 :depends-on ("package")

35 :components

36 ((:file "analog-clock")

37 (:file "xmlstreamlint")

38 (:file "colliding-mice")))))))

39 ;;(:module "origami"

40 ;; :depends-on ("package")

41 ;; :components

42 ;; ((:file "origami" :depends-on ("tri"))

43 ;; (:file "tri")))))))

45 (defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.qt.examples))))

46 (funcall (intern (string :test-all) (string :qt.examples))))