Changeset 9842 in project


Ignore:
Timestamp:
03/17/08 17:20:51 (12 years ago)
Author:
Kon Lovett
Message:

Rmvd syntax-case loading. Added generic string means.

Location:
release/3/levenshtein/trunk
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • release/3/levenshtein/trunk/levenshtein-eggdoc.scm

    r9817 r9842  
    112112            (signature "procedure-means"
    113113              "(levenshtein-utf8-means (levenshtein-sequence-surface))"))
    114           (p "Uses procedures from the utf8 egg."))
     114          (p "Uses procedures from the utf8 egg.")
     115          (p "Loads the extensions \"utf8\" and \"utf8-srfi-13\".") )
    115116
    116117        (pre "(require-extension levenshtein-octet-means)")
     
    120121            (signature "procedure-means"
    121122              "(levenshtein-octet-means (levenshtein-sequence-surface))"))
    122           (p "Uses procedures from SRFI-13."))
     123          (p "Uses procedures from the srfi-13 unit.")
     124          (p "Loads the srfi-13 unit."))
     125
     126        (pre "(require-extension levenshtein-string-means)")
     127
     128        (definition
     129          (signatures
     130            (signature "procedure-means"
     131              "(levenshtein-string-means (levenshtein-sequence-surface))"))
     132          (p "Uses string procedures in the toplevel at load time.")
     133          (p "Load either the extensions \"utf8\" and \"utf8-srfi-13\", or "
     134          "the srfi-13 unit."))
    123135
    124136        (pre "(require-extension levenshtein-numbers-means)")
     
    128140            (signature "procedure-means"
    129141              "(levenshtein-numbers-means (levenshtein-numeric-surface))"))
    130           (p "Uses procedures from the numbers egg."))
     142          (p "Uses procedures from the numbers egg.")
     143          (p "Loads the extension \"numbers\"."))
    131144
    132145        (pre "(require-extension levenshtein-gennum-means)")
     
    427440
    428441    (history
     442      (version "1.7.1" "Added 'levenshtein-string-means'. Removed a syntax-case use.")
    429443      (version "1.7.0" "Support for toplevel-only utf8 egg. Removed syntax-case dependency.")
    430444      (version "1.602" "Changes for syntax-case support of define-inline")
  • release/3/levenshtein/trunk/levenshtein-fixnum-means.scm

    r9817 r9842  
    22;;;; Kon Lovett, May '06
    33
    4 (use syntax-case procedure-surface levenshtein-numeric-surface)
     4(use procedure-surface levenshtein-numeric-surface)
    55
    66(eval-when (compile)
  • release/3/levenshtein/trunk/levenshtein-gennum-means.scm

    r9817 r9842  
    22;;;; Kon Lovett, May '06
    33
    4 (use syntax-case procedure-surface levenshtein-numeric-surface)
     4(use procedure-surface levenshtein-numeric-surface)
    55
    66(eval-when (compile)
  • release/3/levenshtein/trunk/levenshtein-utf8-means.scm

    r9817 r9842  
    22;;;; Kon Lovett, May '06
    33
    4 (use syntax-case
    5      procedure-surface levenshtein-sequence-surface
     4(use procedure-surface levenshtein-sequence-surface
    65     utf8 utf8-srfi-13)
    76
  • release/3/levenshtein/trunk/levenshtein-vector-means.scm

    r9817 r9842  
    77;; What about byte-vector, u8vector, ..., and stream?
    88
    9 (use vector-lib procedure-surface misc-extn-record misc-extn-numeric
    10      levenshtein-sequence-surface)
     9(use vector-lib misc-extn-record misc-extn-numeric
     10     procedure-surface levenshtein-sequence-surface)
    1111
    1212(eval-when (compile)
  • release/3/levenshtein/trunk/levenshtein.html

    r9817 r9842  
    190190<dt class="definition"><strong>procedure-means:</strong> (levenshtein-utf8-means (levenshtein-sequence-surface))</dt>
    191191<dd>
    192 <p>Uses procedures from the utf8 egg.</p></dd>
     192<p>Uses procedures from the utf8 egg.</p>
     193<p>Loads the extensions &quot;utf8&quot; and &quot;utf8-srfi-13&quot;.</p></dd>
    193194<pre>(require-extension levenshtein-octet-means)</pre>
    194195<dt class="definition"><strong>procedure-means:</strong> (levenshtein-octet-means (levenshtein-sequence-surface))</dt>
    195196<dd>
    196 <p>Uses procedures from SRFI-13.</p></dd>
     197<p>Uses procedures from the srfi-13 unit.</p>
     198<p>Loads the srfi-13 unit.</p></dd>
     199<pre>(require-extension levenshtein-string-means)</pre>
     200<dt class="definition"><strong>procedure-means:</strong> (levenshtein-string-means (levenshtein-sequence-surface))</dt>
     201<dd>
     202<p>Uses string procedures in the toplevel at load time.</p>
     203<p>Load either the extensions &quot;utf8&quot; and &quot;utf8-srfi-13&quot;, or the srfi-13 unit.</p></dd>
    197204<pre>(require-extension levenshtein-numbers-means)</pre>
    198205<dt class="definition"><strong>procedure-means:</strong> (levenshtein-numbers-means (levenshtein-numeric-surface))</dt>
    199206<dd>
    200 <p>Uses procedures from the numbers egg.</p></dd>
     207<p>Uses procedures from the numbers egg.</p>
     208<p>Loads the extension &quot;numbers&quot;.</p></dd>
    201209<pre>(require-extension levenshtein-gennum-means)</pre>
    202210<dt class="definition"><strong>procedure-means:</strong> (levenshtein-gennum-means (levenshtein-numeric-surface))</dt>
     
    436444<h3>Version</h3>
    437445<ul>
     446<li>1.7.1 Added 'levenshtein-string-means'. Removed a syntax-case use.</li>
    438447<li>1.7.0 Support for toplevel-only utf8 egg. Removed syntax-case dependency.</li>
    439448<li>1.602 Changes for syntax-case support of define-inline</li>
  • release/3/levenshtein/trunk/levenshtein.meta

    r9817 r9842  
    2626  "levenshtein-octet-means.scm"
    2727  "levenshtein-utf8-means.scm"
     28  "levenshtein-string-means.scm"
    2829  "levenshtein-vector-means.scm"
    2930  "levenshtein.html"
  • release/3/levenshtein/trunk/levenshtein.setup

    r9821 r9842  
    22
    33(required-extension-version
    4   'utf8                   "2.0.1"
     4  'utf8                   "2.0.2"
    55  'vector-lib             "1.1"
    66  'array-lib              "2.0"
     
    1414(install-dynld levenshtein-transpose-byte *version*)
    1515
    16 (install-dynld levenshtein-sequence-surface *version* -O3 -d0)
     16(install-dynld levenshtein-sequence-surface *version*)
    1717
    18 (install-dynld levenshtein-numeric-surface *version* -O3 -d0)
     18(install-dynld levenshtein-numeric-surface *version*)
    1919
    20 (install-dynld+source levenshtein-vector-means *version* -O3 -d0)
     20(install-dynld+source levenshtein-vector-means *version*)
    2121
    22 (install-dynld+source levenshtein-octet-means *version* -O3 -d0)
     22(install-dynld+source levenshtein-octet-means *version*)
    2323
    24 (install-dynld+source levenshtein-utf8-means *version* -O3 -d0)
     24(install-dynld+source levenshtein-utf8-means *version*)
    2525
    26 (install-dynld+source levenshtein-fixnum-means *version* -O3 -d0)
     26(install-dynld+source levenshtein-string-means *version*)
    2727
    28 (install-dynld+source levenshtein-gennum-means *version* -O3 -d0)
     28(install-dynld+source levenshtein-fixnum-means *version*)
    2929
    30 (install-dynld+source levenshtein-numbers-means *version* -O3 -d0)
     30(install-dynld+source levenshtein-gennum-means *version*)
     31
     32(install-dynld+source levenshtein-numbers-means *version*)
    3133
    3234(install-dynld levenshtein-generic-sequence *version*)
     
    4951  "levenshtein-string-numeric-test.scm"
    5052  "levenshtein-string-utf8-test.scm"
     53  "levenshtein-utf8-string-test.scm"
     54  "levenshtein-byte-string-test.scm"
    5155  "levenshtein-test.scm"
    5256  "levenshtein-vector-test.scm")
  • release/3/levenshtein/trunk/tests/levenshtein-string-utf8-test.scm

    r9817 r9842  
    2828
    2929  (expect-eqv 1
    30     (levenshtein-distance/generic-string "Š" "n"
     30    (levenshtein-distance/generic-string "袖" "n"
    3131      #:string-means levenshtein-utf8-means))
    3232)
    3333
    3434(test::styler-set! utf8-levenshtein-distance/generic-string-test test::output-style-human)
    35 (run-test "Levenshtein Generic String UTF8 Tests")
     35(run-test "Levenshtein Generic UTF8 String Tests")
     36
     37(test::forget!)
  • release/3/levenshtein/trunk/tests/levenshtein-vector-test.scm

    r8913 r9842  
    1818    (reader-setup (current-array-print-count #t)) )
    1919|#
    20 
    21 (define-for-syntax test::timing #f)
    2220
    2321;;;
Note: See TracChangeset for help on using the changeset viewer.