EMS编译器易语言源码

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连接 (文件全路径名, 是否运行)
返回 ()

@易语言教程网