home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / adaada.zip / ADAADA.ZIP / SRC / CW_ADA / CW_EDSY.ADA < prev    next >
Text File  |  1994-10-12  |  3KB  |  117 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 SYSTEM;
  14.  
  15. -- *************
  16. -- *           *
  17. -- *  CW_EDSY  *  SPEC
  18. -- *           *
  19. -- *************
  20.  
  21. package CW_EDSY 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.   -- included in a DLL, or an application calling the DLL will 
  26.   -- general protection fault
  27.   pragma SUPPRESS (elaboration_check);
  28.   pragma SUPPRESS (storage_check);
  29.  
  30.   -- .....................
  31.   -- .                   .
  32.   -- .  ColorAlternate1  .  SPEC
  33.   -- .                   .
  34.   -- .....................
  35.  
  36.   function ColorAlternate1 (color : in integer) return integer;
  37.  
  38.   -- .....................
  39.   -- .                   .
  40.   -- .  ColorAlternate2  .  SPEC
  41.   -- .                   .
  42.   -- .....................
  43.  
  44.   function ColorAlternate2 (color : in integer) return integer;
  45.  
  46.   -- .....................
  47.   -- .                   .
  48.   -- .  ColorAlternate3  .  SPEC
  49.   -- .                   .
  50.   -- .....................
  51.  
  52.   function ColorAlternate3 (color : in integer) return integer;
  53.  
  54.   -- .....................
  55.   -- .                   .
  56.   -- .  ColorAlternate4  .  SPEC
  57.   -- .                   .
  58.   -- .....................
  59.  
  60.   function ColorAlternate4 (color : in integer) return integer;
  61.  
  62.   -- ...................
  63.   -- .                 .
  64.   -- .  ColorComments  .  SPEC
  65.   -- .                 .
  66.   -- ...................
  67.  
  68.   function ColorComments (color : in integer) return integer;
  69.  
  70.   -- ...................
  71.   -- .                 .
  72.   -- .  ColorKeywords  .  SPEC
  73.   -- .                 .
  74.   -- ...................
  75.  
  76.   function ColorKeywords (color : in integer) return integer;
  77.  
  78.   -- .....................
  79.   -- .                   .
  80.   -- .  HashCreateTable  .  SPEC
  81.   -- .                   .
  82.   -- .....................
  83.  
  84.   function HashCreateTable (entries  : in integer;
  85.                             datasize : in integer;
  86.                             mode     : in integer) return SYSTEM.ADDRESS;
  87.  
  88.   -- ...................
  89.   -- .                 .
  90.   -- .  HashFindEntry  .  SPEC
  91.   -- .                 .
  92.   -- ...................
  93.  
  94.   function HashFindEntry (hashTab : in SYSTEM.ADDRESS;
  95.                           key     : in STRING;
  96.                           keyLen  : in integer) return SYSTEM.ADDRESS;
  97.  
  98.   -- ..................
  99.   -- .                .
  100.   -- .  HashGetEntry  .  SPEC
  101.   -- .                .
  102.   -- ..................
  103.  
  104.   function HashGetEntry (hashTab : in SYSTEM.ADDRESS;
  105.                          key     : in STRING;
  106.                          keyLen  : in integer) return SYSTEM.ADDRESS;
  107.  
  108.   -- ...............
  109.   -- .             .
  110.   -- .  LibExport  .  SPEC
  111.   -- .             .
  112.   -- ...............
  113.  
  114.   procedure LibExport (execStr : in STRING);
  115.  
  116. end CW_EDSY;
  117.