IocpLog简单日志 - 精易论坛

子程序名	返回值类型	公开	备注
IOCPLogWork			IOCP工作线程

变量名	类型	静态	数组	备注
文本	文本型
指针	整数型
wParam	整数型

调试输出 (取程序名称 (1) ＋ “,开始执行!”)
' 1:当前语句所处子程序名称;2:当前语句所处程序集名称;3:当前语句所处易语言程序的全路径文件名称(注意如果编译时易语言程序没有保存,将为空);4:当前语句所处程序配置信息中的程序名称;5:当前语句所处程序配置信息中的作者名称;6:当前语句所处易语言程序的无路径和后缀文件名称(注意如果编译时易语言程序没有保存,将为空)。

判断循环首 (真)

' 没有任务了自动阻塞

如果真 (GetQueuedCompletionStatus (c_IOCPLog, wParam, -1, -1, -1)) ' 本身会线程安全，无需加锁

InterlockedDecrement (IOCPLog原子数) ' 原子-1

文本＝指针到文本 (wParam)

释放内存 (wParam)

如果 (寻找文本 (文本, “排队运行子程序”, , 假) ＞ -1)

文本＝文本_取右边 (文本, “排队运行子程序”) ' 得到文本型的指针地址

输出调试文本 (“运行子程序”)

调用子程序 (到整数 (文本), , , )

输出调试文本 (“运行日志”)

日志写到本地 (文本)

' 调试输出 (wParam, 文本)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

子程序名	返回值类型	公开	备注
s	逻辑型		写日志
参数名	类型	参考	可空	数组	备注
文本	文本型

变量名	类型	静态	数组	备注
iLen	整数型
hMem	整数型
Presult	逻辑型

如果真 (文本＝ “”)

返回 (假)
hMem ＝申请内存 (取文本长度 (文本) ＋ 1, )

如果真 (hMem ＝ 0)

' 调试输出 (“申请内存失败”, hMem)

返回 (假)
写到内存 (文本, hMem, )
Presult ＝ PostQueuedCompletionStatus (c_IOCPLog, hMem, hMem, hMem)

如果真 (Presult)

InterlockedIncrement (IOCPLog原子数) ' 原子+1
返回 (Presult)

子程序名	返回值类型	公开	备注
排队运行子程序	逻辑型		IOCP调用子程序排队处理
参数名	类型	参考	可空	数组	备注
文本	文本型

变量名	类型	静态	数组	备注
iLen	整数型
hMem	整数型
Presult	逻辑型