# awk script to generate errlist-compat.c

# Copyright (C) 2002-2018 Free Software Foundation, Inc.

# This file is part of the GNU C Library.

# The GNU C Library is free software; you can redistribute it and/or

# modify it under the terms of the GNU Lesser General Public

# License as published by the Free Software Foundation; either

# version 2.1 of the License, or (at your option) any later version.

# The GNU C Library is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

# Lesser General Public License for more details.

# You should have received a copy of the GNU Lesser General Public

# License along with the GNU C Library; if not, see

# <http://www.gnu.org/licenses/>.

#

# This script takes the Versions file as input and looks for #errlist-compat

# magic comments, which have the form:

#	#errlist-compat NNN

# where NNN is the number of elements in the sys_errlist for that version set.

# We need the awk variable `maxerr' defined to the current size of sys_errlist.

#

# If there is no magic comment matching the current size, we barf.

# Otherwise we generate code (errlist-compat.c) to define all the

# necessary compatibility symbols for older, smaller versions of sys_errlist.

#

# These two rules catch the Versions file contents.

NF == 2 && $2 == "{" { last_version = $1; next }

$1 == "#errlist-compat" {

  # Don't process any further Versions files

  ARGC = ARGIND + 1;

  cnt = $2 + 0;

  if (cnt < 80) {

    print "*** this line seems bogus:", $0 > "/dev/stderr";

    exit 1;

  }

  version[pos + 0] = cnt SUBSEP last_version;

  pos++;

  if (cnt < highest) {

    printf "*** %s #errlist-compat counts are not sorted\n", ARGV[ARGIND];

    exit 1;

  }

  if (cnt > highest)

    highest = cnt;

  highest_version = last_version;

  next;

}

END {

  if (! highest_version) {

    print "/* No sys_errlist/sys_nerr symbols defined on this platform.  */";

    exit 0;

  }

  count = maxerr + 1;

  if (highest < count) {

    printf "*** errlist.c count %d vs Versions sys_errlist@%s count %d\n", \

      count, highest_version, highest > "/dev/stderr";

    exit 1;

  }

  lastv = "";

  for (n = 0; n < pos; ++n) {

    split(version[n], t, SUBSEP)

    v = t[2];

    gsub(/[^A-Z0-9_]/, "_", v);

    if (lastv != "")

      compat[lastv] = v;

    lastv = v;

    vcount[v] = t[1];

  }

  print "/* This file was generated by errlist-compat.awk; DO NOT EDIT!  */\n";

  print "#include <shlib-compat.h>\n";

  if (highest > count) {

    printf "*** errlist.c count %d inflated to %s count %d (old errno.h?)\n", \

      count, highest_version, highest > "/dev/stderr";

    printf "#define ERR_MAX %d\n\n", highest - 1;

  }

  # same regardless of awk's ordering of the associative array.

  num_compat_elems = asorti(compat, compat_indices)

  for (i = 1; i <= num_compat_elems; i++) {

    old = compat_indices[i]

    new = compat[old];

    n = vcount[old];

    printf "#if SHLIB_COMPAT (libc, %s, %s)\n", old, new;

    printf "# include <bits/wordsize.h>\n";

    printf "extern const char *const __sys_errlist_%s[NERR];\n", old;

    printf "const int __sys_nerr_%s = %d;\n", old, n;

    printf "declare_symbol_alias (__sys_errlist_%s, _sys_errlist_internal,", \

      old;

    printf " object, __WORDSIZE/8*%d)\n", n;

    printf "compat_symbol (libc, __sys_errlist_%s, sys_errlist, %s);\n", \

      old, old;

    printf "compat_symbol (libc, __sys_nerr_%s, sys_nerr, %s);\n", old, old;

    printf "extern const char *const ___sys_errlist_%s[NERR];\n", old;

    printf "extern const int __sys_nerr_%s;\n", old;

    printf "declare_symbol_alias (___sys_errlist_%s, _sys_errlist_internal,", \

      old;

    printf " object, __WORDSIZE/8*%d)\n", n;

    printf "strong_alias (__sys_nerr_%s, ___sys_nerr_%s)\n", old, old;

    printf "compat_symbol (libc, ___sys_errlist_%s, _sys_errlist, %s);\n", \

      old, old;

    printf "compat_symbol (libc, ___sys_nerr_%s, _sys_nerr, %s);\n", old, old;

    printf "#endif\n\n";

  }

  printf "\

extern const char *const __sys_errlist_internal[NERR];\n\

extern const int __sys_nerr_internal;\n\

strong_alias (_sys_errlist_internal, __sys_errlist_internal)\n\

strong_alias (_sys_nerr_internal, __sys_nerr_internal)\n\

extern const char *const sys_errlist[NERR];\n\

versioned_symbol (libc, _sys_errlist_internal, sys_errlist, %s);\n\

versioned_symbol (libc, __sys_errlist_internal, _sys_errlist, %s);\n\

versioned_symbol (libc, _sys_nerr_internal, sys_nerr, %s);\n\

versioned_symbol (libc, __sys_nerr_internal, _sys_nerr, %s);\n", \

    lastv, lastv, lastv, lastv;

  print "\n\

link_warning (sys_errlist, \"\

`sys_errlist' is deprecated; use `strerror' or `strerror_r' instead\")\n\

link_warning (sys_nerr, \"\

`sys_nerr' is deprecated; use `strerror' or `strerror_r' instead\")";

}