Rexx - 堆栈

---

堆栈有时也被称为外部数据队列，但我们按照通常的用法，将其称为堆栈。它是逻辑上位于 Rexx 外部的一块内存。像push和queue这样的指令将数据放入堆栈中，像pull和parse这样的指令从堆栈中提取数据。排队的内置函数报告堆栈中有多少项。

让我们看一个堆栈的例子。

/* STACK: */
/* */ 
/* This program shows how to use the Rexx Stack as either a */ 

/* stack or a queue. */ 
do j = 1 to 3 
push ‘Stack: line #’ || j 

/* push 3 lines onto the stack */ 
end 
do j = 1 to queued() 

/* retrieve and display LIFO */ 
pull line 
say line 
end 
do j = 1 to 3 queue ‘Queue: line #’ || j 

/* queue 3 lines onto the stack */ 
end 
do queued() 

/* retrieve and display FIFO */ 
pull line 
say line 
end 
exit 0

程序中的第一个 do 循环将三行数据放入堆栈中。它使用push指令来做到这一点。我们对行进行编号，以便在按 LIFO 顺序检索它们时，它们的顺序是显而易见的。

通过入栈指令放入堆栈的项目按 LIFO 顺序检索 -

do j = 1 to 3 
push ‘Stack: line #’ || j     /* push 3 lines onto the stack */ 
end

下一个代码块显示了如何使用排队的内置函数来发现堆栈上的行数，以及从堆栈中检索所有行的循环 -

do j = 1 to queued()    /* retrieve and display LIFO */ 
pull line 
say line 
end

由于这三个项目是通过入栈方式放入堆栈的，因此按 LIFO 顺序检索它们。

上述程序的输出如下。

STACK: LINE #3 
STACK: LINE #2 
STACK: LINE #1