                                 globbed-wholefile-tap)])
   (:require [forma.source.hdf :as h]
             [forma.source.rain :as r]
-            [forma.source.modis :as m]
             [forma.static :as s])
   (:gen-class))
 

        (r/rain-chunks m-res ll-res chunk-size tile-seq source))))

;; TEMPORARY stuff for the big run :-*
(defn tiles->globstring
  [& tiles]
  {:pre [(m/valid-modis? tiles)]}
  (let [hv-seq (interpose "," (for [[th tv] tiles]
                                (format "h%02dv%02d" th tv)))]
    (format "*{%s}*" (apply str hv-seq))))

(defn rain-main
  "TODO: Example usage."
  [input-path output-path & tiles]
  (rain-chunker "1000" 0.5 s/chunk-size (map read-string tiles)
                (s3-path input-path)
                (s3-path output-path)))
