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

unicode.breaks: inline word-break-classes.

db4
John Benediktsson 2012-09-19 10:09:05 -07:00
parent 3decf30626
commit 40a8936fe6
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/unicode/breaks/breaks.factor
View File

@ -158,14 +158,14 @@ CONSTANT: wNumeric 11
CONSTANT: wExtendNumLet 12 CONSTANT: wExtendNumLet 12
CONSTANT: words 13 CONSTANT: words 13
: word-break-classes ( -- table ) ! Is there a way to avoid this? ! Is there a way to avoid this?
H{ CONSTANT: word-break-classes H{
{ "Other" 0 } { "CR" 1 } { "LF" 2 } { "Newline" 3 } { "Other" 0 } { "CR" 1 } { "LF" 2 } { "Newline" 3 }
{ "Extend" 4 } { "Format" 5 } { "Katakana" 6 } { "Extend" 4 } { "Format" 5 } { "Katakana" 6 }
{ "ALetter" 7 } { "MidLetter" 8 } { "ALetter" 7 } { "MidLetter" 8 }
{ "MidNum" 9 } { "MidNumLet" 10 } { "Numeric" 11 } { "MidNum" 9 } { "MidNumLet" 10 } { "Numeric" 11 }
{ "ExtendNumLet" 12 } { "ExtendNumLet" 12 }
} ; }
: word-break-prop ( char -- word-break-prop ) : word-break-prop ( char -- word-break-prop )
word-break-table get-global interval-at word-break-table get-global interval-at