易语言coroutine_test源码,易语言协同程序接口模块源码

易语言协同程序接口模块源码

系统结构:子程序1,yield_sleep,coroutine_run,coroutine_init,init_check,coroutine_create,coroutine_callback,coroutine_destroy,coroutine_resume,coroutine_status,coroutine_get_result,coroutine_is_yield,coroutine_yield,coroutine_running,coroutine_is_running,GetCurrentFiber,GetFiberData,辅_调用子程序,malloc,free,ConvertThreadToFiber,CreateFiber,DeleteFiber,SwitchToFiber,GetLastError,CopyToFiberParamPtr,CopyFromFiberParamPtr,GlobalAlloc,GlobalFree,TlsAlloc,TlsGetValue,TlsSetValue,script_work,test,game_loop,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 子程序1
| |
| |------ yield_sleep
| |
| |------ coroutine_run
| |
| |------ coroutine_init
| |
| |------ init_check
| |
| |------ coroutine_create
| |
| |------ coroutine_callback
| |
| |------ _coroutine_callback
| |
| |------ coroutine_destroy
| |
| |------ coroutine_resume
| |
| |------ coroutine_status
| |
| |------ coroutine_get_result
| |
| |------ coroutine_is_yield
| |
| |------ coroutine_yield
| |
| |------ coroutine_running
| |
| |------ coroutine_is_running
| |
| |------ GetCurrentFiber
| |
| |------ GetFiberData
| |
| |------ 辅_调用子程序
| |
| |------ malloc
| |
| |------ free
| |
| |
======调用的Dll
| |
| |---[dll]------ ConvertThreadToFiber
| |
| |---[dll]------ CreateFiber
| |
| |---[dll]------ DeleteFiber
| |
| |---[dll]------ SwitchToFiber
| |
| |---[dll]------ GetLastError
| |
| |---[dll]------ CopyToFiberParamPtr
| |
| |---[dll]------ CopyFromFiberParamPtr
| |
| |---[dll]------ GlobalAlloc
| |
| |---[dll]------ GlobalFree
| |
| |---[dll]------ TlsAlloc
| |
| |---[dll]------ TlsGetValue
| |
| |---[dll]------ TlsSetValue
======窗口程序集1
| |
| |------ script_work
| |
| |------ _按钮_正常测试_被单击
| |
| |------ _按钮_协同代码_非阻塞测试_被单击
| |
| |------ _按钮_协同代码_阻塞测试_被单击
| |
| |------ test
| |
| |------ game_loop

调用的DLL命令:

.DLL命令 ConvertThreadToFiber, 整数型, , "ConvertThreadToFiber"
.参数 lpParameter

.DLL命令 CreateFiber, 整数型, , "CreateFiber"
.参数 dwStackSize
.参数 lpStartAddress, 子程序指针
.参数 lpParameter

.DLL命令 DeleteFiber, , , "DeleteFiber"
.参数 lpFiber

.DLL命令 SwitchToFiber, , , "SwitchToFiber"
.参数 lpFiber

.DLL命令 GetLastError, 整数型, , "GetLastError"

.DLL命令 CopyToFiberParamPtr, , , "RtlMoveMemory"
.参数 Dest
.参数 Src, MyFiberParam
.参数 Length

.DLL命令 CopyFromFiberParamPtr, , , "RtlMoveMemory"
.参数 Dest, MyFiberParam
.参数 Src
.参数 Length

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
.参数 uFlags
.参数 dwBytes

.DLL命令 GlobalFree, , , "GlobalFree"
.参数 hMem

.DLL命令 TlsAlloc, 整数型, , "TlsAlloc"

.DLL命令 TlsGetValue, 整数型, , "TlsGetValue"
.参数 dwTlsIndex

.DLL命令 TlsSetValue, , , "TlsSetValue"
.参数 dwTlsIndex
.参数 lpTlsValue