taf-report. ( report -- )

Vocabulary

metar.private

Inputs

report

an object

Outputs

None

Definition

USING: accessors combinators io io.styles kernel sequences
splitting ;

IN: metar.private

: taf-report. ( report -- )
    [
        standard-table-style [
            {
                [ "Station" [ station>> ] row. ]
                [ "Status" [ status>> ] row. ]
                [ "Modifier" [ modifier>> ] row. ]
                [ "Timestamp" [ timestamp>> ] row. ]
                [ "Valid From" [ valid-timestamp>> ] row. ]
                [ "Wind" [ wind>> ] row. ]
                [ "Visibility" [ visibility>> ] row. ]
                [ "RVR" [ rvr>> ] row. ]
                [ "Weather" [ weather>> ] row. ]
                [ "Sky condition" [ sky-condition>> ] row. ]
                [ "Wind shear" [ wind-shear>> ] row. ]
                [ "Temperatures" [ temperatures>> ] row. ]
                [ "Icing" [ icing>> ] row. ]
                [ "Turbulence" [ turbulence>> ] row. ]
                [ "Remarks" [ remarks>> ] row. ]
                [ "Unparsed" [ unparsed>> join-words ] row. ]
                [ "Raw Text" [ raw>> ] row. ]
            } cleave
        ] tabular-output nl
    ] [ partials>> [ taf-partial. ] each ] bi ;