check-word-break ( -- ? )

Vocabulary

xmode.marker

Inputs

None

Outputs

?

an object

Definition

USING: ascii kernel math namespaces sequences xmode.marker.state
xmode.rules ;

IN: xmode.marker

: check-word-break ( -- ? )
    current-char dup blank? [
        drop seen-whitespace-end? get
        [ position get 1 + whitespace-end set ] unless
        (check-word-break)
    ] [
        current-rule-set rule-set-empty?
        [ drop ] [
            dup alpha?
            [ drop ] [
                current-rule-set rule-set-no-word-sep* member?
                [ (check-word-break) ] unless
            ] if
        ] if seen-whitespace-end? on
    ] if escaped? off delegate-end-escaped? off t ;