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_EDIT_.ADA < prev    next >
Text File  |  1994-10-12  |  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 CW_TYPES;
  14. with SYSTEM;
  15.  
  16. -- *************
  17. -- *           *
  18. -- *  CW_EDIT  *  BODY
  19. -- *           *
  20. -- *************
  21.  
  22. package body CW_EDIT is
  23.  
  24.   -- The following pragmas are required by the Meridian OpenAda for
  25.   -- Windows 2.0 compiler in the package spec and body of code to be
  26.   -- included in a DLL, or an application calling the DLL will 
  27.   -- general protection fault
  28.   pragma SUPPRESS (elaboration_check);
  29.   pragma SUPPRESS (storage_check);
  30.  
  31.   -- .................
  32.   -- .               .
  33.   -- .  BufDelToEOL  .  BODY
  34.   -- .               .
  35.   -- .................
  36.  
  37.   function BufDelToEOL return INTEGER is
  38.  
  39.     Return_Int : INTEGER;
  40.  
  41.     -- ....................
  42.     -- .                  .
  43.     -- .  CW_BufDelToEOL  .  SPEC
  44.     -- .                  .
  45.     -- ....................
  46.  
  47.     function CW_BufDelToEOL return INTEGER;
  48.     pragma INTERFACE (windows, CW_BufDelToEOL, "BufDelToEOL");
  49.  
  50.   begin
  51.  
  52.     Return_Int := CW_BufDelToEOL;
  53.     return Return_Int;
  54.  
  55.   end BufDelToEOL;
  56.  
  57.   -- ...................
  58.   -- .                 .
  59.   -- .  BufInsertChar  .  BODY
  60.   -- .                 .
  61.   -- ...................
  62.  
  63.   procedure BufInsertChar (key : in CHARACTER) is
  64.  
  65.     -- ......................
  66.     -- .                    .
  67.     -- .  CW_BufInsertChar  .  SPEC
  68.     -- .                    .
  69.     -- ......................
  70.  
  71.     procedure CW_BufInsertChar (key : in INTEGER);
  72.     pragma INTERFACE (windows, CW_BufInsertChar, "BufInsertChar");
  73.  
  74.   begin --  procedure BufInsertChar
  75.  
  76.     CW_BufInsertChar (INTEGER (CHARACTER'POS (key)));
  77.  
  78.   end BufInsertChar;
  79.  
  80. end CW_EDIT;
  81.