Re: Ada exceptions

[carllp@freja.dk (Carl-Lykke Pedersen)]

u-dmfloy%sunset.utah.edu@utah-cs.UUCP (Daniel M Floyd) writes:
>I've had two messages that say "go Ada".

"Go (PL/1), MESA, CLU, ML"

PL/1:
     FACTORIAL: PROCEDURE;
	DECLARE (N, F) FIXED FIN (31) INIT (1);
	ON FINISH BEGIN;
	  PUT LIST (N, "FACTORIAL =", F);
	  PUT SKIP;
	  N = N + 1;
	  F = N * F;
	  STOP;
	  END;
	STOP;
     END FACTORIAL;

Ada:
     function DIVIDE_CHECK(X, Y: REAL) return REAL is
	begin
	  if X = 0 then
		raise SILLY;
	  else X/Y;
	  endif;
	exception
	  when NUMERIC_ERROR => return 0;
	  when SILLY => return -1;
     end;

Sorry if the syntax isn't correct. I do not have an Ada-compiler (or a PL/1-
compiler).

Regards
CLp
.