freepascal.compiler/packages/gdbint/gen-gdblib-inc.sh

#!/usr/bin/env bash

if [ "$1" != "" ]; then
  destdir=$1
fi
if [ "${PATHEXT}" != "" ]; then
  EXEEXT=.exe
  if [ "${DJDIR}" != "" ]; then
    libdir=${DJDIR}/lib
  else
    libdir=/lib
  fi
else
  EXEEXT=
  libdir=/lib
fi

echo "Deleting gdb${EXEEXT} to force recompile"
rm -f gdb${EXEEXT}
echo "Rebuilding gdb${EXEEXT}"
MAKE=`which gmake`

if [ "${MAKE}" == "" ]; then
  MAKE=make
fi

${MAKE} gdb${EXEEXT} | tee make.log

gdb_full_version=`sed -n "s:.*version.*\"\(.*\)\".*:\1:p" version.c`
gdbcvs=`sed -n "s:.*version.*\"\(.*\)cvs\(.*\)\".*:\1cvs\2:p" version.c`
gdb_version1=`sed -n "s:.*version.*\"\([0-9]*\)\.\([0-9]*\).*:\1:p" version.c`
gdb_version2=`sed -n "s:.*version.*\"\([0-9]*\)\.\([0-9]*\).*:\2:p" version.c`
gdb_version=`sed -n "s:.*version.*\"\([0-9]*\)\.\([0-9]*\).*:\1.\2:p" version.c`

echo found full version is ${gdb_full_version}
echo found version is ${gdb_version}
if [ ${gdb_version2} -lt 10 ]; then
  gdbversion=${gdb_version1}0${gdb_version2}
else
  gdbversion=${gdb_version1}${gdb_version2}
fi
if [ "${destdir}" == "" ]; then
  destdir=./libgdb
fi

if ! [ -d ${destdir} ]; then
  mkdir ${destdir}
fi

cat make.log | gawk '
BEGIN {
doprint=0
}
# We look for the compilation line
# either gcc or cc
/cc / { doprint=1; }

{
if ( doprint == 1 ) {
  print $0
}
}

! /\\$/ { doprint=0; }
' | tee comp-cmd.log
# Try to locate all libraries
echo Creating ./copy-libs.sh script
cat comp-cmd.log |gawk -v destdir=${destdir} -v libdir=${libdir} '
BEGIN {
  print "#!/usr/bin/env bash"
  print "# copy-libs.sh generated by awk script"
  print "if [ \"$1\" != \"\" ]; then"
  print "  destdir=$1"
  print " ginstall -d ${destdir}"
  print "else"
  print "  echo $0 destdir"
  print "  echo destdir should be the location where libgdb.a"
  print "  echo and all other archives should be copied"
  print "  exit"
  print "fi"
  print "# Copy gdblib.inc file"
  print "cp gdblib.inc ${destdir}"
}

{
  nb = split ($0,list);

  for (i=1; i<=nb; i++) {
  if ( list[i] ~ /lib[^ ]*\.a/ ) {
  staticlib = gensub (/([^ ]*)(lib[^ ]*\.a)/,"\\1\\2 ","g",list[i]);
  print "cp " staticlib " ${destdir}";
  }
  if ( list[i] ~ /lib[^ ]*\.so/ ) {
  dynamiclib = gensub (/([^ ]*)(lib[^ ]*\.so)/,"\\1\\2 ","g",list[i]);
  print "echo " dynamiclib " found";
  }
  if ( list[i] ~ /-l/ ) {
  systemlib = gensub (/-l([^ ]*)/,"lib\\1.a ","g",list[i]);
  print "systemlib=`find " libdir " -name " systemlib "`" ;
  print "if [ \"${systemlib}\" != \"\" ]; then";
  print "echo System lib found: ${systemlib}";
  print "cp ${systemlib} ${destdir}";
  print "else";
  print "echo Library " systemlib " not found, shared library assumed";
  print "fi";
  }
  }
}
' | tee copy-libs.sh
chmod u+x ./copy-libs.sh
# For later

echo Creating ./gdblib.inc file
# Generate gdblib.inc file
cat comp-cmd.log |gawk -v gdbcvs=${gdbcvs} -v destdir=${destdir} -v gdbversion=${gdbversion} '
BEGIN {
  use_mingw=0;
  print "{ libgdb.inc file generated by awk script }"
  print "{$define GDB_V" gdbversion " }"
  if (gdbcvs) {
    print "{$define GDB_CVS}"
  }
  print "{$ifdef COMPILING_GDBINT_UNIT }"
}

{
  nb = split ($0,list);

  for (i=1; i<=nb; i++) {
  if ( list[i] ~ /lib[^ ]*\.a/ ) {
    staticlib = gensub (/([^ ]*)(lib[^ ]*\.a)/,"{$LINKLIB \\2} { found in \\1 }","g",list[i]);
    print staticlib;
    if ( list[i] ~/mingw/ ) {
    use_mingw=1
    }
  }
  if ( list[i] ~ /lib[^ ]*\.so/ ) {
    dynamiclib = gensub (/([^ ]*)(lib[^ ]*\.so)/,"{$LINKLIB \\2} { found in \\1 }","g",list[i]);
    librarypath = gensub (/([^ ]*)(lib[^ ]*\.so)/,"{$LIBRARYPATH \\1} { for \\2 }","g",list[i]);
    print dynamiclib;
    print librarypath;
  }
  if ( list[i] ~ /-l/ ) {
    systemlib = gensub (/-l([^ ]*)/,"{$LINKLIB \\1} { with -l gcc option}","g",list[i]);
    print systemlib;
  }
  }
}
END {
  print "{$endif COMPILING_GDBINT_UNIT }"
  print "{$undef NotImplemented}"
  if ( use_mingw == 1 ) {
    print "{$define USE_MINGW_GDB}"
  }
}
' | tee  gdblib.inc