#! /bin/sh
# $Id$

# Change uses of pragma Debug to use the two-argument version of the pragma.
# This is supported in GNAT Pro 5.04a1, GNAT GPL 2006, but not in FSF GCC 4.1.
# When we move up our minimal FSF GCC version, we can commit this to main
# sources.

set -e

if [ $# -gt 1 ]; then
  echo "Usage: $0 [<file>]"
  exit 1
fi

if [ $# = 0 ]; then
  marker="CONDITIONAL_PRAGMA_DEBUG_ENABLED"
  trap "rm -f $marker.NEW" 0

  if [ ! -f MANIFEST ]; then
    echo "This script must be run from the top level source directory"
    exit 1
  fi
  if [ -f "$marker" ]; then
    echo "Conditional pragma Debug is already enabled"
    exit 1
  fi

  echo "Conditional pragma Debug is now enabled in:" > $marker.NEW
  DOLIST='find src -type f -name "*.adb"'
else
  DOLIST='echo "$1"'
fi

eval "$DOLIST" | while read f; do
  rm -f "$f.new"
  awk '
/pragma Debug/ { pragma_debug_seen = 1; }
pragma_debug_seen && /pragma Unreferenced/ {
  sub (/pragma Unreferenced.*--/, "--");
  pragma_debug_seen = 0;
}
pragma_debug_seen && /\(O1/ { sub (/\(O1/, "(C1, O1"); pragma_debug_seen = 0; }
pragma_debug_seen && /\(O2/ { sub (/\(O2/, "(C2, O2"); pragma_debug_seen = 0; }
pragma_debug_seen && /\(O/ { sub (/\(O/, "(C, O"); pragma_debug_seen = 0; }
pragma_debug_seen && /;/ { pragma_debug_seen = 0; }
{print}' < "$f" > "$f.new"
  #awk '{if (length($0) > 79) { print NR; }}' < $f.new | sed "s,^,$f:,"
  mv -f "$f.new" "$f"
  if [ -f $marker.NEW ]; then
    echo $f >> $marker.NEW
  fi
done

if [ $# = 0 ]; then
  echo "Conditional pragma Debug is now enabled"
  mv $marker.NEW $marker
fi