Adding initial UAX #29 boundary char-sets.

This commit is contained in:
Alex Shinn 2013-10-29 06:47:15 +09:00
parent ecd450c4c3
commit 03bbdea1ba
2 changed files with 45 additions and 0 deletions

File diff suppressed because one or more lines are too long

View file

@ -0,0 +1,21 @@
;; Character sets for Unicode boundaries, TR29.
(define-library (chibi char-set boundary)
(cond-expand
(chibi
(import (chibi) (chibi char-set)))
(else
(import (scheme base) (srfi 14))
(begin (define (immutable-char-set cs) cs))))
(export char-set:regional-indicator
char-set:extend-or-spacing-mark
char-set:hangul-l
char-set:hangul-v
char-set:hangul-t
char-set:hangul-lv
char-set:hangul-lvt)
;; generated with:
;; tools/extract-unicode-props.scm --derived GraphemeBreakProperty.txt
;; Control extend-or-spacing-mark=Extend,SpacingMark Regional_Indicator
;; hangul-l=:L hangul-v=:V hangul-t=:T hangul-lv=:LV hangul-lvt=:LVT
(include "boundary.scm"))