Başka bir isim alanına başvurabilir ve işlevlerini mevcut ns için herkese açık olarak gösterebilir miyim?

Question

use bunu yapardı, ancak geçerli ad alanında oluşturulan haritalama genel olarak görünmüyor.

(ns my-ns-2 
    (:require [my-ns :as my])) 

(defn my-fct-2 
    [] 
    (my/another-fct 456)) ; this doesn't work 

ben another-ns çünkü bir kütüphane bir veritabanına erişmek için bunu yapmak istiyorum:

(ns my-ns 
    (:use [another-ns :only (another-fct)])) 

(defn my-fct 
    [] 
    (another-fct 123)) ; this works fine 

Sonra bu gibi başka bir ad var: İşte elde etmek istediğim şey bir örnektir . Bu kütüphaneye yapılan tüm aramaları tek bir isim alanında (my-ns) izole etmek istiyorum, bu şekilde tüm DB'ye bağımlı fonksiyonlar tek bir isim alanında izole edilecek ve gerekirse başka bir DB'ye geçiş yapmak daha kolay olacaktır.

Bu kitaplıktaki bazı işlevler benim için sorun değil, ancak diğerlerini de artırmak istiyorum. Okuma işlevlerinin iyi olduğunu söyleyeyim ancak yazma işlevlerini bazı doğrulamalarla artırmak istiyorum.

Şimdiye kadar gördüğüm tek yol, tüm eşlemeyi, büyütmediğim işlevler için bile my-ns'a el ile kodlamaktır.

Answer 1

bu yardımı mu? İşte

(defmacro pull [ns vlist] 
    `(do ~@(for [i vlist] 
      `(def ~i ~(symbol (str ns "/" i)))))) 

bir örnek:

(ns my-ns) 

(defmacro pull [ns vlist] 
    `(do ~@(for [i vlist] 
      `(def ~i ~(symbol (str ns "/" i)))))) 

(pull clojure.string (reverse replace)) 

(defn my-reverse 
    [] 
    (reverse "abc")) 

(ns my-ns-2) 

(defn my-fct-2 [] 
    (list (my-ns/my-reverse) 
     (my-ns/reverse "abc"))) 

(my-fct-2) 

sadece o, her şeyi çekmek istiyorsanız:

(defmacro pullall [ns] 
    `(do ~@(for [i (map first (ns-publics ns))] 
      `(def ~i ~(symbol (str ns "/" i)))))) 

(pullall clojure.string) 

Answer 2

Seçmeli olarak bunu yapmanın bir yolu (her bir işlevi açıkça belirtmek), Zach Tellman'ın Potemkin library gibi bir şey kullanmaktır. Bunun bir örneği, Lamina'nın halka açık giriş noktası olarak hizmet veren lamina.core ad alanı içinde, diğer tüm iç ad alanlarındaki önemli kamu işlevlerini içe aktarma biçiminde bulunur.

Ayrıca clojure.contrib.def/defalias kullanabilirsiniz:

(use 'clojure.contrib.def/defalias) 
(defalias foo clojure.string/blank?) 
(foo "") 

Answer 3

makro kullanımı bu

içinde tanımlanmış olabilir ad her şeyi çekin

(defmacro pullall [ns] 
    `(do ~@(for [[sym var] (ns-publics ns)] 
      `(def ~sym ~var))))