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

Definition at line 737 of file diff.tcl.

737  proc find_version {fname v2 lnum} {
738  if {$v2 eq "Current"} {
739  if {![catch { exec p4 annotate $fname} rc]} {
740  if {[regexp {^(\d+):} [lindex [split $rc \n] $lnum] -> version]} {
741  return $version
742  }
743  }
744  } else {
745  if {![catch { exec p4 annotate ${fname}#$v2} rc]} {
746  if {[regexp {^(\d+):} [lindex [split $rc \n] $lnum] -> version]} {
747  return $version
748  }
749  }
750  }
751  return ""
752  }

§ get_current_version()

diff::perforce::get_current_version   fname  

Definition at line 726 of file diff.tcl.

726  proc get_current_version {fname} {
727  if {![catch { exec p4 have $fname} rc]} {
728  foreach line [split $rc \n] {
729  if {[regexp {^\.\.\.\s+#(\d+)} $line -> version]} {
730  return $version
731  }
732  }
733  }
734  return ""
735  }

§ get_diff_cmd()

diff::perforce::get_diff_cmd   v1 v2 fname  

Definition at line 717 of file diff.tcl.

717  proc get_diff_cmd {v1 v2 fname} {
718  if {$v2 eq "Current"} {
719  set ::env(P4DIFF) ""
720  return "p4 diff -du ${fname}#$v1"
721  } else {
722  return "p4 diff2 -u ${fname}#$v1 ${fname}#$v2"
723  }
724  }

§ get_file_cmd()

diff::perforce::get_file_cmd   version fname  

Definition at line 713 of file diff.tcl.

713  proc get_file_cmd {version fname} {
714  return "|p4 print $fname#$version"
715  }

§ get_version_log()

diff::perforce::get_version_log   fname version  

Definition at line 754 of file diff.tcl.

754  proc get_version_log {fname version} {
755  if {![catch { exec p4 filelog -l -m 1 $fname#$version} rc]} {
756  return $rc
757  }
758  return ""
759  }

§ handles()

diff::perforce::handles   fname  

Definition at line 697 of file diff.tcl.

697  proc handles {fname} {
698  return [expr {![catch { exec p4 filelog $fname }]}]
699  }

§ name()

diff::perforce::name

Definition at line 689 of file diff.tcl.

689  proc name {} {
690  return "Perforce"
691  }

§ type()

diff::perforce::type

Definition at line 693 of file diff.tcl.

693  proc type {} {
694  return "cvs"
695  }

§ versions()

diff::perforce::versions   fname  

Definition at line 701 of file diff.tcl.

701  proc versions {fname} {
702  set versions [list]
703  if {![catch { exec p4 filelog $fname} rc]} {
704  foreach line [split $rc \n] {
705  if {[regexp {^\.\.\.\s+#(\d+)} $line -> version]} {
706  lappend versions $version
707  }
708  }
709  }
710  return $versions
711  }