From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.1 required=5.0 tests=BAYES_00,INVALID_MSGID,
	UNRESOLVED_TEMPLATE autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,1891a615e17f3e4c,start
X-Google-Attributes: gid103376,public
From: "RWTMS1::SSEVAX::GRAZIANIA"
Subject: Determining exception name in DEC Ada
Date: 1995/04/06
Message-ID: <INFO-ADA%95040611415951@VM1.NODAK.EDU>#1/1
X-Deja-AN: 100939426
sender: Ada programming language <INFO-ADA%NDSUVM1.BitNet@pucc.PRINCETON.EDU>
comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
newsgroups: comp.lang.ada
Date: 1995-04-06T00:00:00+00:00
List-Id: <comp.lang.ada>

        Using DEC Ada on VAX/VMS systems, is there a way to determine which
exception has occurred without having to specifically trap it within the
exception handler.
        For example, I'd like to be able to do something like:
begin
    [blah]
    [blah]
    [blah]
exception
    when others =>
        text_io.put_line ("A " & exception_name & " has occurred.");
end;



        I don't want to have to do something like:
begin
    [blah]
    [blah]
    [blah]
exception
    when constraint_error =>
        text_io.put_line ("A constraint_error has occurred.");
    when numeric_error =>
        text_io.put_line ("A numeric_error has occurred.");
    when program_error =>
        text_io.put_line ("A program_error has occurred.");
    when others =>
        text_io.put_line ("A exception occurred and I have no idea which one.");
end;



Thanks in advance.
Alain Graziani
graziani%rwtms1.ssevax.decnet@consrt.rockwell.com
"I feel the need for speed."

International Space Station Alpha
Rocketdyne Division
Rockwell International