如何在 Forth 中创建数组？

Question

我知道，这个问题过去经常被问到，也许这些信息是在以前的 Stack Overflow 帖子中给出的。但是学习 Forth 是一项非常复杂的任务，重复有助于理解串联编程语言相对于 C 等替代语言的优势。

我从 Forth 教程中了解到，Forth 不提供创建二维数组的命令，但用户必须在程序中从头开始实现。我在 Forth 中找到了两种占用内存的选项。首先通过创建一个新词：

: namelist s” hello” s” world” ;

或者其次通过 CREATE 语句：

create temperature 10 allot
temperature 10 cells dump

到现在为止还挺好; 我们创建了一个包含 10 个单元格的数组，其中可以存储整数变量。但是，如果我需要保存浮点数呢？我必须始终将 float 转换为 int 还是可以将它们保存到普通单元格中？

另一个未解决的问题是如何在数组中存储字符串值。据我所知，一个字符串包含一个指针加上一个大小。所以理论上我只能在 10 个单元格数组中存储 5 个字符串，另外我需要在其他地方保存字符串本身的内存。那没有多大意义。

是否有某种更高的抽象可用于将值存储在可用于编写易于阅读的程序的数组中？我的意思是，如果每个程序员都使用自己的 Forth 方法在内存中存储一​​些东西，其他程序员会发现很难阅读代码。

Answer 1

create创建一个返回字典（数据空间）中缓冲区地址的单词；它最初为零长度，因此您必须立即为其保留所需的空间。

allot 保留以地址单位（通常为字节）衡量的空间，因此您必须以字节为单位计算所需的大小。

例如：

create a 10 cells allot
create b 10 floats allot

它只是缓冲区，您仍然需要处理指针算术来获取或设置项目，例如：

0.35e  2 floats b +  f! \ store the float number into third item (0-based indexing)

在字典中创建浮点数组的单词示例：

: create-floats-array ( length "name" -- ) create floats allot does> swap 1- floats + ;

10 create-floats-array c

0.35e  3 c f! \ store the float number into third item (1-based indexing)
3 c f@ f. \ print float number form third item

如果您需要许多数组和许多字符串，最好使用适当的库。例如，参照细胞阵列模块和动态文本串模块从第四基础库。