32 lines
501 B
OpenEdge ABL
32 lines
501 B
OpenEdge ABL
|
PROCEDURE dbug (number : INTEGER);
|
||
|
|
BEGIN
|
||
|
|
writeln('dbug value ',number)
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE dbugl (number : LONG);
|
||
|
|
BEGIN
|
||
|
|
writeln('long dbug value ',number);
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE algol68; EXTERN;
|
||
|
|
PROCEDURE encaps(PROCEDURE p;PROCEDURE q(n:integer));EXTERN;
|
||
|
|
PROCEDURE trap(err: integer); EXTERN;
|
||
|
|
PROCEDURE abort; EXTERN;
|
||
|
|
|
||
|
|
PROCEDURE traphandler (n:INTEGER);
|
||
|
|
BEGIN
|
||
|
|
writeln('***Trap ',n:0,' has occured');
|
||
|
|
trap(n);
|
||
|
|
abort;
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE mainprog;
|
||
|
|
BEGIN
|
||
|
|
algol68
|
||
|
|
END;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
encaps(mainprog,traphandler)
|
||
|
|
END.
|
||
|
|
|