鱼刺线程池例子源码

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 线程池, 鱼刺类_线程池
.程序集变量 暂停, 逻辑型

.子程序 __启动窗口_创建完毕

启动线程 (&线程开始, , )
停止线程 ()

.子程序 线程开始

开始多线程 (&工作线程, 100, 5)

.子程序 工作线程
.参数 整数, 整数型

调试输出 (整数)

.子程序 开始多线程
.参数 工作线程指针, 子程序指针
.参数 循环数量, 整数型
.参数 线程数, 整数型
.参数 不传入编号, 逻辑型, 可空, 为假则传入编号，为真则不传入
.局部变量 执行编号, 整数型

线程池.创建 (线程数)
暂停 ＝ 假
.计次循环首 (循环数量, 执行编号)
    .判断循环首 (暂停 ＝ 真)
        处理事件 ()
    .判断循环尾 ()
    .判断循环首 (线程池.取_空闲线程数 () ＜ 1)
        处理事件 ()
    .判断循环尾 ()
    .如果 (不传入编号 ＝ 假)
        线程池.投递任务 (工作线程指针, 执行编号)
    .否则
        线程池.投递任务 (工作线程指针)
    .如果结束

.计次循环尾 ()

.子程序 停止线程

线程池.销毁 ()

.子程序 暂停线程

暂停 ＝ 真

.子程序 恢复线程

暂停 ＝ 假

@╰仅冇旳執著