TKE  3.6
Advanced code editor for programmers
diff::mercurial 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::mercurial::find_version   fname v2 lnum  

Definition at line 814 of file diff.tcl.

814  proc find_version {fname v2 lnum} {
815  if {$v2 eq "Current"} {
816  if {![catch { exec hg annotate $fname} rc]} {
817  if {[regexp "^\\s*(\\d+):" [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
818  return $version
819  }
820  }
821  } else {
822  if {![catch { exec hg annotate -r $v2 $fname} rc]} {
823  if {[regexp "^\\s*(\\d+):" [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
824  return $version
825  }
826  }
827  }
828  return ""
829  }

§ get_current_version()

diff::mercurial::get_current_version   fname  

Definition at line 803 of file diff.tcl.

803  proc get_current_version {fname} {
804  if {![catch { exec hg parent $fname} rc]} {
805  foreach line [split $rc \n] {
806  if {[regexp {changeset:\s+(\d+):} $line -> version]} {
807  return $version
808  }
809  }
810  }
811  return ""
812  }

§ get_diff_cmd()

diff::mercurial::get_diff_cmd   v1 v2 fname  

Definition at line 795 of file diff.tcl.

795  proc get_diff_cmd {v1 v2 fname} {
796  if {$v2 eq "Current"} {
797  return "hg diff -r $v1 $fname"
798  } else {
799  return "hg diff -r $v1 -r $v2 $fname"
800  }
801  }

§ get_file_cmd()

diff::mercurial::get_file_cmd   version fname  

Definition at line 791 of file diff.tcl.

791  proc get_file_cmd {version fname} {
792  return "|hg cat -r $version $fname"
793  }

§ get_version_log()

diff::mercurial::get_version_log   fname version  

Definition at line 831 of file diff.tcl.

831  proc get_version_log {fname version} {
832  if {![catch { exec hg log -r $version $fname} rc]} {
833  return $rc
834  }
835  return ""
836  }

§ handles()

diff::mercurial::handles   fname  

Definition at line 775 of file diff.tcl.

775  proc handles {fname} {
776  return [expr {![catch { exec hg status $fname }]}]
777  }

§ name()

diff::mercurial::name

Definition at line 767 of file diff.tcl.

767  proc name {} {
768  return "Mercurial"
769  }

§ type()

diff::mercurial::type

Definition at line 771 of file diff.tcl.

771  proc type {} {
772  return "cvs"
773  }

§ versions()

diff::mercurial::versions   fname  

Definition at line 779 of file diff.tcl.

779  proc versions {fname} {
780  set versions [list]
781  if {![catch { exec hg log $fname} rc]} {
782  foreach line [split $rc \n] {
783  if {[regexp {changeset:\s+(\d+):} $line -> version]} {
784  lappend versions $version
785  }
786  }
787  }
788  return $versions
789  }