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

Adding support for single char named char-sets by prefixing with ":".

Browse source
This commit is contained in:
Alex Shinn 2013-10-29 06:48:05 +09:00
parent 03bbdea1ba
commit d543583e88
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -138,7 +138,11 @@
(char-upper-case? (string-ref def 0)) (char-upper-case? (string-ref def 0))
(char-lower-case? (string-ref def 1))) (char-lower-case? (string-ref def 1)))
(extract-char-set-category def data)) (extract-char-set-category def data))
(else ;; derived property ;; derived properties
((and (> (string-length def) 1)
(eqv? #\: (string-ref def 0)))
(extract-char-set-property (substring def 1) derived))
(else
(extract-char-set-property def derived))))) (extract-char-set-property def derived)))))
(define (extract-char-set def data derived) (define (extract-char-set def data derived)
@ -154,7 +158,7 @@
(define (process-char-set name def data derived out) (define (process-char-set name def data derived out)
(define (normalize-char-set-name str) (define (normalize-char-set-name str)
(string-append (string-append
"char-set:" (if (eqv? #\: (string-ref str 0)) "char-set" "char-set:")
(string-map (lambda (ch) (if (eqv? ch #\_) #\- (char-downcase ch))) str))) (string-map (lambda (ch) (if (eqv? ch #\_) #\- (char-downcase ch))) str)))
(display ";; " out) (display ";; " out)
(display def out) (display def out)