Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
38ad0910
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,发现更多精彩内容 >>
提交
38ad0910
编写于
12月 01, 2005
作者:
P
Paul Mackerras
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
gitk: Factored out some common code into a new start_rev_list procedure
Signed-off-by:
N
Paul Mackerras
<
paulus@samba.org
>
上级
b5c2f306
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
22 addition
and
30 deletion
+22
-30
gitk
gitk
+22
-30
未找到文件。
gitk
浏览文件 @
38ad0910
...
...
@@ -32,26 +32,16 @@ proc parse_args {rargs} {
return $parsed_args
}
proc getcommits
{
rargs
}
{
global oldcommits commits commfd phase canv mainfont env
proc start_rev_list
{
rlargs
}
{
global startmsecs nextupdate ncmupdate
global c
text maincursor textcursor
leftover gitencoding
global c
ommfd
leftover gitencoding
# check that we can find a .git directory somewhere...
set gitdir
[
gitdir
]
if
{
!
[
file isdirectory $gitdir
]}
{
error_popup
"Cannot find the git directory
\"
$gitdir
\"
."
exit 1
}
set oldcommits
{}
set commits
{}
set phase getcommits
set startmsecs
[
clock clicks -milliseconds
]
set nextupdate
[
expr
{
$startmsecs
+ 100
}]
set ncmupdate 1
set parsed_args
[
parse_args $rargs
]
if
[
catch
{
set commfd
[
open
"|git-rev-list --header --topo-order --parents
$parsed
_args"
r
]
set commfd
[
open
[
concat | git-rev-list --header --topo-order
\
--parents $rlargs
]
r
]
}
err
]
{
puts stderr
"Error executing git-rev-list:
$err
"
exit 1
...
...
@@ -59,11 +49,26 @@ proc getcommits {rargs} {
set leftover
{}
fconfigure $commfd -blocking 0 -translation lf -encoding $gitencoding
fileevent $commfd readable
[
list getcommitlines $commfd
]
. config -cursor watch
settextcursor watch
}
proc getcommits
{
rargs
}
{
global oldcommits commits phase canv mainfont env
# check that we can find a .git directory somewhere...
set gitdir
[
gitdir
]
if
{
!
[
file isdirectory $gitdir
]}
{
error_popup
"Cannot find the git directory
\"
$gitdir
\"
."
exit 1
}
set oldcommits
{}
set commits
{}
set phase getcommits
start_rev_list
[
parse_args $rargs
]
$canv delete all
$canv create text 3 3 -anchor nw -text
"Reading commits..."
\
-font $mainfont -tags textitems
. config -cursor watch
settextcursor watch
}
proc getcommitlines
{
commfd
}
{
...
...
@@ -3684,20 +3689,7 @@ proc updatecommits {rargs} {
}
readrefs
if
[
catch
{
set commfd
[
open
"|git-rev-list --header --topo-order --parents
$ignoreold
$args
"
r
]
}
err
]
{
puts stderr
"Error executing git-rev-list:
$err
"
exit 1
}
set startmsecs
[
clock clicks -milliseconds
]
set nextupdate
[
expr $startmsecs + 100
]
set ncmupdate 1
set leftover
{}
fconfigure $commfd -blocking 0 -translation lf
fileevent $commfd readable
[
list getcommitlines $commfd
]
. config -cursor watch
settextcursor watch
start_rev_list
[
concat $ignoreold $args
]
}
proc showtag
{
tag isnew
}
{
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录