home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / adaada.zip / ADAADA.ZIP / SRC / ADA_1 / ADA_1.ADA < prev   
Text File  |  1994-10-10  |  2KB  |  81 lines
  1. -- Copyright (c) 1994 ARINC Research Corporation
  2. -- From material copyright (c) 1991, 1992 Premia Corporation
  3. --
  4. -- This material may be reproduced by or for the US Government pursuant 
  5. -- to the copyright license under DFAR Clause 252.227-7013 (1988)
  6. --
  7. -- Developed for US Air Force under contract no. F41608-90-D-0544-0005
  8. --
  9. -- MODIFICATIONS
  10. --   94/06 - J. Neuse, SD/OSE/EA  - Initial code
  11. --   94/10 - O. Sluder, SD/OSE/EA - Cleanup
  12.  
  13. with WINTYPES;
  14.  
  15. -- *******************
  16. -- *                   *
  17. -- *  ADA_SUPPORT_1  *  SPEC
  18. -- *                   *
  19. -- *******************
  20.  
  21. package ADA_SUPPORT_1 is
  22.  
  23.   -- The following pragmas are required by the Meridian OpenAda for
  24.   -- Windows 2.0 compiler in the package spec and body of code to be 
  25.   -- used in a DLL, otherwise the application will general protection 
  26.   -- fault when the DLL is loaded
  27.   pragma SUPPRESS (elaboration_check);
  28.   pragma SUPPRESS (storage_check);
  29.  
  30.   -- The following pragma is required by the Meridian OpenAda for 
  31.   -- Windows 2.0 compiler in the package spec of code to used in a DLL
  32.   -- to properly export function names; its scope continues to the next 
  33.   -- use of the pragma
  34.   pragma runtime_names (windows);
  35.  
  36.   -- .............
  37.   -- .           .
  38.   -- .  LibMain  .  SPEC
  39.   -- .           .
  40.   -- .............
  41.  
  42.   function LibMain (hModule     : in WINTYPES.HANDLE;
  43.                     wDataSeg    : in WINTYPES.WORD;
  44.                     cbHeapSize  : in WINTYPES.WORD;
  45.                     lpszCmdLine : in WINTYPES.LPSTR) return INTEGER;
  46.  
  47.   -- .........
  48.   -- .       .
  49.   -- .  WEP  .  SPEC
  50.   -- .       .
  51.   -- .........
  52.  
  53.   function WEP (bSystemExit : in INTEGER) return INTEGER;
  54.  
  55.   -- ..........
  56.   -- .        .
  57.   -- .  Init  .  SPEC
  58.   -- .        .
  59.   -- ..........
  60.  
  61.   procedure Init;
  62.  
  63.   -- .........................
  64.   -- .                               .
  65.   -- .  Ada_Language_Colors  .  SPEC
  66.   -- .                               .
  67.   -- .........................
  68.  
  69.   procedure Ada_Language_Colors (Numlines : in out Long_Integer);
  70.  
  71.   -- ................................
  72.   -- .                                      .
  73.   -- .  Ada_Language_Colors_Update  .  SPEC
  74.   -- .                                         .
  75.   -- ................................
  76.  
  77.   procedure Ada_Language_Colors_Update (Firstline : in Long_Integer;
  78.                                         Lastline  : in Long_Integer);
  79.  
  80. end ADA_SUPPORT_1;
  81.