Biên dịch byte của gói đa tập tin: Hàm không được xác định là xác định

Hãy tưởng tượng rằng tôi có các tệp sau trong gói (lố bịch) của mình:

Tập tin test1.el:

;;; test1.el ---                                   

;;; Code:

(defvar test-var1)

(defun test-fun1 (test)
  nil)

(require 'test2 "./test2.el)

(provide 'test1)
;;; test1.el ends here

Tập tin test2.el:

;;; test2.el ---  

;;; Code:

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

Nếu sau đó tôi chạy:

emacs -batch -f batch-byte-compile *.el

Tôi nhận được kết quả sau:

Compiling .../test1.el...
Wrote .../test1.elc
Compiling .../test2.el...

In test-fun2:
test2.el:9:15:Warning: reference to free variable `test-var1'

In end of data:
test2.el:14:1:Warning: the function `test-fun1' is not known to be defined.
Wrote .../test2.elc

Tôi hiểu tại sao những cảnh báo này xuất hiện và tôi hiểu rằng chúng chỉ là những cảnh báo. Tuy nhiên, thật dễ dàng để bỏ lỡ một lỗi đánh máy trong tên hàm bằng cách loại bỏ tất cả các cảnh báo thuộc loại này.

Tôi bằng cách nào đó nghĩ rằng thêm một (require 'test2)dòng trong test2.elnên sửa nó. Tuy nhiên, trong trường hợp này tôi nhận được:

Compiling .../test1.el...

In toplevel form:
test1.el:10:1:Error: Recursive `require' for feature `test2'
Compiling .../test2.el...

In toplevel form:
test2.el:5:1:Error: Recursive `require' for feature `test1'

Điều này là khó hiểu, bởi vì tôi nghĩ rằng điểm requirechính xác là để tránh tải đệ quy. Tôi cho rằng đó requirelà hành xử như loadtrong thời gian biên dịch.

Một cách tốt (và an toàn) để thoát khỏi những cảnh báo này là gì?

Hướng dẫn đưa ra cách giải quyết (tôi đăng nó dưới dạng câu trả lời tốt hơn không có gì bên dưới), nhưng cuối cùng, tôi muốn giải pháp khá tự động (không yêu cầu tôi liệt kê tất cả các hàm và biến mà tôi sẽ cần mỗi tập tin).

Giải pháp lý tưởng sẽ được tích hợp sẵn trong emacs hoặc được cung cấp với Cask. Nếu nó không tồn tại, tôi sẽ lấy những gì có sẵn trong khóa học.

Về yêu cầu

requirekhông có nghĩa là để tránh tải lặp đi lặp lại , nó có nghĩa là để tránh tải lặp đi lặp lại . Vì vậy, không, nó không giải quyết vấn đề của bạn ở đây.

Về vấn đề

Cách đúng đắn để tiếp cận điều này (theo ý kiến ​​của tôi) sẽ là tránh sự phụ thuộc lẫn nhau.

Các test1tập tin trong ví dụ của bạn không có lý do để yêu cầu test2. Ngay cả khi điều đó không đúng với gói thực tế của bạn, có thể bạn có thể thiết kế lại cách bạn ủy quyền mã giữa các tệp. Đó là nói chung có thể để tránh sự phụ thuộc lẫn nhau giữa các tập tin của bạn.

Công việc xung quanh

1. Nếu không thể tránh được sự phụ thuộc lẫn nhau, hướng dẫn sẽ đề cập đến một giải pháp. Bạn sẽ phải thêm các dòng như sau cho mỗi chức năng / biến bạn cần.

   (declare-function test-fun1 "./test1.el")
   (defvar test-var1)
   

2. Một lựa chọn khác là requirecác tập tin chỉ có điều kiện. Thêm một cái gì đó như thế này vào tập tin 1:

   (defvar test1-is-loading t)
   (unless (and (boundp 'test2-is-loading)
                test2-is-loading)
     (require 'test2))
   

   Và một cái gì đó như thế này để nộp 2:

   (defvar test2-is-loading t)
   (unless (and (boundp 'test1-is-loading)
                test1-is-loading)
     (require 'test1))
   

Ví dụ của bạn thật kỳ lạ:

• Bạn requiretest2 ở cuối test1, trong khi đó require"luôn luôn" ở đầu tập tin.
• Test1 của bạn không gọi bất kỳ hàm test2 nào, vì vậy nó không cần test2 để hoạt động (do đó require, nó không cần thiết) và OTOH test2 của bạn không gọi các hàm test1, vì vậy nó không cần test1, nhưng nó không thành công require.

IOW, bạn có requirelạc hậu của bạn .

Các nhãn hiệu gợi ý thêm declare-functionvà defvardòng.

Tệp kết quả test2là:

;;; test2.el ---  

;;; Code:

(declare-function test-fun1 "./test1.el")
(defvar test-var1)

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

Tuy nhiên, điều này cần phải được thực hiện cho tất cả các chức năng và tất cả các biến được xác định trong tệp "cha".