Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added a proc to support git add |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
87ace8d1daeafdeb49d981ec2967bb68 |
| User & Date: | peter 2010-02-13 21:33:35.000 |
Context
|
2010-02-13
| ||
| 21:36 | Added colours to PDF dialog. check-in: add9339d4f user: peter tags: trunk | |
| 21:33 | Added a proc to support git add check-in: 87ace8d1da user: peter tags: trunk | |
|
2009-11-02
| ||
| 20:55 | Polish check-in: ad0a47e0b1 user: peter tags: trunk | |
Changes
Changes to src/rev.tcl.
| ︙ | ︙ | |||
387 388 389 390 391 392 393 394 395 396 397 398 399 400 |
set tail [file join $thisdir $tail]
}
cd $dir
catch {exec git show $rev:$tail > $outfile}
cd $old
# example: git show HEAD^^^:apa
}
# Get a GIT patch
proc eskil::rev::GIT::getPatch {revs} {
set cmd [list exec git diff]
# No rev support yet
if {[catch {eval $cmd} res]} {
| > > > > > > > > > > > > > > > > | 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 |
set tail [file join $thisdir $tail]
}
cd $dir
catch {exec git show $rev:$tail > $outfile}
cd $old
# example: git show HEAD^^^:apa
}
# Add file to GIT index
proc eskil::rev::GIT::add {filename} {
set old [pwd]
set dir [file dirname $filename]
set tail [file tail $filename]
# Locate the top directory
while {![file isdirectory $dir/.git]} {
set thisdir [file tail $dir]
set dir [file dirname $dir]
set tail [file join $thisdir $tail]
}
cd $dir
catch {exec git add $tail}
cd $old
}
# Get a GIT patch
proc eskil::rev::GIT::getPatch {revs} {
set cmd [list exec git diff]
# No rev support yet
if {[catch {eval $cmd} res]} {
|
| ︙ | ︙ |