Mercurial > rlm

     1 (ns rlm.ns-rlm

     2   "A few convienence functions for namespaces.")

     3 

     4 (defn ns-clear

     5   "completely removes all aliases, interns, and references from the namespace

     6      works on *ns* if called with no arguments"

     7   ([ns]

     8      (let [ns (the-ns ns)]

     9        (doall (map (partial ns-unmap ns) (keys (ns-map ns))))

    10        (doall (map (partial ns-unalias ns) (keys (ns-aliases ns)))) nil))

    11     ([] (ns-clear *ns*)))

    12 

    13 (defn ns-clone-fn

    14   "the calling namespace (*ns*) gets all the referenced vars as the

    15    target namespace anything that the target namespace doesn't have,

    16    ns won't have.  Anything it does have, *ns* will have."

    17   [target-ns]

    18   (ns-clear *ns*)

    19   (doall (map (fn [[ns-alias ns]]

    20                 (alias ns-alias (.name  ns))) (ns-aliases target-ns)))

    21   (doall (map (fn [[sym var]]

    22 		(cond (var? var)

    23 		      (. *ns* (refer sym var))

    24 		      (class? var) 

    25 		      (. *ns* (importClass var))))

    26 		      ;;(eval `(clojure.core/import*  ~(.getName var)))))

    27 		  (ns-map target-ns))) nil)

    28 

    29 ;; (defmacro ns-clone

    30 ;;  ([target-ns-name]

    31 ;;     `(do

    32 ;;        (require '~target-ns-name)

    33 ;;        (ns-clone-fn (get-ns '~target-ns-name)))))

    34 

    35 (defn ls

    36   "lists all the vars defined in the namespace"

    37   ([ns] (doall (map println (keys (ns-interns ns)))) nil)

    38   ([] (ls *ns*)))

    39 

    40
author	Robert McIntyre <rlm@mit.edu>
date	Tue, 28 Feb 2012 13:26:34 -0600
parents	78a630e650d2
children