report-tokens ( str -- seq )

Vocabulary

metar.private

Inputs

str

an object

Outputs

seq

an object

Definition

USING: ascii kernel regexp sequences splitting ;

IN: metar.private

: report-tokens ( str -- seq )
    [ 61 = ] trim-tail [ blank? ] split-when harvest dup ?first
    [ R/ \d{4}\/\d{2}\/\d{2}/ matches? ] [ f ] if*
    [ 2 tail ] when join-words "WS ALL RWY" "WSALLRWY" replace
    "WS R" "WSR" replace split-words ;