Changeset 35500 in project


Ignore:
Timestamp:
04/30/18 15:58:03 (6 months ago)
Author:
kooda
Message:

Update CHICKEN 5's srfi-14 egg

Location:
release/5/srfi-14
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/srfi-14/tags/1.4/srfi-14.egg

    r34025 r35500  
    11;; -*- scheme -*-
    2 ((synopsis "SRFI-14 character-sets library")
     2((version "1.4")
     3 (synopsis "SRFI-14 character-sets library")
    34 (author "Olin Shivers")
    45 (maintainer "The CHICKEN Team")
    56 (category data)
    67 (license "BSD")
    7  (components (extension srfi-14 (types-file))))
     8 (components (extension srfi-14 (types-file (predefined)))))
  • release/5/srfi-14/tags/1.4/srfi-14.scm

    r32275 r35500  
    7171   ucs-range->char-set!)
    7272
    73 (import scheme chicken)
     73(import (scheme)
     74        (chicken base)
     75        (chicken fixnum)
     76        (chicken platform))
    7477
    7578(register-feature! 'srfi-14)
  • release/5/srfi-14/tags/1.4/srfi-14.types

    r34718 r35500  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-14/trunk/srfi-14.scm
     1(srfi-14#->char-set (procedure srfi-14#->char-set (*) (struct char-set))
     2                    (((struct char-set)) #(1))
     3                    ((string) (string->char-set #(1)))
     4                    ((char) (char-set #(1))))
    25
    3 ; END OF FILE
     6(srfi-14#char-set (#(procedure #:enforce) srfi-14#char-set (#!rest char) (struct char-set)))
     7(srfi-14#char-set->list (#(procedure #:clean #:enforce) srfi-14#char-set->list ((struct char-set)) list))
     8(srfi-14#char-set->string (#(procedure #:clean #:enforce) srfi-14#char-set->string ((struct char-set)) string))
     9(srfi-14#char-set-adjoin (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin ((struct char-set) #!rest char) (struct char-set)))
     10(srfi-14#char-set-adjoin! (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin! ((struct char-set) #!rest char) (struct char-set)))
     11(srfi-14#char-set-any (#(procedure #:enforce) srfi-14#char-set-any ((procedure (char) *) (struct char-set)) *))
     12(srfi-14#char-set-complement (#(procedure #:clean #:enforce) srfi-14#char-set-complement ((struct char-set)) (struct char-set)))
     13(srfi-14#char-set-complement! (#(procedure #:clean #:enforce) srfi-14#char-set-complement! ((struct char-set)) (struct char-set)))
     14(srfi-14#char-set-contains? (#(procedure #:clean #:enforce) srfi-14#char-set-contains? ((struct char-set) char) boolean))
     15(srfi-14#char-set-copy (#(procedure #:clean #:enforce) srfi-14#char-set-copy ((struct char-set)) (struct char-set)))
     16(srfi-14#char-set-count (#(procedure #:clean #:enforce) srfi-14#char-set-count ((procedure (char) *) (struct char-set)) fixnum))
     17(srfi-14#char-set-cursor (#(procedure #:clean #:enforce) srfi-14#char-set-cursor ((struct char-set)) fixnum))
     18(srfi-14#char-set-cursor-next (#(procedure #:clean #:enforce) srfi-14#char-set-cursor-next ((struct char-set) fixnum) fixnum))
     19(srfi-14#char-set-delete (#(procedure #:clean #:enforce) srfi-14#char-set-delete ((struct char-set) #!rest char) (struct char-set)))
     20(srfi-14#char-set-delete! (#(procedure #:clean #:enforce) srfi-14#char-set-delete! ((struct char-set) #!rest char) (struct char-set)))
     21(srfi-14#char-set-diff+intersection (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
     22(srfi-14#char-set-diff+intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection! ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
     23(srfi-14#char-set-difference (#(procedure #:clean #:enforce) srfi-14#char-set-difference ((struct char-set) #!rest (struct char-set)) (struct char-set)))
     24(srfi-14#char-set-difference! (#(procedure #:clean #:enforce) srfi-14#char-set-difference! ((struct char-set) #!rest (struct char-set)) (struct char-set)))
     25(srfi-14#char-set-every (#(procedure #:enforce) srfi-14#char-set-every ((procedure (char) *) (struct char-set)) boolean))
     26(srfi-14#char-set-filter (#(procedure #:enforce) srfi-14#char-set-filter ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
     27(srfi-14#char-set-filter! (#(procedure #:enforce) srfi-14#char-set-filter! ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
     28(srfi-14#char-set-fold (#(procedure #:enforce) srfi-14#char-set-fold ((procedure (char *) *) * (struct char-set)) *))
     29(srfi-14#char-set-for-each (#(procedure #:enforce) srfi-14#char-set-for-each ((procedure (char) . *) (struct char-set)) undefined))
     30(srfi-14#char-set-hash (#(procedure #:clean #:enforce) srfi-14#char-set-hash ((struct char-set) #!optional number) number))
     31(srfi-14#char-set-intersection (#(procedure #:clean #:enforce) srfi-14#char-set-intersection (#!rest (struct char-set)) (struct char-set)))
     32(srfi-14#char-set-intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-intersection! (#!rest (struct char-set)) (struct char-set)))
     33(srfi-14#char-set-map (#(procedure #:enforce) srfi-14#char-set-map ((procedure (char) char) (struct char-set)) (struct char-set)))
     34(srfi-14#char-set-ref (#(procedure #:clean #:enforce) srfi-14#char-set-ref ((struct char-set) fixnum) char))
     35(srfi-14#char-set-size (#(procedure #:clean #:enforce) srfi-14#char-set-size ((struct char-set)) fixnum))
     36(srfi-14#char-set-unfold (#(procedure #:enforce) srfi-14#char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set)))
     37(srfi-14#char-set-unfold! (#(procedure #:enforce) srfi-14#char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set)))
     38(srfi-14#char-set-union (#(procedure #:clean #:enforce) srfi-14#char-set-union (#!rest (struct char-set)) (struct char-set)))
     39(srfi-14#char-set-union! (#(procedure #:clean #:enforce) srfi-14#char-set-union! (#!rest (struct char-set)) (struct char-set)))
     40(srfi-14#char-set-xor (#(procedure #:clean #:enforce) srfi-14#char-set-xor (#!rest (struct char-set)) (struct char-set)))
     41(srfi-14#char-set-xor! (#(procedure #:clean #:enforce) srfi-14#char-set-xor! (#!rest (struct char-set)) (struct char-set)))
     42(srfi-14#char-set:ascii (struct char-set))
     43(srfi-14#char-set:blank (struct char-set))
     44(srfi-14#char-set:digit (struct char-set))
     45(srfi-14#char-set:empty (struct char-set))
     46(srfi-14#char-set:full (struct char-set))
     47(srfi-14#char-set:graphic (struct char-set))
     48(srfi-14#char-set:hex-digit (struct char-set))
     49(srfi-14#char-set:iso-control (struct char-set))
     50(srfi-14#char-set:letter (struct char-set))
     51(srfi-14#char-set:letter+digit (struct char-set))
     52(srfi-14#char-set:lower-case (struct char-set))
     53(srfi-14#char-set:printing (struct char-set))
     54(srfi-14#char-set:punctuation (struct char-set))
     55(srfi-14#char-set:symbol (struct char-set))
     56(srfi-14#char-set:title-case (struct char-set))
     57(srfi-14#char-set:upper-case (struct char-set))
     58(srfi-14#char-set:whitespace (struct char-set))
     59
     60(srfi-14#char-set= (#(procedure #:clean #:enforce) srfi-14#char-set= (#!rest (struct char-set)) boolean)
     61                   (() '#t)
     62                   (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
     63(srfi-14#char-set<= (#(procedure #:clean #:enforce) srfi-14#char-set<= (#!rest (struct char-set)) boolean)
     64                    (() '#t)
     65                    (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
     66
     67(srfi-14#char-set? (#(procedure #:pure #:predicate (struct char-set)) srfi-14#char-set? (*) boolean))
     68(srfi-14#end-of-char-set? (#(procedure #:clean #:enforce) srfi-14#end-of-char-set? (fixnum) boolean))
     69(srfi-14#list->char-set (#(procedure #:clean #:enforce) srfi-14#list->char-set ((list-of char) #!optional (struct char-set)) (struct char-set)))
     70(srfi-14#list->char-set! (#(procedure #:clean #:enforce) srfi-14#list->char-set! ((list-of char) #!optional (struct char-set)) (struct char-set)))
     71(srfi-14#string->char-set (#(procedure #:clean #:enforce) srfi-14#string->char-set (string #!optional (struct char-set)) (struct char-set)))
     72(srfi-14#string->char-set! (#(procedure #:clean #:enforce) srfi-14#string->char-set! (string #!optional (struct char-set)) (struct char-set)))
     73(srfi-14#ucs-range->char-set (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
     74(srfi-14#ucs-range->char-set! (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set! (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
  • release/5/srfi-14/trunk/srfi-14.egg

    r34025 r35500  
    11;; -*- scheme -*-
    2 ((synopsis "SRFI-14 character-sets library")
     2((version "1.5")
     3 (synopsis "SRFI-14 character-sets library")
    34 (author "Olin Shivers")
    45 (maintainer "The CHICKEN Team")
    56 (category data)
    67 (license "BSD")
    7  (components (extension srfi-14 (types-file))))
     8 (components (extension srfi-14 (types-file (predefined)))))
  • release/5/srfi-14/trunk/srfi-14.scm

    r32275 r35500  
    7171   ucs-range->char-set!)
    7272
    73 (import scheme chicken)
     73(import (scheme)
     74        (chicken base)
     75        (chicken fixnum)
     76        (chicken platform))
    7477
    7578(register-feature! 'srfi-14)
  • release/5/srfi-14/trunk/srfi-14.types

    r34718 r35500  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-14/trunk/srfi-14.scm
     1(srfi-14#->char-set (procedure srfi-14#->char-set (*) (struct char-set))
     2                    (((struct char-set)) #(1))
     3                    ((string) (string->char-set #(1)))
     4                    ((char) (char-set #(1))))
    25
    3 ; END OF FILE
     6(srfi-14#char-set (#(procedure #:enforce) srfi-14#char-set (#!rest char) (struct char-set)))
     7(srfi-14#char-set->list (#(procedure #:clean #:enforce) srfi-14#char-set->list ((struct char-set)) list))
     8(srfi-14#char-set->string (#(procedure #:clean #:enforce) srfi-14#char-set->string ((struct char-set)) string))
     9(srfi-14#char-set-adjoin (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin ((struct char-set) #!rest char) (struct char-set)))
     10(srfi-14#char-set-adjoin! (#(procedure #:clean #:enforce) srfi-14#char-set-adjoin! ((struct char-set) #!rest char) (struct char-set)))
     11(srfi-14#char-set-any (#(procedure #:enforce) srfi-14#char-set-any ((procedure (char) *) (struct char-set)) *))
     12(srfi-14#char-set-complement (#(procedure #:clean #:enforce) srfi-14#char-set-complement ((struct char-set)) (struct char-set)))
     13(srfi-14#char-set-complement! (#(procedure #:clean #:enforce) srfi-14#char-set-complement! ((struct char-set)) (struct char-set)))
     14(srfi-14#char-set-contains? (#(procedure #:clean #:enforce) srfi-14#char-set-contains? ((struct char-set) char) boolean))
     15(srfi-14#char-set-copy (#(procedure #:clean #:enforce) srfi-14#char-set-copy ((struct char-set)) (struct char-set)))
     16(srfi-14#char-set-count (#(procedure #:clean #:enforce) srfi-14#char-set-count ((procedure (char) *) (struct char-set)) fixnum))
     17(srfi-14#char-set-cursor (#(procedure #:clean #:enforce) srfi-14#char-set-cursor ((struct char-set)) fixnum))
     18(srfi-14#char-set-cursor-next (#(procedure #:clean #:enforce) srfi-14#char-set-cursor-next ((struct char-set) fixnum) fixnum))
     19(srfi-14#char-set-delete (#(procedure #:clean #:enforce) srfi-14#char-set-delete ((struct char-set) #!rest char) (struct char-set)))
     20(srfi-14#char-set-delete! (#(procedure #:clean #:enforce) srfi-14#char-set-delete! ((struct char-set) #!rest char) (struct char-set)))
     21(srfi-14#char-set-diff+intersection (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
     22(srfi-14#char-set-diff+intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-diff+intersection! ((struct char-set) #!rest (struct char-set)) (struct char-set) (struct char-set)))
     23(srfi-14#char-set-difference (#(procedure #:clean #:enforce) srfi-14#char-set-difference ((struct char-set) #!rest (struct char-set)) (struct char-set)))
     24(srfi-14#char-set-difference! (#(procedure #:clean #:enforce) srfi-14#char-set-difference! ((struct char-set) #!rest (struct char-set)) (struct char-set)))
     25(srfi-14#char-set-every (#(procedure #:enforce) srfi-14#char-set-every ((procedure (char) *) (struct char-set)) boolean))
     26(srfi-14#char-set-filter (#(procedure #:enforce) srfi-14#char-set-filter ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
     27(srfi-14#char-set-filter! (#(procedure #:enforce) srfi-14#char-set-filter! ((procedure (char) *) (struct char-set) #!optional (struct char-set)) (struct char-set)))
     28(srfi-14#char-set-fold (#(procedure #:enforce) srfi-14#char-set-fold ((procedure (char *) *) * (struct char-set)) *))
     29(srfi-14#char-set-for-each (#(procedure #:enforce) srfi-14#char-set-for-each ((procedure (char) . *) (struct char-set)) undefined))
     30(srfi-14#char-set-hash (#(procedure #:clean #:enforce) srfi-14#char-set-hash ((struct char-set) #!optional number) number))
     31(srfi-14#char-set-intersection (#(procedure #:clean #:enforce) srfi-14#char-set-intersection (#!rest (struct char-set)) (struct char-set)))
     32(srfi-14#char-set-intersection! (#(procedure #:clean #:enforce) srfi-14#char-set-intersection! (#!rest (struct char-set)) (struct char-set)))
     33(srfi-14#char-set-map (#(procedure #:enforce) srfi-14#char-set-map ((procedure (char) char) (struct char-set)) (struct char-set)))
     34(srfi-14#char-set-ref (#(procedure #:clean #:enforce) srfi-14#char-set-ref ((struct char-set) fixnum) char))
     35(srfi-14#char-set-size (#(procedure #:clean #:enforce) srfi-14#char-set-size ((struct char-set)) fixnum))
     36(srfi-14#char-set-unfold (#(procedure #:enforce) srfi-14#char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set)))
     37(srfi-14#char-set-unfold! (#(procedure #:enforce) srfi-14#char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set)))
     38(srfi-14#char-set-union (#(procedure #:clean #:enforce) srfi-14#char-set-union (#!rest (struct char-set)) (struct char-set)))
     39(srfi-14#char-set-union! (#(procedure #:clean #:enforce) srfi-14#char-set-union! (#!rest (struct char-set)) (struct char-set)))
     40(srfi-14#char-set-xor (#(procedure #:clean #:enforce) srfi-14#char-set-xor (#!rest (struct char-set)) (struct char-set)))
     41(srfi-14#char-set-xor! (#(procedure #:clean #:enforce) srfi-14#char-set-xor! (#!rest (struct char-set)) (struct char-set)))
     42(srfi-14#char-set:ascii (struct char-set))
     43(srfi-14#char-set:blank (struct char-set))
     44(srfi-14#char-set:digit (struct char-set))
     45(srfi-14#char-set:empty (struct char-set))
     46(srfi-14#char-set:full (struct char-set))
     47(srfi-14#char-set:graphic (struct char-set))
     48(srfi-14#char-set:hex-digit (struct char-set))
     49(srfi-14#char-set:iso-control (struct char-set))
     50(srfi-14#char-set:letter (struct char-set))
     51(srfi-14#char-set:letter+digit (struct char-set))
     52(srfi-14#char-set:lower-case (struct char-set))
     53(srfi-14#char-set:printing (struct char-set))
     54(srfi-14#char-set:punctuation (struct char-set))
     55(srfi-14#char-set:symbol (struct char-set))
     56(srfi-14#char-set:title-case (struct char-set))
     57(srfi-14#char-set:upper-case (struct char-set))
     58(srfi-14#char-set:whitespace (struct char-set))
     59
     60(srfi-14#char-set= (#(procedure #:clean #:enforce) srfi-14#char-set= (#!rest (struct char-set)) boolean)
     61                   (() '#t)
     62                   (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
     63(srfi-14#char-set<= (#(procedure #:clean #:enforce) srfi-14#char-set<= (#!rest (struct char-set)) boolean)
     64                    (() '#t)
     65                    (((struct char-set)) (let ((#(tmp) #(1))) '#t)))
     66
     67(srfi-14#char-set? (#(procedure #:pure #:predicate (struct char-set)) srfi-14#char-set? (*) boolean))
     68(srfi-14#end-of-char-set? (#(procedure #:clean #:enforce) srfi-14#end-of-char-set? (fixnum) boolean))
     69(srfi-14#list->char-set (#(procedure #:clean #:enforce) srfi-14#list->char-set ((list-of char) #!optional (struct char-set)) (struct char-set)))
     70(srfi-14#list->char-set! (#(procedure #:clean #:enforce) srfi-14#list->char-set! ((list-of char) #!optional (struct char-set)) (struct char-set)))
     71(srfi-14#string->char-set (#(procedure #:clean #:enforce) srfi-14#string->char-set (string #!optional (struct char-set)) (struct char-set)))
     72(srfi-14#string->char-set! (#(procedure #:clean #:enforce) srfi-14#string->char-set! (string #!optional (struct char-set)) (struct char-set)))
     73(srfi-14#ucs-range->char-set (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
     74(srfi-14#ucs-range->char-set! (#(procedure #:clean #:enforce) srfi-14#ucs-range->char-set! (fixnum fixnum #!optional * (struct char-set)) (struct char-set)))
Note: See TracChangeset for help on using the changeset viewer.