From 15b0f07b37d9cbc7bb2b1d37e7c0e9c6bdaf4cc1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 May 2020 19:47:47 -0700
Subject: [PATCH] metar: add a main.

---
 extra/metar/metar.factor | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor
index f01f538744..f5292ad545 100644
--- a/extra/metar/metar.factor
+++ b/extra/metar/metar.factor
@@ -2,10 +2,10 @@
 ! See http://factorcode.org/license.txt for BSD license
 
 USING: accessors arrays ascii assocs calendar calendar.format
-combinators continuations csv formatting fry grouping
-http.client io io.encodings.ascii io.files io.styles kernel math
-math.extras math.parser memoize regexp sequences sorting.human
-splitting strings urls wrap.strings ;
+combinators command-line continuations csv formatting fry
+grouping http.client io io.encodings.ascii io.files io.styles
+kernel math math.extras math.parser memoize namespaces regexp
+sequences sorting.human splitting strings urls wrap.strings ;
 
 IN: metar
 
@@ -199,6 +199,7 @@ CONSTANT: compass-directions H{
     "V" split1 [ parse-compass ] bi@
     ", variable from %s to %s" sprintf ;
 
+! FIXME: "1 1/2SM" visibility doesn't work
 : parse-visibility ( str -- str' )
     dup first {
         { CHAR: M [ rest "less than " ] }
@@ -734,3 +735,10 @@ M: station taf. cccc>> taf. ;
 M: string taf.
     [ taf <taf-report> taf-report. ]
     [ drop "%s TAF not found\n" printf ] recover ;
+
+: metar-main ( -- )
+    command-line get [
+        [ metar print ] [ taf print ] bi nl
+    ] each ;
+
+MAIN: metar-main