xref: /plan9/sys/lib/man/permind/dup1.awk (revision 3e12c5d1bb89fc02707907988834ef147769ddaf)
1*3e12c5d1SDavid du Colombierfunction install(){lastf=$NF; last=$0; split($0,b,"\"")}
2*3e12c5d1SDavid du Colombier$NF!=lastf {if(last!="") print last; install()}
3*3e12c5d1SDavid du Colombier$NF==lastf {split($0,a,"\"")
4*3e12c5d1SDavid du Colombier	if(a[6]~/[-,]/||a[6]~/\(mi/) {
5*3e12c5d1SDavid du Colombier		split(a[6],aa,"[, ]")
6*3e12c5d1SDavid du Colombier		if(index(last,aa[1])==0) {
7*3e12c5d1SDavid du Colombier			print last
8*3e12c5d1SDavid du Colombier			install()
9*3e12c5d1SDavid du Colombier		}
10*3e12c5d1SDavid du Colombier		else if(b[6]!~/[,-]/&&b[6]!~/\(mi/)
11*3e12c5d1SDavid du Colombier			install()
12*3e12c5d1SDavid du Colombier	}
13*3e12c5d1SDavid du Colombier}
14*3e12c5d1SDavid du ColombierEND {print last}
15