parse-began/ended ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: formatting kernel sequences ;

IN: metar.private

: parse-began/ended ( str -- str' )
    unclip swap
    [ 66 = "began" "ended" ? ] [ parse-recent-time ] bi*
    "%s at %s" sprintf ;