如何使整个浮动堆栈可见

Question

Forth编程语言使用堆栈在函数之间传递参数。不是给子函数一个数字作为直接信息，而是将该值首先放入数据堆栈，另一个函数从堆栈中获取该值。

Forth的一个特殊功能是处理不同堆栈上的整数值和浮点值。这意味着，不可能将浮点值推送到数据堆栈。在Forth中编写短程序时，通常需要调试代码行。

这可以通过打印出堆栈的内容来实现。如果开发人员看到了现在堆栈上的内容，他/她就很容易理解代码的问题。打印出堆栈的内容对于错误跟踪非常重要。

在将两个数字推送到普通数据堆栈之后，就可以显示其内容了。在本例中，两个整数都是在输入".s"命令后打印出来的。但是，如果我将两个浮点数字推送到专用的浮点堆栈，则只显示最后一个元素。如何使整个浮动堆栈可见？

gforth example.fs
1 2 .s cr         <2> 1 2
1.0e 2.0e f. cr   2.
bye

Answer 1

Gforth有一个f.s单词，它正是您所需要的。

参见Gforth手册的"检查"部分：

Answer 2

一种可能的便携式解决方案(Forth-2012计划)

 print floating-point stack content
: .f ( F: i*r -- i*r )
fdepth 0= if exit then
here df! 1 dfloats allot
recurse -1 dfloats allot
here df@ fdup f.
;