line-index-map ( line -- map )

Vocabulary

core-text

Inputs

line

an object

Outputs

map

an object

Definition

USING: accessors arrays kernel make math sequences ;

IN: core-text

:: line-index-map ( line -- map )
    line index-map>>
    [ ] [
        line line-string :> string string aux>> [
            [
                string
                [| ch i | ch 65535 > [ i , ] when ] each-index
            ] { } make
        ] [ { } ] if :> positions positions dup [ + ] map-index
        2array dup line index-map<<
    ] if* ;