svn客户端代码版本号自动更新 依赖Lua
首先，依赖于提交前拿项目根的最大版本号，然后加1再提交
依赖：Lua和Subversion
不清楚这个流程是否有问题，望高人指点。实现如下：
文档类有个静态变量表示svn的版本
public static const SVN_VERSION : String = "71";
然后项目根目录下有个比处理hook.bat，是入口
@echo off
setlocal enabledelayedexpansion
::Lua路径
SET LUA_PATH=D:\Lua\
SET LOCAL_PATH=%~dp0
%LUA_PATH%lua.exe -e "local_path='%LOCAL_PATH:\=\\%';file_name='src\\LocalFile.as';dofile('%LUA_PATH%\\svn\\hook.lua');"
if %errorlevel% gtr 0 goto err
exit 0
:err
echo 错误
exit 1
file_name：表示要替换的文件在项目的相对路径，在我这里是LocalFile.as
在Lua的svn的下面有个hook.lua的文件是实际查找替换的文件，在我这里是D:\Lua\svn\hook.lua
下面是lua的代码
--初始化
svn = {};
--设置svn的路径
svn.bin = "C:\\Program Files\\Subversion\\bin\\";
--要替换的文件相对路径
svn.fileName = file_name;
svn.localPath = local_path.."";
function os.capture(cmd, raw)
local f = assert(io.popen(cmd, 'r'))
local s = assert(f:read('*a'))
f:close()
if raw then return s end
s = string.gsub(s, '^%s+', '')
s = string.gsub(s, '%s+$', '')
s = string.gsub(s, '[\n\r]+', ' ')
return s
end
function svn.info(path)
local s = os.capture("\"".. svn.bin .."svn.exe\" info "..path,1);
if s then
return s;
else
return nil;
end
end
function svn.getHeadVersion(path)
local s = svn.info(path);
if s then
local info = s;
io.write(s);
s = info:match("最后修改的版本:(%d*)");
end
return s;
end
function svn.getInfo(path)
local info = {};
local s = svn.info(path);
for k,v in s:gmatch("([^:]+):%s*([^\r\n]+)[\r\n]+") do
info[k]=v
end
return info;
end
--先拿版本库的根
local local_info = svn.getInfo(svn.localPath);
--再拿版本库根的最新版本
local ii = svn.getInfo(local_info["版本库根"]);
--local ss = svn.getHeadVersion("svn://192.168.1.243/Flash");
local _version = ii["最后修改的版本"] + 1;
local _root = ii["版本库根"];
if _version and svn.fileName and svn.localPath and svn.localPath ~= '' then
file = io.open(svn.localPath..svn.fileName,"r");
local v = _version;
ss = file:read("*a");
ss = ss:gsub("SVN_VERSION%s?:%s?String%s?=%s?\"(%d*)\"","SVN_VERSION : String = \""..v.."\"",1);
file:close();
file = nil;
file = io.open(svn.localPath..svn.fileName,"w");
file:write(ss);
file:close();
else
do
local message = "";
if not _version then message = message.."_version 为空"; end
if not svn.fileName then message = message.."svn.fileName 为空"; end
if not svn.localPath then message = message.."svn.localPath 为空"; end
if svn.localPath == "" then message = message.."svn.localPath 为\"\""; end
error("错误 in lua"..message);
end
end
在这里要指定svn的bin目录，我的Subversion是中文版，不知道其他的情况怎么样
使用方法是在客户端挂re-commit hook就可以了，指定项目路径和执行文件的路径就好了
还有，或许这个东西用bat或者vb都是很简单，但我不怎么精通，哎
今天就到这里吧