xref: /netbsd-src/external/ibm-public/postfix/dist/mantools/find-double (revision 4a6720548cbf2e9325ed049c8a675ae86609f654)
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