Diff of /contrib/sb-bsd-sockets/sb-bsd-sockets.asd [9c3a95] .. [25c176]  Maximize  Restore

  Switch to unified view

a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
1
;;; -*-  Lisp -*-
1
;;; -*-  Lisp -*-
2
(eval-when (:compile-toplevel :load-toplevel :execute)
3
          (require :sb-grovel))
4
(defpackage #:sb-bsd-sockets-system (:use #:asdf #:sb-grovel #:cl))
5
(in-package #:sb-bsd-sockets-system)
6
2
7
(defsystem sb-bsd-sockets
3
(defsystem sb-bsd-sockets
8
    :version "0.58"
4
  :version "0.58"
9
    :depends-on (sb-grovel)
5
  :defsystem-depends-on (sb-grovel)
10
    #+sb-building-contrib :pathname
6
  #+sb-building-contrib :pathname
11
    #+sb-building-contrib #p"SYS:CONTRIB;SB-BSD-SOCKETS;"
7
  #+sb-building-contrib #p"SYS:CONTRIB;SB-BSD-SOCKETS;"
8
  :components
12
    :components ((:file "defpackage")
9
  ((:file "defpackage")
13
                 (:file "split" :depends-on ("defpackage"))
10
   (:file "split" :depends-on ("defpackage"))
14
                 #+win32
11
   (:file "win32-lib" :if-feature :win32)
15
                 (:file "win32-lib")
12
   (:sb-grovel-constants-file "constants" :package :sockint
16
                 #-win32 (sb-grovel:grovel-constants-file
13
    :depends-on ("defpackage") :if-feature (:not :win32))
17
                          "constants"
14
   (:sb-grovel-constants-file "win32-constants" :package
18
                          :package :sockint
15
    :sockint :depends-on ("defpackage" "win32-lib") :if-feature :win32)
19
                          :do-not-grovel #.(progn #-sb-building-contrib t)
16
   (:file "win32-sockets"
20
                          :depends-on  ("defpackage"))
17
    :depends-on ("win32-constants") :if-feature :win32)
21
                 #+win32 (sb-grovel:grovel-constants-file
18
   (:file "sockets" :depends-on ("constants" "win32-sockets"))
22
                          "win32-constants"
23
                          :package :sockint
24
                          :do-not-grovel #.(progn #-sb-building-contrib t)
25
                          :depends-on  ("defpackage" "win32-lib"))
26
                 #+win32 (:file "win32-sockets"
27
                                :depends-on ("win32-constants"))
28
                 (:file "sockets"
29
                        :depends-on #-win32 ("constants")
30
                                    #+win32 ("win32-sockets"))
31
                 (:file "sockopt" :depends-on ("sockets"))
19
   (:file "sockopt" :depends-on ("sockets"))
32
                 (:file "inet" :depends-on ("sockets" "split"))
20
   (:file "inet" :depends-on ("sockets" "split"))
33
                 (:file "local" :depends-on ("sockets" "split"))
21
   (:file "local" :depends-on ("sockets" "split"))
34
                 (:file "name-service" :depends-on ("sockets"))
22
   (:file "name-service" :depends-on ("sockets"))
35
                 (:file "misc" :depends-on ("sockets"))
23
   (:file "misc" :depends-on ("sockets"))
24
   (:static-file "NEWS")
25
   ;; (:static-file "INSTALL")
26
   ;; (:static-file "README")
27
   ;; (:static-file "index.html")
28
   (:static-file "TODO"))
29
  :perform (load-op :after (o c) (provide 'sb-bsd-sockets))
30
  :perform (test-op (o c) (test-system 'sb-bsd-sockets/tests)))
36
31
37
                 (:static-file "NEWS")
38
                 ;; (:static-file "INSTALL")
39
                 ;; (:static-file "README")
40
                 ;; (:static-file "index" :pathname "index.html")
41
                 (:static-file "TODO")))
42
43
(defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
44
  (provide 'sb-bsd-sockets))
45
46
(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets))))
47
  (operate 'load-op 'sb-bsd-sockets-tests)
48
  (operate 'test-op 'sb-bsd-sockets-tests))
49
50
(defsystem sb-bsd-sockets-tests
32
(defsystem sb-bsd-sockets/tests
51
  :depends-on (sb-rt sb-bsd-sockets #-win32 sb-posix)
33
  :depends-on (sb-rt sb-bsd-sockets #-win32 sb-posix)
52
  :components ((:file "tests")))
34
  :components ((:file "tests"))
53
35
  :perform (test-op (o c)
54
(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
55
  (multiple-value-bind (soft strict pending)
36
             (multiple-value-bind (soft strict pending)
56
      (funcall (intern "DO-TESTS" (find-package "SB-RT")))
37
                 (funcall (intern "DO-TESTS" (find-package "SB-RT")))
57
    (declare (ignorable pending))
38
               (declare (ignorable pending))
58
    (fresh-line)
39
               (fresh-line)
59
    (unless strict
40
               (unless strict
60
      #+sb-testing-contrib
41
                 #+sb-testing-contrib
61
      ;; We create TEST-PASSED from a shell script if tests passed.  But
42
                 ;; We create TEST-PASSED from a shell script if tests passed.  But
62
      ;; since the shell script only `touch'es it, we can actually create
43
                 ;; since the shell script only `touch'es it, we can actually create
63
      ;; it ahead of time -- as long as we're certain that tests truly
44
                 ;; it ahead of time -- as long as we're certain that tests truly
64
      ;; passed, hence the check for SOFT.
45
                 ;; passed, hence the check for SOFT.
65
      (when soft
46
                 (when soft
66
        (with-open-file (s #p"SYS:CONTRIB;SB-BSD-SOCKETS;TEST-PASSED"
47
                   (with-open-file (s #p"SYS:CONTRIB;SB-BSD-SOCKETS;TEST-PASSED.TEST-REPORT"
67
                           :direction :output)
48
                                      :direction :output)
68
          (dolist (pend pending)
49
                     (dolist (pend pending)
69
            (format s "Expected failure: ~A~%" pend))))
50
                       (format s "Expected failure: ~A~%" pend))))
70
      (warn "ignoring expected failures in test-op"))
51
                 (warn "ignoring expected failures in test-op"))
71
    (unless soft
52
               (unless soft
72
      (error "test-op failed with unexpected failures"))))
53
                 (error "test-op failed with unexpected failures")))))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks