如何使用Scheme附加到文件？

Question

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

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

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

必须有更好的方法！

Answer 1

这将是

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

您想要查找file-options功能。

更新

这是guile version：

(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的值写入文件。