# This awk script processes the output of objdump --dynamic-syms

# into a simple format that should not change when the ABI is not changing.

BEGIN {

  if (combine_fullname)

    combine = 1;

  if (combine)

    parse_names = 1;

}

# Per-file header.

/[^ :]+\.so\.[0-9.]+:[ 	]+.file format .*$/ {

  emit(0);

  seen_opd = 0;

  sofullname = $1;

  sub(/:$/, "", sofullname);

  soname = sofullname;

  sub(/^.*\//, "", soname);

  sub(/\.so\.[0-9.]+$/, "", soname);

  suppress = ((filename_regexp != "" && sofullname !~ filename_regexp) \

	      || (libname_regexp != "" && soname !~ libname_regexp));

  next

}

suppress { next }

# Normalize columns.

/^[0-9a-fA-F]+      / { sub(/      /, "  -   ") }

# Skip undefineds.

$4 == "*UND*" { next }

# Skip locals.

$2 == "l" { next }

# If the target uses ST_OTHER, it will be output before the symbol name.

$2 == "g" || $2 == "w" && (NF == 7 || NF == 8) {

  weak = $2;

  type = $3;

  size = $5;

  sub(/^0*/, "", size);

  size = " 0x" size;

  version = $6;

  symbol = $NF;

  gsub(/[()]/, "", version);

  # binutils versions up through at least 2.23 have some bugs that

  # caused STV_HIDDEN symbols to appear in .dynsym, though that is useless.

  if (NF > 7 && $7 == ".hidden") next;

  if (version == "GLIBC_PRIVATE") next;

  desc = "";

  if (type == "D" && $4 == ".tbss") {

    type = "T";

  }

  else if (type == "D" && $4 == ".opd") {

    type = "F";

    size = "";

    if (seen_opd < 0)

      type = "O";

    seen_opd = 1;

  }

  else if (type == "D" && NF == 8 && $7 == "0x80") {

    # Alpha functions avoiding plt entry in users

    type = "F";

    size = "";

    seen_opd = -1;

  }

  else if ($4 == "*ABS*") {

    next;

  }

  else if (type == "DO") {

    type = "D";

  }

  else if (type == "DF") {

    if (symbol ~ /^\./ && seen_opd >= 0)

      next;

    seen_opd = -1;

    type = "F";

    size = "";

  }

  else if (type == "iD" && ($4 == ".text" || $4 == ".opd")) {

    # Indirect functions.

    type = "F";

    size = "";

  }

  else {

    desc = symbol " " version " " weak " ? " type " " $4 " " $5;

  }

  if (size == " 0x") {

    desc = symbol " " version " " weak " ? " type " " $4 " " $5;

  }

  # Disabled -- weakness should not matter to shared library ABIs any more.

  #if (weak == "w") type = tolower(type);

  if (desc == "")

    desc = symbol " " type size;

  if (combine)

    version = soname " " version (combine_fullname ? " " sofullname : "");

  # Append to the string which collects the results.

  descs = descs version " " desc "\n";

  next;

}

# Header crapola.

NF == 0 || /DYNAMIC SYMBOL TABLE/ || /file format/ { next }

{

  print "Don't grok this line:", $0

}

function emit(end) {

  if (!end && (combine || ! parse_names || soname == ""))

    return;

  tofile = parse_names && !combine;

  if (tofile) {

    out = prefix soname ".symlist";

    if (soname in outfiles)

      out = out "." ++outfiles[soname];

    else

      outfiles[soname] = 1;

    outpipe = "LC_ALL=C sort -u > " out;

  } else {

    outpipe = "LC_ALL=C sort -u";

  }

  printf "%s", descs | outpipe;

  descs = "";

  if (tofile)

    print "wrote", out, "for", sofullname;

}

END {

  emit(1);

}