scan.awk 364 B

12345678910111213141516171819
  1. BEGIN { FS="/" }
  2. $1 ~ /^feeds/ { FEEDS[$NF]=$0 }
  3. $1 !~ /^feeds/ { PKGS[$NF]=$0 }
  4. END {
  5. # Filter-out OpenWrt packages which have a feeds equivalent
  6. for (pkg in PKGS)
  7. if (pkg in FEEDS) {
  8. print PKGS[pkg] > of
  9. delete PKGS[pkg]
  10. }
  11. n = asort(PKGS)
  12. for (i=1; i <= n; i++) {
  13. print PKGS[i]
  14. }
  15. n = asort(FEEDS)
  16. for (i=1; i <= n; i++){
  17. print FEEDS[i]
  18. }
  19. }