EMS编译器易语言源码
.版本 2
.子程序 EMS编译, , 公开, Compile
.参数 文件全路径名, 文本型
.参数 是否运行, 逻辑型
EMS_程序运行路径 = 取运行目录 ()
EMS_资源文件 = 取文本左边 (文件全路径名, 倒找文本 (文件全路径名, “.”, , 假)) + “lib”
EMS信息初始化 ()
EMS提示信息 (“开始初始化数据.......”)
EMS初始化段 ()
EMS初始化符号 ()
EMS初始化资源 ()
EMS初始化导入 ()
EMS初始化导出 ()
EMS初始化编码 ()
EMS初始化框架 ()
EMS初始化数据 ()
EMS初始化数据类型 ()
EMS初始化解析器 ()
EMS提示信息 (“环境初始化完毕.开始数据分析中...”)
EMS解析器 ()
.如果真 (EMS_是否DLL)
EMS_DLL名 = 取文本右边 (文件全路径名, 取文本长度 (文件全路径名) - 倒找文本 (文件全路径名, “\”, , 假))
EMS_DLL名 = 取文本左边 (EMS_DLL名, 取文本长度 (EMS_DLL名) - 3)
EMS_DLL名 = EMS_DLL名 + “DLL”
.如果真结束
.如果真 (EMS_是否出错)
EMS设置提示 (EMS_信息)
返回 ()
.如果真结束
.如果真 (EMS_库)
EMS导出库 (文件全路径名)
返回 ()
.如果真结束
EMS初始化连接 ()
.如果真 (EMS_是否出错)
EMS设置提示 (EMS_信息)
返回 ()
.如果真结束
EMS编码数据 ()
EMS连接 (文件全路径名, 是否运行)
返回 ()
EMS编译