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_BFOP_.ADA < prev    next >
Text File  |  1994-10-12  |  3KB  |  121 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_BFOP  *  BODY
  16. -- *           *
  17. -- *************
  18.  
  19. package body CW_BFOP 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.   -- .  BufQCurrentCol  .  BODY
  31.   -- .                  .
  32.   -- ....................
  33.  
  34.   function BufQCurrentCol return LONG_INTEGER is
  35.  
  36.     -- .......................
  37.     -- .                     .
  38.     -- .  CW_BufQCurrentCol  .  SPEC
  39.     -- .                     .
  40.     -- .......................
  41.  
  42.     function CW_BufQCurrentCol return LONG_INTEGER;
  43.     pragma INTERFACE (windows, CW_BufQCurrentCol, "BufQCurrentCol");
  44.  
  45.   begin -- procedure BufQCurrentCol
  46.  
  47.     return CW_BufQCurrentCol;
  48.  
  49.   end BufQCurrentCol;
  50.  
  51.   -- .....................
  52.   -- .                   .
  53.   -- .  BufQCurrentLine  .  BODY
  54.   -- .                   .
  55.   -- .....................
  56.  
  57.   function BufQCurrentLine return LONG_INTEGER is
  58.  
  59.     -- ........................
  60.     -- .                      .
  61.     -- .  CW_BufQCurrentLine  .  SPEC
  62.     -- .                      .
  63.     -- ........................
  64.  
  65.     function CW_BufQCurrentLine return LONG_INTEGER;
  66.     pragma INTERFACE (windows, CW_BufQCurrentLine, "BufQCurrentLine");
  67.  
  68.   begin -- procedure BufQCurrentLine
  69.  
  70.     return CW_BufQCurrentLine;
  71.  
  72.   end BufQCurrentLine;
  73.  
  74.   -- .................
  75.   -- .               .
  76.   -- .  BufSetAscii  .  BODY
  77.   -- .               .
  78.   -- .................
  79.  
  80.   procedure BufSetAscii is
  81.  
  82.     -- ....................
  83.     -- .                  .
  84.     -- .  CW_BufSetAscii  .  SPEC
  85.     -- .                  .
  86.     -- ....................
  87.  
  88.     procedure CW_BufSetAscii;
  89.     pragma INTERFACE (windows, CW_BufSetAscii, "BufSetAscii");
  90.  
  91.   begin -- procedure BufSetAscii
  92.  
  93.     CW_BufSetAscii;
  94.  
  95.   end BufSetAscii;
  96.  
  97.   -- ...................
  98.   -- .                 .
  99.   -- .  BufSetCompact  .  BODY
  100.   -- .                 .
  101.   -- ...................
  102.  
  103.   procedure BufSetCompact is
  104.  
  105.     -- ......................
  106.     -- .                    .
  107.     -- .  CW_BufSetCompact  .  SPEC
  108.     -- .                    .
  109.     -- ......................
  110.  
  111.     procedure CW_BufSetCompact;
  112.     pragma INTERFACE (windows, CW_BufSetCompact, "BufSetCompact");
  113.  
  114.   begin -- procedure BufSetCompact
  115.  
  116.     CW_BufSetCompact;
  117.  
  118.   end BufSetCompact;
  119.  
  120. end CW_BFOP;
  121.