 
 : connect ( class1 class2 -- ) 1 set-table ;
 : disconnect ( class1 class2 -- ) 0 set-table ;
-  
+
 : make-grapheme-table ( -- )
     { CR } { LF } connect
     { Control CR LF } graphemes iota disconnect

    { wALetter wNumeric wKatakana wExtendNumLet } { wExtendNumLet }
    [ connect ] [ swap connect ] 2bi ;

SYMBOL: word-table

: finish-word-table ( -- table )
    table get [
        [ { { 0 [ f ] } { 1 [ t ] } [ ] } case ] map
    ] map ;

words init-table table
[ make-word-table finish-word-table ] with-variable
word-table set-global

: word-table-nth ( class1 class2 -- ? )
    word-table get-global nth nth ;

:: property-not= ( str i property -- ? )
    i [


<PRIVATE

! Word breaks
<<
CONSTANT: wOther 0
CONSTANT: wCR 1
CONSTANT: wLF 2
