sunilnandihalli

(let [*stack-of-local-binding-maps* (atom '())]
  (defmacro pop-environment []
    (swap! *stack-of-local-binding-maps* pop) nil)
  (defmacro push-environment []
    (swap! *stack-of-local-binding-maps* conj &env) nil)
  (defmacro display-new-bindings [& body]
    `(do
       ~@(map (fn [x#] (list 'println [`'~x# x#]))
                  (keys (into {}
                              (clojure.set/difference (set &env)

sunilnandihalli

(let [level (atom 0)]
  (defmacro inc-level [] (swap! level inc) nil)
  (defmacro dec-level [] (swap! level dec) nil)
  (defmacro with-separator [& body]
    `(do
       (inc-level)
       (println)
       (println ~(str "----------------------------start-" @level "-----------------------"))
       (let [x# (do ~@body)]
         (println  ~(str "------------------------------end-" @level "-----------------------"))

sunilnandihalli

(ns isomorphism.tt)

(defrecord complex [real imag])

sunilnandihalli

(defmacro def-curry-fn [name args & body]
  {:pre [(not-any? #{'&} args)]}
  (if (empty? args)
    `(defn ~name ~args ~@body)
    (let [rec-funcs (reduce (fn [l v]
                              `(letfn [(helper#
                                         ([] helper#)
                                         ([x#] (let [~v x#] ~l))
                                         ([x# & rest#] (let [~v x#]
                                                         (apply (helper# x#) rest#))))]

sunilnandihalli

nil                                                                                                                                                                                
user> (defmulti hello even?)
#'user/hello                                                                                                                                                                       
user> (defmethod hello false [n]                                                                                                                                                   
        (println [:odd n])                                                                                                                                                         
        (recur (dec n)))                                                                                                                                                           
        
#<MultiFn clojure.lang.MultiFn@1e7c47>                                                

sunilnandihalli

(defmacro defmulti-m [multi-fn-name dispatch-fn ]
  `(let [dfn# ~dispatch-fn
         dvalmap# (atom {})]
     (defn ~(symbol (str "add-method-to-" (name multi-fn-name)))
       [key# method-fn#]
       (swap! dvalmap# assoc key# method-fn#))
     (defn ~multi-fn-name [& args#]
       (let [ks# (keys @dvalmap#)
             k# (or (some #(when (dfn# % args#) %) ks#) :default)
             func-to-call# (@dvalmap# k#)]

sunilnandihalli

(ns isomorphism.complex
  (:refer-clojure)
  (:require [clojure.core :as c]
            [clojure.contrib.math :as m]))

(defrecord complex [re im])
(defn dispatch-fn
  ([x y & ys] [(class x) (class y)]))

(defmulti c+ dispatch-fn)

sunilnandihalli

(defmacro adapt-double
  "Adds a class or type to the set of types accepted by the                                                                                                                        
   2-argument-dispatch function sym."
  [sym type-or-class]
  (let [general-protocol (symbol (str sym "-double-protocol"))
        function-name (symbol (str sym "-for-" (name type-or-class)))]
    `(do (defprotocol ~(symbol (str (name sym) "-double-protocol-for-"
                                    (name type-or-class)))
           (~function-name [~'x ~'y]))
         (extend ~type-or-class ~general-protocol

sunilnandihalli

(defmacro display-local-bindings []
  (let [generate-code-to-print-symbol (fn [x]
                                        `(pprint ['~x ~x]))
        all-local-symbols (keys &env)
        list-of-all-print-statements (map generate-code-to-print-symbol all-local-symbols)]
    list-of-all-print-statements))

sunilnandihalli

(definterface IPoint
  (getX [])
  (setX [v]))

(deftype Point [^{:volatile-mutable true} x]
  IPoint
  (getX [this] x)
  (setX [this v] (set! (.x this) v)))

(def sss (Point. 10))