← Back to branch summary

~ubuntu-branches/ubuntu/precise/tkcvs/precise

« back to all changes in this revision

Viewing changes to tkcvs/diff.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Tim Cutts
  • Date: 2008-06-12 12:34:36 UTC
  • mfrom: (1.2.5 upstream) (3.1.2 lenny)
  • Revision ID: james.westby@ubuntu.com-20080612123436-7mk82kha32mqpy5q
Tags: 8.1-1
http://bugs.debian.org/485923
* New upstream version (Closes: #485923)
* Moved to tk8.5
* Updated standards to 3.7.3
* Revised menu location according to policy
* Added short description to tkdirdiff manpage
* tkdiff is now being provided by tkcvs internally

Show diffs side-by-side

added added

removed removed

Lines of Context:
tkcvs/diff.tcl
3
3
 
4
4
proc comparediff {args} {
5
5
#
6
 
# This diffs a file with the repository.
 
6
# This diffs a file with the repository (tkdiff <file>)
7
7
#
8
8
  global cvscfg
9
9
 
36
36
 
37
37
proc comparediff_r {rev1 rev2 parent file} {
38
38
#
39
 
# This diffs a file with the repository, using two revisions or tags.
 
39
# This diffs versions of a file, using one or two revisions (tkdiff -r1 [-r2] file)
40
40
#
41
41
  global cvscfg
 
42
  global insvn
42
43
 
43
 
  gen_log:log T "ENTER ($rev1 $rev2 $file)"
 
44
  gen_log:log T "ENTER (\"$rev1\" \"$rev2\" $file)"
44
45
 
45
46
  if {$rev1 == {} && $rev2 == {}} {
46
47
    cvsfail "Must have at least one revision number or tag for this function!" $parent
49
50
 
50
51
  if {$rev1 != {}} {
51
52
    set rev1 [string trimleft $rev1 {r}]
52
 
    set rev1 "-r \"$rev1\""
 
53
    if {! $insvn} {
 
54
      set rev1 "-r \"$rev1\""
 
55
    }
53
56
  }
54
57
  if {$rev2 != {}} {
55
58
    set rev2 [string trimleft $rev2 {r}]
56
 
    set rev2 "-r \"$rev2\""
 
59
    if {! $insvn} {
 
60
      set rev2 "-r \"$rev2\""
 
61
    }
57
62
  }
58
63
 
59
64
  set commandline "$cvscfg(tkdiff) $rev1 $rev2 \"$file\""
69
74
#
70
75
  global cvscfg
71
76
 
72
 
  gen_log:log T "ENTER ($rev1 $rev2 $file)"
 
77
  gen_log:log T "ENTER (\"$rev1\" \"$rev2\" $file)"
73
78
 
74
79
  if {$rev1 == {} && $rev2 == {}} {
75
80
    cvsfail "Must have at least one revision number or tag for this function!" $parent