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

Definition at line 1046 of file diff.tcl.

1046  proc find_version {fname v2 lnum} {
1047  if {$v2 eq "Current"} {
1048  if {![catch { exec svn annotate $fname} rc]} {
1049  if {[regexp {^\s*(\d+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
1050  return $version
1051  }
1052  }
1053  } else {
1054  if {![catch { exec svn annotate -r $v2 $fname} rc]} {
1055  if {[regexp {^\s*(\d+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
1056  return $version
1057  }
1058  }
1059  }
1060  return ""
1061  }

§ get_current_version()

diff::subversion::get_current_version   fname  

Definition at line 1035 of file diff.tcl.

1035  proc get_current_version {fname} {
1036  if {![catch { exec svn FOOBAR $fname} rc]} {
1037  foreach line [split $rc \n] {
1038  if {[regexp {^r(\d+)\s*\|} $line -> version]} {
1039  lappend versions $version
1040  }
1041  }
1042  }
1043  return ""
1044  }

§ get_diff_cmd()

diff::subversion::get_diff_cmd   v1 v2 fname  

Definition at line 1027 of file diff.tcl.

1027  proc get_diff_cmd {v1 v2 fname} {
1028  if {$v2 eq "Current"} {
1029  return "svn diff -r $v1 $fname"
1030  } else {
1031  return "svn diff -r $v1:$v2 $fname"
1032  }
1033  }

§ get_file_cmd()

diff::subversion::get_file_cmd   version fname  

Definition at line 1023 of file diff.tcl.

1023  proc get_file_cmd {version fname} {
1024  return "|svn cat -r $version $fname"
1025  }

§ get_version_log()

diff::subversion::get_version_log   fname version  

Definition at line 1063 of file diff.tcl.

1063  proc get_version_log {fname version} {
1064  if {![catch { exec svn log -r $version $fname} rc]} {
1065  return $rc
1066  }
1067  return ""
1068  }

§ handles()

diff::subversion::handles   fname  

Definition at line 1007 of file diff.tcl.

1007  proc handles {fname} {
1008  return [expr {![catch { exec svn log $fname }]}]
1009  }

§ name()

diff::subversion::name

Definition at line 999 of file diff.tcl.

999  proc name {} {
1000  return "Subversion"
1001  }

§ type()

diff::subversion::type

Definition at line 1003 of file diff.tcl.

1003  proc type {} {
1004  return "cvs"
1005  }

§ versions()

diff::subversion::versions   fname  

Definition at line 1011 of file diff.tcl.

1011  proc versions {fname} {
1012  set versions [list]
1013  if {![catch { exec svn log $fname} rc]} {
1014  foreach line [split $rc \n] {
1015  if {[regexp {^r(\d+)\s*\|} $line -> version]} {
1016  lappend versions $version
1017  }
1018  }
1019  }
1020  return $versions
1021  }