易语言文本栈源码

系统结构:IsEmpty,IsFull,Clear,Push,Pop,Remalloc,设置内存增量,GetTop,GetBottom,GetData,进入许可区,离开许可区,InitializeCriticalSection_临界许可,DeleteCriticalSection_临界许可,EnterCriticalSection_临界许可,LeaveCriticalSection_临界许可,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======栈_文本_类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ IsEmpty
           |  |
           |  |------ IsFull
           |  |
           |  |------ Clear
           |  |
           |  |------ Push
           |  |
           |  |------ Pop
           |  |
           |  |------ Remalloc
           |  |
           |  |------ 设置内存增量
           |  |
           |  |------ GetTop
           |  |
           |  |------ GetBottom
           |  |
           |  |------ GetData
           |  |
           |  |
======临界区_类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 进入许可区
           |  |
           |  |------ 离开许可区
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InitializeCriticalSection_临界许可
           |  |
           |  |---[dll]------   DeleteCriticalSection_临界许可
           |  |
           |  |---[dll]------   EnterCriticalSection_临界许可
           |  |
           |  |---[dll]------   LeaveCriticalSection_临界许可

调用的DLL命令:

.DLL命令 InitializeCriticalSection_临界许可, , "kernel32", "InitializeCriticalSection", , 创建许可证
    .参数 lpCriticalSection, 临界许可, 传址

.DLL命令 DeleteCriticalSection_临界许可, 整数型, "kernel32", "DeleteCriticalSection", , 销毁许可证
    .参数 lpCriticalSection, 临界许可, 传址

.DLL命令 EnterCriticalSection_临界许可, , "kernel32", "EnterCriticalSection", , 进入许可区
    .参数 lpCriticalSection, 临界许可, 传址

.DLL命令 LeaveCriticalSection_临界许可, , "kernel32", "LeaveCriticalSection", , 退出许可区
    .参数 lpCriticalSection, 临界许可, 传址