开源

功能说明:该程序是一个基于易语言开发的 Windows 纤程（Fiber）协程调度模块。其主要功能是在单线程环境下实现用户态的协程调度，通过模拟多任务处理来提高程序执行效率，特别是在处理耗时操作或需要并发逻辑但不希望使用多线程的场景下。

程序的核心机制依赖于 Windows API 中的纤程函数。通过调用 ConvertThreadToFiber 将当前线程转换为纤程，并使用 CreateFiber 创建新的执行上下文。程序定义了一套完整的协程生命周期管理函数，包括 coroutine_init 用于初始化线程级的纤程环境，coroutine_create 用于分配内存并创建新的协程实例，coroutine_run 用于启动或恢复协程执行，以及 coroutine_destroy 用于清理资源。

在控制流方面，程序实现了 coroutine_yield 函数，允许协程主动挂起并将控制权交还给主线程或其他协程，配合 coroutine_resume 实现上下文的切换。此外，还提供了 yield_sleep 函数，这是一种非阻塞的延迟函数，它利用协程挂起机制实现延时，避免了传统延时函数阻塞整个线程的问题，同时支持 OnFinish 和 OnAlert 回调函数，以便在延迟结束或期间执行特定逻辑。

数据存储方面，程序使用 TLS（线程局部存储）来管理全局状态变量 g_tls，确保多线程环境下的安全性。协程的内部状态（如句柄、状态、回调函数、用户参数等）被封装在 MyFiberParam 结构体中，并通过内存指针进行操作，涉及 malloc 和 free 进行内存管理，以及 CopyToFiberParamPtr 和 CopyFromFiberParamPtr 进行数据读写。

启动子程序 _启动子程序 在程序开始时分配 TLS 索引并调用临时子程序。_临时子程序 中包含了一些被注释掉的测试代码，展示了如何使用 coroutine_run 来运行子程序 1，这表明该模块设计用于被其他程序调用或作为库文件集成。

综上所述，该程序是一个底层的并发控制库，为易语言提供了类似现代编程语言中的 async/await 或协程功能，使得开发者能够编写更高效、非阻塞的异步代码。

======程序集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