类中的 lisp 文件指针

Question

我在理解类中处理文件访问的 CLOS 方式时遇到了问题。在 C++ 中，我可以这样做：

class Foo {
   Foo (string filename);  // opens the file (my_file) requested by the filename
   ~Foo ();  // close the file

   FILE * my_file;  // a persistent file-handle
   DataStruct my_data;  // some data

   void ParseData ();  // will perform some function on the file and populate my_data
   DataStruct * GetData () { return &my_data; }  // accessor to the data
};

我想指出的是，PraseData() 将被多次调用，每次都会从文件中解析一个新的数据块，并且 my_data 将被更改。

我正在尝试在 CLOS 中执行相同的技巧 - 创建所有通用方法来解析数据、加载文件、读取标头等以及我拥有的类定义：

(defclass data-file ()
  ((filename :initarg :filename :accessor filename)
   (file :accessor file)
   (frame :accessor frame)))

在“构造函数”中（即初始化-instance) 我就像我的 C++ 习惯用法一样打开文件。然后我就可以访问数据并且可以像以前一样解析数据。然而，我被告知使用“析构函数”或（最终确定）方法来关闭文件并不是惯用的 CLOS 来处理这种类型的情况，我需要文件在周围，以便我可以在数据文件之外访问它方法。

我将定义一个函数来加载数据文件，然后对其数据执行一系列分析，然后希望将其关闭。有什么方法可以做到这一点？ （我假设宏或某种类型的闭包可以在这里工作，但我不太熟悉 lisp 方法来决定需要什么或如何实现它）。

Answer 1

一种选择是将流作为槽而不是文件名，然后使用WITH-OPEN-FILE对其范围进行限制：

(with-open-file (stream file)
  (let ((foo (make-instance 'foo :stream stream)))
    (frob foo)
    (...other processing of foo...)))

然后您的流将自动关闭。

Answer 2

我想我会倾向于只创建类来存储完整的权威数据（你称之为 DataStruct？）。

您实际上并不需要一个特殊的类来“加载+存储另一个类”。另外，这种方式有一个不言而喻的不变量，即 my_data 将 my_file 的数据保存到当前的查找位置，这在我看来有点奇怪。

换句话说：Foo 是做什么的？给定一个文件名，它会加载数据，并为您提供一个 DataStruct。这对我来说听起来像是一个函数。如果您需要能够在线程中运行它，或者在加载记录之间触发事件，那么在 C++ 中使用类是实现此目的的自然方法，但在 Lisp 中不需要为这些事情使用类。

另外，请记住，您不需要使用 DEFCLASS 即可在 CLOS 中使用通用方法。

我不知道你的数据的结构是什么，但在类似的情况下，我制作了一个解析一块函数，它接受一个流并返回一条记录，然后在 with 的循环内创建一个完整的 Foo 实例-打开文件。如果在 with-open-file 扩展的范围之外永远不需要该流，则您永远不需要担心关闭它。