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

Definition at line 1123 of file diff.tcl.

1123  proc find_version {fname v2 lnum} {
1124  if {$v2 eq "Current"} {
1125  if {![catch { exec cvs annotate $fname} rc]} {
1126  if {[regexp {^(\S+)} [lindex [split $rc \n] [expr $lnum - 2]] -> version]} {
1127  return $version
1128  }
1129  }
1130  } else {
1131  if {![catch { exec cvs annotate -r $v2 $fname} rc]} {
1132  if {[regexp {^(\S+)} [lindex [split $rc \n] [expr $lnum - 2]] -> version]} {
1133  return $version
1134  }
1135  }
1136  }
1137  }

§ get_current_version()

diff::cvs::get_current_version   fname  

Definition at line 1112 of file diff.tcl.

1112  proc get_current_version {fname} {
1113  if {![catch { exec cvs FOOBAR $fname} rc]} {
1114  foreach line [split $rc \n] {
1115  if {[regexp {^revision\s+(.*)$} $line -> version]} {
1116  return $version
1117  }
1118  }
1119  }
1120  return ""
1121  }

§ get_diff_cmd()

diff::cvs::get_diff_cmd   v1 v2 fname  

Definition at line 1104 of file diff.tcl.

1104  proc get_diff_cmd {v1 v2 fname} {
1105  if {$v2 eq "Current"} {
1106  return "cvs diff -u -r $v1 $fname"
1107  } else {
1108  return "cvs diff -u -r $v1 -r $v2 $fname"
1109  }
1110  }

§ get_file_cmd()

diff::cvs::get_file_cmd   version fname  

Definition at line 1100 of file diff.tcl.

1100  proc get_file_cmd {version fname} {
1101  return "|cvs update -p -r $version $fname"
1102  }

§ get_version_log()

diff::cvs::get_version_log   fname version  

Definition at line 1139 of file diff.tcl.

1139  proc get_version_log {fname version} {
1140  if {![catch { exec cvs log -r$version $fname} rc]} {
1141  return $rc
1142  }
1143  return ""
1144  }

§ handles()

diff::cvs::handles   fname  

Definition at line 1084 of file diff.tcl.

1084  proc handles {fname} {
1085  return [expr {![catch { exec cvs log $fname }]}]
1086  }

§ name()

diff::cvs::name

Definition at line 1076 of file diff.tcl.

1076  proc name {} {
1077  return "CVS"
1078  }

§ type()

diff::cvs::type

Definition at line 1080 of file diff.tcl.

1080  proc type {} {
1081  return "cvs"
1082  }

§ versions()

diff::cvs::versions   fname  

Definition at line 1088 of file diff.tcl.

1088  proc versions {fname} {
1089  set versions [list]
1090  if {![catch { exec cvs log $fname} rc]} {
1091  foreach line [split $rc \n] {
1092  if {[regexp {^revision\s+(.*)$} $line -> version]} {
1093  lappend versions $version
1094  }
1095  }
1096  }
1097  return $versions
1098  }