next-utf8-char ( byte-array pos -- pos' )

Vocabulary

pcre.private

Inputs

byte-array	an object
pos	an object

Outputs

pos'

an object

Definition

USING: kernel math sequences ;

IN: pcre.private

: next-utf8-char ( byte-array pos -- pos' )
    1 + 2dup swap ?nth
    [ utf8-start-byte? [ nip ] [ next-utf8-char ] if ]
    [ 2drop f ] if* ;