क्लोजर मैक्रो में गतिशील विधि कॉल?

Question

मैं एक मैक्रो लिखने का प्रयास कर रहा हूं जो इसे दिए गए तर्कों के आधार पर जावा सेटटर विधियों को कॉल करेगा।

तो, उदाहरण के लिए:

(doto (new MyClass) 
    (.setUsername "fred") 
    (.setPassword "wilma")) 

आप इस से निपटने के लिए कैसे की सिफारिश करेंगे:

(my-macro login-as-fred {"Username" "fred" "Password" "wilma"}) 

निम्नलिखित की तरह कुछ करने के लिए विस्तार कर सकते हैं?

विशेष रूप से, मुझे सेटटर विधि नाम बनाने का सबसे अच्छा तरीका काम करने में परेशानी हो रही है और इसे मैक्रो द्वारा प्रतीक के रूप में व्याख्या किया गया है।

Answer 1

मैक्रो है कि आप वास्तव में वर्ग या ऐसा कुछ में खुदाई करने के लिए की जरूरत नहीं है के बारे में अच्छी बात यह है। आपको बस कोड लिखना है जो उचित एस-एक्सप्रेशन उत्पन्न करता है।

पहले एक समारोह की तरह (.setName 42)

(defn make-call [name val] 
    (list (symbol (str ".set" name) val))) 

एक रों अभिव्यक्ति एक मैक्रो भाव पैदा करते हैं और एक doto अभिव्यक्ति में प्लग (~ @) उन्हें उत्पन्न करने के लिए तो।

(defmacro map-set [class things] 
    `(doto ~class ~@(map make-call things)) 

क्योंकि यह एक मैक्रो यह पता है कि वर्ग बात उस पर बुलाया जा रहा है या वर्ग जिस पर यह उपयोग किया जाएगा मौजूद है भी कि नहीं है कभी नहीं है।

Answer 2

आप गोली काटने और clojure.lang.Reflector/invokeInstanceMethod इस तरह उपयोग करने के लिए:

(defn do-stuff [obj m] 
    (doseq [[k v] m] 
    (let [method-name (str "set" k)] 
     (clojure.lang.Reflector/invokeInstanceMethod 
     obj 
     method-name 
     (into-array Object [v])))) 
    obj) 

(do-stuff (java.util.Date.) {"Month" 2}) ; use it 

किसी मैक्रो के लिए कोई ज़रूरत नहीं (जहाँ तक मुझे पता है, एक मैक्रो, या तो प्रतिबिंब को नाकाम करने की अनुमति नहीं होगी, कम से कम के लिए सामान्य मामला)।

Answer 3

कोई (मुझे विश्वास है कि आर्थर उलफेल्ड) का उत्तर एक उत्तर था जो लगभग सही था, लेकिन अब इसे हटा दिया गया है। यदि वह दोबारा पोस्ट करता है तो कृपया इसे मेरे बजाय स्वीकार करें। (या PMF के स्वीकार करते हैं।) यह एक काम कर संस्करण है:

(defmacro set-all [obj m] 
    `(doto ~obj ~@(map (fn [[k v]] 
         (list (symbol (str ".set" k)) v)) 
        m))) 

user> (macroexpand-1 '(set-all (java.util.Date.) {"Month" 0 "Date" 1 "Year" 2009})) 
(clojure.core/doto (java.util.Date.) (.setMonth 0) (.setDate 1) (.setYear 2009)) 

user> (set-all (java.util.Date.) {"Month" 0 "Date" 1 "Year" 2009}) 
#<Date Fri Jan 01 14:15:51 PST 3909> 

Answer 4

कृपया मैक्रो के लिए list साथ स-भाव का निर्माण नहीं है। यह मैक्रो की स्वच्छता को गंभीर रूप से चोट पहुंचाएगा। गलती करना बहुत आसान है, जो ट्रैक करना मुश्किल है। कृपया हमेशा वाक्यविन्यास-उद्धरण का प्रयोग करें! हालांकि, इस मामले में यह कोई समस्या नहीं है, सिंटैक्स-कोट का उपयोग करने की आदत में जाना अच्छा है!

अपने मानचित्र के स्रोत के आधार पर, आप कीवर्ड को कुंजी के रूप में उपयोग करने पर भी विचार कर सकते हैं ताकि इसे अधिक क्लोजर-जैसा दिख सके।

user=> (macroexpand-1 '(configure (MyClass.) {:username "fred" :password "wilma"})) 
(clojure.core/doto (MyClass.) (.setUsername "fred") (.setPassword "wilma"))