?trim ( string -- string' )

Vocabulary

csv.private

Inputs

string

an object

Outputs

string'

an object

Definition

USING: kernel math sequences sequences.private unicode ;

IN: csv.private

: ?trim ( string -- string' )
    dup length
    [ drop "" ] [
        over first-unsafe blank?
        [ drop t ] [ 1 - over nth-unsafe blank? ] if
        [ [ blank? ] trim ] when
    ] if-zero ; inline