Anonymous user
Exceptions: Difference between revisions
Ada section is extended
(add some details for coldfusion) |
(Ada section is extended) |
||
Line 4:
=={{header|Ada}}==
===Define an exception===
<ada>
</ada>
===Raise an exception===
<ada>
</ada>
Re-raising once caught exception:
<ada>
...
if ... then -- Alas, cannot handle it here,
raise; -- continue propagation of
</ada>
===Handle an exception===
<ada>
▲ Foo;
Foo;
▲ exception
exception
▲ when Foo_Error =>
when Foo_Error =>
... -- do something
end Call_Foo;▼
when others =>
... -- this catches all other exceptions
</ada>
===Ada.Exceptions===
The standard package Ada.Exceptions provides a possibility to attach messages to exceptions, to get exception occurrence information and textual description of exceptions. The following example illustrates basic functionality of:
<ada>
with Ada.Exceptions; use Ada.Exceptions;
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
begin
...
Raise_Exception (Foo_Error'Identity, "This is the exception message");
..
exception
when Error : others =>
Put_Line ("Something is wrong here" & Exception_Information (Error));
end Main;
</ada>
=={{header|AppleScript}}==
===try===
| |||