mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 06:09:18 +02:00
Adding initial UAX #29 boundary char-sets.
This commit is contained in:
parent
ecd450c4c3
commit
03bbdea1ba
2 changed files with 45 additions and 0 deletions
24
lib/chibi/char-set/boundary.scm
Normal file
24
lib/chibi/char-set/boundary.scm
Normal file
File diff suppressed because one or more lines are too long
21
lib/chibi/char-set/boundary.sld
Normal file
21
lib/chibi/char-set/boundary.sld
Normal 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"))
|
Loading…
Add table
Reference in a new issue