原创 visualfc
WTL的应用程序向导（LUA版)使用IupLua编写，本文将对其源代码作一下简要说明，并分析了该向导的多语言界面处理机制。
WTL的应用程序向导源代码可以从
http://code.google.com/p/visualfc/downloads/list下载。下面对其作一下简要说明。
一、开发环境：
本向导开发环境是Lua for Windows，该项目地址为：
http://luaforwindows.luaforge.net/
wiz_main.wlua是向导主文件，使用纯文本格式编写。
wiz_chs.wlua是中文向导，初始化了中文界面后调用wiz_main.wlua
resource目录为向导使用的中文资源文件和图片
Template目录为应用程序向导模板目录，从WTL80发行包中获取并增加部分功能。
二、向导控件：
IupLua当前版本(2.7)未提供向导控件，所以我使用IupLua编写了一个向导控件。源代码位于iup\iupwizard.lua 文件中。
三、Iup的id扩展：
这个在以前文章中有过介绍，仅举例说明 iup.button{title="ok",id="btn_id"}，这样可以直接引用btn_id来表示此button，源码位于iup\iupid.lua中。
四、vswizard.dll文件
主要提供了分析Template目录下模板文件的功能以及一些辅助函数供LUA使用。
这是从VFC的WTL向导中移植过来，源码位于source\iup_vswizard目录下
其中luabind目录为自己写的一个c++到lua的简单绑定。
五、绝对路径
我发现在Lua中很难获取lua文件的绝对路径，最后我使用了在vswizard.dll中导出get_module_path
函数的办法以供lua模块使用，如果谁有更简便的方法望告之以加以改进。
六、多语言界面处理:
Iup目前版本不支持UNICODE，但可以支持代码页。本向导的多语言处理采用了lua的表方式进行处理，在lua源文件中需要显示字符串的地方，使用ui("Sample string")的来取代"Sample string"。
通过resource\build_lang.lua这个多语言生成工具，可以从lua源文件中直接提取ui("...")，并生成lang_chs.lua供翻译使用，当修改了向导中的ui字符串后，重新运行build_lang.lua，取可重新提取ui("...")字符串，并且不会影响到已经翻译好的字符串。
我截取了resource\lang_chs.lua部分源代码，该文件通过build_lang.lua自动生成。
local lang = {}
lang["Project Name"] = "项目名称"
lang["Location"] = "本地目录"
--ui("test str")
function ui(str)
if lang[str] ~= nil and lang[str] ~= "" then
return lang[str]
else
return str
end
end
启用中文界面的wiz_main.wlua文件源码如下：
require "vswizard"
local app_path = vswizard.get_module_path()
local_lang = string.upper(vswizard.get_local_lang())
if local_lang == "CHS" then
dofile(app_path.."\\Resource\\lang_chs.lua")
end
dofile(app_path.."\\wiz_main.wlua")
如果当前语言为中文则加载lang_chs.lua文件并获得了 ui 函数，在wiz_main.wlua中判断是否已经获取了ui函数，如果没有则使用源字符串输出。
local ui = ui or function(str) return str end
最后可以看一下build_lang.lua源代码，从中可以发现使用LUA来作此类工具非常的容易。
function make_file(name, out_name)
file = io.open(name,"r")
assert(file,"Error to load File"..name)
s = file:read("*all")
words = {}
saves = {}
for w in string.gmatch(s,"ui%s-%(%s-(\".-\")%s-%)") do
if words[w] == nil then
saves[#saves+1] = w
words[w] = [[""]]
end
end
file:close()
file = io.open(out_name,"r")
old = ""
if file then
old = file:read("*all")
end
for w,w1 in string.gmatch(old,"lang%[(\".-\")%]%s-=%s-(\".-\")") do
if w1 ~= "" then
words[w] = w1
end
end
file = io.open(out_name,"w")
assert(file,"Error to write file"..out_name)
file:write("-- lang file for "..name.."\n\n")
file:write("local lang = {}\n")
for k,v in ipairs(saves) do
file:write(string.format("lang[%s] = %s\n",v,words[v]))
end
file:write(
[[
--ui("test str")
function ui(str)
if lang[str] ~= nil and lang[str] ~= "" then
return lang[str]
else
return str
end
end
]])
end
make_file("..\\wiz_main.wlua","lang_chs.lua")