granicus.if.org Git - strace/blob - mpers.sh

   1 #!/bin/sh -e
   2 #
   3 # Copyright (c) 2015 Elvira Khabirova <lineprinter0@gmail.com>
   4 # Copyright (c) 2015-2019 The strace developers.
   5 # All rights reserved.
   6 #
   7 # SPDX-License-Identifier: LGPL-2.1-or-later
   8
   9 [ "x${D:-0}" != x1 ] || set -x
  10
  11 export LC_ALL=C
  12
  13 MPERS_AWK="${0%/*}/mpers.awk"
  14 ARCH_FLAG=$1
  15 CC_ARCH_FLAG=$2
  16 PARSER_FILE=$3
  17
  18 READELF="${READELF:-readelf}"
  19 CC="${CC-gcc}"
  20 CFLAGS="$CFLAGS -gdwarf-2 -c"
  21 CPP="${CPP-$CC -E}"
  22 CPPFLAGS="$CPPFLAGS -MM -MG"
  23
  24 VAR_NAME='mpers_target_var'
  25 BITS_DIR="mpers-${ARCH_FLAG}"
  26
  27 mkdir -p ${BITS_DIR}
  28 set -- $(sed -r -n \
  29         's/^#[[:space:]]*include[[:space:]]+DEF_MPERS_TYPE\(([^)[:space:]]*)\)$/\1/p' \
  30                 "${PARSER_FILE}")
  31 for m_type; do
  32         f_h="${BITS_DIR}/${m_type}.h"
  33         f_c="${BITS_DIR}/${m_type}.c"
  34         f_i="${BITS_DIR}/${m_type}.i"
  35         f_o="${BITS_DIR}/${m_type}.o"
  36         f_d1="${BITS_DIR}/${m_type}.d1"
  37         f_d2="${BITS_DIR}/${m_type}.d2"
  38         sed -e '
  39                 /DEF_MPERS_TYPE('"${m_type}"')$/n
  40                 /DEF_MPERS_TYPE/d
  41                 /^[[:space:]]*#[[:space:]]*include[[:space:]]*"xlat\//d
  42                 /^#[[:space:]]*include[[:space:]][[:space:]]*MPERS_DEFS$/ {s//'"${m_type} ${VAR_NAME}"';/;q}
  43                 ' "${PARSER_FILE}" > "${f_c}"
  44         $CPP $CPPFLAGS "${f_c}" > "${f_i}"
  45         grep -F -q "${m_type}.h" "${f_i}" ||
  46                 continue
  47         sed -i -e '/DEF_MPERS_TYPE/d' "${f_c}"
  48         $CC $CFLAGS $CC_ARCH_FLAG "${f_c}" -o "${f_o}"
  49         $READELF --debug-dump=info "${f_o}" > "${f_d1}"
  50         sed -r -n '
  51                 /^[[:space:]]*<1>/,/^[[:space:]]*<1><[^>]+>: Abbrev Number: 0/!d
  52                 /^[[:space:]]*<[^>]*><[^>]*>: Abbrev Number: 0/d
  53                 s/^[[:space:]]*<[[:xdigit:]]+>[[:space:]]+//
  54                 s/^[[:space:]]*((<[[:xdigit:]]+>){2}):[[:space:]]+/\1\n/
  55                 s/[[:space:]]+$//
  56                 p' "${f_d1}" > "${f_d2}"
  57         gawk -v VAR_NAME="$VAR_NAME" -v ARCH_FLAG="${ARCH_FLAG}" \
  58                 -f "$MPERS_AWK" "${f_d2}" > "${f_h}"
  59 done