Tên hàm là chuỗi trong Lisp?

Question

Tôi có một danh sách lớn các biến toàn cục mà mỗi biến có chức năng thiết lập riêng của chúng. Mục tiêu của tôi là đi qua danh sách này, gọi hàm thiết lập của từng mục và tạo một số thống kê về dữ liệu được tải trong biến phù hợp. Tuy nhiên, những gì tôi đang cố gắng hiện không hoạt động và tôi cần trợ giúp để chương trình của tôi gọi các chức năng cài đặt.

Các biến toàn cầu và các hàm thiết lập của chúng phân biệt chữ hoa chữ thường vì nó xuất phát từ XML và cần thiết cho tính duy nhất.

Dữ liệu trông giống như sau:

'(ABCD ABC\d AB\c\d ...) 

và các chức năng thiết lập giống như thế này:

(defun setup_ABCD... 
(defun setup_ABC\d... 

Tôi đã thử concatenating chúng lại với nhau và biến chuỗi kết quả vào một chức năng, nhưng điều này cản trở không gian tên của hàm thiết lập đã tải trước đó. Dưới đây là cách tôi đã cố thực hiện điều đó:

(make-symbol (concatenate 'string "setup_" (symbol-name(first '(abc\d))))) 

Nhưng việc sử dụng funcall sẽ không hoạt động. Làm thế nào tôi có thể nhận được một chức năng gọi từ điều này?

Answer 1

Đó là vì MAKE-SYMBOL trả về một biểu tượng không bị chặn. Bạn nên sử dụng INTERN thay thế.

Answer 2

Tôi muốn sử dụng INTERN hoặc (có thể, bạn phải có hồ sơ để chắc chắn 100% nó hữu ích) một hàm trợ giúp thực hiện nối chuỗi và tìm kiếm ban đầu, sau đó lưu trữ kết quả trong một hashtable (keyed tắt biểu tượng gốc). Điều đó có thể nhanh hơn giải pháp INTERN/CONCATENATE tinh khiết, có khả năng sẽ tạo ra ít rác thải thoáng qua, nhưng sẽ kết thúc bằng cách sử dụng lưu trữ lâu dài hơn.

cái gì đó dọc theo dòng:

 
(defvar *symbol-function-map* (make-hash-table)) 

(defun lookup-symbol (symbol) 
    (or (gethash symbol *symbol-function-map*) 
     (let ((function-name (intern (concatenate 'string "setup_" (symbol-name symbol))))) 
     (setf (gethash symbol *symbol-function-map*) (symbol-function function-name))))) 

Nếu bạn yêu cầu tên của hàm, chứ không phải là chức năng riêng của mình, bỏ qua cuộc gọi đến SYMBOL-CHỨC NĂNG.

Answer 3

(funcall (read-from-string (concatenate 'string "setup_" (symbol-name(first '(abc\d)))))) 

cũng hoạt động.