From ea648e70a989cca190cd7403fe892fd2dcc290b4 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 5 May 2024 20:37:14 +0200
Subject: Adding upstream version 1:9.11.5.P4+dfsg.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 util/mksymtbl.pl | 120 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100755 util/mksymtbl.pl

(limited to 'util/mksymtbl.pl')

diff --git a/util/mksymtbl.pl b/util/mksymtbl.pl
new file mode 100755
index 0000000..47941da
--- /dev/null
+++ b/util/mksymtbl.pl
@@ -0,0 +1,120 @@
+#!/usr/bin/env perl
+#
+# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# See the COPYRIGHT file distributed with this work for additional
+# information regarding copyright ownership.
+
+use strict;
+use diagnostics;
+$^W = 1;
+
+my $rev = '$Id$';
+$rev =~ s/\$//g;
+$rev =~ s/,v//g;
+$rev =~ s/Id: //;
+
+use Getopt::Std;
+my %options;
+getopts('i:o:', \%options);
+
+my ($binname, $need_uscorefix, $outputfile, $nsyms, $ostype, $nm_prog);
+my %symmap;
+
+$binname = $ARGV[0];
+$need_uscorefix = 0;
+if ($options{'o'}) {
+	$outputfile = $options{'o'};
+} else {
+	$outputfile = "symtbl.c";
+}
+
+# OS-depending configuration
+$nm_prog = "nm";
+$ostype = `uname -s`;
+chop($ostype);
+if ($ostype eq "SunOS" || $ostype eq "HP-UX") {
+	$nm_prog = "/usr/ccs/bin/nm -x"
+}
+
+if ($options{'i'}) {
+	open(SYMBOLS, $options{'i'}) || die "failed to open $options{'i'}";
+} else {
+	open(SYMBOLS, "$nm_prog $binname |") ||
+	    die "failed to invoke utility to get symbols";
+}
+open(TBLFILE, ">$outputfile") || die "failed to open output file: $outputfile";
+
+$nsyms = 0;
+while (<SYMBOLS>) {
+	my ($addr, $symbol) = (0, "");
+	if ($ostype eq "SunOS") {
+		if (/\[\d*\]\s*\|\s*0x([0-9a-f]*)\|\s*0x[0-9a-f]*\|FUNC\s*(.*)\|([^|]+)$/) {
+			next if ($2 =~ /UNDEF/); # skip undefined symbols
+			$addr = $1;
+			$symbol = $3;
+			chop($symbol);
+		}
+	} elsif ($ostype eq "HP-UX") {
+		if (/(\S*)\s*\|0x([0-9a-f]*)\|([^|]*\|entry|extern\|code)/) {
+			$addr = $2;
+			$symbol = $1;
+			# this filter catches a massive number of awkward
+			# symbols such as "$START$".  we are not interested in
+			# those and ignore them.
+			next if ($symbol =~ /\$/);
+		}
+	} else {
+		# *BSDs, Linux, etc.
+		if (/([0-9a-f]*)\s[tT]\s(.*)/) {
+			($addr, $symbol) = ($1, $2);
+			# heuristics: some compilers add a "_" to all program
+			# defined symbols.  Detect and fix it for a well known
+			# symbol of "main".
+			$need_uscorefix = 1 if ($symbol eq "_main");
+		}
+	}
+	if ($symbol ne "") {
+		# XXX: HP-UX's nm can produce a duplicate entry for the same
+		# address.  Ignore duplicate entries except the first one.
+		next if ($symmap{$addr});
+
+		$symmap{$addr} = $symbol;
+		$nsyms++;
+	}
+}
+
+sub lhex {
+	my $la = substr($a, -8);
+	my $lb = substr($b, -8);
+	my $ha = substr($a, 0, length($a) - length($la));
+	my $hb = substr($b, 0, length($b) - length($lb));
+	$ha = "0" if ($ha eq "");
+	$ha = "0" if ($hb eq "");
+	if (hex($ha) != hex($hb)) {
+		$la = $ha;
+		$lb = $hb;
+	}
+	hex($la) <=> hex($lb)
+}
+
+print TBLFILE "/*\n * Generated by $rev \n */\n";
+print TBLFILE "#include <isc/backtrace.h>\n";
+print TBLFILE "const int isc__backtrace_nsymbols = $nsyms;\n";
+print TBLFILE "const isc_backtrace_symmap_t isc__backtrace_symtable[] = {\n";
+foreach (sort lhex keys(%symmap)) {
+	my ($addr, $symbol) = ($_, $symmap{$_});
+	if ($need_uscorefix && $symbol =~ /^_(.*)/) {
+		$symbol = $1;
+	}
+	print TBLFILE "\t{ (void *)0x$addr, \"$symbol\" },\n";
+}
+print TBLFILE "\t{ (void *)0x0, \"\" },\n";
+print TBLFILE "};\n";
+
+close(TBLFILE);
+close(SYMBOLS);
-- 
cgit v1.2.3