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_SMAN.ADA < prev    next >
Text File  |  1994-10-12  |  2KB  |  94 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_SMAN  *  SPEC
  18. -- *           *
  19. -- *************
  20.  
  21. package CW_SMAN 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.   -- .  Addr_Str_Len  .  SPEC
  33.   -- .                     .
  34.   -- ..................
  35.  
  36.   function Addr_Str_Len (Address : in SYSTEM.ADDRESS) return INTEGER;
  37.  
  38.   -- ....................
  39.   -- .                          .
  40.   -- .  Addr_To_String  .  BODY
  41.   -- .                       .
  42.   -- ....................
  43.  
  44.   function Addr_To_String (Address : in SYSTEM.ADDRESS;
  45.                            Length  : in INTEGER) return STRING;
  46.  
  47.   -- ..............
  48.   -- .                    .
  49.   -- .  FindChar  .  SPEC
  50.   -- .                 .
  51.   -- ..............
  52.  
  53.   function FindChar (Start : in INTEGER;
  54.                      Char  : in CHARACTER;
  55.                      Str   : in STRING) return INTEGER;
  56.  
  57.   -- .............
  58.   -- .           .
  59.   -- .  StrFree  .  SPEC
  60.   -- .           .
  61.   -- .............
  62.  
  63.   procedure StrFree (Str_Address : in SYSTEM.ADDRESS);
  64.  
  65.   -- ..............
  66.   -- .            .
  67.   -- .  StrMatch  .  SPEC
  68.   -- .            .
  69.   -- ..............
  70.  
  71.   function StrMatch (pattern : in STRING;
  72.                      str     : in STRING;
  73.                      flags   : in INTEGER;
  74.                      len     : in LONG_INTEGER) return LONG_INTEGER;
  75.  
  76.   -- ............
  77.   -- .          .
  78.   -- .  StrNew  .  SPEC
  79.   -- .          .
  80.   -- ............
  81.  
  82.   function StrNew (str : in STRING) return SYSTEM.ADDRESS;
  83.  
  84.   -- .............
  85.   -- .           .
  86.   -- .  StrTrim  .  SPEC
  87.   -- .           .
  88.   -- .............
  89.  
  90.   function StrTrim (Str  : in STRING;
  91.                     cset : in STRING) return STRING;
  92.  
  93. end CW_SMAN;
  94.