Changeset 5444 in project


Ignore:
Timestamp:
08/16/07 05:29:22 (13 years ago)
Author:
Kon Lovett
Message:

Chg for misc-extn 3.0

Location:
hashes
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • hashes/hash-utils.scm

    r2693 r5444  
    77;; standard-bindings should ensure this invariant.
    88
    9 (use message-digest misc-extn miscmacros mathh-int)
     9(use message-digest miscmacros mathh-int misc-extn-control)
    1010
    1111(eval-when (compile)
     
    6868
    6969; This will lose the high-order bits, which are the most useful
    70 #;(define-inline (positive-number->fixnum num)
     70#;
     71(define-inline (positive-number->fixnum num)
    7172        (bitwise-and num most-positive-fixnum) )
    7273
     
    116117
    117118(define (make-range-restriction upper . restargs)
    118         (let ([lower (:optional restargs 0)])
     119        (let ([lower (optional restargs 0)])
    119120                (check-number lower 'make-range-restriction)
    120121                (check-number upper 'make-range-restriction)
     
    129130
    130131(define (make-fixnum-range-restriction upper . restargs)
    131         (let ([lower (:optional restargs 0)])
     132        (let ([lower (optional restargs 0)])
    132133                (check-fixnum lower 'make-fixnum-range-restriction)
    133134                (check-fixnum upper 'make-fixnum-range-restriction)
     
    161162(define (make-seeded-hash hash-proc . restargs)
    162163        (check-procedure hash-proc 'make-seeded-hash)
    163         (let ([seed (:optional restargs (current-hash-seed))])
     164        (let ([seed (optional restargs (current-hash-seed))])
    164165                (check-unsigned-integer32 seed 'make-seeded-hash)
    165166                (lambda (str . restargs)
    166                         (hash-proc str (:optional restargs (string-length str)) seed)) ) )
     167                        (hash-proc str (optional restargs (string-length str)) seed)) ) )
    167168
    168169(define (make-range-hash hash-proc upper . restargs)
    169170        (check-procedure hash-proc 'make-range-hash)
    170         (let ([lower (:optional restargs 0)])
     171        (let ([lower (optional restargs 0)])
    171172                (check-unsigned-integer32 lower 'make-range-hash)
    172173                (check-unsigned-integer32 upper 'make-range-hash)
  • hashes/hashes-eggdoc.scm

    r3921 r5444  
    3535                        (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    3636                (history
     37                        (version "2.101" "Dropped :optional")
    3738                        (version "2.1" "RJL3Hash changed to byte-oriented (versus word-oriented) version")
    3839                        (version "2.0" "More hash functions, split into separate extensions")
  • hashes/hashes.html

    r3921 r5444  
    158158<h3>Version</h3>
    159159<ul>
     160<li>2.101 Dropped :optional</li>
    160161<li>2.1 RJL3Hash changed to byte-oriented (versus word-oriented) version</li>
    161162<li>2.0 More hash functions, split into separate extensions</li>
  • hashes/hashes.setup

    r3959 r5444  
    11(include "setup-header")
    22
    3 (install-dynld hash-utils "2.1")
     3(required-extension-version 'misc-extn "3.0")
    44
    5 (install-dynld hashes-support "2.1" -O3 -d0)
     5(install-dynld hash-utils "2.101")
    66
    7 (install-dynld RJMXHash "2.1")
    8 (install-dynld TWMXHash "2.1")
    9 (install-dynld FNVHash "2.1")
    10 (install-dynld FNVAHash "2.1")
    11 (install-dynld PHSFHash "2.1")
    12 (install-dynld RSHash "2.1")
    13 (install-dynld JSHash "2.1")
    14 (install-dynld PJWHash "2.1")
    15 (install-dynld ELFHash "2.1")
    16 (install-dynld BKDRHash "2.1")
    17 (install-dynld SDBMHash "2.1")
    18 (install-dynld DJBHash "2.1")
    19 (install-dynld NDJBHash "2.1")
    20 (install-dynld DEKHash "2.1")
    21 (install-dynld APHash "2.1")
    22 (install-dynld BRPHash "2.1")
    23 (install-dynld PYHash "2.1")
    24 (install-dynld RJL3Hash "2.1")
    25 (install-dynld ISPLHash "2.1")
    26 (install-dynld CRCHash "2.1")
     7(install-dynld hashes-support "2.101" -O3 -d0)
    278
    28 (install-dynld+docu hashes "2.1")
     9(install-dynld RJMXHash "2.101")
     10(install-dynld TWMXHash "2.101")
     11(install-dynld FNVHash "2.101")
     12(install-dynld FNVAHash "2.101")
     13(install-dynld PHSFHash "2.101")
     14(install-dynld RSHash "2.101")
     15(install-dynld JSHash "2.101")
     16(install-dynld PJWHash "2.101")
     17(install-dynld ELFHash "2.101")
     18(install-dynld BKDRHash "2.101")
     19(install-dynld SDBMHash "2.101")
     20(install-dynld DJBHash "2.101")
     21(install-dynld NDJBHash "2.101")
     22(install-dynld DEKHash "2.101")
     23(install-dynld APHash "2.101")
     24(install-dynld BRPHash "2.101")
     25(install-dynld PYHash "2.101")
     26(install-dynld RJL3Hash "2.101")
     27(install-dynld ISPLHash "2.101")
     28(install-dynld CRCHash "2.101")
     29
     30(install-dynld+docu hashes "2.101")
    2931
    3032(install-test "hashes-test.scm")
Note: See TracChangeset for help on using the changeset viewer.