Changeset 35502 in project


Ignore:
Timestamp:
04/30/18 16:08:22 (4 months ago)
Author:
kooda
Message:

Update CHICKEN 5's srfi-69 egg

Location:
release/5/srfi-69
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/srfi-69/tags/1.2/srfi-69.egg

    r34025 r35502  
    11;; -*- scheme -*-
    2 ((synopsis "SRFI-69 hash-table library")
     2((version "1.2")
     3 (synopsis "SRFI-69 hash-table library")
    34 (author "The CHICKEN Team")
    45 (maintainer "The CHICKEN Team")
    56 (category data)
    67 (license "BSD")
    7  (components (extension srfi-69 (types-file))))
     8 (components (extension srfi-69 (types-file (predefined)))))
  • release/5/srfi-69/tags/1.2/srfi-69.scm

    r34718 r35502  
    3131
    3232(foreign-declare "#define C_rnd_fix() (C_fix(rand()))")
    33 
    34 (register-feature! 'srfi-69)
    35 
    3633
    3734(define ##sys#number-hash-hook #f)      ; used in the "numbers" egg
     
    8986
    9087  (import (scheme)
    91           (chicken)
     88          (chicken base)
     89          (chicken fixnum)
    9290          (chicken foreign)
    9391          (chicken flonum)
    94           (chicken keyword))
    95 
     92          (chicken keyword)
     93          (chicken platform))
     94
     95  (import-for-syntax (chicken fixnum))
     96
     97  (register-feature! 'srfi-69)
    9698
    9799;;; Naming Conventions:
  • release/5/srfi-69/tags/1.2/srfi-69.types

    r34718 r35502  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-69/trunk/srfi-69.scm
     1(srfi-69#alist->hash-table (#(procedure #:clean #:enforce) srfi-69#alist->hash-table ((list-of pair) #!rest) (struct hash-table)))
     2(srfi-69#eq?-hash (#(procedure #:clean #:enforce) srfi-69#eq?-hash (* #!optional fixnum fixnum) fixnum))
     3(srfi-69#equal?-hash (#(procedure #:clean #:enforce) srfi-69#equal?-hash (* #!optional fixnum fixnum) fixnum))
     4(srfi-69#eqv?-hash (#(procedure #:clean #:enforce) srfi-69#eqv?-hash (* #!optional fixnum fixnum) fixnum))
     5(srfi-69#hash (#(procedure #:pure #:enforce) srfi-69#hash (* #!optional fixnum fixnum) fixnum))
     6(srfi-69#hash-by-identity (#(procedure #:pure #:enforce) srfi-69#hash-by-identity (* #!optional fixnum fixnum) fixnum))
     7(srfi-69#hash-table->alist (#(procedure #:clean #:enforce) srfi-69#hash-table->alist ((struct hash-table)) (list-of pair)))
     8(srfi-69#hash-table-clear! (#(procedure #:clean #:enforce) srfi-69#hash-table-clear! ((struct hash-table)) undefined))
     9(srfi-69#hash-table-copy (#(procedure #:clean #:enforce) srfi-69#hash-table-copy ((struct hash-table)) (struct hash-table)))
     10(srfi-69#hash-table-delete! (#(procedure #:clean #:enforce) srfi-69#hash-table-delete! ((struct hash-table) *) boolean))
     11(srfi-69#hash-table-equivalence-function (#(procedure #:clean #:enforce) srfi-69#hash-table-equivalence-function ((struct hash-table)) (procedure (* *) *)))
     12(srfi-69#hash-table-exists? (#(procedure #:clean #:enforce) srfi-69#hash-table-exists? ((struct hash-table) *) boolean))
     13(srfi-69#hash-table-fold (#(procedure #:enforce) srfi-69#hash-table-fold ((struct hash-table) (procedure (* * *) *) *) *))
     14(srfi-69#hash-table-for-each (#(procedure #:enforce) srfi-69#hash-table-for-each ((struct hash-table) (procedure (* *) . *)) undefined))
    215
    3 ; END OF FILE
     16(srfi-69#hash-table-has-initial? (#(procedure #:clean #:enforce) srfi-69#hash-table-has-initial? ((struct hash-table)) boolean)
     17                         (((struct hash-table)) (##sys#slot #(1) '9))) ;XXX might return other than #t
     18
     19(srfi-69#hash-table-hash-function (#(procedure #:clean #:enforce) srfi-69#hash-table-hash-function ((struct hash-table)) (procedure (* fixnum) fixnum))
     20                          (((struct hash-table)) (##sys#slot #(1) '4)))
     21
     22(srfi-69#hash-table-initial (#(procedure #:clean #:enforce) srfi-69#hash-table-initial ((struct hash-table)) *))
     23(srfi-69#hash-table-keys (#(procedure #:clean #:enforce) srfi-69#hash-table-keys ((struct hash-table)) list))
     24(srfi-69#hash-table-map (#(procedure #:clean #:enforce) srfi-69#hash-table-map ((struct hash-table) (procedure (* *) *)) list))
     25
     26(srfi-69#hash-table-max-load (#(procedure #:clean #:enforce) srfi-69#hash-table-max-load ((struct hash-table)) fixnum)
     27                     (((struct hash-table)) (##sys#slot #(1) '6)))
     28
     29(srfi-69#hash-table-merge (#(procedure #:clean #:enforce) srfi-69#hash-table-merge ((struct hash-table) (struct hash-table)) (struct hash-table)))
     30(srfi-69#hash-table-merge! (#(procedure #:clean #:enforce) srfi-69#hash-table-merge! ((struct hash-table) (struct hash-table)) undefined))
     31
     32(srfi-69#hash-table-min-load (#(procedure #:clean #:enforce) srfi-69#hash-table-min-load ((struct hash-table)) fixnum)
     33                     (((struct hash-table)) (##sys#slot #(1) '5)))
     34
     35(srfi-69#hash-table-ref (#(procedure #:clean #:enforce) srfi-69#hash-table-ref ((struct hash-table) * #!optional (procedure () *)) *))
     36(srfi-69#hash-table-ref/default (#(procedure #:clean #:enforce) srfi-69#hash-table-ref/default ((struct hash-table) * *) *))
     37(srfi-69#hash-table-remove! (#(procedure #:clean #:enforce) srfi-69#hash-table-remove! ((struct hash-table) (procedure (* *) *)) undefined))
     38(srfi-69#hash-table-set! (#(procedure #:clean #:enforce) srfi-69#hash-table-set! ((struct hash-table) * *) undefined))
     39
     40(srfi-69#hash-table-size (#(procedure #:clean #:enforce) srfi-69#hash-table-size ((struct hash-table)) fixnum)
     41                 (((struct hash-table)) (##sys#slot #(1) '2)))
     42
     43(srfi-69#hash-table-update! (#(procedure #:enforce) srfi-69#hash-table-update! ((struct hash-table) * (procedure (*) *) #!optional (procedure () *)) *))
     44(srfi-69#hash-table-update!/default (#(procedure #:clean #:enforce) srfi-69#hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *))
     45(srfi-69#hash-table-values (#(procedure #:clean #:enforce) srfi-69#hash-table-values ((struct hash-table)) list))
     46(srfi-69#hash-table-walk (#(procedure #:enforce) srfi-69#hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined))
     47
     48(srfi-69#hash-table-weak-keys (#(procedure #:clean #:enforce) srfi-69#hash-table-weak-keys ((struct hash-table)) boolean)
     49                      (((struct hash-table)) (##sys#slot #(1) '7)))
     50
     51(srfi-69#hash-table-weak-values (#(procedure #:clean #:enforce) srfi-69#hash-table-weak-values ((struct hash-table)) boolean)
     52                        (((struct hash-table)) (##sys#slot #(1) '8)))
     53
     54(srfi-69#hash-table? (#(procedure #:pure #:predicate (struct hash-table)) srfi-69#hash-table? (*) boolean))
     55
     56;;XXX if we want to hardcode hash-default-bound here, we could rewrite the 1-arg case...
     57;     (applies to all hash-functions)
     58(srfi-69#keyword-hash (#(procedure #:clean #:enforce) srfi-69#keyword-hash (* #!optional fixnum fixnum) fixnum))
     59
     60(srfi-69#make-hash-table (#(procedure #:clean #:enforce) srfi-69#make-hash-table (#!rest) (struct hash-table)))
     61(srfi-69#number-hash (#(procedure #:clean #:enforce) srfi-69#number-hash (fixnum #!optional fixnum fixnum) fixnum))
     62(srfi-69#object-uid-hash (#(procedure #:clean #:enforce) srfi-69#object-uid-hash (* #!optional fixnum fixnum) fixnum))
     63(srfi-69#symbol-hash (#(procedure #:clean #:enforce) srfi-69#symbol-hash (symbol #!optional fixnum fixnum) fixnum))
     64(srfi-69#string-hash (#(procedure #:clean #:enforce) srfi-69#string-hash (string #!optional fixnum fixnum fixnum fixnum) number))
     65(srfi-69#string-hash-ci (#(procedure #:clean #:enforce) srfi-69#string-hash-ci (string #!optional fixnum fixnum fixnum fixnum) number))
     66(srfi-69#string-ci-hash (#(procedure #:clean #:enforce) srfi-69#string-ci-hash (string #!optional fixnum fixnum fixnum fixnum) number))
  • release/5/srfi-69/tags/1.2/tests/hash-table-tests.scm

    r33353 r35502  
    11;;;; hash-table-tests.scm
    22
    3 (require-extension chicken.random data-structures srfi-69)
     3(import chicken.fixnum chicken.random chicken.sort srfi-69)
    44
    55(print "SRFI 69 procedures")
     
    223223
    224224(let ((dd (recursive-hash-max-depth))
    225       (tls (list (random 100000) (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000))))))))))))))))
     225      (tls (list (pseudo-random-integer 100000) (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000))))))))))))))))
    226226  (let ((hsh1 (equal?-hash tls 536870912 0)))
    227227    (recursive-hash-max-depth 10)
     
    233233
    234234(let ((dl (recursive-hash-max-length))
    235       (tv (vector (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000))))
     235      (tv (vector (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000))))
    236236  (let ((hsh1 (equal?-hash tv 536870912 0)))
    237237    (recursive-hash-max-length 10)
  • release/5/srfi-69/trunk/srfi-69.egg

    r34025 r35502  
    11;; -*- scheme -*-
    2 ((synopsis "SRFI-69 hash-table library")
     2((version "1.3")
     3 (synopsis "SRFI-69 hash-table library")
    34 (author "The CHICKEN Team")
    45 (maintainer "The CHICKEN Team")
    56 (category data)
    67 (license "BSD")
    7  (components (extension srfi-69 (types-file))))
     8 (components (extension srfi-69 (types-file (predefined)))))
  • release/5/srfi-69/trunk/srfi-69.scm

    r34718 r35502  
    3131
    3232(foreign-declare "#define C_rnd_fix() (C_fix(rand()))")
    33 
    34 (register-feature! 'srfi-69)
    35 
    3633
    3734(define ##sys#number-hash-hook #f)      ; used in the "numbers" egg
     
    8986
    9087  (import (scheme)
    91           (chicken)
     88          (chicken base)
     89          (chicken fixnum)
    9290          (chicken foreign)
    9391          (chicken flonum)
    94           (chicken keyword))
    95 
     92          (chicken keyword)
     93          (chicken platform))
     94
     95  (import-for-syntax (chicken fixnum))
     96
     97  (register-feature! 'srfi-69)
    9698
    9799;;; Naming Conventions:
  • release/5/srfi-69/trunk/srfi-69.types

    r34718 r35502  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-69/trunk/srfi-69.scm
     1(srfi-69#alist->hash-table (#(procedure #:clean #:enforce) srfi-69#alist->hash-table ((list-of pair) #!rest) (struct hash-table)))
     2(srfi-69#eq?-hash (#(procedure #:clean #:enforce) srfi-69#eq?-hash (* #!optional fixnum fixnum) fixnum))
     3(srfi-69#equal?-hash (#(procedure #:clean #:enforce) srfi-69#equal?-hash (* #!optional fixnum fixnum) fixnum))
     4(srfi-69#eqv?-hash (#(procedure #:clean #:enforce) srfi-69#eqv?-hash (* #!optional fixnum fixnum) fixnum))
     5(srfi-69#hash (#(procedure #:pure #:enforce) srfi-69#hash (* #!optional fixnum fixnum) fixnum))
     6(srfi-69#hash-by-identity (#(procedure #:pure #:enforce) srfi-69#hash-by-identity (* #!optional fixnum fixnum) fixnum))
     7(srfi-69#hash-table->alist (#(procedure #:clean #:enforce) srfi-69#hash-table->alist ((struct hash-table)) (list-of pair)))
     8(srfi-69#hash-table-clear! (#(procedure #:clean #:enforce) srfi-69#hash-table-clear! ((struct hash-table)) undefined))
     9(srfi-69#hash-table-copy (#(procedure #:clean #:enforce) srfi-69#hash-table-copy ((struct hash-table)) (struct hash-table)))
     10(srfi-69#hash-table-delete! (#(procedure #:clean #:enforce) srfi-69#hash-table-delete! ((struct hash-table) *) boolean))
     11(srfi-69#hash-table-equivalence-function (#(procedure #:clean #:enforce) srfi-69#hash-table-equivalence-function ((struct hash-table)) (procedure (* *) *)))
     12(srfi-69#hash-table-exists? (#(procedure #:clean #:enforce) srfi-69#hash-table-exists? ((struct hash-table) *) boolean))
     13(srfi-69#hash-table-fold (#(procedure #:enforce) srfi-69#hash-table-fold ((struct hash-table) (procedure (* * *) *) *) *))
     14(srfi-69#hash-table-for-each (#(procedure #:enforce) srfi-69#hash-table-for-each ((struct hash-table) (procedure (* *) . *)) undefined))
    215
    3 ; END OF FILE
     16(srfi-69#hash-table-has-initial? (#(procedure #:clean #:enforce) srfi-69#hash-table-has-initial? ((struct hash-table)) boolean)
     17                         (((struct hash-table)) (##sys#slot #(1) '9))) ;XXX might return other than #t
     18
     19(srfi-69#hash-table-hash-function (#(procedure #:clean #:enforce) srfi-69#hash-table-hash-function ((struct hash-table)) (procedure (* fixnum) fixnum))
     20                          (((struct hash-table)) (##sys#slot #(1) '4)))
     21
     22(srfi-69#hash-table-initial (#(procedure #:clean #:enforce) srfi-69#hash-table-initial ((struct hash-table)) *))
     23(srfi-69#hash-table-keys (#(procedure #:clean #:enforce) srfi-69#hash-table-keys ((struct hash-table)) list))
     24(srfi-69#hash-table-map (#(procedure #:clean #:enforce) srfi-69#hash-table-map ((struct hash-table) (procedure (* *) *)) list))
     25
     26(srfi-69#hash-table-max-load (#(procedure #:clean #:enforce) srfi-69#hash-table-max-load ((struct hash-table)) fixnum)
     27                     (((struct hash-table)) (##sys#slot #(1) '6)))
     28
     29(srfi-69#hash-table-merge (#(procedure #:clean #:enforce) srfi-69#hash-table-merge ((struct hash-table) (struct hash-table)) (struct hash-table)))
     30(srfi-69#hash-table-merge! (#(procedure #:clean #:enforce) srfi-69#hash-table-merge! ((struct hash-table) (struct hash-table)) undefined))
     31
     32(srfi-69#hash-table-min-load (#(procedure #:clean #:enforce) srfi-69#hash-table-min-load ((struct hash-table)) fixnum)
     33                     (((struct hash-table)) (##sys#slot #(1) '5)))
     34
     35(srfi-69#hash-table-ref (#(procedure #:clean #:enforce) srfi-69#hash-table-ref ((struct hash-table) * #!optional (procedure () *)) *))
     36(srfi-69#hash-table-ref/default (#(procedure #:clean #:enforce) srfi-69#hash-table-ref/default ((struct hash-table) * *) *))
     37(srfi-69#hash-table-remove! (#(procedure #:clean #:enforce) srfi-69#hash-table-remove! ((struct hash-table) (procedure (* *) *)) undefined))
     38(srfi-69#hash-table-set! (#(procedure #:clean #:enforce) srfi-69#hash-table-set! ((struct hash-table) * *) undefined))
     39
     40(srfi-69#hash-table-size (#(procedure #:clean #:enforce) srfi-69#hash-table-size ((struct hash-table)) fixnum)
     41                 (((struct hash-table)) (##sys#slot #(1) '2)))
     42
     43(srfi-69#hash-table-update! (#(procedure #:enforce) srfi-69#hash-table-update! ((struct hash-table) * (procedure (*) *) #!optional (procedure () *)) *))
     44(srfi-69#hash-table-update!/default (#(procedure #:clean #:enforce) srfi-69#hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *))
     45(srfi-69#hash-table-values (#(procedure #:clean #:enforce) srfi-69#hash-table-values ((struct hash-table)) list))
     46(srfi-69#hash-table-walk (#(procedure #:enforce) srfi-69#hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined))
     47
     48(srfi-69#hash-table-weak-keys (#(procedure #:clean #:enforce) srfi-69#hash-table-weak-keys ((struct hash-table)) boolean)
     49                      (((struct hash-table)) (##sys#slot #(1) '7)))
     50
     51(srfi-69#hash-table-weak-values (#(procedure #:clean #:enforce) srfi-69#hash-table-weak-values ((struct hash-table)) boolean)
     52                        (((struct hash-table)) (##sys#slot #(1) '8)))
     53
     54(srfi-69#hash-table? (#(procedure #:pure #:predicate (struct hash-table)) srfi-69#hash-table? (*) boolean))
     55
     56;;XXX if we want to hardcode hash-default-bound here, we could rewrite the 1-arg case...
     57;     (applies to all hash-functions)
     58(srfi-69#keyword-hash (#(procedure #:clean #:enforce) srfi-69#keyword-hash (* #!optional fixnum fixnum) fixnum))
     59
     60(srfi-69#make-hash-table (#(procedure #:clean #:enforce) srfi-69#make-hash-table (#!rest) (struct hash-table)))
     61(srfi-69#number-hash (#(procedure #:clean #:enforce) srfi-69#number-hash (fixnum #!optional fixnum fixnum) fixnum))
     62(srfi-69#object-uid-hash (#(procedure #:clean #:enforce) srfi-69#object-uid-hash (* #!optional fixnum fixnum) fixnum))
     63(srfi-69#symbol-hash (#(procedure #:clean #:enforce) srfi-69#symbol-hash (symbol #!optional fixnum fixnum) fixnum))
     64(srfi-69#string-hash (#(procedure #:clean #:enforce) srfi-69#string-hash (string #!optional fixnum fixnum fixnum fixnum) number))
     65(srfi-69#string-hash-ci (#(procedure #:clean #:enforce) srfi-69#string-hash-ci (string #!optional fixnum fixnum fixnum fixnum) number))
     66(srfi-69#string-ci-hash (#(procedure #:clean #:enforce) srfi-69#string-ci-hash (string #!optional fixnum fixnum fixnum fixnum) number))
  • release/5/srfi-69/trunk/tests/hash-table-tests.scm

    r33353 r35502  
    11;;;; hash-table-tests.scm
    22
    3 (require-extension chicken.random data-structures srfi-69)
     3(import chicken.fixnum chicken.random chicken.sort srfi-69)
    44
    55(print "SRFI 69 procedures")
     
    223223
    224224(let ((dd (recursive-hash-max-depth))
    225       (tls (list (random 100000) (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000) (list (random 100000))))))))))))))))
     225      (tls (list (pseudo-random-integer 100000) (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000) (list (pseudo-random-integer 100000))))))))))))))))
    226226  (let ((hsh1 (equal?-hash tls 536870912 0)))
    227227    (recursive-hash-max-depth 10)
     
    233233
    234234(let ((dl (recursive-hash-max-length))
    235       (tv (vector (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000) (random 100000))))
     235      (tv (vector (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000) (pseudo-random-integer 100000))))
    236236  (let ((hsh1 (equal?-hash tv 536870912 0)))
    237237    (recursive-hash-max-length 10)
Note: See TracChangeset for help on using the changeset viewer.