yaml>rfc3339 ( str -- str' )

Vocabulary

yaml.conversion

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel regexp sequences ;

IN: yaml.conversion

: yaml>rfc3339 ( str -- str' )
    R/ -[0-9][^0-9]/ [ [ 48 1 ] dip insert-nth ] re-replace-with
    R/ -[0-9][^0-9]/ [ [ 48 1 ] dip insert-nth ] re-replace-with
    R/ [^0-9][0-9]:/ [ [ 48 1 ] dip insert-nth ] re-replace-with
    R/ [ \t]+/ " " re-replace 58 over index cut 32 swap remove
    append ;