易语言数组实现环形队列、栈等

.版本 2

.程序集 类_环形队列, , , 先进先出。重复利用现有内存空间，不进行数据的实际删除移动，效率相对较高
.程序集变量 m_队列数据, 队列数据类型, , "100"
.程序集变量 m_qMax, 整数型
.程序集变量 m_qHeader, 整数型
.程序集变量 m_qFooter, 整数型
.程序集变量 m_qCount, 整数型
.程序集变量 线程许可证, 线程_许可证

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

m_qMax ＝ 100
m_qCount ＝ 0
m_qHeader ＝ 1
m_qFooter ＝ 1

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

重定义数组 (m_队列数据, 假, 0)

.子程序 置队列空间, , 公开, 默认是 100，可以通过此函数调整
.参数 最大空间, 整数型

m_qMax ＝ 最大空间
重定义数组 (m_队列数据, 假, m_qMax)

.子程序 压入数据, 整数型, 公开, 成功：返回队列成员数量，失败：返回 -1
.参数 队列数据, 队列数据类型

线程许可证.进入 ()
.如果真 (m_qCount ≥ m_qMax)
    线程许可证.退出 ()
    返回 (-1)
.如果真结束
m_队列数据 [m_qFooter] ＝ 队列数据
m_qFooter ＝ m_qFooter ％ m_qMax ＋ 1
m_qCount ＝ m_qCount ＋ 1
线程许可证.退出 ()
返回 (m_qCount)

.子程序 弹出数据, 整数型, 公开, 成功：返回队列剩余成员数量，失败：返回 -1
.参数 队列数据, 队列数据类型, 参考

线程许可证.进入 ()
.如果真 (m_qCount ＝ 0)
    线程许可证.退出 ()
    返回 (-1)
.如果真结束
队列数据 ＝ m_队列数据 [m_qHeader]
m_qHeader ＝ m_qHeader ％ m_qMax ＋ 1
m_qCount ＝ m_qCount － 1
线程许可证.退出 ()
返回 (m_qCount)

.子程序 取队列数, 整数型, 公开

返回 (m_qCount)

.子程序 清空队列, , 公开

线程许可证.进入 ()
m_qCount ＝ 0
m_qHeader ＝ 1
m_qFooter ＝ 1
线程许可证.退出 ()

@214175590