home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / dev / obero / oberon-a / source / misc / skeleton.mod < prev    next >
Encoding:
Text File  |  1994-06-07  |  1010 b   |  53 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile$
  4.   Description:
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision$
  8.       $Author$
  9.         $Date$
  10.  
  11.   Log entries are at the end of the file.
  12.  
  13. *************************************************************************)
  14.  
  15. MODULE Skeleton;
  16.  
  17. IMPORT SYS := SYSTEM;
  18.  
  19. VAR
  20.   OldCleanup : PROCEDURE (rc : LONGINT);
  21.  
  22. (*------------------------------------*)
  23. PROCEDURE* Cleanup (rc : LONGINT);
  24.  
  25. BEGIN (* Cleanup *)
  26.   IF OldCleanup # NIL THEN OldCleanup (rc) END
  27. END Cleanup;
  28.  
  29. (*------------------------------------*)
  30. PROCEDURE Init ();
  31.  
  32. BEGIN (* Init *)
  33.   OldCleanup := NIL;
  34.   SYS.SETCLEANUP (Cleanup, OldCleanup);
  35. END Init;
  36.  
  37. (*------------------------------------*)
  38. PROCEDURE Main ();
  39.  
  40. BEGIN (* Main *)
  41. END Main;
  42.  
  43. BEGIN (* Skeleton *)
  44.   Init ();
  45.   Main ();
  46. END Skeleton.
  47.  
  48. (*************************************************************************
  49.  
  50.   $Log$
  51. *************************************************************************)
  52.  
  53.