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_SLCT_.ADA < prev    next >
Text File  |  1994-10-12  |  3KB  |  104 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. -- *************
  14. -- *           *
  15. -- *  CW_SLCT  *  BODY
  16. -- *           *
  17. -- *************
  18.  
  19. package body CW_SLCT is
  20.  
  21.   -- The following pragmas are required by the Meridian OpenAda for
  22.   -- Windows 2.0 compiler in the package spec and body of code to be
  23.   -- included in a DLL, or an application calling the DLL will 
  24.   -- general protection fault
  25.   pragma SUPPRESS (elaboration_check);
  26.   pragma SUPPRESS (storage_check);
  27.  
  28.   -- .................
  29.   -- .               .
  30.   -- .  MarkDropPos  .  BODY
  31.   -- .               .
  32.   -- .................
  33.  
  34.   function MarkDropPos (count : in INTEGER) return INTEGER is
  35.  
  36.     Return_Int : INTEGER;
  37.  
  38.     -- ....................
  39.     -- .                  .
  40.     -- .  CW_MarkDropPos  .  SPEC
  41.     -- .                  .
  42.     -- ....................
  43.  
  44.     function CW_MarkDropPos (count : in INTEGER) return INTEGER;
  45.     pragma INTERFACE (windows, CW_MarkDropPos, "MarkDropPos");
  46.  
  47.   begin -- function MarkDropPos
  48.  
  49.     Return_Int := CW_MarkDropPos (count);
  50.     return Return_Int;
  51.  
  52.   end MarkDropPos;
  53.  
  54.   -- ....................
  55.   -- .                  .
  56.   -- .  MarkRestorePos  .  BODY
  57.   -- .                  .
  58.   -- ....................
  59.  
  60.   function MarkRestorePos return INTEGER is
  61.  
  62.     Return_Int : INTEGER;
  63.  
  64.     -- .......................
  65.     -- .                     .
  66.     -- .  CW_MarkRestorePos  .  SPEC
  67.     -- .                     .
  68.     -- .......................
  69.  
  70.     function CW_MarkRestorePos return INTEGER;
  71.     pragma INTERFACE (windows, CW_MarkRestorePos, "MarkRestorePos");
  72.  
  73.   begin -- function MarkRestorePos
  74.  
  75.     Return_Int := CW_MarkRestorePos;
  76.     return Return_Int;
  77.  
  78.   end MarkRestorePos;
  79.  
  80.   -- .................
  81.   -- .               .
  82.   -- .  MarkSavePos  .  BODY
  83.   -- .               .
  84.   -- .................
  85.  
  86.   procedure MarkSavePos is
  87.  
  88.     -- ....................
  89.     -- .                  .
  90.     -- .  CW_MarkSavePos  .  SPEC
  91.     -- .                  .
  92.     -- ....................
  93.  
  94.     procedure CW_MarkSavePos;
  95.     pragma INTERFACE (windows, CW_MarkSavePos, "MarkSavePos");
  96.  
  97.   begin -- function MarkSavPos
  98.  
  99.     CW_MarkSavePos;
  100.  
  101.   end MarkSavePos;
  102.  
  103. end CW_SLCT;
  104.