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

Definition at line 969 of file diff.tcl.

969  proc find_version {fname v2 lnum} {
970  if {$v2 eq "Current"} {
971  if {![catch { exec bzr annotate $fname} rc]} {
972  if {[regexp {^(\d+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
973  return $version
974  }
975  }
976  } else {
977  if {![catch { exec bzr annotate -r $v2 $fname} rc]} {
978  if {[regexp {^(\d+)} [lindex [split $rc \n] [expr $lnum - 1]] -> version]} {
979  return $version
980  }
981  }
982  }
983  return ""
984  }

§ get_current_version()

diff::bazaar::get_current_version   fname  

Definition at line 958 of file diff.tcl.

958  proc get_current_version {fname} {
959  if {![catch { exec bzr log $fname} rc]} {
960  foreach line [split $rc \n] {
961  if {[regexp {revno:\s+(\d+)} $line -> version]} {
962  return $version
963  }
964  }
965  }
966  return ""
967  }

§ get_diff_cmd()

diff::bazaar::get_diff_cmd   v1 v2 fname  

Definition at line 950 of file diff.tcl.

950  proc get_diff_cmd {v1 v2 fname} {
951  if {$v2 eq "Current"} {
952  return "bzr diff -r$v1 $fname"
953  } else {
954  return "bzr diff -r$v1..$v2 $fname"
955  }
956  }

§ get_file_cmd()

diff::bazaar::get_file_cmd   version fname  

Definition at line 946 of file diff.tcl.

946  proc get_file_cmd {version fname} {
947  return "|bzr cat -r $version $fname"
948  }

§ get_version_log()

diff::bazaar::get_version_log   fname version  

Definition at line 986 of file diff.tcl.

986  proc get_version_log {fname version} {
987  if {![catch { exec bzr log -r $version $fname} rc]} {
988  return $rc
989  }
990  return ""
991  }

§ handles()

diff::bazaar::handles   fname  

Definition at line 930 of file diff.tcl.

930  proc handles {fname} {
931  return [expr {![catch { exec bzr status $fname }]}]
932  }

§ name()

diff::bazaar::name

Definition at line 922 of file diff.tcl.

922  proc name {} {
923  return "Bazaar"
924  }

§ type()

diff::bazaar::type

Definition at line 926 of file diff.tcl.

926  proc type {} {
927  return "cvs"
928  }

§ versions()

diff::bazaar::versions   fname  

Definition at line 934 of file diff.tcl.

934  proc versions {fname} {
935  set versions [list]
936  if {![catch { exec bzr log $fname} rc]} {
937  foreach line [split $rc \n] {
938  if {[regexp {revno:\s+(\d+)} $line -> version]} {
939  lappend versions $version
940  }
941  }
942  }
943  return $versions
944  }