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_BFEX.ADA < prev    next >
Text File  |  1994-10-12  |  3KB  |  118 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_BFEX  *  SPEC
  16. -- *           *
  17. -- *************
  18.  
  19. package CW_BFEX 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.   -- .  PosCurrentChar  .  SPEC
  31.   -- .                  .
  32.   -- ....................
  33.  
  34.   function PosCurrentChar return CHARACTER;
  35.  
  36.   -- .............
  37.   -- .           .
  38.   -- .  PosInit  .  SPEC
  39.   -- .           .
  40.   -- .............
  41.  
  42.   function PosInit (offset : in long_integer) return BOOLEAN;
  43.  
  44.   -- .................
  45.   -- .               .
  46.   -- .  PosNextChar  .  SPEC
  47.   -- .               .
  48.   -- .................
  49.  
  50.   function PosNextChar return CHARACTER;
  51.  
  52.   -- .................
  53.   -- .               .
  54.   -- .  PosNextLine  .  SPEC
  55.   -- .               .
  56.   -- .................
  57.  
  58.   function PosNextLine (Lines : in Long_Integer) return Long_Integer;
  59.  
  60.   -- .................
  61.   -- .               .
  62.   -- .  PosPrevChar  .  SPEC
  63.   -- .               .
  64.   -- .................
  65.  
  66.   function PosPrevChar return CHARACTER;
  67.  
  68.   -- .................
  69.   -- .               .
  70.   -- .  PosPrevLine  .  SPEC
  71.   -- .               .
  72.   -- .................
  73.  
  74.   function PosPrevLine (Lines : in Long_Integer) return Long_Integer;
  75.  
  76.   -- ..............
  77.   -- .            .
  78.   -- .  PosQLine  .  SPEC
  79.   -- .            .
  80.   -- ..............
  81.  
  82.   function PosQLine return Long_Integer;
  83.  
  84.   -- ................
  85.   -- .              .
  86.   -- .  PosQOffset  .  SPEC
  87.   -- .              .
  88.   -- ................
  89.  
  90.   function PosQOffset return Long_Integer;
  91.  
  92.   -- .................
  93.   -- .               .
  94.   -- .  PosSetColor  .  SPEC
  95.   -- .               .
  96.   -- .................
  97.  
  98.   procedure PosSetColor (color : in integer;
  99.                          count : in long_integer);
  100.  
  101.   -- .................
  102.   -- .               .
  103.   -- .  BufReadChar  .  SPEC
  104.   -- .               .
  105.   -- .................
  106.  
  107.   function BufReadChar return CHARACTER;
  108.  
  109.   -- ................
  110.   -- .              .
  111.   -- .  BufReadStr  .  SPEC
  112.   -- .              .
  113.   -- ................
  114.  
  115.   procedure BufReadStr (str : in out string);
  116.  
  117. end CW_BFEX;
  118.