home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-APP.ADS < prev    next >
Text File  |  1995-01-25  |  3KB  |  45 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package     Os2.App                                        ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║             Exception support    of os/2 api functions            ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.App  is
  21. pragma Preelaborate (App);
  22.    -- AppType returned in by DosQueryAppType in pFlags as follows          --
  23.  FAPPTYP_NOTSPEC         :constant:=16#0000#;
  24.  FAPPTYP_NOTWINDOWCOMPAT :constant:=16#0001#;
  25.  FAPPTYP_WINDOWCOMPAT    :constant:=16#0002#;
  26.  FAPPTYP_WINDOWAPI       :constant:=16#0003#;
  27.  FAPPTYP_BOUND           :constant:=16#0008#;
  28.  FAPPTYP_DLL             :constant:=16#0010#;
  29.  FAPPTYP_DOS             :constant:=16#0020#;
  30.  FAPPTYP_PHYSDRV         :constant:=16#0040#;  -- physical device driver       --
  31.  FAPPTYP_VIRTDRV         :constant:=16#0080#;  -- virtual device driver        --
  32.  FAPPTYP_PROTDLL         :constant:=16#0100#;  -- 'protected memory' dll       --
  33.  FAPPTYP_WINDOWSREAL     :constant:=16#0200#;  -- Windows real mode app        --
  34.  FAPPTYP_WINDOWSPROT     :constant:=16#0400#;  -- Windows protect mode app     --
  35.  FAPPTYP_WINDOWSPROT31   :constant:=16#1000#;  -- Windows 3.1 protect mode app --
  36.  FAPPTYP_32BIT           :constant:=16#4000#;
  37.  FAPPTYP_EXETYPE         :constant:=16#0003#;
  38.  EAT_APPTYP_PMAPI        :constant:=16#00#;          -- Uses PM API --
  39.  EAT_APPTYP_DOS          :constant:=16#01#;          -- DOS APP --
  40.  EAT_APPTYP_PMW          :constant:=16#02#;          -- Window compatible --
  41.  EAT_APPTYP_NOPMW        :constant:=16#03#;          -- Not Window compatible --
  42.  EAT_APPTYP_EXETYPE      :constant:=16#03#;          -- EXE type mask --
  43.  -- EAT_APPTYP_RESERVED     ~(EAT_APPTYP_EXETYPE)
  44. end os2.app;
  45.