$1 == "Copyright" { out = $1 OFS $2 }
out && $NF ~ /[[:digit:]]/ { yr = $NF }
out && $NF !~ /[[:digit:]]/ {
- for (i = NF; i>0 && $i !~ /[[:digit:]]/; i--) ;
- if ($i ~ /[[:digit:]]/) yr = $i; i++
- sub(/^[[:digit:]]+-/, "", yr)
- for (out = out OFS yr; i<=NF; i++) out = out OFS $i
- print out; out = ""; next
+ for (i = NF; i>0 && $i !~ /[[:digit:]]/; i--) ;
+ if ($i ~ /[[:digit:]]/) yr = $i; i++
+ sub(/^[[:digit:]]+-/, "", yr)
+ for (out = out OFS yr; i<=NF; i++) out = out OFS $i
+ print out; out = ""; next
}
!out { print }'
exit 0
# Call as:
# index_packlist_keys {
# some-package-name {
-# ...
-# keys { <keylist as for mockgpg.exp:write_test_keyring> }
+# ...
+# keys { <keylist as for mockgpg.exp:write_test_keyring> }
# }
# some-package-name/subdir { ... }
# }