Changeset 40506 in project


Ignore:
Timestamp:
09/09/21 01:15:23 (2 weeks ago)
Author:
Kon Lovett
Message:

fix cost type, reflow .egg, import format for gloss, new test runner

Location:
release/5/levenshtein/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/5/levenshtein/trunk/levenshtein-cost-flonum.scm

    r39022 r40506  
    1111(import (chicken flonum))
    1212
    13 (define-type cost flonum)
     13(define-type cost float)
    1414(include "levenshtein-cost-interface.types")
    1515
  • release/5/levenshtein/trunk/levenshtein.egg

    r39022 r40506  
    22;;;; Kon Lovett, Mar '20
    33
    4 ( (synopsis "Levenshtein edit distance")
    5   (version "2.1.1")
    6   (category data)
    7         (author "[[kon lovett]]")
    8         (license "BSD")
    9         (dependencies srfi-1 srfi-13 srfi-63 srfi-69 vector-lib utf8 check-errors miscmacros)
    10         ; other test deps met by egg deps
    11   (test-dependencies test)
    12   (components
    13     ;type definitions must be included
    14     ;functor argument-module must be included
    15     (scheme-include levenshtein-cost
    16       (files "levenshtein-cost-interface.types.scm"
    17               "levenshtein-cost-interface.scm"
    18               "levenshtein-cost-number.scm"
    19               "levenshtein-cost-fixnum.scm"
    20               "levenshtein-cost-flonum.scm"))
    21     (scheme-include levenshtein-sequence
    22       (files "levenshtein-sequence-interface.types.scm"
    23               "levenshtein-sequence-interface.scm"
    24               "levenshtein-sequence-vector.scm"
    25               "levenshtein-sequence-string.scm"
    26               "levenshtein-sequence-utf8.scm"))
    27     (extension levenshtein-operators
    28       (types-file)
    29       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks") )
    30     (extension levenshtein-vector
    31       (types-file)
    32       (component-dependencies levenshtein-operators)
    33       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    34    (extension levenshtein-path-iterator
    35       (types-file)
    36       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    37    (extension levenshtein-print
    38       (types-file)
    39       (component-dependencies levenshtein-operators)
    40       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    41    (extension levenshtein-vector-functor
    42       (types-file)
    43       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    44    (extension levenshtein-sequence-functor
    45       (types-file)
    46       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    47    (extension levenshtein-byte
    48       (types-file)
    49       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    50    (extension levenshtein-transpose-byte
    51       (types-file)
    52       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
    53    (extension levenshtein-sequence-functor
    54       (types-file)
    55       (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") ) ) )
     4((synopsis "Levenshtein edit distance")
     5 (version "2.1.1")
     6 (category data)
     7 (author "Kon Lovett")
     8 (license "BSD")
     9 (dependencies srfi-1 srfi-13 srfi-63 srfi-69 vector-lib utf8 check-errors miscmacros)
     10 ; other test deps met by egg deps
     11 (test-dependencies test)
     12 (components
     13   ;type definitions must be included
     14   ;functor argument-module must be included
     15   (scheme-include levenshtein-cost
     16     (files "levenshtein-cost-interface.types.scm"
     17             "levenshtein-cost-interface.scm"
     18             "levenshtein-cost-number.scm"
     19             "levenshtein-cost-fixnum.scm"
     20             "levenshtein-cost-flonum.scm"))
     21   (scheme-include levenshtein-sequence
     22     (files "levenshtein-sequence-interface.types.scm"
     23             "levenshtein-sequence-interface.scm"
     24             "levenshtein-sequence-vector.scm"
     25             "levenshtein-sequence-string.scm"
     26             "levenshtein-sequence-utf8.scm"))
     27   (extension levenshtein-operators
     28     (types-file)
     29     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks") )
     30   (extension levenshtein-vector
     31     (types-file)
     32     (component-dependencies levenshtein-operators)
     33     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     34  (extension levenshtein-path-iterator
     35     (types-file)
     36     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     37  (extension levenshtein-print
     38     (types-file)
     39     (component-dependencies levenshtein-operators)
     40     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     41  (extension levenshtein-vector-functor
     42     (types-file)
     43     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     44  (extension levenshtein-sequence-functor
     45     (types-file)
     46     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     47  (extension levenshtein-byte
     48     (types-file)
     49     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     50  (extension levenshtein-transpose-byte
     51     (types-file)
     52     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") )
     53  (extension levenshtein-sequence-functor
     54     (types-file)
     55     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks" "-no-bound-checks") ) ) )
  • release/5/levenshtein/trunk/tests/levenshtein-test.scm

    r38900 r40506  
    22
    33(import test)
    4 
     4(import (chicken format))
    55(include "test-gloss.incl")
    66
  • release/5/levenshtein/trunk/tests/run.scm

    r39797 r40506  
    77    make-pathname pathname-file pathname-replace-directory pathname-strip-extension)
    88  (only (chicken process) system)
    9   (only (chicken process-context) command-line-arguments)
     9  (only (chicken process-context) command-line-arguments get-environment-variable)
    1010  (only (chicken format) format)
    1111  (only (chicken file) file-exists? find-files)
     
    1313
    1414;; Globals
     15
     16(define *csi* (or (get-environment-variable "CHICKEN_CSI") "csi"))
     17(define *csc* (or (get-environment-variable "CHICKEN_CSC") "csc"))
    1518
    1619(define *csc-init-options* '(
     
    7982
    8083(define (run-test-evaluated source)
    81   (format #t "*** csi ~A ***~%" (pathname-file source))
    82   (system-must (string-append "csi -s " source)) )
     84  (format #t "*** ~A ~A ***~%" *csi* (pathname-file source))
     85  (system-must (string-append *csi* " -s " source)) )
    8386
    8487(define (run-test-compiled source csc-options)
    8588  (let ((optstr (apply string-append (intersperse csc-options " "))))
    86     (format #t "*** csc ~A ~A ***~%" (pathname-file source) optstr)
     89    (format #t "*** ~A ~A ~A ***~%" *csc* (pathname-file source) optstr)
    8790    ;csc output is in current directory
    88     (system-must (string-append "csc" " " optstr " " source)) )
     91    (system-must (string-append *csc* " " optstr " " source)) )
    8992  (system-must (pathname-replace-directory (pathname-strip-extension source) *test-directory*)) )
    9093
Note: See TracChangeset for help on using the changeset viewer.