word-break-next ( old-class new-char i str -- next-class ? )

Vocabulary

unicode.breaks.private

Inputs

old-class	an object
new-char	an object
i	an object
str	an object

Outputs

next-class	an object
?	an object

Definition

USING: kernel math sequences ;

IN: unicode.breaks.private

:: word-break-next
    ( old-class new-char i str -- next-class ? )
    new-char word-break-prop :> new-class new-class
    (format/extended?)
    [ old-class dup { 1 2 3 } member? ] [
        new-class old-class over word-table-nth
        [ str i 1 - ] dip word-break?
    ] if ;