Bugs item #408136, was opened at 2001-03-12 20:13
You can respond by visiting:
http://sourceforge.net/tracker/?func=detail&atid=110493&aid=408136&group_id=10493
Category: run-time
Group: None
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Brian D. Carlstrom (bdc)
Assigned to: Olin Shivers (olin-shivers)
Summary: can't catch SIGALRM
Initial Comment:
Resent-Date: Fri, 2 Jan 1998 20:50:15 -0500
Resent-From: Brian D. Carlstrom
<bdc@martigny.ai.mit.edu>
Resent-To: scsh-list@martigny.ai.mit.edu
From: Kevin Esler <esler@Rational.com.nospam>
To: scsh-news@martigny.ai.mit.edu
Subject: I can't catch SIGALRM
Date: Fri, 2 Jan 1998 21:02:59 GMT
Any idea why I can catch SIGINT, but not SIGALRM, as
illustrated by the following Scsh-script:
>---------------------- bug.scsh ----------------------
---<
#! /usr/local/bin/scsh -s
!#
(define main
(lambda ()
;; Set an alarm handler:
;;
(set-interrupt-handler (signal->interrupt
signal/alrm)
(lambda (num)
(format #t "alarm
caught\n")
(exit 0)))
;; Set a keyboard interrupt hander:
;;
(set-interrupt-handler interrupt/keyboard
(lambda (num)
(format #t "keyboard
interrupt caught\n")
(exit 0)))
;; Schedule a SIGALRM 1-second hence:
;;
(itimer 1)
;; Loop forever:
;;
(let loop ()
(begin
(format #t "looping\n")
(loop)))))
(main)
--
Kevin Esler Rational Software
20 Maguire Road
Tel: (617) 676-2626 Lexington, MA 02173-3104
Fax: (617) 676-2600
mailto:esler@Rational.com WWW:
http://www.Rational.com/
----------------------------------------------------------------------
>Comment By: Martin Gasbichler (mainzelm)
Date: 2001-09-17 11:49
Message:
Logged In: YES
user_id=17553
This is impossible to fix in 0.5.X and works in 0.6.
----------------------------------------------------------------------
You can respond by visiting:
http://sourceforge.net/tracker/?func=detail&atid=110493&aid=408136&group_id=10493
|