more bb support

Author: frenchy64

CHANGELOG.md

@@ -6,6 +6,8 @@
 
 * #78(liquidz): Add missing chrono fields (v0.3.3 has breaking changes)
 * #81(terop): Remove clj-tuple - no advantages over Clojure vector anymore
+* Remove java-time.util/get-static-fields-of-type
+  * set Java property `java-time.util.get-static-fields-of-type=true` to revert
 
 ## 0.3.3
 

src/java_time.cljc

@@ -66,7 +66,7 @@
    format formatter]
 
   [java-time.pre-java8
-   java-date sql-date sql-timestamp instant->sql-timestamp sql-time]
+   java-date sql-date sql-timestamp instant->sql-timestamp #?@(:bb [] :default [sql-time])]
 
   [java-time.interval
    move-start-to move-end-to move-start-by move-end-by

src/java_time/potemkin/namespaces.cljc

@@ -63,7 +63,7 @@
            n (or name (:name m))
            arglists (:arglists m)]
        #?(:bb `(defmacro ~n [& args#]
-                 (list* #_'~sym args#))
+                 (list* '~sym args#))
           :default `(do
                       (def ~n ~(resolve sym))
                       (alter-meta! (var ~n) merge (dissoc (meta ~vr) :name))
@@ -75,11 +75,9 @@
   "Given a regular def'd var from another namespace, defined a new var with the
    same name in the current namespace."
   ([sym]
-     `(import-def ~sym nil))
-  ([sym name]
      (let [vr (find-var sym)
            m (meta vr)
-           n (or name (:name m))
+           n (or (:name m) (-> sym name symbol))
            n (if (:dynamic m) (with-meta n {:dynamic true}) n)
            nspace (:ns m)]
        #?(:bb `(def ~n ~sym)

src/java_time/single_field.cljc

@@ -10,6 +10,15 @@
            [java.time.format DateTimeFormatter]
            [java.time Clock Year Month YearMonth MonthDay DayOfWeek ZoneId Instant]))
 
+(defn- resolve-tag [tag]
+  (if (symbol? tag)
+    (let [cls (resolve tag)]
+      (if (var? cls)
+        ;;primitive
+        tag
+        (symbol (.getName ^Class cls))))
+    tag))
+
 (defn- get-only-unit-value ^long [^TemporalAmount a, ^TemporalUnit u]
   (let [non-zero-units
         (->> (.getUnits a)
@@ -27,7 +36,8 @@
     (long our-value)))
 
 (defmacro enumerated-entity [tp doc & {:keys [unit]}]
-  (let [fname (with-meta (symbol (jt.u/dashize (str tp))) {:tag tp})
+  (let [tp (resolve-tag tp)
+        fname (with-meta (symbol (jt.u/dashize (-> (str tp) (string/split #"\.") last))) {:tag tp})
         fields (symbol (str fname "-fields"))]
     `(do
        (def ~fields
@@ -80,7 +90,9 @@
                        o# os#)))))))))
 
 (defmacro single-field-entity [tp doc & {:keys [parseable?]}]
-  (let [fname (with-meta (symbol (jt.u/dashize (str tp))) {:tag tp})
+  (let [^Class tpcls (resolve tp)
+        tp (symbol (.getName tpcls))
+        fname (with-meta (symbol (jt.u/dashize (-> (str tp) (string/split #"\.") last))) {:tag tp})
         arg (gensym)]
     `(do
        (defn ^{:doc ~(str "True if `" tp "`.")} ~(symbol (str fname "?"))
@@ -122,7 +134,10 @@
                                              minor-field-ctor minor-field-default]}]
   (let [[major-field-ctor major-field-type] major-field-ctor
         [minor-field-ctor minor-field-type] minor-field-ctor
-        fname (with-meta (symbol (jt.u/dashize (str tp))) {:tag tp})
+        major-field-type (resolve-tag major-field-type)
+        minor-field-type (resolve-tag minor-field-type)
+        tp (resolve-tag tp)
+        fname (with-meta (symbol (jt.u/dashize (-> (str tp) (string/split #"\.") last))) {:tag tp})
         arg (gensym)
         tmp-major (with-meta (gensym) {:tag major-field-type})
         tmp-minor (with-meta (gensym) {:tag minor-field-type})]

src/java_time/util.cljc

@@ -2,7 +2,7 @@
   (:require [clojure.string :as string]))
 
 #?(:bb nil
-   :default (when (= "true" (System/getProperty "java-time.util.get-static-fields-of-type"))
+   :default (when (some-> (System/getProperty "java-time.util.get-static-fields-of-type") (= "true"))
               (defn ^:deprecated get-static-fields-of-type [^Class klass, ^Class of-type]
                 (->> (seq (.getFields klass))
                      (map (fn [^java.lang.reflect.Field f]