Changeset 14222 in project


Ignore:
Timestamp:
04/09/09 20:40:30 (11 years ago)
Author:
Kon Lovett
Message:

Added a version of the test suite. Added declarations. Fix for string-match.

Location:
release/4/utf8/trunk
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • release/4/utf8/trunk/unicode-char-sets.scm

    r14204 r14222  
    11;; auto-generated on Tue Jul 17 13:21:27 2007
    22
    3 (require-extension iset)
     3(declare
     4  (usual-integrations)
     5  (fixnum) ; no chars above 2^21
     6  (inline)
     7  (local)
     8  (no-bound-checks)
     9  (no-procedure-checks))
    410
    511(module
     
    110116(import scheme (only iset %make-iset))
    111117
     118(require-library iset)
     119
    112120(define char-set:buhid
    113121(%make-iset 5952 5971 #f #f #f))
  • release/4/utf8/trunk/utf8-case-map.scm

    r14204 r14222  
    1212;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1313
    14 (require-extension posix srfi-4 utf8-lolevel utf8-srfi-14 unicode-char-sets)
     14(declare
     15  (usual-integrations)
     16  (fixnum) ; no chars above 2^21
     17  (inline)
     18  (local)
     19  (no-bound-checks)
     20  (no-procedure-checks) )
    1521
    1622(module
     
    2228(import scheme chicken extras ports posix srfi-4
    2329        utf8-lolevel utf8-srfi-14 unicode-char-sets)
     30
     31(require-library posix srfi-4 utf8-lolevel utf8-srfi-14 unicode-char-sets)
    2432
    2533;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  • release/4/utf8/trunk/utf8-lolevel.scm

    r14204 r14222  
    1919;; the compiler.
    2020
    21 (use lolevel)
     21(declare
     22  (usual-integrations)
     23  (fixnum) ; no chars above 2^21
     24  (inline)
     25  (local)
     26  (no-bound-checks)
     27  (no-procedure-checks)
     28  (no-argc-checks)
     29  (bound-to-procedure
     30    ##sys#char->utf8-string ##sys#become!))
    2231
    2332(module utf8-lolevel
     
    4251
    4352(import scheme chicken extras lolevel)
     53
     54(require-library lolevel)
    4455
    4556;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  • release/4/utf8/trunk/utf8-srfi-13.scm

    r14204 r14222  
    44;; BSD-style license: http://synthcode.com/license.txt
    55
    6 (require-extension utf8-lolevel utf8-srfi-14 iset utf8-case-map)
     6(declare
     7  (usual-integrations)
     8  (fixnum) ; no chars above 2^21
     9  (inline)
     10  (local)
     11  (no-procedure-checks)
     12  (bound-to-procedure
     13    ##sys#substring ##sys#become!))
    714
    815(module
     
    4956        utf8-lolevel utf8-srfi-14 iset utf8-case-map)
    5057
     58(require-library utf8-lolevel utf8-srfi-14 iset utf8-case-map)
     59
    5160(define (string-null? s) (equal? s ""))
    5261
  • release/4/utf8/trunk/utf8-srfi-14.scm

    r14204 r14222  
    44;; BSD-style license: http://synthcode.com/license.txt
    55
    6 (require-extension utf8-lolevel iset srfi-69)
     6(declare
     7  (usual-integrations)
     8  (fixnum) ; no chars above 2^21
     9  (inline)
     10  (local)
     11  (no-procedure-checks))
    712
    813(module
     
    3439(import scheme chicken (only srfi-69 hash) iset utf8-lolevel)
    3540
     41(require-library srfi-69 utf8-lolevel iset)
     42
    3643(define char-set? iset?)
    3744(define char-set-copy iset-copy)
  • release/4/utf8/trunk/utf8.scm

    r14204 r14222  
    205205;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    206206
    207 (require-extension regex utf8-lolevel)
     207(declare
     208  (fixnum)  ; no chars above 2^21
     209  (inline)
     210  (local)
     211  (no-procedure-checks)
     212  (bound-to-procedure
     213    ##sys#become!))
    208214
    209215(module
     
    258264        utf8-lolevel)
    259265
     266(require-library regex utf8-lolevel)
     267
    260268;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    261269;; redefine string primitives
     
    505513  (byte-grep (->rx rx) ls))
    506514
    507 (define (string-match rx str . opt)
    508   (byte-string-match (->rx rx) str (opt-off str opt)))
    509 
    510 (define (string-match-offsets rx str . opt)
    511   (byte-string-match-positions (->rx rx) str (opt-off str opt)))
     515(define (string-match rx str)
     516  (byte-string-match (->rx rx) str))
     517
     518(define (string-match-offsets rx str)
     519  (byte-string-match-positions (->rx rx) str))
    512520
    513521(define (string-search rx str . opt)
Note: See TracChangeset for help on using the changeset viewer.