dense-arrays/dense-arrays.asd at main · digikar99/dense-arrays · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
(defsystem "dense-arrays"
  :author "Shubhamkar B. Ayare"
  :description "Numpy like array objects for Common Lisp"
  :license "MIT"
  :version "0.4.0" ; beta
  :defsystem-depends-on ("alternate-asdf-system-connections")
  :depends-on ("abstract-arrays"
               "alexandria"
               "closer-mop"
               "fiveam"
               "iterate"
               "peltadot"
               "peltadot-traits-library"
               "trivial-garbage"
               "uiop"
               "float-features")
  :serial t
  :components ((:module "src"
                :serial t
                :components ((:file "package")
                             (:file "protocol")
                             (:file "types")
                             (:file "dense-arrays")
                             (:file "broadcast")
                             (:file "do-arrays")
                             (:file "argwhere")
                             (:file "aref")
                             (:file "copy")
                             (:file "unupgraded")))
               (:module "optim"
                :serial t
                :components ((:file "misc")
                             (:file "aref")
                             (:file "unupgraded"))))
  :perform (test-op (o c)
             (declare (ignore o c))
             (eval (read-from-string "(LET ((5AM:*ON-ERROR* :DEBUG)
                                            (5AM:*ON-FAILURE* :DEBUG))
                                       (DOLIST (DENSE-ARRAYS:*ARRAY-LAYOUT*
                                                 '(:ROW-MAJOR :COLUMN-MAJOR))
                                         (FORMAT T \"Running tests with *ARRAY-LAYOUT* bound to ~S\"
                                                 DENSE-ARRAYS:*ARRAY-LAYOUT*)
                                         (5AM:RUN! :DENSE-ARRAYS)))"))))

(define-system-connection "dense-arrays/magicl"
  :requires ("dense-arrays" "magicl")
  :description "Exports 4 additional symbols from DENSE-ARRAYS package:
- MAGICL-FUNCALL
- MAGICL-DENSE-ARRAY
- MAGICL-ARRAY
- SIMPLE-MAGICL-ARRAY"
  :author "Shubhamkar B. Ayare"
  :license "MIT"
  :version "0.0.0" ; alpha - no versioning maintained at the moment
  :serial t
  :components ((:module "plus"
                :components ((:file "magicl")))))

(define-system-connection "dense-arrays/static-vectors"
  :author "Shubhamkar B. Ayare"
  :license "MIT"
  :version "0.0.0"
  :requires ("dense-arrays" "static-vectors")
  :serial t
  :pathname #P"plus/"
  :components ((:file "static-vectors"))
  :perform (test-op (o c)
             (declare (ignore o c))
             (eval (read-from-string "(LET ((DENSE-ARRAYS:*DENSE-ARRAY-CLASS*
                                              (FIND-CLASS 'DENSE-ARRAYS::STATIC-DENSE-ARRAY))
                                            (5AM:*ON-ERROR* :DEBUG)
                                            (5AM:*ON-FAILURE* :DEBUG))
                                        (5AM:RUN :DENSE-ARRAYS))"))))

(define-system-connection "dense-arrays/py4cl2"
  :requires ("dense-arrays" "py4cl2")
  :depends-on ("dense-arrays-plus-lite")
  :components ((:file "plus/py4cl2")))

(define-system-connection "dense-arrays/py4cl2-cffi"
  :requires ("dense-arrays" "py4cl2-cffi")
  :components ((:file "plus/py4cl2-cffi")))

(define-system-connection "dense-arrays/cl-cuda"
  :requires ("cl-cuda" "dense-arrays")
  :pathname #P"plus/"
  :components ((:file "cl-cuda"))
  :perform (test-op (o c)
                    (declare (ignore o c))
                    ;; Other tests won't pass because do-arrays is a compile time thing.
                    ;; Or, they make certain assumptions about the backend.
                    (eval (read-from-string "(LET ((CL-CUDA:*SHOW-MESSAGES* NIL)
                                            (DENSE-ARRAYS:*DENSE-ARRAY-CLASS*
                                               'DENSE-ARRAYS:CUDA-DENSE-ARRAY))
                                        (5AM:RUN 'DENSE-ARRAYS::BACKEND-INDEPENDENT)))"))))