Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!bloom-beacon!apple!rutgers!bellcore!texbell!killer!rpp386!ditka!qiclab!m2xenix!randy
From: randy@m2xenix.UUCP (Randy Bush)
Newsgroups: comp.lang.modula2
Subject: Re: MODULEs body
Message-ID: <219@m2xenix.UUCP>
Date: 24 Mar 89 21:09:09 GMT
Reply-To: randy@m2xenix.UUCP (Randy Bush)
Organization: Oregon Software, Portland Oregon US
Lines: 14

Almost all implementations of Modula-2 provide a library module which provides
a hook to register a termination procedure.  The simplest example might be:

DEFINITION MODULE Termination;

EXPORT QUALIFIED RegisterTermProc;

PROCEDURE RegisterTermProc ( p : PROC );
(* p will be called at program termintation, normal or abnormal.  if
   more than one p is registered, they will be called in lifo order *)

END Termination.
-- 
{ mcvax!uunet!oresoft, tektronix!percival!qiclab } !m2xenix!randy  Randy Bush