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_TYPES.ADA < prev    next >
Text File  |  1994-10-12  |  4KB  |  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. with SYSTEM;
  14.  
  15. -- **************
  16. -- *            *
  17. -- *  CW_Types  *  SPEC
  18. -- *            *
  19. -- **************
  20.  
  21. package CW_Types 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.   -- The following constants indicate the following functions in search
  31.   -- operations:
  32.     --
  33.     --   SEARCH_IGCASE             : ignore character case
  34.   --   SEARCH_FORWARD            : forward searches
  35.     --   SEARCH_GLOBAL             : perform global replacement
  36.     --   SEARCH_PROMPT             : prompt user
  37.     --   SEARCH_REGEX              : perform a regex search
  38.     --   SEARCH_SELECTION          : restrict search to selection
  39.     --   SEARCH_WRAP               : search wraps to top of buffer
  40.     --   SEARCH_MAXIMAL            : Maximal match flag
  41.     --   SEARCH_ONCE               : do one replacement and return
  42.     --   SEARCH_LOW_ALT_PRECEDENCE : alternation has a lower precedence
  43.     --     lower than term
  44.     --   SEARCH_SELECTION_AGAIN    : searching again in a selection
  45.     --   SEARCH_PROMPT_SELECTION   : use selection as default prompt
  46.     --   SEARCH_PROMPT_WORD        : use current word as default prompt
  47.     --   SEARCH_HIGHLIGHT          : highlight the matching text
  48.     --   SEARCH_RETAIN_HIGHLIGHT   : retain the highlight
  49.  
  50.   SEARCH_IGCASE             : constant := 16#0001#;
  51.   SEARCH_FORWARD            : constant := 16#0002#;
  52.   SEARCH_GLOBAL             : constant := 16#0004#;
  53.   SEARCH_PROMPT             : constant := 16#0008#;
  54.   SEARCH_REGEX              : constant := 16#0010#;
  55.   SEARCH_SELECTION          : constant := 16#0020#;
  56.   SEARCH_WRAP               : constant := 16#0040#;
  57.   SEARCH_MAXIMAL            : constant := 16#0080#;
  58.   SEARCH_ONCE               : constant := 16#0100#;
  59.   SEARCH_LOW_ALT_PRECEDENCE : constant := 16#0200#;
  60.   SEARCH_SELECTION_AGAIN    : constant := 16#0400#;
  61.   SEARCH_PROMPT_SELECTION   : constant := 16#0800#;
  62.   SEARCH_PROMPT_WORD        : constant := 16#1000#;
  63.   SEARCH_HIGHLIGHT          : constant := 16#2000#;
  64.   SEARCH_RETAIN_HIGHLIGHT   : constant := 16#4000#;
  65.  
  66.   EOF_CHAR : constant := 16#100#;
  67.  
  68.   ----------------------------------------------------------------------------
  69.   --  Common C-like Type Definitions
  70.   ----------------------------------------------------------------------------
  71.  
  72.   type short_unsigned_integer is  range 0 .. 65535;
  73.   subtype unsigned_integer is short_unsigned_integer;
  74.   type long_unsigned_integer is new long_integer;
  75.   --         old declaration, using access to string should be more versatile
  76.   --  type    cstring                is access character;
  77.   type cstring is access STRING;
  78.  
  79.   ----------------------------------------------------------------------------
  80.   --  General Purpose Defines
  81.   ----------------------------------------------------------------------------
  82.  
  83.   -- <<warning>> "NULL" renamed to "NUL"
  84.   NUL : constant := 0;
  85.  
  86.   FALSE : constant := 0;
  87.   TRUE  : constant := 1;
  88.  
  89.   subtype BOOL is integer;
  90.   type BYTE is  range 0 .. 255;
  91.   subtype WORD is unsigned_integer;
  92.   subtype UINT is WORD;
  93.   subtype LONG is long_integer;
  94.   subtype DWORD is long_unsigned_integer; -- should be unsigned
  95.  
  96.   subtype LPSTR is cstring; -- modifyable string
  97.  
  98.   subtype LPVOID is system.address;
  99.  
  100.   subtype HANDLE is UINT;
  101.   subtype HWND is HANDLE;
  102.  
  103. end CW_Types;
  104.