Mail Archives: djgpp/1998/06/18/17:16:01
On Thu, 18 Jun 1998 17:06:43, Gautier de Montmollin
<gautier DOT demontmollin AT maths DOT unine DOT ch> wrote:
> exceptions are among the basic structures of the language, from the 1st version.
> Examples:
>
> 1)
> begin
> (...)
> if A_sym then -- LtL (Cholesky), cas symetrique
> DPBTRF(upper, N=> nb_eq_2, KD=> lda-1, AB=> AB, LDAB=> lapmax);
> else -- LU
> DGBTRF(M=> nb_eq_2,N=> nb_eq_2, KL=> lda-1, KU=>lda-1,
> AB=> AB, LDAB=> lapmax, IPIV=> pivots);
> end if;
> exception
> when Computation_error=> Put("pivot 0, ligne / mineur <0 d'ordre");
> Put(info); raise; -- re-raise Computation_error after message
> end;
>
> 2)
> begin
> (...)
> exception
> when Out_Of_Range | Out_Of_Buffer_Range => null; -- SVGA
> end;
>
> --
> Gautier
I see.. But I don't know ADA :) All I know is Basic, Pascal, C, C++.
Gili
- Raw text -