patjava.clj

gistfile1.clj

(ns match.java
  (:refer-clojure :exclude [compile])
  (:use [match.core]))

(extend-type java.util.Date
  IPLookup
  (p-val-at [this key]
    (case key
          :year    (.getYear this)
          :month   (.getMonth this)
          :date    (.getDate this)
          :hours   (.getHours this)
          :minutes (.getMinutes this)
          nil)))

(comment
  (let [x (java.util.Date. 2010 10 1 12 30)]
    (match [x]
     [{2009 :year month :month date :date}] [:a0 month date]
     [{2010 :year month :month date :date}] [:a1 month date]))
  ;; [:a1 10 1]
  )