Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
ceadfe90
G
git
项目概览
李少辉-开发者
/
git
与 Fork 源项目一致
从无法访问的项目Fork
通知
2
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
git
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
ceadfe90
编写于
8月 08, 2006
作者:
P
Paul Mackerras
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
gitk: Update preceding/following tag info when creating a tag
Signed-off-by:
N
Paul Mackerras
<
paulus@samba.org
>
上级
ca6d8f58
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
77 addition
and
0 deletion
+77
-0
gitk
gitk
+77
-0
未找到文件。
gitk
浏览文件 @
ceadfe90
...
...
@@ -5062,6 +5062,7 @@ proc domktag {} {
set tagids
(
$tag
)
$id
lappend idtags
(
$id
)
$tag
redrawtags $id
addedtag $id
}
proc redrawtags
{
id
}
{
...
...
@@ -5505,6 +5506,82 @@ proc restartatags {} {
dispneartags
}
# update the desc_tags and anc_tags arrays for a new tag just added
proc addedtag
{
id
}
{
global desc_tags anc_tags allparents allchildren allcommits
global idtags tagisdesc alldtags
if
{
!
[
info exists desc_tags
(
$id
)]}
return
set adt $desc_tags
(
$id
)
foreach t $desc_tags
(
$id
)
{
set adt
[
concat $adt $alldtags
(
$t
)]
}
set adt
[
lsort -unique $adt
]
set alldtags
(
$id
)
$adt
foreach t $adt
{
set tagisdesc
(
$id
,$t
)
-1
set tagisdesc
(
$t
,$id
)
1
}
if
{[
info exists anc_tags
(
$id
)]}
{
set todo $anc_tags
(
$id
)
while
{
$todo
ne
{}}
{
set do
[
lindex $todo 0
]
set todo
[
lrange $todo 1 end
]
if
{[
info exists tagisdesc
(
$id
,$do
)]}
continue
set tagisdesc
(
$do
,$id
)
-1
set tagisdesc
(
$id
,$do
)
1
if
{[
info exists anc_tags
(
$do
)]}
{
set todo
[
concat $todo $anc_tags
(
$do
)]
}
}
}
set lastold $desc_tags
(
$id
)
set lastnew
[
list $id
]
set nup 0
set nch 0
set todo $allparents
(
$id
)
while
{
$todo
ne
{}}
{
set do
[
lindex $todo 0
]
set todo
[
lrange $todo 1 end
]
if
{
!
[
info exists desc_tags
(
$do
)]}
continue
if
{
$desc
_tags
(
$do
)
ne $lastold
}
{
set lastold $desc_tags
(
$do
)
set lastnew
[
combine_dtags $lastold
[
list $id
]]
incr nch
}
if
{
$lastold
eq $lastnew
}
continue
set desc_tags
(
$do
)
$lastnew
incr nup
if
{
!
[
info exists idtags
(
$do
)]}
{
set todo
[
concat $todo $allparents
(
$do
)]
}
}
if
{
!
[
info exists anc_tags
(
$id
)]}
return
set lastold $anc_tags
(
$id
)
set lastnew
[
list $id
]
set nup 0
set nch 0
set todo $allchildren
(
$id
)
while
{
$todo
ne
{}}
{
set do
[
lindex $todo 0
]
set todo
[
lrange $todo 1 end
]
if
{
!
[
info exists anc_tags
(
$do
)]}
continue
if
{
$anc
_tags
(
$do
)
ne $lastold
}
{
set lastold $anc_tags
(
$do
)
set lastnew
[
combine_atags $lastold
[
list $id
]]
incr nch
}
if
{
$lastold
eq $lastnew
}
continue
set anc_tags
(
$do
)
$lastnew
incr nup
if
{
!
[
info exists idtags
(
$do
)]}
{
set todo
[
concat $todo $allchildren
(
$do
)]
}
}
}
# update the desc_heads array for a new head just added
proc addedhead
{
hid head
}
{
global desc_heads allparents headids idheads
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录