<taf-partial> ( str -- partial )

Vocabulary

metar.private

Inputs

str

an object

Outputs

partial

an object

Definition

USING: accessors ascii kernel regexp sequences splitting ;

IN: metar.private

: <taf-partial> ( str -- partial )
    [ taf-partial new ] dip [ blank? ] split-when
    [ re-from-timestamp matches? ] find-one
    [ parse-from-timestamp pick from-timestamp<< ] when*
    [ re-wind matches? ] find-one
    [ parse-wind pick wind<< ] when*
    [ re-wind-variable matches? ] find-one
    [ parse-wind-variable pick wind>> prepend pick wind<< ]
    when* [ re-visibility matches? ] find-one
    [ parse-visibility pick visibility<< ] when*
    [ re-rvr matches? ] find-all join-words [ parse-rvr ] map
    ", " join pick rvr<< [ re-weather matches? ] find-all
    [ parse-weather ] map ", " join pick weather<<
    [ re-sky-condition matches? ] find-all
    [ parse-sky-condition ] map ", " join pick sky-condition<<
    drop ;