Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

add missing string-trim in extract-char-set-property

Browse source
This commit is contained in:
Alex Shinn 2024-05-31 23:52:54 +09:00
parent f53c642e74
commit 01d5dd2d55
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/extract-unicode-props.scm
View file

@ -119,16 +119,17 @@
((or (equal? line "") (eqv? #\# (string-ref line 0))) ((or (equal? line "") (eqv? #\# (string-ref line 0)))
(lp ranges)) (lp ranges))
(else (else
(let ((ls (string-split (string-trim-comment line #\#) #\;))) (let ((ls (map string-trim
(string-split (string-trim-comment line #\#) #\;))))
(cond (cond
((< (length ls) 2) ((< (length ls) 2)
(warn "invalid DerivedCoreProperties line: " line) (warn "invalid DerivedCoreProperties line: " line)
(lp ranges)) (lp ranges))
((string-ci=? prop (string-trim (cadr ls))) ((string-ci=? prop (cadr ls))
(cond (cond
((string-contains (car ls) "..") ((string-contains (car ls) "..")
=> (lambda (i) => (lambda (i)
(let* ((str (string-trim (car ls))) (let* ((str (car ls))
(start (string->number (substring-cursor str (string-cursor-start str) i) 16)) (start (string->number (substring-cursor str (string-cursor-start str) i) 16))
(end (string->number (substring-cursor str (string-cursor-forward str i 2)) 16))) (end (string->number (substring-cursor str (string-cursor-forward str i 2)) 16)))
(if (and start end (<= 0 start end #x110000)) (if (and start end (<= 0 start end #x110000))