mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
29 lines
1 KiB
Scheme
29 lines
1 KiB
Scheme
;; Character sets for Unicode boundaries, TR29.
|
|
;; This code is written by Alex Shinn and placed in the
|
|
;; Public Domain. All warranties are disclaimed.
|
|
|
|
;;> Char-sets used for
|
|
;;> \hyperlink["http://unicode.org/reports/tr29/"]{TR29} word
|
|
;;> boundaries.
|
|
|
|
(define-library (chibi char-set boundary)
|
|
(cond-expand
|
|
(chibi (import (chibi)))
|
|
(else (import (scheme base))))
|
|
(cond-expand
|
|
((library (chibi char-set)) (import (chibi char-set)))
|
|
(else
|
|
(import (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"))
|