byte-array>string-fast ( byte-array -- string )

Vocabulary

io.encodings.private

Inputs

byte-array

an object

Outputs

string

an object

Definition

USING: byte-arrays io.encodings kernel kernel.private math
sequences sequences.private strings strings.private ;

IN: io.encodings.private

: byte-array>string-fast ( byte-array -- string )
    { byte-array } declare [ length ] keep over 0 <string> [
        [
            [ [ nth-unsafe ] keepd ] [
                pick 127 <=
                [ set-string-nth-fast ] [
                    [ drop replacement-char ] 2dip
                    set-string-nth-slow
                ] if
            ] bi*
        ] 2curry each-integer
    ] keep dup reset-string-hashcode ;