repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Load qt.webkit, .uitools & .phonon optionaly.
Annotate for file /cl-smoke.qt.examples.asd
2010-02-08 tobias
1
;; :weakly-depends-on loaded the system to late to use #+feature for
17:04:52 '
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)))
'
7
2010-01-10 tobias
8
(defsystem :cl-smoke.qt.examples
08:54:26 '
9
:name :cl-smoke.qt.examples
2009-12-13 tobias
10
:version (0 0 1)
12:47:57 '
11
:author "Tobias Rautenkranz"
2010-01-23 tobias
12
:license "X11 & GPL"
2009-12-13 tobias
13
:description "Qt examples."
2010-02-08 tobias
14
:depends-on (:cl-smoke.qt.gui)
2010-01-10 tobias
15
;;:cl-opengl :cl-glu :cl-smoke.qt.opengl)
2009-12-13 tobias
16
12:47:57 '
17
:components
'
18
((:module "src"
'
19
:components
'
20
((:file "package")
'
21
(:file "hello-world" :depends-on ("package"))
2010-02-08 tobias
22
#+qt.phonon
2009-12-13 tobias
23
(:file "video" :depends-on ("package"))
12:47:57 '
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"))
2010-02-08 tobias
28
#+qt.uitools
2009-12-13 tobias
29
(:file "ui" :depends-on ("package"))
12:47:57 '
30
(:file "repl" :depends-on ("package"))
2010-02-08 tobias
31
#+qt.webkit
2010-01-23 tobias
32
(:file "class-browser" :depends-on ("package"))
22:18:27 '
33
(:module "qt"
'
34
:depends-on ("package")
'
35
:components
2010-01-25 tobias
36
((:file "analog-clock")
2010-02-07 tobias
37
(:file "xmlstreamlint")
2010-01-25 tobias
38
(:file "colliding-mice")))))))
2010-01-10 tobias
39
;;(:module "origami"
08:54:26 '
40
;; :depends-on ("package")
'
41
;; :components
'
42
;; ((:file "origami" :depends-on ("tri"))
'
43
;; (:file "tri")))))))
'
44
'
45
(defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.qt.examples))))
'
46
(funcall (intern (string :test-all) (string :qt.examples))))