xref: /netbsd-src/external/ibm-public/postfix/dist/mantools/find-double (revision b2c35e17b976cf7ccd7250c86c6f5e95090ed636)
1#!/bin/sh
2
3sed 's/[^A-Z0-9a-z_][^A-Z0-9a-z_]*/ /g' "$@" | awk '
4	{ for (i = 1; i <= NF; i++) {
5		if (length($i) > 1 && $(i) == last) {
6			if (i == 1)
7			    printf("%s ", last)
8			print
9		}
10		last = $(i)
11	   }
12	}
13'
14