From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.0 required=3.0 tests=BAYES_20 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 21 May 93 20:27:24 GMT
From: sarge!sarge!esther@uunet.uu.net  (Esther Lumsdon)
Subject: Re: Using signal in Verdix Ada
Message-ID: <esther.738016044@sarge>
List-Id: <comp.lang.ada>

bnelson@csulx.weber.edu (Bert Nelson) writes:
>I am looking for an example of the signal routine as
>implemented in Verdix Ada.

---------- example of masking signals in VADS --------------------
with v_interrupts;
procedure tick is

-- use v_interrupts.set_interrupt_status to disable sigusr, sigint,
--  sigchild signals
--- signal 14 interferes with time slicing and delay statements in runtime.
--- several other signals interfere with a.db operations; see debugger
---- reference "set" command for details

  SIGINT  : constant := 2;
  SIGCHLD : constant := 20;
  SIGUSR1 : constant := 30;
-- to block these 3 signals, set bits 1, 19, 29 in mask.

  orig_int_status : v_interrupts.interrupt_status_t;
  new_int_status : v_interrupts.interrupt_status_t
    := 16#20080002# ;

begin
-- look at v_i_types.intr_status_s
  orig_int_status := v_interrupts.set_interrupt_status( new_int_status );
  loop
----- loops forever; gives you time to send signals to the Ada process.
  end loop;

end;
-- 
-- Esther Lumsdon, not speaking for Verdix.   esther@verdix.com
"It's time to cut bait and talk turkey.  It takes 2 snakes to cross a
puddle. You have to bale hay while the tractor is warm."
  ---- either H. Ross Perot or Dave Barry