about summary refs log tree commit diff
path: root/pkgs/by-name/tk/tkdiff
diff options
context:
space:
mode:
Diffstat (limited to 'pkgs/by-name/tk/tkdiff')
-rw-r--r--pkgs/by-name/tk/tkdiff/189.patch71
-rw-r--r--pkgs/by-name/tk/tkdiff/194.patch15
-rw-r--r--pkgs/by-name/tk/tkdiff/package.nix17
3 files changed, 3 insertions, 100 deletions
diff --git a/pkgs/by-name/tk/tkdiff/189.patch b/pkgs/by-name/tk/tkdiff/189.patch
deleted file mode 100644
index c638727d3bd48..0000000000000
--- a/pkgs/by-name/tk/tkdiff/189.patch
+++ /dev/null
@@ -1,71 +0,0 @@
-Index: tkdiff
-===================================================================
-diff --git a/tkdiff b/tkdiff
---- a/tkdiff	(revision 188)
-+++ b/tkdiff	(revision 189)
-@@ -111,7 +111,7 @@
- }
- 
- # Determine the name of the temporary directory, the rc file name,
--# and possible VPATH EnvVar, all of which are platform dependent.
-+# NULLdev, and possible VPATH EnvVar, all of which are platform dependent.
- #
- # Much MAY likely be overridden by a preference in .tkdiffrc,
- # EXCEPT (obviously) when no such file actually exists yet
-@@ -126,6 +126,9 @@
-             set opts(tmpdir) C:/temp
-         }
- 
-+        # Reserved filename which is actually a NULL device
-+        set opts(NULLdev) "nul"
-+
-         # Split up and store a VPATH if it exists
-         if {[info exists ::env(VPATH)]} {
-             set finfo(Vpath) [split $::env(VPATH) ";"]
-@@ -145,6 +148,9 @@
-             set opts(tmpdir) $::env(TMPDIR)
-         }  {set opts(tmpdir) /tmp }
- 
-+        # Reserved filename which is actually a NULL device (Unix-like platforms)
-+        set opts(NULLdev) "/dev/null"
-+
-         # Split up and store a VPATH if it exists
-         if {[info exists ::env(VPATH)]} {
-             set finfo(Vpath) [split $::env(VPATH) ":"]
-@@ -2106,7 +2112,7 @@
- #           1  Failed   (PLUS a 'pushed' HARD-error message to the caller)
- ###############################################################################
- proc get-file {fn ndx {probe 0}} {
--    global g finfo
-+    global g opts finfo
- 
-     # Ancestor files are stored into a slightly adjusted array element name 
-     #   N.B> 'ndx' AS PASSED *can* be an EXPRESSION (not just a number): resolve!
-@@ -2121,7 +2127,7 @@
-     } elseif {!$tildechk} {
-         # DO NOT REPORT non-existence if this attempt was ONLY a probe
-         if {$probe} { return 1 } { set MSG "File '$fn' does not exist" }
--    } elseif {[file isfile $fn]} {
-+    } elseif {[file isfile $fn] || $fn == $opts(NULLdev)} {
-         set finfo(${A}lbl,$ndx) [shortNm [set finfo(${A}pth,$ndx) "$fn"]]
-     } else { set MSG "'$fn' exists, but is not a file" }
- 
-@@ -2857,7 +2863,7 @@
- # Align various label decorations to the CURRENT input file pairing
- ###############################################################################
- proc alignDecor {pairnum} {
--    global g w finfo
-+    global g w opts finfo
- 
-     # Establish if 3way mode is NOW active and what file indices are in use
-     set g(is3way) [info exists finfo(albl,$pairnum)]
-@@ -2874,7 +2880,8 @@
-             set finfo(lbl,$LR) $finfo(ulbl,$ndx($n))    ;# Override lbl display
-         } else {set finfo(lbl,$LR) $finfo(lbl,$ndx($n))}
- 
--        if {![info exists finfo(tmp,$ndx($n))]} {
-+        if {![info exists finfo(tmp,$ndx($n))] \
-+            && $finfo(pth,$ndx($n)) != $opts(NULLdev)} {
-             #   (N.B> Tip data will ALSO be used by report generation heading)
-             set    g(tooltip,${LR}Label) "{$finfo(pth,$ndx($n))\n"
-             append g(tooltip,${LR}Label) \
diff --git a/pkgs/by-name/tk/tkdiff/194.patch b/pkgs/by-name/tk/tkdiff/194.patch
deleted file mode 100644
index 0fc50db3028bd..0000000000000
--- a/pkgs/by-name/tk/tkdiff/194.patch
+++ /dev/null
@@ -1,15 +0,0 @@
-Index: tkdiff
-===================================================================
-diff --git a/tkdiff b/tkdiff
---- a/tkdiff	(revision 193)
-+++ b/tkdiff	(revision 194)
-@@ -4557,7 +4557,8 @@
-                 }
-             }
-         }
--    }
-+        # But KICK scroll to *LOOK* for Ratcliff (when ON); otherwise is a NOOP
-+    } { $w(acTxWdg) SEE @1,1 }
- }
- 
- ###############################################################################
diff --git a/pkgs/by-name/tk/tkdiff/package.nix b/pkgs/by-name/tk/tkdiff/package.nix
index b057a07e56c42..3e6fe807b611e 100644
--- a/pkgs/by-name/tk/tkdiff/package.nix
+++ b/pkgs/by-name/tk/tkdiff/package.nix
@@ -2,24 +2,13 @@
 
 stdenv.mkDerivation (finalAttrs: {
   pname = "tkdiff";
-  version = "5.6";
+  version = "5.7";
 
   src = fetchzip {
     url = "mirror://sourceforge/tkdiff/tkdiff-${builtins.replaceStrings ["."] ["-"] finalAttrs.version}.zip";
-    hash = "sha256-EpbIdjsejkkTaSpoZRM5AHz0r1Cio+YzRryK0BoghBk=";
+    hash = "sha256-ZndpolvaXoCAzR4KF+Bu7DJrXyB/C2H2lWp5FyzOc4M=";
   };
 
-  patches = [
-    # fix regression: allow /dev/null again. eg: "tkdiff /dev/null file"
-    # svn diff --git -r188:189 https://svn.code.sf.net/p/tkdiff/code/trunk
-    ./189.patch
-
-    # fix regression: trigger redraw when inline recursive diff requested
-    # svn diff --git -r193:194 https://svn.code.sf.net/p/tkdiff/code/trunk | \
-    #   sed -e '/^@@ -4545,7/,14d' -e '/^@@ -18063,7/,$d'
-    ./194.patch
-  ];
-
   nativeBuildInputs = [ makeBinaryWrapper ];
 
   installPhase = ''
@@ -33,7 +22,7 @@ stdenv.mkDerivation (finalAttrs: {
   '';
 
   meta = {
-    description = "A graphical front end to the diff program";
+    description = "Graphical front end to the diff program";
     homepage = "https://tkdiff.sourceforge.io/";
     license = lib.licenses.gpl2Plus;
     longDescription = ''