strings unicode.breaks.private unicode.case.private
unicode.categories unicode.collation unicode.collation.private
unicode.data unicode.data.private unicode.normalize.private
-unicode.script locals math.ranges ;
+unicode.script ranges ;
IN: unicode
CATEGORY: blank Zs Zl Zp | "\r\n\t" member? ;
entire-str length :> str-len
0 pos 1 + entire-str <slice> grapheme-class
pos 1 + str-len 1 - min pos!
- pos str-len 1 - [a,b] [
+ pos str-len 1 - [a..b] [
1 + 0 swap entire-str <slice> grapheme-class
dup rot swap grapheme-break?
] find drop nip
pos 0 = [ 0 ] [
str grapheme-class
pos 1 - 0 max pos!
- 0 pos [a,b] [
+ 0 pos [a..b] [
0 swap 1 + str <slice> grapheme-class
dup rot grapheme-break?
] find-last drop ?1+ nip
"bidi"
}
-CONSTANT: unicode-version "10.0"
+CONSTANT: unicode-version "14.0.0"