native>codepoint ( index map -- n )

Vocabulary

ui.text.index-maps

Inputs

index	an object
map	an object

Outputs

n

an object

Definition

USING: accessors kernel math math.order sequences ;

IN: ui.text.index-maps

:: native>codepoint ( index map -- n )
    index 0 max :> clamped clamped 1 +
    map native-ends>> positions-before
    :> count clamped count map extra-at -
    :> candidate count map positions>> length <
    [ candidate count map positions>> nth min ] [ candidate ] if
    ;