You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
79 lines
2.4 KiB
79 lines
2.4 KiB
#encoding:utf8
|
|
$cur_dir = Split-Path $MyInvocation.MyCommand.Path
|
|
$dir_main = "$cur_dir/../"
|
|
$dir_erl = $dir_main
|
|
$dir_log = "$dir_erl/logs"
|
|
$werl = "werl"
|
|
$erl = "erl"
|
|
$param_pa = "-pa " + $($dir_erl -replace "\\", "/") + "/ebin"
|
|
|
|
function fun_make(){
|
|
$src = $dir_main + "/src"
|
|
$inc = $dir_main + "/include"
|
|
$timefile = $cur_dir + "/timefile"
|
|
#$beamfile = $dir_main + "/ebin"
|
|
$lastTime = $(Get-Item $timefile).LastWriteTime
|
|
#$beamTime = $(Get-Item $beamfile).LastWriteTime
|
|
#$measureObject = $lastTime, $beamTime | Measure-Object -Maximum
|
|
#$latestTime = $measureObject.Maximum
|
|
$latestTime = $lastTime
|
|
function get_hrl_str(){
|
|
begin{ $list = @() }
|
|
process{ $list += $_.Name }
|
|
end{
|
|
$str = $list -join "|"
|
|
if($str -ne ""){
|
|
$str = "($str)"
|
|
}
|
|
$str
|
|
}
|
|
}
|
|
$chhrl_str = Get-ChildItem $inc -Include *.hrl -Recurse | Where-Object {$_.LastWriteTime -gt $latestTime} | get_hrl_str
|
|
|
|
## 使用管道获取变化的文件
|
|
## 1. 获取所有文件
|
|
## 2. 检测变化文件
|
|
## 3. 生成文件全名列表
|
|
function get_erl_str(){
|
|
begin{ $list = @() }
|
|
process{
|
|
$f = $_.FullName -replace "\\", "/"
|
|
$list += "`\`"$f`\`""
|
|
}
|
|
end{ $list -join "," }
|
|
}
|
|
$erl_str = Get-ChildItem $src -Include *.erl -Exclude .svn,.git -Recurse | Where-Object {
|
|
if ( $(Get-Item $_.FullName).LastWriteTime -gt $latestTime ){
|
|
return $_
|
|
}
|
|
if($chhrl_str -eq ""){
|
|
return $false
|
|
}
|
|
if (Select-String -Path $_.FullName -Pattern $chhrl_str -Quiet) {
|
|
return $_
|
|
}else{
|
|
return $false
|
|
}
|
|
} | get_erl_str
|
|
|
|
Set-Location $dir_erl
|
|
## 在windows下
|
|
## 直接mmake:files(5, [])无效
|
|
## 必须mmake:files(5, [], Opts)
|
|
## why? {{ok,[{{_, Opts}}|_]}}
|
|
$cmd_str = '{0} {1} -noshell -eval "{{ok,FileInfo}}=file:consult(\"./Emakefile\"),{{_, Opts}}=lists:last(FileInfo),case mmake:files(5,[{2}], Opts) of up_to_date -> init:stop(); _ -> init:stop(1) end"'
|
|
|
|
$cmd = $cmd_str -f $erl, $param_pa, $erl_str
|
|
## echo $cmd
|
|
cmd /C $cmd
|
|
if ($?) {
|
|
Write-Output "=============> success"
|
|
(Get-Date).ToString() | Out-File $timefile -Append
|
|
}else{
|
|
Write-Error "==============> fail"
|
|
}
|
|
Set-Location $cur_dir
|
|
}
|
|
|
|
fun_make
|
|
|