diff options
Diffstat (limited to 'REORG.TODO/scripts/versions.awk')
| -rw-r--r-- | REORG.TODO/scripts/versions.awk | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/REORG.TODO/scripts/versions.awk b/REORG.TODO/scripts/versions.awk new file mode 100644 index 0000000000..5d4768c992 --- /dev/null +++ b/REORG.TODO/scripts/versions.awk @@ -0,0 +1,173 @@ +# Combine version map fragments into version scripts for our shared objects. +# Copyright (C) 1998-2017 Free Software Foundation, Inc. +# Written by Ulrich Drepper <drepper@cygnus.com>, 1998. + +# This script expects the following variables to be defined: +# defsfile name of Versions.def file +# buildroot name of build directory with trailing slash +# move_if_change move-if-change command + +# Read definitions for the versions. +BEGIN { + lossage = 0; + + nlibs=0; + while (getline < defsfile) { + if (/^[a-zA-Z0-9_.]+ \{/) { + libs[$1] = 1; + curlib = $1; + while (getline < defsfile && ! /^}/) { + if ($2 == "=") { + renamed[curlib "::" $1] = $3; + } + else + versions[curlib "::" $1] = 1; + } + } + } + close(defsfile); + + tmpfile = buildroot "Versions.tmp"; + # POSIX sort needed. + sort = "sort -t. -k 1,1 -k 2n,2n -k 3 > " tmpfile; +} + +# Remove comment lines. +/^ *#/ { + next; +} + +# This matches the beginning of the version information for a new library. +/^[a-zA-Z0-9_.]+/ { + actlib = $1; + if (!libs[$1]) { + printf("no versions defined for %s\n", $1) > "/dev/stderr"; + ++lossage; + } + next; +} + +# This matches the beginning of a new version for the current library. +/^ [A-Za-z_]/ { + if (renamed[actlib "::" $1]) + actver = renamed[actlib "::" $1]; + else if (!versions[actlib "::" $1] && $1 != "GLIBC_PRIVATE") { + printf("version %s not defined for %s\n", $1, actlib) > "/dev/stderr"; + ++lossage; + } + else + actver = $1; + next; +} + +# This matches lines with names to be added to the current version in the +# current library. This is the only place where we print something to +# the intermediate file. +/^ / { + sortver=actver + # Ensure GLIBC_ versions come always first + sub(/^GLIBC_/," GLIBC_",sortver) + printf("%s %s %s\n", actlib, sortver, $0) | sort; +} + + +function closeversion(name, oldname) { + if (firstinfile) { + printf(" local:\n *;\n") > outfile; + firstinfile = 0; + } + # This version inherits from the last one only if they + # have the same nonnumeric prefix, i.e. GLIBC_x.y and GLIBC_x.z + # or FOO_x and FOO_y but not GLIBC_x and FOO_y. + pfx = oldname; + sub(/[0-9.]+/,".+",pfx); + if (oldname == "" || name !~ pfx) print "};" > outfile; + else printf("} %s;\n", oldname) > outfile; +} + +function close_and_move(name, real_name) { + close(name); + system(move_if_change " " name " " real_name " >&2"); +} + +# Now print the accumulated information. +END { + close(sort); + + if (lossage) { + system("rm -f " tmpfile); + exit 1; + } + + oldlib = ""; + oldver = ""; + real_first_ver_header = buildroot "first-versions.h" + first_ver_header = real_first_ver_header "T" + printf("#ifndef _FIRST_VERSIONS_H\n") > first_ver_header; + printf("#define _FIRST_VERSIONS_H\n") > first_ver_header; + real_ldbl_compat_header = buildroot "ldbl-compat-choose.h" + ldbl_compat_header = real_ldbl_compat_header "T" + printf("#ifndef _LDBL_COMPAT_CHOOSE_H\n") > ldbl_compat_header; + printf("#define _LDBL_COMPAT_CHOOSE_H\n") > ldbl_compat_header; + printf("#ifndef LONG_DOUBLE_COMPAT\n") > ldbl_compat_header; + printf("# error LONG_DOUBLE_COMPAT not defined\n") > ldbl_compat_header; + printf("#endif\n") > ldbl_compat_header; + printf("version-maps ="); + while (getline < tmpfile) { + if ($1 != oldlib) { + if (oldlib != "") { + closeversion(oldver, veryoldver); + oldver = ""; + close_and_move(outfile, real_outfile); + } + oldlib = $1; + real_outfile = buildroot oldlib ".map"; + outfile = real_outfile "T"; + firstinfile = 1; + veryoldver = ""; + printf(" %s.map", oldlib); + } + if ($2 != oldver) { + if (oldver != "") { + closeversion(oldver, veryoldver); + veryoldver = oldver; + } + printf("%s {\n global:\n", $2) > outfile; + oldver = $2; + } + printf(" ") > outfile; + for (n = 3; n <= NF; ++n) { + printf(" %s", $n) > outfile; + sym = $n; + sub(";", "", sym); + first_ver_macro = "FIRST_VERSION_" oldlib "_" sym; + if (!(first_ver_macro in first_ver_seen) \ + && oldver ~ "^GLIBC_[0-9]" \ + && sym ~ "^[A-Za-z0-9_]*$") { + ver_val = oldver; + gsub("\\.", "_", ver_val); + printf("#define %s %s\n", first_ver_macro, ver_val) > first_ver_header; + first_ver_seen[first_ver_macro] = 1; + if (oldlib == "libc" || oldlib == "libm") { + printf("#if LONG_DOUBLE_COMPAT (%s, %s)\n", + oldlib, ver_val) > ldbl_compat_header; + printf("# define LONG_DOUBLE_COMPAT_CHOOSE_%s_%s(a, b) a\n", + oldlib, sym) > ldbl_compat_header; + printf("#else\n") > ldbl_compat_header; + printf("# define LONG_DOUBLE_COMPAT_CHOOSE_%s_%s(a, b) b\n", + oldlib, sym) > ldbl_compat_header; + printf("#endif\n") > ldbl_compat_header; + } + } + } + printf("\n") > outfile; + } + printf("\n"); + printf("#endif /* first-versions.h */\n") > first_ver_header; + printf("#endif /* ldbl-compat-choose.h */\n") > ldbl_compat_header; + closeversion(oldver, veryoldver); + close_and_move(outfile, real_outfile); + close_and_move(first_ver_header, real_first_ver_header); + close_and_move(ldbl_compat_header, real_ldbl_compat_header); + #system("rm -f " tmpfile); +} |