Changeset 6600 in project


Ignore:
Timestamp:
11/01/07 08:49:47 (13 years ago)
Author:
Ivan Raikov
Message:

Updated build script to use platform-dependent dynamic library suffix.

Location:
digraph/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • digraph/trunk/digraph-eggdoc.scm

    r5723 r6600  
    99
    1010     (history
     11      (version "1.7" "Build script updated for better cross-platform compatibility")
    1112      (version "1.6" "Test infrastructure changed to use testbase")
    1213      (version "1.5" "Bug fixes in set-out-edges! and set-in-edges! [thanks to Andreas Scholta]")
  • digraph/trunk/digraph.setup

    r5723 r6600  
    11
    22(define has-exports? (string>=? (chicken-version) "2.310"))
     3
     4(define (dynld-name fn)         
     5  (make-pathname #f fn ##sys#load-dynamic-extension))   
    36
    47(compile -O2 -d0 -s
     
    1417
    1518  ; Files to install for your extension:
    16   `("digraph.so" "digraph.html"
     19  `(,(dynld-name "digraph") "digraph.html"
    1720    ,@(if has-exports? '("digraph.exports") (list)) )
    1821
    1922  ; Assoc list with properties for your extension:
    20   `((version 1.6)
     23  `((version 1.7)
    2124    (documentation "digraph.html")
    2225    ,@(if has-exports? `((exports "digraph.exports")) (list)) ))
  • digraph/trunk/tests/run.scm

    r5723 r6600  
    44;; library dependency example.
    55;;
    6 ;; Version $Revision$
    76;;
    87;;
     
    2423;; 02110-1301 USA
    2524;;
    26 ;; A full copy of the GPL license can be found on Debian systems in 
     25;; A full copy of the GPL license can be found on Debian systems in
    2726;; /usr/share/common-licenses/GPL-2
    2827;;
     
    3534(require-extension testbase-output-compact)
    3635
     36(define-expect-unary pair?)
     37
    3738(define used-by
    38   (list 
     39  (list
    3940    (cons 'dax_h 'foo_cpp) (cons 'dax_h 'bar_cpp) (cons 'dax_h 'yow_h)
    4041    (cons 'yow_h 'bar_cpp) (cons 'yow_h 'zag_cpp) (cons 'boz_h 'bar_cpp)
    4142    (cons 'boz_h 'zig_cpp) (cons 'boz_h 'zag_cpp) (cons 'zow_h 'foo_cpp)
    42     (cons 'foo_cpp 'foo_o) (cons 'foo_o 'libfoobar_a) 
    43     (cons 'bar_cpp 'bar_o) (cons 'bar_o 'libfoobar_a) 
    44     (cons 'libfoobar_a 'libzigzag_a) (cons 'zig_cpp 'zig_o) 
    45     (cons 'zig_o 'libzigzag_a) (cons 'zag_cpp 'zag_o) 
     43    (cons 'foo_cpp 'foo_o) (cons 'foo_o 'libfoobar_a)
     44    (cons 'bar_cpp 'bar_o) (cons 'bar_o 'libfoobar_a)
     45    (cons 'libfoobar_a 'libzigzag_a) (cons 'zig_cpp 'zig_o)
     46    (cons 'zig_o 'libzigzag_a) (cons 'zag_cpp 'zag_o)
    4647    (cons 'zag_o 'libzigzag_a) (cons 'libzigzag_a 'killerapp)))
    4748
    4849
    4950(define-test digraph-test "digraph test"
    50   (initial 
    51    (define g  (make-digraph 'depgraph "dependency graph"))
     51  (initial
     52   (define g (void))
    5253
    5354   (define node-list
    54      (delete-duplicates 
     55     (delete-duplicates
    5556      (concatenate (list (map car used-by) (map cdr used-by)))))
    56            
     57
    5758   (define node-ids
    5859     (list-tabulate (length node-list) values))
    5960
    60    (define node-map  (zip node-list node-ids)))
     61   (define node-map  (zip node-list node-ids)) )
    6162
    62  
     63  ;; can we make a graph
     64  (expect-set! g (make-digraph 'depgraph "dependency graph"))
     65
    6366  ;; add the nodes to the graph
    6467  (test-eval 'add-nodes
    6568             (for-each (lambda (i n) ((g 'add-node!) i n))
    6669                       node-ids node-list))
     70
    6771  ;; make sure all nodes got inserted
    6872  (test/equal 'nodes-inserted?
    6973   ((g 'nodes))
    7074   '((14 killerapp)
    71      (13 libzigzag_a) (12 zag_o) (11 zag_cpp) 
    72      (10 zig_o) (9 zig_cpp) (8 libfoobar_a) (7 bar_o) 
    73      (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (2 boz_h) 
     75     (13 libzigzag_a) (12 zag_o) (11 zag_cpp)
     76     (10 zig_o) (9 zig_cpp) (8 libfoobar_a) (7 bar_o)
     77     (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (2 boz_h)
    7478     (1 yow_h) (0 dax_h)))
    75    
     79
    7680  ;; add the edges to the graph
    77   (test-eval 'add-edges
    78              (for-each (lambda (e)
    79                          (print "e = " e)
    80                          (cond ((pair? e)
    81                                 (let ((ni (car e))  (nj (cdr e)))
    82                                   (let ((i (car (alist-ref ni node-map)))
    83                                         (j (car (alist-ref nj node-map))))
    84                                     ((g 'add-edge!) (list i j (format "~A->~A" ni nj))))))
    85                                (else (error "invalid edge " e))))
    86                        used-by))
    87    
     81  (test/collect 'add-edges
     82    (for-each (lambda (e)
     83                (collect-test (expect-pair (conc "valid edge: " e) e))
     84                (let* ((ni (car e))
     85                       (nj (cdr e))
     86                       (i (car (alist-ref ni node-map)))
     87                       (j (car (alist-ref nj node-map))))
     88                  (collect-test
     89                    (expect-success "adding edge"
     90                      ((g 'add-edge!) (list i j (format "~A->~A" ni nj))))) ) )
     91              used-by))
     92
    8893   ;; make sure all edges got correctly created
    8994   (test/equal 'edges-inserted?
    9095               ((g 'edges))
    91                '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a") 
    92                  (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a") 
    93                  (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a") 
    94                  (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o") 
    95                  (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o") 
    96                  (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp") 
    97                  (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp") 
    98                  (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp") 
     96               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     97                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     98                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     99                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     100                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     101                 (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
     102                 (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
     103                 (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")
    99104                 (0 1 "dax_h->yow_h") (0 6 "dax_h->bar_cpp") (0 4 "dax_h->foo_cpp")))
    100    
     105
    101106    ;; remove node 0 from graph
    102107   (test-eval 'remove-node-0
    103108              ((g 'remove-node!) 0))
    104    
     109
    105110   ;; make sure node 0 got removed
    106111   (test/equal 'node-0-removed?
    107112               ((g 'nodes))
    108                '((14 killerapp) (13 libzigzag_a) (12 zag_o) 
    109                  (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a) 
    110                  (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) 
     113               '((14 killerapp) (13 libzigzag_a) (12 zag_o)
     114                 (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
     115                 (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h)
    111116                 (2 boz_h) (1 yow_h)))
    112117
     
    114119   (test/equal 'node-0-edges-removed?
    115120               ((g 'edges))
    116                '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a") 
    117                  (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a") 
    118                  (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a") 
    119                  (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o") 
    120                  (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o") 
    121                  (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp") 
    122                  (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp") 
     121               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     122                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     123                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     124                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     125                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     126                 (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
     127                 (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
    123128                 (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")))
    124    
    125     ;; remove node 2 from graph 
     129
     130    ;; remove node 2 from graph
    126131   (test-eval 'remove-node-2
    127132    ((g 'remove-node!) 2))
     
    130135   (test/equal 'node-0-removed?
    131136               ((g 'nodes))
    132                '((14 killerapp) (13 libzigzag_a) (12 zag_o) 
    133                  (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a) 
     137               '((14 killerapp) (13 libzigzag_a) (12 zag_o)
     138                 (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
    134139                 (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (1 yow_h)))
    135140
     
    137142   (test/equal 'node-2-edges-removed?
    138143               ((g 'edges))
    139                '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a") 
    140                  (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a") 
    141                  (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a") 
    142                  (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o") 
    143                  (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o") 
    144                  (3 4 "zow_h->foo_cpp") (1 11 "yow_h->zag_cpp") 
     144               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     145                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     146                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     147                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     148                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     149                 (3 4 "zow_h->foo_cpp") (1 11 "yow_h->zag_cpp")
    145150                 (1 6 "yow_h->bar_cpp"))))
    146151
     
    152157
    153158
    154            
     159
Note: See TracChangeset for help on using the changeset viewer.