原創(chuàng) visualfc
WTL的應(yīng)用程序向?qū)В↙UA版)使用IupLua編寫，本文將對其源代碼作一下簡要說明，并分析了該向?qū)У亩嗾Z言界面處理機(jī)制。
WTL的應(yīng)用程序向?qū)г创a可以從
http://code.google.com/p/visualfc/downloads/list下載。下面對其作一下簡要說明。
一、開發(fā)環(huán)境：
本向?qū)ч_發(fā)環(huán)境是Lua for Windows，該項目地址為：
http://luaforwindows.luaforge.net/
wiz_main.wlua是向?qū)е魑募?，使用純文本格式編寫?br> wiz_chs.wlua是中文向?qū)В跏蓟酥形慕缑婧笳{(diào)用wiz_main.wlua
resource目錄為向?qū)褂玫闹形馁Y源文件和圖片
Template目錄為應(yīng)用程序向?qū)０迥夸洠瑥腤TL80發(fā)行包中獲取并增加部分功能。
二、向?qū)Э丶?br> IupLua當(dāng)前版本(2.7)未提供向?qū)Э丶晕沂褂肐upLua編寫了一個向?qū)Э丶?。源代碼位于iup\iupwizard.lua 文件中。
三、Iup的id擴(kuò)展：
這個在以前文章中有過介紹，僅舉例說明 iup.button{title="ok",id="btn_id"}，這樣可以直接引用btn_id來表示此button，源碼位于iup\iupid.lua中。
四、vswizard.dll文件
主要提供了分析Template目錄下模板文件的功能以及一些輔助函數(shù)供LUA使用。
這是從VFC的WTL向?qū)е幸浦策^來，源碼位于source\iup_vswizard目錄下
其中l(wèi)uabind目錄為自己寫的一個c++到lua的簡單綁定。
五、絕對路徑
我發(fā)現(xiàn)在Lua中很難獲取lua文件的絕對路徑，最后我使用了在vswizard.dll中導(dǎo)出get_module_path
函數(shù)的辦法以供lua模塊使用，如果誰有更簡便的方法望告之以加以改進(jìn)。
六、多語言界面處理:
Iup目前版本不支持UNICODE，但可以支持代碼頁。本向?qū)У亩嗾Z言處理采用了lua的表方式進(jìn)行處理，在lua源文件中需要顯示字符串的地方，使用ui("Sample string")的來取代"Sample string"。
通過resource\build_lang.lua這個多語言生成工具，可以從lua源文件中直接提取ui("...")，并生成lang_chs.lua供翻譯使用，當(dāng)修改了向?qū)е械膗i字符串后，重新運(yùn)行build_lang.lua，取可重新提取ui("...")字符串，并且不會影響到已經(jīng)翻譯好的字符串。
我截取了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")
如果當(dāng)前語言為中文則加載lang_chs.lua文件并獲得了 ui 函數(shù)，在wiz_main.wlua中判斷是否已經(jīng)獲取了ui函數(shù)，如果沒有則使用源字符串輸出。
local ui = ui or function(str) return str end
最后可以看一下build_lang.lua源代碼，從中可以發(fā)現(xiàn)使用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")