From b7c15c31519dc44c1f691e0466badd556ffe9423 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 18:18:56 +0200
Subject: Adding upstream version 3.7.10.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 mantools/find-double | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 mantools/find-double

(limited to 'mantools/find-double')

diff --git a/mantools/find-double b/mantools/find-double
new file mode 100755
index 0000000..371663e
--- /dev/null
+++ b/mantools/find-double
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+sed 's/[^A-Z0-9a-z_][^A-Z0-9a-z_]*/ /g' "$@" | awk '
+	{ for (i = 1; i <= NF; i++) {
+		if (length($i) > 1 && $(i) == last) {
+			if (i == 1)
+			    printf("%s ", last)
+			print
+		}
+		last = $(i)
+	   }
+	}
+'
-- 
cgit v1.2.3