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