Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-14 08:27:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Expanging the grapheme cases so that the hangul variants are never empty.

Browse source
This commit is contained in:
Alex Shinn 2013-11-29 23:59:04 +09:00
parent 9c5871484f
commit dc4bab73d2
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/chibi/regexp.scm
View file

@ -696,10 +696,22 @@
((grapheme) ((grapheme)
(->rx (->rx
`(or (: "\r\n") `(or (: "\r\n")
(: (* ,char-set:hangul-l) (: (+ ,char-set:hangul-l)
(or ,char-set:hangul-lvt (or ,char-set:hangul-lvt
(: (? ,char-set:hangul-lv) (* ,char-set:hangul-v))) (: (? ,char-set:hangul-lv) (* ,char-set:hangul-v)))
(* ,char-set:hangul-t)) (* ,char-set:hangul-t))
(: (* ,char-set:hangul-l)
(or ,char-set:hangul-lvt
(: ,char-set:hangul-lv (* ,char-set:hangul-v)))
(* ,char-set:hangul-t))
(: (* ,char-set:hangul-l)
(or ,char-set:hangul-lvt
(: (? ,char-set:hangul-lv) (+ ,char-set:hangul-v)))
(* ,char-set:hangul-t))
(: (* ,char-set:hangul-l)
(or ,char-set:hangul-lvt
(: (? ,char-set:hangul-lv) (* ,char-set:hangul-v)))
(+ ,char-set:hangul-t))
(+ ,char-set:regional-indicator) (+ ,char-set:regional-indicator)
control control
(: (~ control ("\r\n")) (: (~ control ("\r\n"))