Forth编程中的文件搜索：深入理解scan-file

在Forth编程中，文件I/O操作是一个重要的学习内容。最近在学习Forth时，我遇到了关于scan-file词的一个有趣问题。通过这个博客，我希望与大家分享我对这个问题的理解，并提供一个改进后的实例来帮助大家更好地掌握这一概念。

初识问题

在学习一个关于Forth文件I/O的教程时，我尝试使用scan-file词来搜索文件中的特定文本。教程提供的代码如下：

0 Value fd-in 256 Constant max-line Create line-buffer max-line 2 + allot : open-input ( addr u -- ) r/o open-file throw to fd-in ; : scan-file ( addr u -- ) begin line-buffer max-line fd-in read-line throw while >r 2dup line-buffer r> compare 0= until else drop then 2drop ; s" foo.in" open-input

我期望通过执行scan-file来搜索文件foo.in中的字符串，但结果却不尽如人意，无论我搜索什么文本，输出总是：

s" The text I search is here" scan-file o