diff::git Namespace Reference

Functions
	name
	type
	handles fname
	versions fname
	get_file_cmd version fname
	get_diff_cmd v1 v2 fname
	get_current_version fname
	find_version fname v2 lnum
	get_version_log fname version

Function Documentation

find_version()

diff::git::find_version			fname v2 lnum

Definition at line 892 of file diff.tcl.

    proc find_version {fname v2 lnum} {
      if {$v2 eq "Current"} {
        if {![catch { exec git blame $fname} rc]} {
          if {[regexp {^([0-9a-fA-F]+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
            return $version
          }
        }
      } else {
        if {![catch { exec git blame $v2 $fname} rc]} {
          if {[regexp {^([0-9a-fA-F]+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
            return $version
          }
        }
      }
      return ""
    }

get_current_version()

diff::git::get_current_version			fname

Definition at line 881 of file diff.tcl.

    proc get_current_version {fname} {
      if {![catch { exec git log --abbrev-commit $fname} rc]} {
        foreach line [split $rc \n] {
          if {[regexp {^commit ([0-9a-fA-F]+)} $line -> version]} {
            return $version
          }
        }
      }
      return ""
    }

get_diff_cmd()

diff::git::get_diff_cmd			v1 v2 fname

Definition at line 873 of file diff.tcl.

    proc get_diff_cmd {v1 v2 fname} {
      if {$v2 eq "Current"} {
        return "git diff $v1 $fname"
      } else {
        return "git diff $v1 $v2 $fname"
      }
    }

get_file_cmd()

diff::git::get_file_cmd			version fname

Definition at line 869 of file diff.tcl.

    proc get_file_cmd {version fname} {
      return "|git show $version:$fname"
    }

get_version_log()

diff::git::get_version_log			fname version

Definition at line 909 of file diff.tcl.

    proc get_version_log {fname version} {
      if {![catch { exec git log -n 1 $version $fname} rc]} {
        return $rc
      }
      return ""
    }

handles()

diff::git::handles			fname

Definition at line 852 of file diff.tcl.

    proc handles {fname} {
      return [expr {![catch { exec git log -n 1 $fname }]}]
    }

name()

diff::git::name

Definition at line 844 of file diff.tcl.

    proc name {} {
      return "Git"
    }

type()

diff::git::type

Definition at line 848 of file diff.tcl.

    proc type {} {
      return "cvs"
    }

versions()

diff::git::versions			fname

Definition at line 856 of file diff.tcl.

    proc versions {fname} {
      set versions [list]
      set ::env(PAGER) ""
      if {![catch { exec git log --abbrev-commit $fname} rc]} {
        foreach line [split $rc \n] {
          if {[regexp {^commit ([0-9a-fA-F]+)} $line -> version]} {
            lappend versions $version
          }
        }
      }
      return $versions
    }