Blame scripts/versionlist.awk

Packit 6c4009
# Extract ordered list of version sets from Versions files.
Packit 6c4009
# Copyright (C) 2014-2018 Free Software Foundation, Inc.
Packit 6c4009
Packit 6c4009
BEGIN { in_lib = ""; in_version = 0 }
Packit 6c4009
Packit 6c4009
!in_lib && NF == 2 && $2 == "{" {
Packit 6c4009
  in_lib = $1;
Packit 6c4009
  all_libs[in_lib] = 1;
Packit 6c4009
  next
Packit 6c4009
}
Packit 6c4009
!in_lib { next }
Packit 6c4009
Packit 6c4009
NF == 2 && $2 == "{" {
Packit 6c4009
  in_version = 1;
Packit 6c4009
  lib_versions[in_lib, $1] = 1;
Packit 6c4009
  # Partition the version sets into GLIBC_* and others.
Packit 6c4009
  if ($1 ~ /GLIBC_/) {
Packit 6c4009
    libs[in_lib] = libs[in_lib] "  " $1 "\n";
Packit 6c4009
    all_versions[$1] = 1;
Packit 6c4009
  }
Packit 6c4009
  else {
Packit 6c4009
    others_libs[in_lib] = others_libs[in_lib] "  " $1 "\n";
Packit 6c4009
    others_all_versions[$1] = 1;
Packit 6c4009
  }
Packit 6c4009
  next
Packit 6c4009
}
Packit 6c4009
Packit 6c4009
in_version && $1 == "}" { in_version = 0; next }
Packit 6c4009
in_version { next }
Packit 6c4009
Packit 6c4009
$1 == "}" { in_lib = ""; next }
Packit 6c4009
Packit 6c4009
END {
Packit 6c4009
  nlibs = asorti(all_libs, libs_order);
Packit 6c4009
  for (i = 1; i <= nlibs; ++i) {
Packit 6c4009
    lib = libs_order[i];
Packit 6c4009
Packit 6c4009
    for (v in all_versions) {
Packit 6c4009
      if (!((lib, v) in lib_versions)) {
Packit 6c4009
        libs[lib] = libs[lib] "  " v "\n";
Packit 6c4009
      }
Packit 6c4009
    }
Packit 6c4009
Packit 6c4009
    for (v in others_all_versions) {
Packit 6c4009
      if (!((lib, v) in lib_versions)) {
Packit 6c4009
        others_libs[lib] = others_libs[lib] "  " v "\n";
Packit 6c4009
      }
Packit 6c4009
    }
Packit 6c4009
Packit 6c4009
    print lib, "{";
Packit 6c4009
Packit 6c4009
    # Sort and print all the GLIBC_* sets first, then all the others.
Packit 6c4009
    # This is not really generically right, but it suffices
Packit 6c4009
    # for the cases we have so far.  e.g. GCC_3.0 is "later than"
Packit 6c4009
    # all GLIBC_* sets that matter for purposes of Versions files.
Packit 6c4009
Packit 6c4009
    sort = "sort -u -t. -k 1,1 -k 2n,2n -k 3";
Packit 6c4009
    printf "%s", libs[lib] | sort;
Packit 6c4009
    close(sort);
Packit 6c4009
Packit 6c4009
    sort = "sort -u -t. -k 1,1 -k 2n,2n -k 3";
Packit 6c4009
    printf "%s", others_libs[lib] | sort;
Packit 6c4009
    close(sort);
Packit 6c4009
Packit 6c4009
    print "}";
Packit 6c4009
  }
Packit 6c4009
}