#   Copyright (C) 1995 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# This program 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 for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */

if $tracelevel then {
	strace $tracelevel
}

set prms_id 0
set bug_id 0

gdb_reinitialize_dir $srcdir/$subdir
set binfile $objdir/$subdir/sigall

if ![file exists $binfile] then {
    perror "$binfile does not exist."
    return 0
}

# Make the first signal SIGABRT because it is always supported.
set sig_supported 1
set thissig "ABRT"

proc test_one_sig {nextsig} {
    global sig_supported
    global prompt
    global thissig

    set this_sig_supported $sig_supported
    gdb_test "handle SIG$thissig stop print" \
	"SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes"
    gdb_test "b handle_$thissig" "Breakpoint \[0-9\]"
    gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]"
    if $this_sig_supported then {
	if {"$thissig" == "POLL"} then {
	    # If SIGIO and SIGPOLL are the same signal it gets reported
	    # as SIGIO; it is a feature for GDB to always use the "preferred"
	    # name (the POSIX name if there is one, etc.); I suspect that is
	    # SIGIO in this case but I'm not sure.
	    set pattern "(POLL|IO)"
	} else {
	    set pattern $thissig
	}
	gdb_test "continue" \
	    "Continuing.*Program received signal SIG$pattern" \
	    "get signal $thissig"
    }
    if {"$thissig" == "IO"} then {
	# SIGIO and SIGPOLL might be the same signal.
	# If so we end up at handle_POLL because we
	# establish the handler for SIGPOLL after SIGIO.
	set pattern "Breakpoint.*handle_(POLL|IO)"
    } else {
	set pattern "Breakpoint.*handle_$thissig" 
    }
    gdb_test "continue" $pattern "send signal $thissig"
    send "continue\n"
    expect {
	-re "Breakpoint.*gen_$nextsig.*kill.*$prompt $" {
	    pass "advance to $nextsig"
	    set sig_supported 1
	}
	-re "Breakpoint.*gen_$nextsig.*handle.*$prompt $" {
	    pass "advance to $nextsig"
	    set sig_supported 0
	}
	-re ".*$prompt $" { fail "advance to $nextsig" }
	default { fail "advance to $nextsig (eof or timeout)" }
    }
    set thissig $nextsig
}

gdb_load $binfile

runto gen_ABRT
test_one_sig HUP
test_one_sig QUIT
test_one_sig ILL
test_one_sig EMT
test_one_sig FPE
test_one_sig BUS
test_one_sig SEGV
test_one_sig SYS
test_one_sig PIPE
test_one_sig ALRM
test_one_sig URG
test_one_sig TSTP
test_one_sig CONT
test_one_sig CHLD
test_one_sig TTIN
test_one_sig TTOU
test_one_sig IO

# Set an extra breakpoint at handle_POLL, to deal with the fact that
# SIGIO and SIGPOLL might be the same signal.

gdb_test "b handle_POLL" "Breakpoint \[0-9\]" \
    "set extra handle_POLL breakpoint"

test_one_sig XCPU
test_one_sig XFSZ
test_one_sig VTALRM
test_one_sig PROF
test_one_sig WINCH
test_one_sig LOST
test_one_sig USR1
test_one_sig USR2
test_one_sig PWR
test_one_sig POLL
test_one_sig WIND
test_one_sig PHONE
test_one_sig WAITING
test_one_sig LWP
test_one_sig DANGER
test_one_sig GRANT
test_one_sig RETRACT
test_one_sig MSG
test_one_sig SOUND
test_one_sig SAK
test_one_sig PRIO
test_one_sig 33
test_one_sig 34
test_one_sig 35
test_one_sig 36
test_one_sig 37
test_one_sig 38
test_one_sig 39
test_one_sig 40
test_one_sig 41
test_one_sig 42
test_one_sig 43
test_one_sig 44
test_one_sig 45
test_one_sig 46
test_one_sig 47
test_one_sig 48
test_one_sig 49
test_one_sig 50
test_one_sig 51
test_one_sig 52
test_one_sig 53
test_one_sig 54
test_one_sig 55
test_one_sig 56
test_one_sig 57
test_one_sig 58
test_one_sig 59
test_one_sig 60
test_one_sig 61
test_one_sig 62
test_one_sig 63
test_one_sig TERM

# The last signal (SIGTERM) gets handled slightly differently because
# we are not setting up for another test.
gdb_test "handle SIGTERM stop print" \
    "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes"
gdb_test "b handle_TERM" "Breakpoint \[0-9\]"
gdb_test "continue" \
    "Continuing.*Program received signal SIGTERM" \
    "get signal TERM"
gdb_test "continue" "Breakpoint.*handle_TERM" "send signal TERM"
gdb_test "continue" "Program exited normally" "continue to sigall exit"

return 0