conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* char-category/property predicates now gain an 80% reduction in 

runtime due to using unsafe prims.
This commit is contained in:
Abdulaziz Ghuloum 2007-09-13 15:59:39 -04:00
parent 2b50672aa2
commit c552e0b3b1
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

14
src/ikarus.unicode-data.ss
View File

@ -46,17 +46,17 @@
[t unicode-categories-values-vector]) [t unicode-categories-values-vector])
(define (f i k n) (define (f i k n)
(cond (cond
[(fx= i k) [($fx= i k)
(let ([idx (vector-ref t i)]) (let ([idx ($vector-ref t i)])
(if (fixnum? idx) (if (fixnum? idx)
idx idx
(let ([idx2 (fx- n (vector-ref v i))]) (let ([idx2 ($fx- n ($vector-ref v i))])
(vector-ref idx idx2))))] ($vector-ref idx idx2))))]
[else [else
(let ([j (fxsra (fx+ i (fx+ k 1)) 1)]) (let ([j ($fxsra ($fx+ i ($fx+ k 1)) 1)])
(cond (cond
[(fx<= (vector-ref v j) n) (f j k n)] [($fx<= ($vector-ref v j) n) (f j k n)]
[else (f i (fx- j 1) n)]))])) [else (f i ($fx- j 1) n)]))]))
(f 0 (fx- (vector-length v) 1) (char->integer c)))) (f 0 (fx- (vector-length v) 1) (char->integer c))))
(define (char-general-category c) (define (char-general-category c)