5f2d12fd07c3217d068066f6b4b8714248e31d50
1# git-gui Git repository chooser
2# Copyright (C) 2007 Shawn Pearce
3class choose_repository {
5image create photo ::choose_repository::git_logo -data {
7R0lGODlh3wA9AMIHAMAAAMIKCsMKCgCAAN/v3/319f///wAAACH5BAEKAAcALAAAAADfAD0AAAP+
8aLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKSSFGg6n9BoUwCR
9Wq3Ux3X7zC4Xg7B4HN4Bzui0eo2GsN9wN3ye/jLI+IGZzpfz535/b3ZgeWN7goMPiXGLjGyECoaH
10Oo+QjpZ1mJlnkQaTYhigZR6cmg6mbZucnqN6F64fqZ2rmYGskbGwo7Kzt7a1lq28u6AfBcjJysvM
11yRDN0NHP0dTKniS619pG2dveQd3f4jzh40eu3eh5EOrq5kPtk3fxoQ/0xO9A93jz9+z7hvKBA1hP
120r5/BMkIJIfvU0OE8opFXDjQWCGLEsplfEj+sUc6jg40RhDZMcdHjCNBpkQ5IuAHlx5gtjg5cWVN
13CiRjrnu5Uye/FzRlQhQ6IWcHohqQZlCKImhPm0ztqeT506dCqlddOK0K9SnOqVYphS141OuKrVm7
14cv3KUkRUC28rxMXW0KjDthvxgphb1GxSvynQilWblu1Nt4BFJZY4mIVgskMXhwQrN+GryQkj+zvx
15mFTew5/5Eo6nmV5p0pzrUr4LejTkv5mlxsZMsKlqvf1an3691PJud7JrpwZFoDgBu3Zzi/6NjrlI
16y5cD+74IPbrydowPBgfofPXe6QarW6eOuvLsBtC7424JnnX67djhtr++mTb3s+3Fe0avvexl2g3L
17laaPd4QECN9+HBioFYF2KMjff7AVtkNyBUpmnoQRNjYhg184SN94GfI2U38LeUieiIpBOGJ9JVpo
18mIYhIggUiQKZGB6GvanoGI0l9ejjj0AGKeSQRBZp5JFIJqnkkkxOkAAAOw==
19}
20field top
22field w
23field w_body ; # Widget holding the center content
24field w_next ; # Next button
25field o_cons ; # Console object (if active)
26field w_types ; # List of type buttons in clone
27field action new ; # What action are we going to perform?
29field done 0 ; # Finished picking the repository?
30field local_path {} ; # Where this repository is locally
31field origin_url {} ; # Where we are cloning from
32field origin_name origin ; # What we shall call 'origin'
33field clone_type hardlink ; # Type of clone to construct
34field readtree_err ; # Error output from read-tree (if any)
35constructor pick {} {
37 global M1T M1B
38 make_toplevel top w
40 wm title $top [mc "Git Gui"]
41 if {$top eq {.}} {
43 menu $w.mbar -tearoff 0
44 $top configure -menu $w.mbar
45 $w.mbar add cascade \
47 -label [mc Repository] \
48 -menu $w.mbar.repository
49 menu $w.mbar.repository
50 $w.mbar.repository add command \
51 -label [mc Quit] \
52 -command exit \
53 -accelerator $M1T-Q
54 if {[is_MacOSX]} {
56 $w.mbar add cascade -label [mc Apple] -menu .mbar.apple
57 menu $w.mbar.apple
58 $w.mbar.apple add command \
59 -label [mc "About %s" [appname]] \
60 -command do_about
61 } else {
62 $w.mbar add cascade -label [mc Help] -menu $w.mbar.help
63 menu $w.mbar.help
64 $w.mbar.help add command \
65 -label [mc "About %s" [appname]] \
66 -command do_about
67 }
68 _center $top 500 350
70 wm protocol $top WM_DELETE_WINDOW exit
71 bind $top <$M1B-q> exit
72 bind $top <$M1B-Q> exit
73 bind $top <Key-Escape> exit
74 } else {
75 wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
76 bind $top <Key-Escape> [list destroy $top]
77 }
78 label $w.git_logo \
80 -borderwidth 1 \
81 -relief sunken \
82 -background white \
83 -image ::choose_repository::git_logo
84 pack $w.git_logo -side top -fill x -padx 20 -pady 20
85 set w_body $w.body
87 frame $w_body
88 radiobutton $w_body.new \
89 -anchor w \
90 -text [mc "Create New Repository"] \
91 -variable @action \
92 -value new
93 radiobutton $w_body.clone \
94 -anchor w \
95 -text [mc "Clone Existing Repository"] \
96 -variable @action \
97 -value clone
98 radiobutton $w_body.open \
99 -anchor w \
100 -text [mc "Open Existing Repository"] \
101 -variable @action \
102 -value open
103 pack $w_body.new -anchor w -fill x
104 pack $w_body.clone -anchor w -fill x
105 pack $w_body.open -anchor w -fill x
106 pack $w_body -fill x -padx 10
107 frame $w.buttons
109 set w_next $w.buttons.next
110 button $w_next \
111 -default active \
112 -text [mc "Next >"] \
113 -command [cb _next]
114 pack $w_next -side right -padx 5
115 button $w.buttons.quit \
116 -text [mc "Quit"] \
117 -command exit
118 pack $w.buttons.quit -side right -padx 5
119 pack $w.buttons -side bottom -fill x -padx 10 -pady 10
120 bind $top <Return> [cb _invoke_next]
122 bind $top <Visibility> "
123 grab $top
124 focus $top
125 "
126 wm deiconify $top
127 tkwait variable @done
128 if {$top eq {.}} {
130 eval destroy [winfo children $top]
131 _center $top 500 600
132 }
133}
134proc _home {} {
136 if {[catch {set h $::env(HOME)}]
137 || ![file isdirectory $h]} {
138 set h .
139 }
140 return $h
141}
142proc _center {top nx ny} {
144 set rx [expr {([winfo screenwidth $top] - $nx) / 2}]
145 set ry [expr {([winfo screenheight $top] - $ny) / 2}]
146 wm geometry $top [format {%dx%d+%d+%d} $nx $ny $rx $ry]
147}
148method _invoke_next {} {
150 if {[winfo exists $w_next]} {
151 uplevel #0 [$w_next cget -command]
152 }
153}
154method _next {} {
156 destroy $w_body
157 _do_$action $this
158}
159method _write_local_path {args} {
161 if {$local_path eq {}} {
162 $w_next conf -state disabled
163 } else {
164 $w_next conf -state normal
165 }
166}
167method _git_init {} {
169 if {[file exists $local_path]} {
170 error_popup [mc "Location %s already exists." $local_path]
171 return 0
172 }
173 if {[catch {file mkdir $local_path} err]} {
175 error_popup [strcat \
176 [mc "Failed to create repository %s:" $local_path] \
177 "\n\n$err"]
178 return 0
179 }
180 if {[catch {cd $local_path} err]} {
182 error_popup [strcat \
183 [mc "Failed to create repository %s:" $local_path] \
184 "\n\n$err"]
185 return 0
186 }
187 if {[catch {git init} err]} {
189 error_popup [strcat \
190 [mc "Failed to create repository %s:" $local_path] \
191 "\n\n$err"]
192 return 0
193 }
194 set ::_gitdir .git
196 set ::_prefix {}
197 return 1
198}
199proc _is_git {path} {
201 if {[file exists [file join $path HEAD]]
202 && [file exists [file join $path objects]]
203 && [file exists [file join $path config]]} {
204 return 1
205 }
206 return 0
207}
208######################################################################
210##
211## Create New Repository
212method _do_new {} {
214 $w_next conf \
215 -state disabled \
216 -command [cb _do_new2] \
217 -text [mc "Create"]
218 frame $w_body
220 label $w_body.h \
221 -font font_uibold \
222 -text [mc "Create New Repository"]
223 pack $w_body.h -side top -fill x -pady 10
224 pack $w_body -fill x -padx 10
225 frame $w_body.where
227 label $w_body.where.l -text [mc "Directory:"]
228 entry $w_body.where.t \
229 -textvariable @local_path \
230 -font font_diff \
231 -width 50
232 button $w_body.where.b \
233 -text [mc "Browse"] \
234 -command [cb _new_local_path]
235 pack $w_body.where.b -side right
237 pack $w_body.where.l -side left
238 pack $w_body.where.t -fill x
239 pack $w_body.where -fill x
240 trace add variable @local_path write [cb _write_local_path]
242 update
243 focus $w_body.where.t
244}
245method _new_local_path {} {
247 if {$local_path ne {}} {
248 set p [file dirname $local_path]
249 } else {
250 set p [_home]
251 }
252 set p [tk_chooseDirectory \
254 -initialdir $p \
255 -parent $top \
256 -title [mc "Git Repository"] \
257 -mustexist false]
258 if {$p eq {}} return
259 set p [file normalize $p]
261 if {[file isdirectory $p]} {
262 foreach i [glob \
263 -directory $p \
264 -tails \
265 -nocomplain \
266 * .*] {
267 switch -- $i {
268 . continue
269 .. continue
270 default {
271 error_popup [mc "Directory %s already exists." $p]
272 return
273 }
274 }
275 }
276 if {[catch {file delete $p} err]} {
277 error_popup [strcat \
278 [mc "Directory %s already exists." $p] \
279 "\n\n$err"]
280 return
281 }
282 } elseif {[file exists $p]} {
283 error_popup [mc "File %s already exists." $p]
284 return
285 }
286 set local_path $p
287}
288method _do_new2 {} {
290 if {![_git_init $this]} {
291 return
292 }
293 set done 1
294}
295######################################################################
297##
298## Clone Existing Repository
299method _do_clone {} {
301 $w_next conf \
302 -state disabled \
303 -command [cb _do_clone2] \
304 -text [mc "Clone"]
305 frame $w_body
307 label $w_body.h \
308 -font font_uibold \
309 -text [mc "Clone Existing Repository"]
310 pack $w_body.h -side top -fill x -pady 10
311 pack $w_body -fill x -padx 10
312 set args $w_body.args
314 frame $w_body.args
315 pack $args -fill both
316 label $args.origin_l -text [mc "URL:"]
318 entry $args.origin_t \
319 -textvariable @origin_url \
320 -font font_diff \
321 -width 50
322 button $args.origin_b \
323 -text [mc "Browse"] \
324 -command [cb _open_origin]
325 grid $args.origin_l $args.origin_t $args.origin_b -sticky ew
326 label $args.where_l -text [mc "Directory:"]
328 entry $args.where_t \
329 -textvariable @local_path \
330 -font font_diff \
331 -width 50
332 button $args.where_b \
333 -text [mc "Browse"] \
334 -command [cb _new_local_path]
335 grid $args.where_l $args.where_t $args.where_b -sticky ew
336 label $args.type_l -text [mc "Clone Type:"]
338 frame $args.type_f
339 set w_types [list]
340 lappend w_types [radiobutton $args.type_f.hardlink \
341 -state disabled \
342 -anchor w \
343 -text [mc "Standard (Fast, Semi-Redundant, Hardlinks)"] \
344 -variable @clone_type \
345 -value hardlink]
346 lappend w_types [radiobutton $args.type_f.full \
347 -state disabled \
348 -anchor w \
349 -text [mc "Full Copy (Slower, Redundant Backup)"] \
350 -variable @clone_type \
351 -value full]
352 lappend w_types [radiobutton $args.type_f.shared \
353 -state disabled \
354 -anchor w \
355 -text [mc "Shared (Fastest, Not Recommended, No Backup)"] \
356 -variable @clone_type \
357 -value shared]
358 foreach r $w_types {
359 pack $r -anchor w
360 }
361 grid $args.type_l $args.type_f -sticky new
362 grid columnconfigure $args 1 -weight 1
364 trace add variable @local_path write [cb _update_clone]
366 trace add variable @origin_url write [cb _update_clone]
367 update
368 focus $args.origin_t
369}
370method _open_origin {} {
372 if {$origin_url ne {} && [file isdirectory $origin_url]} {
373 set p $origin_url
374 } else {
375 set p [_home]
376 }
377 set p [tk_chooseDirectory \
379 -initialdir $p \
380 -parent $top \
381 -title [mc "Git Repository"] \
382 -mustexist true]
383 if {$p eq {}} return
384 set p [file normalize $p]
386 if {![_is_git [file join $p .git]] && ![_is_git $p]} {
387 error_popup [mc "Not a Git repository: %s" [file tail $p]]
388 return
389 }
390 set origin_url $p
391}
392method _update_clone {args} {
394 if {$local_path ne {} && $origin_url ne {}} {
395 $w_next conf -state normal
396 } else {
397 $w_next conf -state disabled
398 }
399 if {$origin_url ne {} &&
401 ( [_is_git [file join $origin_url .git]]
402 || [_is_git $origin_url])} {
403 set e normal
404 if {[[lindex $w_types 0] cget -state] eq {disabled}} {
405 set clone_type hardlink
406 }
407 } else {
408 set e disabled
409 set clone_type full
410 }
411 foreach r $w_types {
413 $r conf -state $e
414 }
415}
416method _do_clone2 {} {
418 if {[file isdirectory $origin_url]} {
419 set origin_url [file normalize $origin_url]
420 }
421 if {$clone_type eq {hardlink} && ![file isdirectory $origin_url]} {
423 error_popup [mc "Standard only available for local repository."]
424 return
425 }
426 if {$clone_type eq {shared} && ![file isdirectory $origin_url]} {
427 error_popup [mc "Shared only available for local repository."]
428 return
429 }
430 if {$clone_type eq {hardlink} || $clone_type eq {shared}} {
432 set objdir [file join $origin_url .git objects]
433 if {![file isdirectory $objdir]} {
434 set objdir [file join $origin_url objects]
435 if {![file isdirectory $objdir]} {
436 error_popup [mc "Not a Git repository: %s" [file tail $origin_url]]
437 return
438 }
439 }
440 }
441 set giturl $origin_url
443 if {[is_Cygwin] && [file isdirectory $giturl]} {
444 set giturl [exec cygpath --unix --absolute $giturl]
445 if {$clone_type eq {shared}} {
446 set objdir [exec cygpath --unix --absolute $objdir]
447 }
448 }
449 if {![_git_init $this]} return
451 set local_path [pwd]
452 if {[catch {
454 git config remote.$origin_name.url $giturl
455 git config remote.$origin_name.fetch +refs/heads/*:refs/remotes/$origin_name/*
456 } err]} {
457 error_popup [strcat [mc "Failed to configure origin"] "\n\n$err"]
458 return
459 }
460 destroy $w_body $w_next
462 switch -exact -- $clone_type {
464 hardlink {
465 set tolink [list]
466 file mkdir [file join .git objects pack]
467 foreach i [glob -tails -nocomplain \
468 -directory [file join $objdir pack] *] {
469 lappend tolink [file join pack $i]
470 }
471 foreach i [glob -tails -nocomplain \
472 -directory [file join $objdir] ??] {
473 file mkdir [file join .git objects $i]
474 foreach j [glob -tails -nocomplain \
475 -directory [file join $objdir $i] *] {
476 lappend tolink [file join $i $j]
477 }
478 }
479 if {$tolink eq {}} {
481 info_popup [strcat \
482 [mc "Nothing to clone from %s." $origin_url] \
483 "\n" \
484 [mc "The 'master' branch has not been initialized."] \
485 ]
486 set done 1
487 return
488 }
489 set o_cons [status_bar::new $w_body]
491 pack $w_body -fill x -padx 10
492 set i [lindex $tolink 0]
494 if {[catch {
495 file link -hard \
496 [file join .git objects $i] \
497 [file join $objdir $i]
498 } err]} {
499 info_popup [strcat \
500 [mc "Hardlinks are unavailable. Falling back to copying."] \
501 "\n" \
502 $err]
503 set i [_copy_files $this $objdir $tolink]
504 } else {
505 set i [_link_files $this $objdir [lrange $tolink 1 end]]
506 }
507 if {!$i} return
508 destroy $w_body
510 }
511 full {
512 set o_cons [console::embed \
513 $w_body \
514 [mc "Cloning from %s" $origin_url]]
515 pack $w_body -fill both -expand 1 -padx 10
516 $o_cons exec \
517 [list git fetch --no-tags -k $origin_name] \
518 [cb _do_clone_tags]
519 }
520 shared {
521 set fd [open [gitdir objects info alternates] w]
522 fconfigure $fd -translation binary
523 puts $fd $objdir
524 close $fd
525 }
526 }
527 if {$clone_type eq {hardlink} || $clone_type eq {shared}} {
529 if {![_clone_refs $this]} return
530 set pwd [pwd]
531 if {[catch {
532 cd $origin_url
533 set HEAD [git rev-parse --verify HEAD^0]
534 } err]} {
535 _clone_failed $this [mc "Not a Git repository: %s" [file tail $origin_url]]
536 return 0
537 }
538 cd $pwd
539 _do_clone_checkout $this $HEAD
540 }
541}
542method _copy_files {objdir tocopy} {
544 $o_cons start \
545 [mc "Copying objects"] \
546 [mc "KiB"]
547 set tot 0
548 set cmp 0
549 foreach p $tocopy {
550 incr tot [file size [file join $objdir $p]]
551 }
552 foreach p $tocopy {
553 if {[catch {
554 set f_in [open [file join $objdir $p] r]
555 set f_cp [open [file join .git objects $p] w]
556 fconfigure $f_in -translation binary -encoding binary
557 fconfigure $f_cp -translation binary -encoding binary
558 while {![eof $f_in]} {
560 incr cmp [fcopy $f_in $f_cp -size 16384]
561 $o_cons update \
562 [expr {$cmp / 1024}] \
563 [expr {$tot / 1024}]
564 update
565 }
566 close $f_in
568 close $f_cp
569 } err]} {
570 _clone_failed $this [mc "Unable to copy object: %s" $err]
571 return 0
572 }
573 }
574 return 1
575}
576method _link_files {objdir tolink} {
578 set total [llength $tolink]
579 $o_cons start \
580 [mc "Linking objects"] \
581 [mc "objects"]
582 for {set i 0} {$i < $total} {} {
583 set p [lindex $tolink $i]
584 if {[catch {
585 file link -hard \
586 [file join .git objects $p] \
587 [file join $objdir $p]
588 } err]} {
589 _clone_failed $this [mc "Unable to hardlink object: %s" $err]
590 return 0
591 }
592 incr i
594 if {$i % 5 == 0} {
595 $o_cons update $i $total
596 update
597 }
598 }
599 return 1
600}
601method _clone_refs {} {
603 set pwd [pwd]
604 if {[catch {cd $origin_url} err]} {
605 error_popup [mc "Not a Git repository: %s" [file tail $origin_url]]
606 return 0
607 }
608 set fd_in [git_read for-each-ref \
609 --tcl \
610 {--format=list %(refname) %(objectname) %(*objectname)}]
611 cd $pwd
612 set fd [open [gitdir packed-refs] w]
614 fconfigure $fd -translation binary
615 puts $fd "# pack-refs with: peeled"
616 while {[gets $fd_in line] >= 0} {
617 set line [eval $line]
618 set refn [lindex $line 0]
619 set robj [lindex $line 1]
620 set tobj [lindex $line 2]
621 if {[regsub ^refs/heads/ $refn \
623 "refs/remotes/$origin_name/" refn]} {
624 puts $fd "$robj $refn"
625 } elseif {[string match refs/tags/* $refn]} {
626 puts $fd "$robj $refn"
627 if {$tobj ne {}} {
628 puts $fd "^$tobj"
629 }
630 }
631 }
632 close $fd_in
633 close $fd
634 return 1
635}
636method _do_clone_tags {ok} {
638 if {$ok} {
639 $o_cons exec \
640 [list git fetch --tags -k $origin_name] \
641 [cb _do_clone_HEAD]
642 } else {
643 $o_cons done $ok
644 _clone_failed $this [mc "Cannot fetch branches and objects. See console output for details."]
645 }
646}
647method _do_clone_HEAD {ok} {
649 if {$ok} {
650 $o_cons exec \
651 [list git fetch $origin_name HEAD] \
652 [cb _do_clone_full_end]
653 } else {
654 $o_cons done $ok
655 _clone_failed $this [mc "Cannot fetch tags. See console output for details."]
656 }
657}
658method _do_clone_full_end {ok} {
660 $o_cons done $ok
661 if {$ok} {
663 destroy $w_body
664 set HEAD {}
666 if {[file exists [gitdir FETCH_HEAD]]} {
667 set fd [open [gitdir FETCH_HEAD] r]
668 while {[gets $fd line] >= 0} {
669 if {[regexp "^(.{40})\t\t" $line line HEAD]} {
670 break
671 }
672 }
673 close $fd
674 }
675 catch {git pack-refs}
677 _do_clone_checkout $this $HEAD
678 } else {
679 _clone_failed $this [mc "Cannot determine HEAD. See console output for details."]
680 }
681}
682method _clone_failed {{why {}}} {
684 if {[catch {file delete -force $local_path} err]} {
685 set why [strcat \
686 $why \
687 "\n\n" \
688 [mc "Unable to cleanup %s" $local_path] \
689 "\n\n" \
690 $err]
691 }
692 if {$why ne {}} {
693 update
694 error_popup [strcat [mc "Clone failed."] "\n" $why]
695 }
696}
697method _do_clone_checkout {HEAD} {
699 if {$HEAD eq {}} {
700 info_popup [strcat \
701 [mc "No default branch obtained."] \
702 "\n" \
703 [mc "The 'master' branch has not been initialized."] \
704 ]
705 set done 1
706 return
707 }
708 if {[catch {
709 git update-ref HEAD $HEAD^0
710 } err]} {
711 info_popup [strcat \
712 [mc "Cannot resolve %s as a commit." $HEAD^0] \
713 "\n $err" \
714 "\n" \
715 [mc "The 'master' branch has not been initialized."] \
716 ]
717 set done 1
718 return
719 }
720 set o_cons [status_bar::new $w_body]
722 pack $w_body -fill x -padx 10
723 $o_cons start \
724 [mc "Creating working directory"] \
725 [mc "files"]
726 set readtree_err {}
728 set fd [git_read --stderr read-tree \
729 -m \
730 -u \
731 -v \
732 HEAD \
733 HEAD \
734 ]
735 fconfigure $fd -blocking 0 -translation binary
736 fileevent $fd readable [cb _readtree_wait $fd]
737}
738method _readtree_wait {fd} {
740 set buf [read $fd]
741 $o_cons update_meter $buf
742 append readtree_err $buf
743 fconfigure $fd -blocking 1
745 if {![eof $fd]} {
746 fconfigure $fd -blocking 0
747 return
748 }
749 if {[catch {close $fd}]} {
751 set err $readtree_err
752 regsub {^fatal: } $err {} err
753 error_popup [strcat \
754 [mc "Initial file checkout failed."] \
755 "\n\n$err"]
756 return
757 }
758 set done 1
760}
761######################################################################
763##
764## Open Existing Repository
765method _do_open {} {
767 $w_next conf \
768 -state disabled \
769 -command [cb _do_open2] \
770 -text [mc "Open"]
771 frame $w_body
773 label $w_body.h \
774 -font font_uibold \
775 -text [mc "Open Existing Repository"]
776 pack $w_body.h -side top -fill x -pady 10
777 pack $w_body -fill x -padx 10
778 frame $w_body.where
780 label $w_body.where.l -text [mc "Repository:"]
781 entry $w_body.where.t \
782 -textvariable @local_path \
783 -font font_diff \
784 -width 50
785 button $w_body.where.b \
786 -text [mc "Browse"] \
787 -command [cb _open_local_path]
788 pack $w_body.where.b -side right
790 pack $w_body.where.l -side left
791 pack $w_body.where.t -fill x
792 pack $w_body.where -fill x
793 trace add variable @local_path write [cb _write_local_path]
795 update
796 focus $w_body.where.t
797}
798method _open_local_path {} {
800 if {$local_path ne {}} {
801 set p $local_path
802 } else {
803 set p [_home]
804 }
805 set p [tk_chooseDirectory \
807 -initialdir $p \
808 -parent $top \
809 -title [mc "Git Repository"] \
810 -mustexist true]
811 if {$p eq {}} return
812 set p [file normalize $p]
814 if {![_is_git [file join $p .git]]} {
815 error_popup [mc "Not a Git repository: %s" [file tail $p]]
816 return
817 }
818 set local_path $p
819}
820method _do_open2 {} {
822 if {![_is_git [file join $local_path .git]]} {
823 error_popup [mc "Not a Git repository: %s" [file tail $local_path]]
824 return
825 }
826 if {[catch {cd $local_path} err]} {
828 error_popup [strcat \
829 [mc "Failed to open repository %s:" $local_path] \
830 "\n\n$err"]
831 return
832 }
833 set ::_gitdir .git
835 set ::_prefix {}
836 set done 1
837}
838}