Changeset 35498 in project


Ignore:
Timestamp:
04/30/18 15:47:34 (4 weeks ago)
Author:
kooda
Message:

Update CHICKEN 5's srfi-13 egg

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

Legend:

Unmodified
Added
Removed
  • release/5/srfi-13/tags/1.3/srfi-13.egg

    r34025 r35498  
    77 (dependencies srfi-14)
    88 (test-dependencies test)
    9  (components (extension srfi-13 (types-file))))
     9 (components (extension srfi-13 (types-file (predefined)))))
  • release/5/srfi-13/tags/1.3/srfi-13.scm

    r34718 r35498  
    1111 kmp-step
    1212 make-kmp-restart-vector
    13  reverse-list->string
    1413 string->list
    1514 string-any
     
    9493 xsubstring)
    9594
    96 (import chicken
    97         (except scheme string-copy string-fill! string->list)
     95(import (chicken base)
     96        (chicken fixnum)
     97        (chicken platform)
     98        (except (scheme) string-copy string-fill! string->list)
    9899        (only (chicken string) reverse-list->string)
    99         srfi-14)
     100        (srfi 14))
    100101
    101102(register-feature! 'srfi-13)
  • release/5/srfi-13/tags/1.3/srfi-13.types

    r34718 r35498  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-13/trunk/srfi-13.scm
     1(srfi-13#check-substring-spec (#(procedure #:clean #:enforce) srfi-13#check-substring-spec (* string fixnum fixnum) undefined))
     2(srfi-13#kmp-step (#(procedure #:enforce) srfi-13#kmp-step (string vector char fixnum (procedure (char char) *) fixnum) fixnum))
     3(srfi-13#make-kmp-restart-vector (#(procedure #:clean #:enforce) srfi-13#make-kmp-restart-vector (string #!optional (procedure (* *) *) fixnum fixnum) vector))
    24
    3 ; END OF FILE
     5(srfi-13#string-any
     6 (forall (a)
     7  (#(procedure #:enforce)
     8   srfi-13#string-any
     9   ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
     10   (or boolean a))))
     11
     12(srfi-13#string-append/shared (#(procedure #:clean #:enforce) srfi-13#string-append/shared (#!rest string) string)
     13                      ((string string) (##sys#string-append #(1) #(2))))
     14
     15(srfi-13#string-ci< (#(procedure #:clean #:enforce) srfi-13#string-ci< (string string #!optional fixnum fixnum) boolean)
     16            ((string string) (srfi-13#string-ci<? #(1) #(2))))
     17
     18(srfi-13#string-ci<= (#(procedure #:clean #:enforce) srfi-13#string-ci<= (string string #!optional fixnum fixnum) boolean)
     19             ((string string) (srfi-13#string-ci<=? #(1) #(2))))
     20
     21(srfi-13#string-ci<> (#(procedure #:clean #:enforce) srfi-13#string-ci<> (string string #!optional fixnum fixnum) boolean)
     22             ((string string) (not (##core#inline "C_i_string_ci_equal_p" #(1) #(2)))))
     23
     24(srfi-13#string-ci= (#(procedure #:clean #:enforce) srfi-13#string-ci= (string string #!optional fixnum fixnum) boolean)
     25            ((string string) (##core#inline "C_i_string_ci_equal_p" #(1) #(2))))
     26
     27(srfi-13#string-ci> (#(procedure #:clean #:enforce) srfi-13#string-ci> (string string #!optional fixnum fixnum) boolean)
     28            ((string string) (srfi-13#string-ci>? #(1) #(2))))
     29
     30(srfi-13#string-ci>= (#(procedure #:clean #:enforce) srfi-13#string-ci>= (string string #!optional fixnum fixnum) boolean)
     31             ((string string) (srfi-13#string-ci>=? #(1) #(2))))
     32
     33(srfi-13#string-compare (#(procedure #:enforce) srfi-13#string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
     34(srfi-13#string-compare-ci (#(procedure #:enforce) srfi-13#string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
     35(srfi-13#string-concatenate (#(procedure #:clean #:enforce) srfi-13#string-concatenate ((list-of string)) string))
     36(srfi-13#string-concatenate-reverse (#(procedure #:clean #:enforce) srfi-13#string-concatenate-reverse ((list-of string) #!optional string fixnum) string))
     37(srfi-13#string-concatenate-reverse/shared (#(procedure #:clean #:enforce) srfi-13#string-concatenate-reverse/shared ((list-of string) #!optional string fixnum) string))
     38(srfi-13#string-concatenate/shared (#(procedure #:clean #:enforce) srfi-13#string-concatenate/shared ((list-of string)) string))
     39(srfi-13#string-contains (#(procedure #:clean #:enforce) srfi-13#string-contains (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
     40(srfi-13#string-contains-ci (#(procedure #:clean #:enforce) srfi-13#string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
     41(srfi-13#string-copy (#(procedure #:clean #:enforce) srfi-13#string-copy (string #!optional fixnum fixnum) string))
     42(srfi-13#string-copy! (#(procedure #:clean #:enforce) srfi-13#string-copy! (string fixnum string #!optional fixnum fixnum) undefined))
     43(srfi-13#string-count (#(procedure #:clean #:enforce) srfi-13#string-count (string * #!optional fixnum fixnum) fixnum))
     44(srfi-13#string-delete (#(procedure #:clean #:enforce) srfi-13#string-delete (* string #!optional fixnum fixnum) string))
     45(srfi-13#string-downcase (#(procedure #:clean #:enforce) srfi-13#string-downcase (string #!optional fixnum fixnum) string))
     46(srfi-13#string-downcase! (#(procedure #:clean #:enforce) srfi-13#string-downcase! (string #!optional fixnum fixnum) string))
     47(srfi-13#string-drop (#(procedure #:clean #:enforce) srfi-13#string-drop (string fixnum) string))
     48(srfi-13#string-drop-right (#(procedure #:clean #:enforce) srfi-13#string-drop-right (string fixnum) string))
     49
     50(srfi-13#string-every
     51 (forall (a)
     52  (#(procedure #:enforce)
     53   srfi-13#string-every
     54   ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
     55   (or boolean a))))
     56
     57(srfi-13#string-fill! (#(procedure #:clean #:enforce) srfi-13#string-fill! (string char #!optional fixnum fixnum) string))
     58
     59(srfi-13#string-filter
     60 (#(procedure #:enforce)
     61  srfi-13#string-filter
     62  ((or char (struct char-set) (procedure (char) *)) string #!optional fixnum fixnum)
     63  string))
     64
     65(srfi-13#string-fold (#(procedure #:enforce) srfi-13#string-fold ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
     66
     67(srfi-13#string-fold-right (#(procedure #:enforce) srfi-13#string-fold-right ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
     68(srfi-13#string-for-each (#(procedure #:enforce) srfi-13#string-for-each ((procedure (char) . *) string #!optional fixnum fixnum) undefined))
     69(srfi-13#string-for-each-index (#(procedure #:enforce) srfi-13#string-for-each-index ((procedure (fixnum) . *) string #!optional fixnum fixnum) undefined))
     70
     71(srfi-13#string-index
     72 (#(procedure #:enforce)
     73  srfi-13#string-index
     74  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     75  (or fixnum false)))
     76
     77(srfi-13#string-index-right
     78 (#(procedure #:enforce)
     79  srfi-13#string-index-right
     80  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     81  (or fixnum false)))
     82
     83(srfi-13#string-join (#(procedure #:clean #:enforce) srfi-13#string-join (list #!optional string symbol) string))
     84(srfi-13#string-kmp-partial-search (#(procedure #:enforce) srfi-13#string-kmp-partial-search (string vector string fixnum #!optional (procedure (char char) *) fixnum fixnum fixnum) fixnum))
     85(srfi-13#string-map (#(procedure #:enforce) srfi-13#string-map ((procedure (char) char) string #!optional fixnum fixnum) string))
     86(srfi-13#string-map! (#(procedure #:enforce) srfi-13#string-map! ((procedure (char) char) string #!optional fixnum fixnum) string))
     87
     88(srfi-13#string-null? (#(procedure #:clean #:enforce) srfi-13#string-null? (string) boolean)
     89              ((string) (##core#inline "C_zero_length_p" #(1))))
     90
     91(srfi-13#string-pad (#(procedure #:clean #:enforce) srfi-13#string-pad (string fixnum #!optional char fixnum fixnum) string))
     92(srfi-13#string-pad-right (#(procedure #:clean #:enforce) srfi-13#string-pad-right (string fixnum #!optional char fixnum fixnum) string))
     93(srfi-13#string-parse-final-start+end (#(procedure #:enforce) srfi-13#string-parse-final-start+end (procedure string #!rest) . *))
     94(srfi-13#string-parse-start+end (#(procedure #:enforce) srfi-13#string-parse-start+end (procedure string #!rest) . *))
     95(srfi-13#string-prefix-ci? (#(procedure #:clean #:enforce) srfi-13#string-prefix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     96(srfi-13#string-prefix-length (#(procedure #:clean #:enforce) srfi-13#string-prefix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     97(srfi-13#string-prefix-length-ci (#(procedure #:clean #:enforce) srfi-13#string-prefix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     98(srfi-13#string-prefix? (#(procedure #:clean #:enforce) srfi-13#string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     99(srfi-13#string-replace (#(procedure #:clean #:enforce) srfi-13#string-replace (string string fixnum fixnum #!optional fixnum fixnum) string))
     100(srfi-13#string-reverse (#(procedure #:clean #:enforce) srfi-13#string-reverse (string #!optional fixnum fixnum) string))
     101(srfi-13#string-reverse! (#(procedure #:clean #:enforce) srfi-13#string-reverse! (string #!optional fixnum fixnum) string))
     102
     103(srfi-13#string-skip
     104 (#(procedure #:enforce)
     105  srfi-13#string-skip
     106  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     107  (or fixnum false)))
     108
     109(srfi-13#string-skip-right
     110 (#(procedure #:enforce)
     111  srfi-13#string-skip-right
     112  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     113  (or fixnum false)))
     114
     115(srfi-13#string-suffix-ci? (#(procedure #:clean #:enforce) srfi-13#string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     116(srfi-13#string-suffix-length (#(procedure #:clean #:enforce) srfi-13#string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     117(srfi-13#string-suffix-length-ci (#(procedure #:clean #:enforce) srfi-13#string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     118(srfi-13#string-suffix? (#(procedure #:clean #:enforce) srfi-13#string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     119(srfi-13#string-tabulate (#(procedure #:enforce) srfi-13#string-tabulate ((procedure (fixnum) char) fixnum) string))
     120(srfi-13#string-take (#(procedure #:clean #:enforce) srfi-13#string-take (string fixnum) string))
     121(srfi-13#string-take-right (#(procedure #:clean #:enforce) srfi-13#string-take-right (string fixnum) string))
     122(srfi-13#string-titlecase (#(procedure #:clean #:enforce) srfi-13#string-titlecase (string #!optional fixnum fixnum) string))
     123(srfi-13#string-titlecase! (#(procedure #:clean #:enforce) srfi-13#string-titlecase! (string #!optional fixnum fixnum) string))
     124
     125(srfi-13#string-tokenize
     126 (#(procedure #:clean #:enforce) srfi-13#string-tokenize (string #!optional (struct char-set) fixnum fixnum) list))
     127
     128(srfi-13#string-trim
     129 (#(procedure #:enforce)
     130  srfi-13#string-trim
     131  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     132  string))
     133
     134(srfi-13#string-trim-both
     135 (#(procedure #:enforce)
     136  srfi-13#string-trim-both
     137  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     138  string))
     139
     140(srfi-13#string-trim-right
     141 (#(procedure #:enforce)
     142  srfi-13#string-trim-right
     143  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     144  string))
     145
     146(srfi-13#string-unfold (#(procedure #:enforce) srfi-13#string-unfold (procedure procedure procedure * #!optional * procedure) string)) ;XXX
     147(srfi-13#string-unfold-right (#(procedure #:enforce) srfi-13#string-unfold-right (procedure procedure procedure * #!optional * procedure) string)) ;XXX
     148(srfi-13#string-upcase (#(procedure #:clean #:enforce) srfi-13#string-upcase (string #!optional fixnum fixnum) string))
     149(srfi-13#string-upcase! (#(procedure #:clean #:enforce) srfi-13#string-upcase! (string #!optional fixnum fixnum) string))
     150(srfi-13#string-xcopy! (#(procedure #:clean #:enforce) srfi-13#string-xcopy! (string string string fixnum #!optional fixnum fixnum fixnum) string))
     151
     152(srfi-13#string< (#(procedure #:clean #:enforce) string< (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     153         ((string string) (scheme#string<? #(1) #(2))))
     154
     155(srfi-13#string<= (#(procedure #:clean #:enforce) string<= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     156          ((string string) (scheme#string<=? #(1) #(2))))
     157
     158(srfi-13#string<> (#(procedure #:clean #:enforce) srfi-13#string<> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     159          ((string string) (not (##core#inline "C_i_string_equal_p" #(1) #(2)))))
     160
     161(srfi-13#string= (#(procedure #:clean #:enforce) srfi-13#string= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     162         ((string string) (##core#inline "C_i_string_equal_p" #(1) #(2))))
     163
     164(srfi-13#string> (#(procedure #:clean #:enforce) srfi-13#string> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     165         ((string string) (scheme#string>? #(1) #(2))))
     166
     167(srfi-13#string>= (#(procedure #:clean #:enforce) srfi-13#string>= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     168          ((string string) (scheme#string>=? #(1) #(2))))
     169
     170(srfi-13#substring-spec-ok? (#(procedure #:clean #:enforce) srfi-13#substring-spec-ok? (string fixnum fixnum) boolean))
     171(srfi-13#substring/shared (#(procedure #:clean #:enforce) srfi-13#substring/shared (string fixnum #!optional fixnum) string))
     172(srfi-13#xsubstring (#(procedure #:clean #:enforce) srfi-13#xsubstring (string fixnum #!optional fixnum fixnum fixnum) string))
  • release/5/srfi-13/tags/1.3/tests/run.scm

    r34718 r35498  
    1 (import (chicken format) srfi-13 srfi-14 test)
     1(import (chicken string) (chicken format) srfi-13 srfi-14 test)
    22
    33(define (fill text)
  • release/5/srfi-13/trunk/srfi-13.egg

    r34025 r35498  
    77 (dependencies srfi-14)
    88 (test-dependencies test)
    9  (components (extension srfi-13 (types-file))))
     9 (components (extension srfi-13 (types-file (predefined)))))
  • release/5/srfi-13/trunk/srfi-13.scm

    r34718 r35498  
    1111 kmp-step
    1212 make-kmp-restart-vector
    13  reverse-list->string
    1413 string->list
    1514 string-any
     
    9493 xsubstring)
    9594
    96 (import chicken
    97         (except scheme string-copy string-fill! string->list)
     95(import (chicken base)
     96        (chicken fixnum)
     97        (chicken platform)
     98        (except (scheme) string-copy string-fill! string->list)
    9899        (only (chicken string) reverse-list->string)
    99         srfi-14)
     100        (srfi 14))
    100101
    101102(register-feature! 'srfi-13)
  • release/5/srfi-13/trunk/srfi-13.types

    r34718 r35498  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/srfi-13/trunk/srfi-13.scm
     1(srfi-13#check-substring-spec (#(procedure #:clean #:enforce) srfi-13#check-substring-spec (* string fixnum fixnum) undefined))
     2(srfi-13#kmp-step (#(procedure #:enforce) srfi-13#kmp-step (string vector char fixnum (procedure (char char) *) fixnum) fixnum))
     3(srfi-13#make-kmp-restart-vector (#(procedure #:clean #:enforce) srfi-13#make-kmp-restart-vector (string #!optional (procedure (* *) *) fixnum fixnum) vector))
    24
    3 ; END OF FILE
     5(srfi-13#string-any
     6 (forall (a)
     7  (#(procedure #:enforce)
     8   srfi-13#string-any
     9   ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
     10   (or boolean a))))
     11
     12(srfi-13#string-append/shared (#(procedure #:clean #:enforce) srfi-13#string-append/shared (#!rest string) string)
     13                      ((string string) (##sys#string-append #(1) #(2))))
     14
     15(srfi-13#string-ci< (#(procedure #:clean #:enforce) srfi-13#string-ci< (string string #!optional fixnum fixnum) boolean)
     16            ((string string) (srfi-13#string-ci<? #(1) #(2))))
     17
     18(srfi-13#string-ci<= (#(procedure #:clean #:enforce) srfi-13#string-ci<= (string string #!optional fixnum fixnum) boolean)
     19             ((string string) (srfi-13#string-ci<=? #(1) #(2))))
     20
     21(srfi-13#string-ci<> (#(procedure #:clean #:enforce) srfi-13#string-ci<> (string string #!optional fixnum fixnum) boolean)
     22             ((string string) (not (##core#inline "C_i_string_ci_equal_p" #(1) #(2)))))
     23
     24(srfi-13#string-ci= (#(procedure #:clean #:enforce) srfi-13#string-ci= (string string #!optional fixnum fixnum) boolean)
     25            ((string string) (##core#inline "C_i_string_ci_equal_p" #(1) #(2))))
     26
     27(srfi-13#string-ci> (#(procedure #:clean #:enforce) srfi-13#string-ci> (string string #!optional fixnum fixnum) boolean)
     28            ((string string) (srfi-13#string-ci>? #(1) #(2))))
     29
     30(srfi-13#string-ci>= (#(procedure #:clean #:enforce) srfi-13#string-ci>= (string string #!optional fixnum fixnum) boolean)
     31             ((string string) (srfi-13#string-ci>=? #(1) #(2))))
     32
     33(srfi-13#string-compare (#(procedure #:enforce) srfi-13#string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
     34(srfi-13#string-compare-ci (#(procedure #:enforce) srfi-13#string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
     35(srfi-13#string-concatenate (#(procedure #:clean #:enforce) srfi-13#string-concatenate ((list-of string)) string))
     36(srfi-13#string-concatenate-reverse (#(procedure #:clean #:enforce) srfi-13#string-concatenate-reverse ((list-of string) #!optional string fixnum) string))
     37(srfi-13#string-concatenate-reverse/shared (#(procedure #:clean #:enforce) srfi-13#string-concatenate-reverse/shared ((list-of string) #!optional string fixnum) string))
     38(srfi-13#string-concatenate/shared (#(procedure #:clean #:enforce) srfi-13#string-concatenate/shared ((list-of string)) string))
     39(srfi-13#string-contains (#(procedure #:clean #:enforce) srfi-13#string-contains (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
     40(srfi-13#string-contains-ci (#(procedure #:clean #:enforce) srfi-13#string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum false)))
     41(srfi-13#string-copy (#(procedure #:clean #:enforce) srfi-13#string-copy (string #!optional fixnum fixnum) string))
     42(srfi-13#string-copy! (#(procedure #:clean #:enforce) srfi-13#string-copy! (string fixnum string #!optional fixnum fixnum) undefined))
     43(srfi-13#string-count (#(procedure #:clean #:enforce) srfi-13#string-count (string * #!optional fixnum fixnum) fixnum))
     44(srfi-13#string-delete (#(procedure #:clean #:enforce) srfi-13#string-delete (* string #!optional fixnum fixnum) string))
     45(srfi-13#string-downcase (#(procedure #:clean #:enforce) srfi-13#string-downcase (string #!optional fixnum fixnum) string))
     46(srfi-13#string-downcase! (#(procedure #:clean #:enforce) srfi-13#string-downcase! (string #!optional fixnum fixnum) string))
     47(srfi-13#string-drop (#(procedure #:clean #:enforce) srfi-13#string-drop (string fixnum) string))
     48(srfi-13#string-drop-right (#(procedure #:clean #:enforce) srfi-13#string-drop-right (string fixnum) string))
     49
     50(srfi-13#string-every
     51 (forall (a)
     52  (#(procedure #:enforce)
     53   srfi-13#string-every
     54   ((or char (struct char-set) (procedure (char) a)) string #!optional fixnum fixnum)
     55   (or boolean a))))
     56
     57(srfi-13#string-fill! (#(procedure #:clean #:enforce) srfi-13#string-fill! (string char #!optional fixnum fixnum) string))
     58
     59(srfi-13#string-filter
     60 (#(procedure #:enforce)
     61  srfi-13#string-filter
     62  ((or char (struct char-set) (procedure (char) *)) string #!optional fixnum fixnum)
     63  string))
     64
     65(srfi-13#string-fold (#(procedure #:enforce) srfi-13#string-fold ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
     66
     67(srfi-13#string-fold-right (#(procedure #:enforce) srfi-13#string-fold-right ((procedure (char *) *) * string #!optional fixnum fixnum) *)) ;XXX
     68(srfi-13#string-for-each (#(procedure #:enforce) srfi-13#string-for-each ((procedure (char) . *) string #!optional fixnum fixnum) undefined))
     69(srfi-13#string-for-each-index (#(procedure #:enforce) srfi-13#string-for-each-index ((procedure (fixnum) . *) string #!optional fixnum fixnum) undefined))
     70
     71(srfi-13#string-index
     72 (#(procedure #:enforce)
     73  srfi-13#string-index
     74  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     75  (or fixnum false)))
     76
     77(srfi-13#string-index-right
     78 (#(procedure #:enforce)
     79  srfi-13#string-index-right
     80  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     81  (or fixnum false)))
     82
     83(srfi-13#string-join (#(procedure #:clean #:enforce) srfi-13#string-join (list #!optional string symbol) string))
     84(srfi-13#string-kmp-partial-search (#(procedure #:enforce) srfi-13#string-kmp-partial-search (string vector string fixnum #!optional (procedure (char char) *) fixnum fixnum fixnum) fixnum))
     85(srfi-13#string-map (#(procedure #:enforce) srfi-13#string-map ((procedure (char) char) string #!optional fixnum fixnum) string))
     86(srfi-13#string-map! (#(procedure #:enforce) srfi-13#string-map! ((procedure (char) char) string #!optional fixnum fixnum) string))
     87
     88(srfi-13#string-null? (#(procedure #:clean #:enforce) srfi-13#string-null? (string) boolean)
     89              ((string) (##core#inline "C_zero_length_p" #(1))))
     90
     91(srfi-13#string-pad (#(procedure #:clean #:enforce) srfi-13#string-pad (string fixnum #!optional char fixnum fixnum) string))
     92(srfi-13#string-pad-right (#(procedure #:clean #:enforce) srfi-13#string-pad-right (string fixnum #!optional char fixnum fixnum) string))
     93(srfi-13#string-parse-final-start+end (#(procedure #:enforce) srfi-13#string-parse-final-start+end (procedure string #!rest) . *))
     94(srfi-13#string-parse-start+end (#(procedure #:enforce) srfi-13#string-parse-start+end (procedure string #!rest) . *))
     95(srfi-13#string-prefix-ci? (#(procedure #:clean #:enforce) srfi-13#string-prefix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     96(srfi-13#string-prefix-length (#(procedure #:clean #:enforce) srfi-13#string-prefix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     97(srfi-13#string-prefix-length-ci (#(procedure #:clean #:enforce) srfi-13#string-prefix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     98(srfi-13#string-prefix? (#(procedure #:clean #:enforce) srfi-13#string-prefix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     99(srfi-13#string-replace (#(procedure #:clean #:enforce) srfi-13#string-replace (string string fixnum fixnum #!optional fixnum fixnum) string))
     100(srfi-13#string-reverse (#(procedure #:clean #:enforce) srfi-13#string-reverse (string #!optional fixnum fixnum) string))
     101(srfi-13#string-reverse! (#(procedure #:clean #:enforce) srfi-13#string-reverse! (string #!optional fixnum fixnum) string))
     102
     103(srfi-13#string-skip
     104 (#(procedure #:enforce)
     105  srfi-13#string-skip
     106  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     107  (or fixnum false)))
     108
     109(srfi-13#string-skip-right
     110 (#(procedure #:enforce)
     111  srfi-13#string-skip-right
     112  (string (or char (struct char-set) (procedure (char) *)) #!optional fixnum fixnum)
     113  (or fixnum false)))
     114
     115(srfi-13#string-suffix-ci? (#(procedure #:clean #:enforce) srfi-13#string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     116(srfi-13#string-suffix-length (#(procedure #:clean #:enforce) srfi-13#string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     117(srfi-13#string-suffix-length-ci (#(procedure #:clean #:enforce) srfi-13#string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     118(srfi-13#string-suffix? (#(procedure #:clean #:enforce) srfi-13#string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
     119(srfi-13#string-tabulate (#(procedure #:enforce) srfi-13#string-tabulate ((procedure (fixnum) char) fixnum) string))
     120(srfi-13#string-take (#(procedure #:clean #:enforce) srfi-13#string-take (string fixnum) string))
     121(srfi-13#string-take-right (#(procedure #:clean #:enforce) srfi-13#string-take-right (string fixnum) string))
     122(srfi-13#string-titlecase (#(procedure #:clean #:enforce) srfi-13#string-titlecase (string #!optional fixnum fixnum) string))
     123(srfi-13#string-titlecase! (#(procedure #:clean #:enforce) srfi-13#string-titlecase! (string #!optional fixnum fixnum) string))
     124
     125(srfi-13#string-tokenize
     126 (#(procedure #:clean #:enforce) srfi-13#string-tokenize (string #!optional (struct char-set) fixnum fixnum) list))
     127
     128(srfi-13#string-trim
     129 (#(procedure #:enforce)
     130  srfi-13#string-trim
     131  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     132  string))
     133
     134(srfi-13#string-trim-both
     135 (#(procedure #:enforce)
     136  srfi-13#string-trim-both
     137  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     138  string))
     139
     140(srfi-13#string-trim-right
     141 (#(procedure #:enforce)
     142  srfi-13#string-trim-right
     143  (string #!optional (or char (struct char-set) (procedure (char) *)) fixnum fixnum)
     144  string))
     145
     146(srfi-13#string-unfold (#(procedure #:enforce) srfi-13#string-unfold (procedure procedure procedure * #!optional * procedure) string)) ;XXX
     147(srfi-13#string-unfold-right (#(procedure #:enforce) srfi-13#string-unfold-right (procedure procedure procedure * #!optional * procedure) string)) ;XXX
     148(srfi-13#string-upcase (#(procedure #:clean #:enforce) srfi-13#string-upcase (string #!optional fixnum fixnum) string))
     149(srfi-13#string-upcase! (#(procedure #:clean #:enforce) srfi-13#string-upcase! (string #!optional fixnum fixnum) string))
     150(srfi-13#string-xcopy! (#(procedure #:clean #:enforce) srfi-13#string-xcopy! (string string string fixnum #!optional fixnum fixnum fixnum) string))
     151
     152(srfi-13#string< (#(procedure #:clean #:enforce) string< (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     153         ((string string) (scheme#string<? #(1) #(2))))
     154
     155(srfi-13#string<= (#(procedure #:clean #:enforce) string<= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     156          ((string string) (scheme#string<=? #(1) #(2))))
     157
     158(srfi-13#string<> (#(procedure #:clean #:enforce) srfi-13#string<> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     159          ((string string) (not (##core#inline "C_i_string_equal_p" #(1) #(2)))))
     160
     161(srfi-13#string= (#(procedure #:clean #:enforce) srfi-13#string= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     162         ((string string) (##core#inline "C_i_string_equal_p" #(1) #(2))))
     163
     164(srfi-13#string> (#(procedure #:clean #:enforce) srfi-13#string> (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     165         ((string string) (scheme#string>? #(1) #(2))))
     166
     167(srfi-13#string>= (#(procedure #:clean #:enforce) srfi-13#string>= (string string #!optional fixnum fixnum fixnum fixnum) boolean)
     168          ((string string) (scheme#string>=? #(1) #(2))))
     169
     170(srfi-13#substring-spec-ok? (#(procedure #:clean #:enforce) srfi-13#substring-spec-ok? (string fixnum fixnum) boolean))
     171(srfi-13#substring/shared (#(procedure #:clean #:enforce) srfi-13#substring/shared (string fixnum #!optional fixnum) string))
     172(srfi-13#xsubstring (#(procedure #:clean #:enforce) srfi-13#xsubstring (string fixnum #!optional fixnum fixnum fixnum) string))
  • release/5/srfi-13/trunk/tests/run.scm

    r34718 r35498  
    1 (import (chicken format) srfi-13 srfi-14 test)
     1(import (chicken string) (chicken format) srfi-13 srfi-14 test)
    22
    33(define (fill text)
Note: See TracChangeset for help on using the changeset viewer.