steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing Unicode.breaks for the new compilation units

db4
Daniel Ehrenberg 2008-01-27 18:44:26 -06:00
parent 2a5d71cda0
commit 33193a92f8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/unicode/breaks/breaks.factor
View File

@ -1,10 +1,10 @@
USING: unicode.categories kernel math const combinators splitting USING: unicode.categories kernel math combinators splitting
sequences math.parser io.files io assocs arrays namespaces sequences math.parser io.files io assocs arrays namespaces
combinators.lib assocs.lib math.ranges unicode.normalize combinators.lib assocs.lib math.ranges unicode.normalize
unicode.syntax unicode.data ; unicode.syntax unicode.data compiler.units alien.syntax ;
IN: unicode.breaks IN: unicode.breaks
ENUM: Any L V T Extend Control CR LF graphemes ; C-ENUM: Any L V T Extend Control CR LF graphemes ;
: jamo-class ( ch -- class ) : jamo-class ( ch -- class )
dup initial? [ drop L ] dup initial? [ drop L ]
@ -71,9 +71,9 @@ SYMBOL: table
: make-grapheme-table ( -- ) : make-grapheme-table ( -- )
CR LF connect CR LF connect
{ Control CR LF } graphemes break-around Control CR LF 3array graphemes break-around
L { L V } connect-before L L V 2array connect-before
V { V T } connect-before V V T 2array connect-before
T T connect T T connect
graphemes Extend connect-after ; graphemes Extend connect-after ;