Changeset 34111 in project


Ignore:
Timestamp:
05/30/17 00:37:10 (3 months ago)
Author:
kon
Message:

add types, re-flow

Location:
release/4/levenshtein
Files:
22 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/levenshtein/tags/1.0.3/levenshtein-cost-fixnum.scm

    r26601 r34111  
    1010  (import scheme chicken)
    1111
     12(: cost-multiply cost cost -> cost)
     13(: cost-add cost cost -> cost)
     14(: cost-minimum cost cost -> cost)
     15(: cost-less-than cost cost -> cost)
     16(: cost-positive-infinity cost)
     17
    1218(define cost-add fx+)
    1319(define cost-multiply fx*)
  • release/4/levenshtein/tags/1.0.3/levenshtein-cost-generic.scm

    r26601 r34111  
    1010  (import scheme chicken)
    1111
     12(: cost-multiply cost cost -> cost)
     13(: cost-add cost cost -> cost)
     14(: cost-minimum cost cost -> cost)
     15(: cost-less-than cost cost -> cost)
     16(: cost-positive-infinity cost)
     17
    1218(define cost-add +)
    1319(define cost-multiply *)
  • release/4/levenshtein/tags/1.0.3/levenshtein-cost-interface.scm

    r26601 r34111  
    44
    55(define-interface COST-OPER (
    6   cost-multiply
    7   cost-add
    8   cost-minimum
    9   cost-less-than
    10   cost-positive-infinity))
     6  cost-multiply                 ;cost cost -> cost
     7  cost-add                      ;cost cost -> cost
     8  cost-minimum                  ;cost cost -> cost
     9  cost-less-than                ;cost cost -> cost
     10  cost-positive-infinity))      ;cost
     11
     12(: cost number)
  • release/4/levenshtein/tags/1.0.3/levenshtein-cost-numbers.scm

    r26601 r34111  
    1212  (use numbers)
    1313
     14(: cost-multiply cost cost -> cost)
     15(: cost-add cost cost -> cost)
     16(: cost-minimum cost cost -> cost)
     17(: cost-less-than cost cost -> cost)
     18(: cost-positive-infinity cost)
     19
    1420(define cost-add +)
    1521(define cost-multiply *)
  • release/4/levenshtein/tags/1.0.3/levenshtein-sequence-interface.scm

    r26601 r34111  
    44
    55(define-interface SEQUENCE-OPER (
    6   sequence-length
    7   sequence-prefix-length
    8   sequence-suffix-length
    9   sequence-for-each
    10   subsequence/shared))
     6  sequence-length             ;sequence -> number
     7  sequence-prefix-length      ;procedure sequence sequence #!rest sequence -> number
     8  sequence-suffix-length      ;procedure sequence sequence #!rest sequence -> number
     9  sequence-for-each           ;procedure sequence sequence #!rest sequence -> number
     10  subsequence/shared))        ;sequence -> sequence
     11
     12(: sequence (or vector list string (struct shared-vector)))
  • release/4/levenshtein/tags/1.0.3/levenshtein-sequence-string.scm

    r26601 r34111  
    1414    type-checks
    1515    type-errors)
     16
     17(: sequence-length sequence -> number)
     18(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     19(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     21(: subsequence/shared sequence -> sequence)
    1622
    1723;;;
  • release/4/levenshtein/tags/1.0.3/levenshtein-sequence-utf8.scm

    r26601 r34111  
    1515    type-checks
    1616    type-errors)
     17
     18(: sequence-length sequence -> number)
     19(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     21(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     22(: subsequence/shared sequence -> sequence)
    1723
    1824;;;
  • release/4/levenshtein/tags/1.0.3/levenshtein-sequence-vector.scm

    r26601 r34111  
    1515    type-checks
    1616    type-errors)
     17
     18(: sequence-length sequence -> number)
     19(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     21(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     22(: subsequence/shared sequence -> sequence)
    1723
    1824;;;
  • release/4/levenshtein/tags/1.0.3/levenshtein-vector-functor.scm

    r26601 r34111  
    3030(define (vector-minimum vec)
    3131  (let ((len (vector-length vec)))
    32     (if (fx= 0 len) (values #f #f)
     32    (if (fx= 0 len)
     33      (values #f #f)
    3334      (let ((idx 0)
    3435            (val (vector-ref vec 0)) )
     
    6970                            (l (vector-ref lv eo-i)))
    7071                        (if (fx= a 0)                                       ; A L
    71                             (if (fx= l 0)                                   ; - -
    72                                 (cost-add cost (vector-ref wrkvec j))       ; 0 0
    73                                 (cost-add cost (vector-ref wrkvec (fx++ j)))); 0 1
    74                             (if (fx= l 0)                                   ;
    75                                 (cost-add cost cur)                         ; 1 0
    76                                 (let ((cost@ (vector-ref wrkvec j)))        ;
    77                                   (if (elm-eql s@i (vector-ref tv j))       ; 1 1
    78                                       cost@
    79                                       (cost-add cost cost@)))))))))
     72                          (if (fx= l 0)                                   ; - -
     73                            (cost-add cost (vector-ref wrkvec j))         ; 0 0
     74                            (cost-add cost (vector-ref wrkvec (fx++ j)))) ; 0 1
     75                          (if (fx= l 0)                                   ;
     76                            (cost-add cost cur)                           ; 1 0
     77                            (let ((cost@ (vector-ref wrkvec j)))          ;
     78                              (if (elm-eql s@i (vector-ref tv j))         ; 1 1
     79                                cost@
     80                                (cost-add cost cost@)))))))))
    8081
    8182              (let-values (((cost index) (vector-minimum (vector-map apply-oper cv))))
     
    120121                        (if (and (fx>= i a) (fx>= j l))
    121122
    122                             (let ((currcost (array-ref mat (fx- i a) (fx- j l))))
    123                               (cond
    124 
    125                                 ; Allow a no-op cost <> 0
    126                                 ((and (fx= a 0) (fx= l 0))
    127                                   (cost-add currcost opercost))
    128 
    129                                 ; Special case w/ test, simplified
    130                                 ((and (fx= a 1) (fx= l 1))
    131                                   (if (elm-eql s@i t-j) currcost
    132                                     (cost-add currcost opercost)))
    133 
    134                                 ; General case w/ test
    135                                 ((or (fx> a 1) (fx> l 1))
    136                                   (let ((x (cost-add currcost opercost)))
    137                                     (unless (elm-eql (vector-ref sv (fx- i a)) t-j)
    138                                       (set! x (cost-add x opercost)))
    139                                     (unless (elm-eql s@i (vector-ref tv (fx- j l)))
    140                                       (set! x (cost-add x opercost)))
    141                                     x))
    142 
    143                                 ; Otherwise a = 0|1 & l = 1|0
    144                                 (else
    145                                   (cost-add currcost opercost) ) ) )
    146 
    147                             ; Does this make sense when operation would violate mat bounds?
    148                             cost-positive-infinity)))))
     123                          (let ((currcost (array-ref mat (fx- i a) (fx- j l))))
     124                            (cond
     125
     126                              ; Allow a no-op cost <> 0
     127                              ((and (fx= a 0) (fx= l 0))
     128                                (cost-add currcost opercost))
     129
     130                              ; Special case w/ test, simplified
     131                              ((and (fx= a 1) (fx= l 1))
     132                                (if (elm-eql s@i t-j)
     133                                  currcost
     134                                  (cost-add currcost opercost)))
     135
     136                              ; General case w/ test
     137                              ((or (fx> a 1) (fx> l 1))
     138                                (let ((x (cost-add currcost opercost)))
     139                                  (unless (elm-eql (vector-ref sv (fx- i a)) t-j)
     140                                    (set! x (cost-add x opercost)))
     141                                  (unless (elm-eql s@i (vector-ref tv (fx- j l)))
     142                                    (set! x (cost-add x opercost)))
     143                                  x))
     144
     145                              ; Otherwise a = 0|1 & l = 1|0
     146                              (else
     147                                (cost-add currcost opercost) ) ) )
     148
     149                          ; Does this make sense when operation would violate mat bounds?
     150                          cost-positive-infinity)))))
    149151
    150152              (let-values (((cost index) (vector-minimum (vector-map apply-oper cv))))
     
    252254      (when operations
    253255        (if (and (fx= 0 srclen) (fx= 0 trglen))
    254             ;then degenerate case
     256          ;then degenerate case
     257          (set! zrtf
     258            (lambda (x)
     259              (values 0 (make-array '#() 0 0))))
     260          ;else source or target non-empty
     261          (let ((pm #f)
     262                (pm-rows (fxmax 1 srclen))
     263                (pm-cols (fxmax 1 trglen)))
     264            (set! pm
     265              (make-array '#() pm-rows pm-cols))
     266            (set! perf
     267              (lambda (i j ovi cost)
     268                (array-set! pm (cons cost (vector-ref opervec ovi)) i j)))
     269            (set! finf
     270              (lambda (cost)
     271                (values cost pm)))
    255272            (set! zrtf
    256               (lambda (x)
    257                 (values 0 (make-array '#() 0 0))))
    258             ;else source or target non-empty
    259             (let ((pm #f)
    260                   (pm-rows (fxmax 1 srclen))
    261                   (pm-cols (fxmax 1 trglen)))
    262               (set! pm
    263                 (make-array '#() pm-rows pm-cols))
    264               (set! perf
    265                 (lambda (i j ovi cost)
    266                   (array-set! pm (cons cost (vector-ref opervec ovi)) i j)))
    267               (set! finf
    268                 (lambda (cost)
    269                   (values cost pm)))
    270               (set! zrtf
    271                 (lambda (len)
    272                   (let ((io-c (levenshtein-operator-cost insoper)))
    273                     (do ((i 0 (fx++ i))
    274                           (i-cost io-c (cost-add i-cost io-c)))
    275                         ((fx= i pm-rows))
    276                       (do ((j 0 (fx++ j))
    277                             (j-cost i-cost (cost-add j-cost io-c)))
    278                           ((fx= j pm-cols))
    279                         (perf i j 0 j-cost)))
    280                     (finf (cost-multiply io-c len))))))))
     273              (lambda (len)
     274                (let ((io-c (levenshtein-operator-cost insoper)))
     275                  (do ((i 0 (fx++ i))
     276                        (i-cost io-c (cost-add i-cost io-c)))
     277                      ((fx= i pm-rows))
     278                    (do ((j 0 (fx++ j))
     279                          (j-cost i-cost (cost-add j-cost io-c)))
     280                        ((fx= j pm-cols))
     281                      (perf i j 0 j-cost)))
     282                  (finf (cost-multiply io-c len))))))))
    281283
    282284      ; Unpack edit operation offsets
  • release/4/levenshtein/tags/1.0.3/levenshtein.meta

    r28491 r34111  
    44( (category data)
    55        (synopsis "Levenshtein edit distance")
    6         (author "[[/users/kon-lovett]]")
     6        (author "[[kon lovett]]")
    77        (egg "levenshtein.egg")
    88        (depends
  • release/4/levenshtein/tags/1.0.3/levenshtein.setup

    r28491 r34111  
    44(use setup-api)
    55
    6 (setup-shared-extension-module 'levenshtein-byte (extension-version "1.0.2")
     6(setup-shared-extension-module 'levenshtein-byte (extension-version "1.0.3")
    77        #:inline? #t
    88        #:types? #t
     
    1212                -no-procedure-checks))
    1313
    14 (setup-shared-extension-module 'levenshtein-transpose-byte (extension-version "1.0.2")
     14(setup-shared-extension-module 'levenshtein-transpose-byte (extension-version "1.0.3")
    1515        #:inline? #t
    1616        #:types? #t
     
    2323(when (version>=? (chicken-version) "4.7.2")
    2424
    25 (setup-shared-extension-module 'levenshtein-operators (extension-version "1.0.2")
     25(setup-shared-extension-module 'levenshtein-operators (extension-version "1.0.3")
    2626        #:inline? #t
    2727        #:types? #t
     
    3131                -no-procedure-checks))
    3232
    33 (setup-shared-extension-module 'levenshtein-path-iterator (extension-version "1.0.2")
     33(setup-shared-extension-module 'levenshtein-path-iterator (extension-version "1.0.3")
    3434        #:inline? #t
    3535        #:types? #t
     
    3939                -no-procedure-checks))
    4040
    41 (setup-shared-extension-module 'levenshtein-print (extension-version "1.0.2")
     41(setup-shared-extension-module 'levenshtein-print (extension-version "1.0.3")
    4242        #:inline? #t
    4343        #:types? #t
     
    4747                -no-procedure-checks))
    4848
    49 (setup-shared-extension-module 'levenshtein-vector-functor (extension-version "1.0.2")
     49(setup-shared-extension-module 'levenshtein-vector-functor (extension-version "1.0.3")
    5050        #:inline? #t
    5151        #:types? #t
     
    5555                -optimize-level 3 -debug-level 1))
    5656
    57 (setup-shared-extension-module 'levenshtein-sequence-functor (extension-version "1.0.2")
     57(setup-shared-extension-module 'levenshtein-sequence-functor (extension-version "1.0.3")
    5858        #:inline? #t
    5959        #:types? #t
     
    7373)
    7474
    75 (install-extension-tag 'levenshtein "1.0.2")
     75(install-extension-tag 'levenshtein "1.0.3")
  • release/4/levenshtein/trunk/levenshtein-cost-fixnum.scm

    r26601 r34111  
    1010  (import scheme chicken)
    1111
     12(: cost-multiply cost cost -> cost)
     13(: cost-add cost cost -> cost)
     14(: cost-minimum cost cost -> cost)
     15(: cost-less-than cost cost -> cost)
     16(: cost-positive-infinity cost)
     17
    1218(define cost-add fx+)
    1319(define cost-multiply fx*)
  • release/4/levenshtein/trunk/levenshtein-cost-generic.scm

    r26601 r34111  
    1010  (import scheme chicken)
    1111
     12(: cost-multiply cost cost -> cost)
     13(: cost-add cost cost -> cost)
     14(: cost-minimum cost cost -> cost)
     15(: cost-less-than cost cost -> cost)
     16(: cost-positive-infinity cost)
     17
    1218(define cost-add +)
    1319(define cost-multiply *)
  • release/4/levenshtein/trunk/levenshtein-cost-interface.scm

    r26601 r34111  
    44
    55(define-interface COST-OPER (
    6   cost-multiply
    7   cost-add
    8   cost-minimum
    9   cost-less-than
    10   cost-positive-infinity))
     6  cost-multiply                 ;cost cost -> cost
     7  cost-add                      ;cost cost -> cost
     8  cost-minimum                  ;cost cost -> cost
     9  cost-less-than                ;cost cost -> cost
     10  cost-positive-infinity))      ;cost
     11
     12(: cost number)
  • release/4/levenshtein/trunk/levenshtein-cost-numbers.scm

    r26601 r34111  
    1212  (use numbers)
    1313
     14(: cost-multiply cost cost -> cost)
     15(: cost-add cost cost -> cost)
     16(: cost-minimum cost cost -> cost)
     17(: cost-less-than cost cost -> cost)
     18(: cost-positive-infinity cost)
     19
    1420(define cost-add +)
    1521(define cost-multiply *)
  • release/4/levenshtein/trunk/levenshtein-sequence-interface.scm

    r26601 r34111  
    44
    55(define-interface SEQUENCE-OPER (
    6   sequence-length
    7   sequence-prefix-length
    8   sequence-suffix-length
    9   sequence-for-each
    10   subsequence/shared))
     6  sequence-length             ;sequence -> number
     7  sequence-prefix-length      ;procedure sequence sequence #!rest sequence -> number
     8  sequence-suffix-length      ;procedure sequence sequence #!rest sequence -> number
     9  sequence-for-each           ;procedure sequence sequence #!rest sequence -> number
     10  subsequence/shared))        ;sequence -> sequence
     11
     12(: sequence (or vector list string (struct shared-vector)))
  • release/4/levenshtein/trunk/levenshtein-sequence-string.scm

    r26601 r34111  
    1414    type-checks
    1515    type-errors)
     16
     17(: sequence-length sequence -> number)
     18(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     19(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     21(: subsequence/shared sequence -> sequence)
    1622
    1723;;;
  • release/4/levenshtein/trunk/levenshtein-sequence-utf8.scm

    r26601 r34111  
    1515    type-checks
    1616    type-errors)
     17
     18(: sequence-length sequence -> number)
     19(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     21(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     22(: subsequence/shared sequence -> sequence)
    1723
    1824;;;
  • release/4/levenshtein/trunk/levenshtein-sequence-vector.scm

    r26601 r34111  
    1515    type-checks
    1616    type-errors)
     17
     18(: sequence-length sequence -> number)
     19(: sequence-prefix-length procedure sequence sequence #!rest sequence -> number)
     20(: sequence-suffix-length procedure sequence sequence #!rest sequence -> number)
     21(: sequence-for-each procedure sequence sequence #!rest sequence -> number)
     22(: subsequence/shared sequence -> sequence)
    1723
    1824;;;
  • release/4/levenshtein/trunk/levenshtein-vector-functor.scm

    r26601 r34111  
    3030(define (vector-minimum vec)
    3131  (let ((len (vector-length vec)))
    32     (if (fx= 0 len) (values #f #f)
     32    (if (fx= 0 len)
     33      (values #f #f)
    3334      (let ((idx 0)
    3435            (val (vector-ref vec 0)) )
     
    6970                            (l (vector-ref lv eo-i)))
    7071                        (if (fx= a 0)                                       ; A L
    71                             (if (fx= l 0)                                   ; - -
    72                                 (cost-add cost (vector-ref wrkvec j))       ; 0 0
    73                                 (cost-add cost (vector-ref wrkvec (fx++ j)))); 0 1
    74                             (if (fx= l 0)                                   ;
    75                                 (cost-add cost cur)                         ; 1 0
    76                                 (let ((cost@ (vector-ref wrkvec j)))        ;
    77                                   (if (elm-eql s@i (vector-ref tv j))       ; 1 1
    78                                       cost@
    79                                       (cost-add cost cost@)))))))))
     72                          (if (fx= l 0)                                   ; - -
     73                            (cost-add cost (vector-ref wrkvec j))         ; 0 0
     74                            (cost-add cost (vector-ref wrkvec (fx++ j)))) ; 0 1
     75                          (if (fx= l 0)                                   ;
     76                            (cost-add cost cur)                           ; 1 0
     77                            (let ((cost@ (vector-ref wrkvec j)))          ;
     78                              (if (elm-eql s@i (vector-ref tv j))         ; 1 1
     79                                cost@
     80                                (cost-add cost cost@)))))))))
    8081
    8182              (let-values (((cost index) (vector-minimum (vector-map apply-oper cv))))
     
    120121                        (if (and (fx>= i a) (fx>= j l))
    121122
    122                             (let ((currcost (array-ref mat (fx- i a) (fx- j l))))
    123                               (cond
    124 
    125                                 ; Allow a no-op cost <> 0
    126                                 ((and (fx= a 0) (fx= l 0))
    127                                   (cost-add currcost opercost))
    128 
    129                                 ; Special case w/ test, simplified
    130                                 ((and (fx= a 1) (fx= l 1))
    131                                   (if (elm-eql s@i t-j) currcost
    132                                     (cost-add currcost opercost)))
    133 
    134                                 ; General case w/ test
    135                                 ((or (fx> a 1) (fx> l 1))
    136                                   (let ((x (cost-add currcost opercost)))
    137                                     (unless (elm-eql (vector-ref sv (fx- i a)) t-j)
    138                                       (set! x (cost-add x opercost)))
    139                                     (unless (elm-eql s@i (vector-ref tv (fx- j l)))
    140                                       (set! x (cost-add x opercost)))
    141                                     x))
    142 
    143                                 ; Otherwise a = 0|1 & l = 1|0
    144                                 (else
    145                                   (cost-add currcost opercost) ) ) )
    146 
    147                             ; Does this make sense when operation would violate mat bounds?
    148                             cost-positive-infinity)))))
     123                          (let ((currcost (array-ref mat (fx- i a) (fx- j l))))
     124                            (cond
     125
     126                              ; Allow a no-op cost <> 0
     127                              ((and (fx= a 0) (fx= l 0))
     128                                (cost-add currcost opercost))
     129
     130                              ; Special case w/ test, simplified
     131                              ((and (fx= a 1) (fx= l 1))
     132                                (if (elm-eql s@i t-j)
     133                                  currcost
     134                                  (cost-add currcost opercost)))
     135
     136                              ; General case w/ test
     137                              ((or (fx> a 1) (fx> l 1))
     138                                (let ((x (cost-add currcost opercost)))
     139                                  (unless (elm-eql (vector-ref sv (fx- i a)) t-j)
     140                                    (set! x (cost-add x opercost)))
     141                                  (unless (elm-eql s@i (vector-ref tv (fx- j l)))
     142                                    (set! x (cost-add x opercost)))
     143                                  x))
     144
     145                              ; Otherwise a = 0|1 & l = 1|0
     146                              (else
     147                                (cost-add currcost opercost) ) ) )
     148
     149                          ; Does this make sense when operation would violate mat bounds?
     150                          cost-positive-infinity)))))
    149151
    150152              (let-values (((cost index) (vector-minimum (vector-map apply-oper cv))))
     
    252254      (when operations
    253255        (if (and (fx= 0 srclen) (fx= 0 trglen))
    254             ;then degenerate case
     256          ;then degenerate case
     257          (set! zrtf
     258            (lambda (x)
     259              (values 0 (make-array '#() 0 0))))
     260          ;else source or target non-empty
     261          (let ((pm #f)
     262                (pm-rows (fxmax 1 srclen))
     263                (pm-cols (fxmax 1 trglen)))
     264            (set! pm
     265              (make-array '#() pm-rows pm-cols))
     266            (set! perf
     267              (lambda (i j ovi cost)
     268                (array-set! pm (cons cost (vector-ref opervec ovi)) i j)))
     269            (set! finf
     270              (lambda (cost)
     271                (values cost pm)))
    255272            (set! zrtf
    256               (lambda (x)
    257                 (values 0 (make-array '#() 0 0))))
    258             ;else source or target non-empty
    259             (let ((pm #f)
    260                   (pm-rows (fxmax 1 srclen))
    261                   (pm-cols (fxmax 1 trglen)))
    262               (set! pm
    263                 (make-array '#() pm-rows pm-cols))
    264               (set! perf
    265                 (lambda (i j ovi cost)
    266                   (array-set! pm (cons cost (vector-ref opervec ovi)) i j)))
    267               (set! finf
    268                 (lambda (cost)
    269                   (values cost pm)))
    270               (set! zrtf
    271                 (lambda (len)
    272                   (let ((io-c (levenshtein-operator-cost insoper)))
    273                     (do ((i 0 (fx++ i))
    274                           (i-cost io-c (cost-add i-cost io-c)))
    275                         ((fx= i pm-rows))
    276                       (do ((j 0 (fx++ j))
    277                             (j-cost i-cost (cost-add j-cost io-c)))
    278                           ((fx= j pm-cols))
    279                         (perf i j 0 j-cost)))
    280                     (finf (cost-multiply io-c len))))))))
     273              (lambda (len)
     274                (let ((io-c (levenshtein-operator-cost insoper)))
     275                  (do ((i 0 (fx++ i))
     276                        (i-cost io-c (cost-add i-cost io-c)))
     277                      ((fx= i pm-rows))
     278                    (do ((j 0 (fx++ j))
     279                          (j-cost i-cost (cost-add j-cost io-c)))
     280                        ((fx= j pm-cols))
     281                      (perf i j 0 j-cost)))
     282                  (finf (cost-multiply io-c len))))))))
    281283
    282284      ; Unpack edit operation offsets
  • release/4/levenshtein/trunk/levenshtein.meta

    r28491 r34111  
    44( (category data)
    55        (synopsis "Levenshtein edit distance")
    6         (author "[[/users/kon-lovett]]")
     6        (author "[[kon lovett]]")
    77        (egg "levenshtein.egg")
    88        (depends
  • release/4/levenshtein/trunk/levenshtein.setup

    r28491 r34111  
    44(use setup-api)
    55
    6 (setup-shared-extension-module 'levenshtein-byte (extension-version "1.0.2")
     6(setup-shared-extension-module 'levenshtein-byte (extension-version "1.0.3")
    77        #:inline? #t
    88        #:types? #t
     
    1212                -no-procedure-checks))
    1313
    14 (setup-shared-extension-module 'levenshtein-transpose-byte (extension-version "1.0.2")
     14(setup-shared-extension-module 'levenshtein-transpose-byte (extension-version "1.0.3")
    1515        #:inline? #t
    1616        #:types? #t
     
    2323(when (version>=? (chicken-version) "4.7.2")
    2424
    25 (setup-shared-extension-module 'levenshtein-operators (extension-version "1.0.2")
     25(setup-shared-extension-module 'levenshtein-operators (extension-version "1.0.3")
    2626        #:inline? #t
    2727        #:types? #t
     
    3131                -no-procedure-checks))
    3232
    33 (setup-shared-extension-module 'levenshtein-path-iterator (extension-version "1.0.2")
     33(setup-shared-extension-module 'levenshtein-path-iterator (extension-version "1.0.3")
    3434        #:inline? #t
    3535        #:types? #t
     
    3939                -no-procedure-checks))
    4040
    41 (setup-shared-extension-module 'levenshtein-print (extension-version "1.0.2")
     41(setup-shared-extension-module 'levenshtein-print (extension-version "1.0.3")
    4242        #:inline? #t
    4343        #:types? #t
     
    4747                -no-procedure-checks))
    4848
    49 (setup-shared-extension-module 'levenshtein-vector-functor (extension-version "1.0.2")
     49(setup-shared-extension-module 'levenshtein-vector-functor (extension-version "1.0.3")
    5050        #:inline? #t
    5151        #:types? #t
     
    5555                -optimize-level 3 -debug-level 1))
    5656
    57 (setup-shared-extension-module 'levenshtein-sequence-functor (extension-version "1.0.2")
     57(setup-shared-extension-module 'levenshtein-sequence-functor (extension-version "1.0.3")
    5858        #:inline? #t
    5959        #:types? #t
     
    7373)
    7474
    75 (install-extension-tag 'levenshtein "1.0.2")
     75(install-extension-tag 'levenshtein "1.0.3")
Note: See TracChangeset for help on using the changeset viewer.