Changeset 26978 in project


Ignore:
Timestamp:
07/03/12 14:53:31 (9 years ago)
Author:
Alex Shinn
Message:

Fixing string-xcopy! definition.

Location:
release/4/utf8
Files:
10 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/utf8/tags/3.3.4/tests/utf8-test.scm

    r22541 r26978  
    154154(let ((a (string-copy "春倏秋冬")) (b (string-copy "ABCD")))
    155155  (test "秋冬CD" (begin (string-copy! b 0 a 2 4) b)))
     156
     157(let ((a (string-copy "春倏秋冬")))
     158  (string-xcopy! a 1 "BC" 0)
     159  (test "春BC冬" a))
    156160
    157161;; again, these are just variations of substring
  • release/4/utf8/tags/3.3.4/utf8-case-map.scm

    r22541 r26978  
    123123     (cond
    124124       ((= i (u32vector-ref tab (* lo 4)))
    125         (u32vector-ref (+ (* lo 4) off)))
     125        (u32vector-ref tab (+ (* lo 4) off)))
    126126       ((= i (u32vector-ref tab (* hi 4)))
    127         (u32vector-ref (+ (* hi 4) off)))
     127        (u32vector-ref tab (+ (* hi 4) off)))
    128128       (else
    129129        (let loop ((a lo) (b hi))
  • release/4/utf8/tags/3.3.4/utf8-srfi-13.scm

    r14929 r26978  
    571571(define (string-xcopy target tstart s from . opt)
    572572  (let-optionals* opt ((to1 #f) (start 0) (end (utf8-string-length s)))
    573     (let ((to (or to1 (+ from - end start))))
     573    (let ((to (or to1 (+ from (- end start)))))
    574574      (string-append (utf8-substring target 0 tstart)
    575575                     (xsubstring s from to start end)
  • release/4/utf8/tags/3.3.4/utf8.meta

    r23255 r26978  
    44 (synopsis "Unicode support")
    55 (category parsing)
    6  (needs iset regex)
     6 (needs iset regex make)
    77 (license "BSD")
    88 (author "Alex Shinn")
  • release/4/utf8/tags/3.3.4/utf8.setup

    r22432 r26978  
    11
    2 (define version "3.3.2")
     2(define version "3.3.4")
    33
    44(make (("utf8-lolevel.so" ("utf8-lolevel.scm")
  • release/4/utf8/trunk/tests/utf8-test.scm

    r22541 r26978  
    154154(let ((a (string-copy "春倏秋冬")) (b (string-copy "ABCD")))
    155155  (test "秋冬CD" (begin (string-copy! b 0 a 2 4) b)))
     156
     157(let ((a (string-copy "春倏秋冬")))
     158  (string-xcopy! a 1 "BC" 0)
     159  (test "春BC冬" a))
    156160
    157161;; again, these are just variations of substring
  • release/4/utf8/trunk/utf8-case-map.scm

    r22541 r26978  
    123123     (cond
    124124       ((= i (u32vector-ref tab (* lo 4)))
    125         (u32vector-ref (+ (* lo 4) off)))
     125        (u32vector-ref tab (+ (* lo 4) off)))
    126126       ((= i (u32vector-ref tab (* hi 4)))
    127         (u32vector-ref (+ (* hi 4) off)))
     127        (u32vector-ref tab (+ (* hi 4) off)))
    128128       (else
    129129        (let loop ((a lo) (b hi))
  • release/4/utf8/trunk/utf8-srfi-13.scm

    r14929 r26978  
    571571(define (string-xcopy target tstart s from . opt)
    572572  (let-optionals* opt ((to1 #f) (start 0) (end (utf8-string-length s)))
    573     (let ((to (or to1 (+ from - end start))))
     573    (let ((to (or to1 (+ from (- end start)))))
    574574      (string-append (utf8-substring target 0 tstart)
    575575                     (xsubstring s from to start end)
  • release/4/utf8/trunk/utf8.meta

    r23255 r26978  
    44 (synopsis "Unicode support")
    55 (category parsing)
    6  (needs iset regex)
     6 (needs iset regex make)
    77 (license "BSD")
    88 (author "Alex Shinn")
  • release/4/utf8/trunk/utf8.setup

    r22432 r26978  
    11
    2 (define version "3.3.2")
     2(define version "3.3.4")
    33
    44(make (("utf8-lolevel.so" ("utf8-lolevel.scm")
Note: See TracChangeset for help on using the changeset viewer.