#!/bin/sh
#
# Copyright 2002 Sun Microsystems, Inc.  All Rights Reserved.
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# This code is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 only, as
# published by the Free Software Foundation.
#
# This code is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# version 2 for more details (a copy is included in the LICENSE file that
# accompanied this code).
#
# You should have received a copy of the GNU General Public License version
# 2 along with this work; if not, write to the Free Software Foundation,
# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
#
# Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
# CA 95054 USA or visit www.sun.com if you need additional information or
# have any questions.
#  
#

#  jdb is a .c file that seems to discard the setting of CLASSPATH.
# So, we have to run jdb by calling java directly :-(

# License file for development version of dbx
LM_LICENSE_FILE=7588@extend.eng:/usr/dist/local/config/sparcworks/license.dat:7588@setlicense
export LM_LICENSE_FILE

doUsage()
{
   cat <<EOF
Usage:  runjdb.sh corefile -jdk jdk-pathname -sa sa-pathname
    sa-pathname is the path of a JDI-SA build dir.
EOF
}

jdk=
javaArgs=
args=
sa=
while [ $# != 0 ] ; do
    case $1 in
      -vv)
        set -x
        ;;
     -jdk)
        jdk=$2
        shift
        ;;
     -sa)
        sa=$2
        shift
        ;;
     -help | help)
        doUsage
        exit
        ;;
     -*)
        javaArgs="$javaArgs $1"
        ;;
     *)
        if [ ! -z "$args" ] ; then
            echo "Error: Only one core file or pid can be specified"
            exit 1
        fi
        echo "$1" | grep -s '^[0-9]*$' > /dev/null
        if [ $? = 0 ] ; then
            # it is a pid
            args="$args $1"
            echo "Error: A pid is not yet allowed"
            exit 1
        else
            # It is a core.        
            # We have to pass the name of the program that produced the
            # core, and the core file itself.
            args="$1"
        fi
        ;;
   esac
   shift
done

if [ -z "$jdk" ] ; then
    echo "Error:  -jdk jdk-pathname is required"
    exit 1
fi
if [ -z "$sa" ] ; then
    echo "Error:  -sa sa-pathname is required"
    exit 1
fi

if [ -z "$args" ] ; then
    echo "Error:  a core file or pid must be specified"
    exit 1
fi

set -x
$jdk/bin/jdb -J-Xbootclasspath/a:$sa  -connect \
  sun.jvm.hotspot.jdi.SACoreAttachingConnector:core=$args,javaExecutable=$jdk/bin/java


#$jdk/bin/java -Xbootclasspath/a:$mmm/ws/merlin-sa/build/agent \
#  com.sun.tools.example.debug.tty.TTY -connect \
#  sun.jvm.hotspot.jdi.SACoreAttachingConnector:core=sagcore,javaExecutable=$jdk/bin/java
