Kodumu sözcüksel bağlama kullanmaya çevirmeye çalışıyorum.
Kullanıcı-özelleştirilebilir bir listeden bir lambda işlevini (
replaceer-iç 'e bağlı) çağıran bir işlevim (
format-template ) var ( template-replace Bir
eşleme dizgisine dayalı işlevlerin işlevleri ). Değiştirici
iç işlevi hiçbir argüman almaz ve bir dizge döndürür, ancak
foo bar ve/veya değişkenlerini
kullanması gerekebilir olabilir listesinin
argümanının bir parçası olarak format-template 'e
aktarılan baz .
(setq lexical-binding t)
(defcustom template-replace-functions
'(("email"
(lambda() user-mail-address)
("apples"
(lambda ()
(cond ((= foo 1)
"one")
((= foo 2)
"two")
((= foo 3)
"three")
(t "four"))))
("bananas"
(lambda ()
(if (eq bar 'move)
"movement" "sit still")))))
"Association list of replacement functions.
For each STRING, the corresponding FUNCTION is called with no
arguments and must return a string."
:type '(repeat (group string function))
:group 'spice-girls)
(defun format-template (list)
(let* ((foo (nth 0 list))
(bar (nth 1 list))
(baz (nth 2 list))
template
(replacer-outer
(lambda ()
(replace-regexp-in-string
"\${\([^\s\t\n]*?\)}"
(lambda (match)
(let* ((key (match-string 1 match))
(replacer-inner
(cadr (assoc key template-replace-functions))))
(if (and replacer-inner
(stringp (funcall replacer-inner)))
(funcall replacer-inner) "")))
template t t))))
(setq template
...)
(if template (funcall replacer-outer))))
Örneğin, list , foo bar
ve baz 'a bağlı üç öğeyi içerir. Eşleme dizesinin
tuşu "bananas" olup
template-replace-functions öğesinde bir işleve
bağlanır ve replace- değerini ayarlar. iç için:
(lambda ()
(if (eq bar 'move)
"movement" "sit still"))
Bu noktada, yukarıdaki lambda işlevinin, dinamik bağlamayı
kullanarak, ancak sözcüksel bağlamayı kullanarak çok iyi olmayan
bar 'ı bilmesi gerekir.
Sorum şu; yerine replace-iç olan lambda işlevinin
foo bar değerine bağlı olmasını sağlamak
için bunu nasıl yaparım? ve baz ?
(Sadece bir şeyi karıştırmak için replace-internal
içeren replace-outer fonksiyonu, gerçek fonksiyondaki
iki yerden birinden çağrıldığı için izinlidir. Buraya satır içi
yazabilirdim, ancak problemi eklediğinde bu şekilde dahil
ettim.)
Düzenle:
Yarı yolda ...
(setq lexical-binding t
foo 0
bar 0)
(setq inline-fun-1
'(lambda ()
(setq return
(if (eq foo 1)
"Pass" "Fail"))))
(defmacro lex-fun ()
`(let* ((foo 1)
(bar 1)
return)
(funcall ,inline-fun-1)))
(lex-fun) ; -> "Pass"
(defun inline-fun-2 ()
(setq return
(if (eq bar 1)
"Pass" "Fail")))
(defmacro lex-fun ()
`(let* ((foo 1)
(bar 1)
return)
(funcall ,inline-fun-2)))
(lex-fun) ; -> Lisp error: (void-variable inline-fun-2)
Yani, bir makro içindeki lambda işlevini genişletmek işe
yarayabilir, ancak adlandırılmış bir işlev değil. Ama kullanıcı
lambda veya adlandırılmış işlevlere izin vermek istiyorum. Bu
konuda nasıl geçilir?