webshell

Ghost Exploiter Team Official

C:/Program Files/Git/mingw64/share/git-gui/lib/

File / Folder	Size	Action
.	-
about.tcl	1.875KB	edt ren
blame.tcl	34.81KB	edt ren
branch.tcl	0.896KB	edt ren
branch_checkout.tcl	2.163KB	edt ren
branch_create.tcl	5.158KB	edt ren
branch_delete.tcl	3.256KB	edt ren
branch_rename.tcl	3.013KB	edt ren
browser.tcl	11.904KB	edt ren
checkout_op.tcl	14.386KB	edt ren
choose_font.tcl	4.063KB	edt ren
choose_repository.tcl	16.712KB	edt ren
choose_rev.tcl	14.715KB	edt ren
chord.tcl	5.264KB	edt ren
class.tcl	4.43KB	edt ren
commit.tcl	13.641KB	edt ren
console.tcl	4.71KB	edt ren
database.tcl	2.977KB	edt ren
date.tcl	1.032KB	edt ren
diff.tcl	23.046KB	edt ren
encoding.tcl	16.37KB	edt ren
error.tcl	2.438KB	edt ren
git-gui.ico	3.553KB	edt ren
index.tcl	17.915KB	edt ren
line.tcl	1.291KB	edt ren
logo.tcl	2.236KB	edt ren
merge.tcl	6.155KB	edt ren
mergetool.tcl	10.9KB	edt ren
option.tcl	10.14KB	edt ren
remote.tcl	7.134KB	edt ren
remote_add.tcl	4.447KB	edt ren
remote_branch_delete.tcl	8.211KB	edt ren
search.tcl	6.531KB	edt ren
shortcut.tcl	4.063KB	edt ren
spellcheck.tcl	9.387KB	edt ren
sshkey.tcl	3.313KB	edt ren
status_bar.tcl	6.751KB	edt ren
tclIndex	18.242KB	edt ren
themed.tcl	10.799KB	edt ren
tools.tcl	3.899KB	edt ren
tools_dlg.tcl	9.716KB	edt ren
transport.tcl	5.572KB	edt ren
win32.tcl	0.616KB	edt ren
win32_shortcut.js	0.867KB	edt ren

# git-gui object database management support
# Copyright (C) 2006, 2007 Shawn Pearce

proc do_stats {} {
	set fd [git_read [list count-objects -v]]
	while {[gets $fd line] > 0} {
		if {[regexp {^([^:]+): (\d+)$} $line _ name value]} {
			set stats($name) $value
		}
	}
	close $fd

set packed_sz 0
	foreach p [glob -directory [gitdir objects pack] \
		-type f \
		-nocomplain -- *] {
		incr packed_sz [file size $p]
	}
	if {$packed_sz > 0} {
		set stats(size-pack) [expr {$packed_sz / 1024}]
	}

set w .stats_view
	Dialog $w
	wm withdraw $w
	wm geometry $w "+[winfo rootx .]+[winfo rooty .]"

ttk::frame $w.buttons
	ttk::button $w.buttons.close -text [mc Close] \
		-default active \
		-command [list destroy $w]
	ttk::button $w.buttons.gc -text [mc "Compress Database"] \
		-default normal \
		-command "destroy $w;do_gc"
	pack $w.buttons.close -side right
	pack $w.buttons.gc -side left
	pack $w.buttons -side bottom -fill x -pady 10 -padx 10

ttk::labelframe $w.stat -text [mc "Database Statistics"]
	foreach s {
		{count           {mc "Number of loose objects"}}
		{size            {mc "Disk space used by loose objects"} { KiB}}
		{in-pack         {mc "Number of packed objects"}}
		{packs           {mc "Number of packs"}}
		{size-pack       {mc "Disk space used by packed objects"} { KiB}}
		{prune-packable  {mc "Packed objects waiting for pruning"}}
		{garbage         {mc "Garbage files"}}
		} {
		set name [lindex $s 0]
		set label [eval [lindex $s 1]]
		if {[catch {set value $stats($name)}]} continue
		if {[llength $s] > 2} {
			set value "$value[lindex $s 2]"
		}

ttk::label $w.stat.l_$name -text [mc "%s:" $label] -anchor w
		ttk::label $w.stat.v_$name -text $value -anchor w
		grid $w.stat.l_$name $w.stat.v_$name -sticky we -padx {0 5}
	}
	pack $w.stat -pady 10 -padx 10

bind $w <Visibility> "grab $w; focus $w.buttons.close"
	bind $w <Key-Escape> [list destroy $w]
	bind $w <Key-Return> [list destroy $w]
	wm title $w [mc "%s (%s): Database Statistics" [appname] [reponame]]
	wm deiconify $w
	tkwait window $w
}

proc do_gc {} {
	set w [console::new {gc} [mc "Compressing the object database"]]
	console::chain $w {
		{exec git pack-refs --prune}
		{exec git reflog expire --all}
		{exec git repack -a -d -l}
		{exec git rerere gc}
	}
}

proc do_fsck_objects {} {
	set w [console::new {fsck-objects} \
		[mc "Verifying the object database with fsck-objects"]]
	set cmd [list git fsck-objects]
	lappend cmd --full
	lappend cmd --cache
	lappend cmd --strict
	console::exec $w $cmd
}

proc hint_gc {} {
	set ndirs 1
	set limit 8
	if {[is_Windows]} {
		set ndirs 4
		set limit 1
	}

set count [llength [glob \
		-nocomplain \
		-- \
		[gitdir objects 4\[0-[expr {$ndirs-1}]\]/*]]]

if {$count >= $limit * $ndirs} {
		set objects_current [expr {$count * 256/$ndirs}]
		if {[ask_popup \
			[mc "This repository currently has approximately %i loose objects.

To maintain optimal performance it is strongly recommended that you compress the database.

Compress the database now?" $objects_current]] eq yes} {
			do_gc
		}
	}
}

<=Back