Plan 9 from Bell Labs’s /usr/web/sources/plan9/sys/lib/man/permind/dup1.awk

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


function install(){lastf=$NF; last=$0; split($0,b,"\"")}
$NF!=lastf {if(last!="") print last; install()}
$NF==lastf {split($0,a,"\"")
	if(a[6]~/[-,]/||a[6]~/\(mi/) {
		split(a[6],aa,"[, ]")
		if(index(last,aa[1])==0) {
			print last
			install()
		}
		else if(b[6]!~/[,-]/&&b[6]!~/\(mi/)
			install()
	}
}
END {print last}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].