home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / obero / oberon-a / source / misc / skeleton.mod < prev    next >
Encoding:
Text File  |  1995-07-02  |  1.2 KB  |  59 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: Skeleton.mod $
  4.   Description:
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 1.2 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 01:05:15 $
  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: Skeleton.mod $
  51. # Revision 1.2  1995/01/26  01:05:15  fjc
  52. # - Release 1.5
  53. #
  54. # Revision 1.1  1994/09/25  18:25:17  fjc
  55. # - Uses new syntax for external code declarations
  56. #
  57. *************************************************************************)
  58.