Changeset 14373 in project


Ignore:
Timestamp:
04/23/09 02:35:02 (11 years ago)
Author:
Ivan Raikov
Message:

graph-separators ported to Chicken 4

Location:
release/4/graph-separators/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/graph-separators/trunk/graph-separators.setup

    r11119 r14373  
    1 
    2 (define has-exports? (string>=? (chicken-version) "2.310"))
     1;;;; -*- Hen -*-
    32
    43(define (dynld-name fn)         
    54  (make-pathname #f fn ##sys#load-dynamic-extension))   
    65
    7 (compile -O -d2 -s -o ,(dynld-name "graph-separators")
    8          ,@(if has-exports? '(-check-imports -emit-exports graph-separators.exports) '())
    9          separators.scm -lchicken -ldl)
     6(compile -O2 -d0 -s separators.scm -o ,(dynld-name "graph-separators") -j graph-separators)
     7(compile -O2 -d0 -s graph-separators.import.scm)
    108
    11 (run (csi -qbs separators-eggdoc.scm > graph-separators.html))
     9(run (csi -s separators-eggdoc.scm > graph-separators.html))
    1210
    1311(install-extension
     
    1715
    1816  ; Files to install for your extension:
    19   `(,(dynld-name "graph-separators")
    20     ,@(if has-exports? '("graph-separators.exports") (list)) )
     17  `(,(dynld-name "graph-separators") ,(dynld-name "graph-separators.import") )
    2118
    2219  ; Assoc list with properties for your extension:
    23   `((version 1.0)
     20  `((version 1.3)
    2421    (documentation "graph-separators.html")
    25     ,@(if has-exports? `((exports "graph-separators.exports")) (list)) ))
     22    ))
     23
  • release/4/graph-separators/trunk/separators-eggdoc.scm

    r11141 r14373  
    77     (description "Determine the separation vertices of a graph.")
    88     (author (p "Richard Kelsey; ported to Chicken by "
    9                 (url "http://chicken.wiki.br/ivan raikov" "Ivan Raikov")))
     9                (url "http://chicken.wiki.br/users/ivan-raikov" "Ivan Raikov")))
    1010
    1111     (history
     12      (version "1.3" "Ported to Chicken 4")
    1213      (version "1.0" "Initial release"))
    1314
  • release/4/graph-separators/trunk/separators.scm

    r11119 r14373  
    11; Adapted for Chicken Scheme by Ivan Raikov.
    22
    3 (define-extension graph-separators)
    4 
    5 (declare (export graph-separation-vertices))
    6 
    7 (require-extension srfi-1)
     3(module graph-separators
     4
     5 (graph-separation-vertices)
     6                   
     7 (import scheme chicken data-structures)
     8
     9 (require-extension srfi-1 )
     10
    811
    912(define (graph-separation-vertices g . rest)
     
    216219                   components)))))
    217220                           
     221)
Note: See TracChangeset for help on using the changeset viewer.