scheme - 如何使用 Scheme 附加到文件？

Question

我正在使用 TinyScheme（实际上是 GIMP 中的 Script-Fu），但找不到打开文件并向其附加一行文本的好方法。

我正在尝试将一些信息记录到文件中以进行调试，并且似乎没有实现转录...

现在我正在阅读整个文件（一次一个字符！），将它连接成一个字符串，将我的文本连接到它的末尾，然后再次将其全部写入文件。

一定会有更好的办法！

Answer 1

它会是这样的

(open-file "myfile" (file-options append))

您想查找该file-options功能。

更新

这是狡猾的版本：

(open-file "myfilename.dat" "a")

Answer 2

刚刚在 GIMP 中遇到了同样的问题并决定使用open-input-output-file. 我的解决方案是这样的：

(let* ((out (open-input-output-file "file.txt") ))
  (display "hello world" out)
  (newline out)                    
  (close-output-port out))

浏览 TinyScheme 源代码并检查此函数是否实际调用fopen. "a+"该文件已打开以供读取和写入。为了我们的目的，我们只想写，所以忽略阅读。

我正在编写一个 Script-Fu 来将值写入gimp-selection-bounds文件。