parse-speed ( str units -- str'/f )

Vocabulary

metar.private

Inputs

str	an object
units	an object

Outputs

str'/f

an object

Definition

USING: kernel sequences ;

IN: metar.private

:: parse-speed ( str units -- str'/f )
    str "P" head?
    [ str rest units (parse-speed) "more than " prepend ] [
        str "//" =
        [ "unknown speed" ] [ str units (parse-speed) ] if
    ] if ;