fileset

git mirror of https://ccx.te2000.cz/bzr/fileset
git clone https://ccx.te2000.cz/git/fileset
Log | Files | Refs | README

fileset_duplicates.awk (388B)

      1 #!/usr/bin/awk -f
      2 BEGIN {
      3 	FS="\t"
      4 	current = "<unmarked>"
      5 }
      6 /^# FILE / {
      7 	sub(/^# FILE +/, "")
      8 	current = $0
      9 }
     10 /^\// {
     11 	if($1 in fnames) {
     12 		if(fnames[$1] != current) {
     13 			dupes[$1] = dupes[$1] + 1
     14 			fnames[$1] = fnames[$1] "\n" current
     15 		}
     16 	} else {
     17 		fnames[$1] = current
     18 	}
     19 }
     20 END {
     21 	for(fname in dupes) {
     22 		printf "duplicate filename %s found in:\n%s\n\n", fname, fnames[fname]
     23 	}
     24 }