82 lines
2.6 KiB
Bash
Executable file
82 lines
2.6 KiB
Bash
Executable file
#!/bin/bash
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
set -o pipefail -o errexit
|
|
|
|
if [ "$2" != types ] && [ "$2" != functions ]; then
|
|
echo "Usage: $0 libkres (types|functions)" >&2
|
|
echo " and input identifiers, one per line." >&2
|
|
echo " You need debug symbols in the library." >&2
|
|
echo
|
|
echo " If you call this on a type that's a typedef, it gets expanded." >&2
|
|
echo " To avoid that, prefix the identifier with 'typedef '." >&2
|
|
exit 1
|
|
fi
|
|
|
|
if ! command -v gdb >/dev/null; then
|
|
echo "Failed to find gdb" >&2
|
|
exit 1
|
|
fi
|
|
|
|
if ! command -v sed >/dev/null; then
|
|
echo "Failed to find GNU sed" >&2
|
|
exit 1
|
|
fi
|
|
|
|
if ! sed --version | head -1 | grep -q "GNU sed"; then
|
|
echo "GNU sed required to run this script" >&2
|
|
fi
|
|
|
|
# be very precise with the directories for libraries to not pick wrong library
|
|
case "$1" in
|
|
libknot) library="$(PATH="$(pkg-config libknot --variable=libdir)" command -v "$1.so")" ;;
|
|
libzscanner) library="$(PATH="$(pkg-config libzscanner --variable=libdir)" command -v "$1.so")" ;;
|
|
*) library="$(command -v "$1")" # use absolute path to library
|
|
esac
|
|
|
|
if [ -z "$library" ]; then
|
|
echo "$1 not found. Note: only .so platforms work currently." >&2
|
|
exit 1
|
|
fi
|
|
|
|
# Let's use an array to hold command-line arguments, to simplify quoting.
|
|
GDB=(gdb)
|
|
GDB+=(-n -quiet -batch "-symbols=$library")
|
|
GDB+=(-iex "set width unlimited" -iex "set max-value-size unlimited")
|
|
|
|
grep -v '^#\|^$' | while read -r ident; do
|
|
if [ "$2" = functions ]; then
|
|
output="$("${GDB[@]}" --ex "info functions ^$ident\$" \
|
|
| sed '0,/^All functions/ d; /^File .*:$/ d')"
|
|
else # types
|
|
case "$ident" in
|
|
struct\ *|union\ *|enum\ *)
|
|
output="$("${GDB[@]}" --ex "ptype $ident" \
|
|
| sed '0,/^type = /s/^type = /\n/; $ s/$/;/')"
|
|
;;
|
|
typedef\ *) # typedef that shouldn't be expanded
|
|
output="$("${GDB[@]}" --ex "info types ^"$(echo "$ident" | sed 's/^typedef //')"\$" \
|
|
| sed -e '0,/^File .*:$/ d' -e '/^File .*:$/,$ d')"
|
|
# we need to stop early to remove ^^ multiple matches
|
|
;;
|
|
*) # we assume it's a typedef that should be expanded
|
|
output="$("${GDB[@]}" --ex "ptype $ident" \
|
|
| sed "0,/^type = /s/^type = /typedef /; $ s/$/ $ident;/")"
|
|
;;
|
|
esac
|
|
fi
|
|
# LuaJIT FFI blows up on "uint" type
|
|
output="$(echo "$output" | sed 's/\buint\b/unsigned int/g')"
|
|
# GDB 8.2+ added source line prefix to output
|
|
output="$(echo "$output" | sed 's/^[0-9]\+:[[:space:]]*//g')"
|
|
# use tabs instead of spaces
|
|
output="$(echo "$output" | sed 's/ /\t/g')"
|
|
|
|
# abort on empty output
|
|
if [ -z "$(echo "$output" | tr -d "\n;")" ]; then
|
|
echo "Failed to find cdef of $ident" >&2
|
|
exit 1
|
|
fi
|
|
echo "$output" | grep -v '^$'
|
|
done
|
|
|
|
exit 0
|