home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-MISC.ADS < prev    next >
Text File  |  1996-07-18  |  6KB  |  132 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.Misc                                       ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995 , 1996                    ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║             definitions for DosSearchPath control word            ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.Misc is
  21. pragma Preelaborate (Misc);
  22.  
  23. -- initions for DosSearchPath control word
  24.  
  25.  DSP_IMPLIEDCUR  :constant ushort:=  1;-- current dir will be searched first
  26.  DSP_PATHREF     :constant ushort:=  2;-- from env.variable
  27.  DSP_IGNORENETERR:constant ushort:=  4;-- ignore net errs & continue search
  28.  
  29. --  for DosQuerySysInfo --
  30.  
  31.  QSV_MAX_PATH_LENGTH :constant ushort:=     1 ;
  32.  Q_MAX_PATH_LENGTH   :constant ushort:=     QSV_MAX_PATH_LENGTH ;
  33.  QSV_MAX_TEXT_SESSIONS:constant ushort:=    2 ;
  34.  QSV_MAX_PM_SESSIONS  :constant ushort:=    3 ;
  35.  QSV_MAX_VDM_SESSIONS :constant ushort:=    4 ;
  36.  QSV_BOOT_DRIVE       :constant ushort:=    5 ;     -- 1=A; 2=B; etc.
  37.  QSV_DYN_PRI_VARIATION:constant ushort:=    6 ;     -- 0=Absolute; 1=Dynamic
  38.  QSV_MAX_WAIT         :constant ushort:=    7 ;     -- seconds
  39.  QSV_MIN_SLICE        :constant ushort:=    8 ;     -- milli seconds
  40.  QSV_MAX_SLICE        :constant ushort:=    9 ;     -- milli seconds
  41.  QSV_PAGE_SIZE        :constant ushort:=    10;
  42.  QSV_VERSION_MAJOR    :constant ushort:=    11;
  43.  QSV_VERSION_MINOR    :constant ushort:=    12;
  44.  QSV_VERSION_REVISION :constant ushort:=    13;     -- Revision letter
  45.  QSV_MS_COUNT         :constant ushort:=    14;     -- Free running millisecond counter
  46.  QSV_TIME_LOW         :constant ushort:=    15;     -- Low dword of time in seconds
  47.  QSV_TIME_HIGH        :constant ushort:=    16;     -- High dword of time in seconds
  48.  QSV_TOTPHYSMEM       :constant ushort:=    17;     -- Physical memory on system
  49.  QSV_TOTRESMEM        :constant ushort:=    18;     -- Resident memory on system
  50.  QSV_TOTAVAILMEM      :constant ushort:=    19;     -- Available memory for all processes
  51.  QSV_MAXPRMEM         :constant ushort:=    20;     -- Avail private mem for calling proc
  52.  QSV_MAXSHMEM         :constant ushort:=    21;     -- Avail shared mem for calling proc
  53.  QSV_TIMER_INTERVAL   :constant ushort:=    22;     -- Timer interval in tenths of ms
  54.  QSV_MAX_COMP_LENGTH  :constant ushort:=    23;     -- max len of one component in a name
  55.  QSV_MAX              :constant ushort:=    QSV_MAX_COMP_LENGTH ;
  56.  
  57.  
  58.       -- definitions for DosError - combine with
  59.  FERR_DISABLEHARDERR   :constant ushort:=   16#00000000#;    -- disable hard error popups
  60.  FERR_ENABLEHARDERR    :constant ushort:=   16#00000001#;    -- enable hard error popups
  61.  FERR_ENABLEEXCEPTION  :constant ushort:=   16#00000000#;    -- enable exception popups
  62.  FERR_DISABLEEXCEPTION :constant ushort:=   16#00000002#;    -- disable exception popups
  63.  
  64. -- definitions for DosQueryRASInfo Index --
  65.  SIS_MMIOADDR  :constant ushort:=           0;
  66.  SIS_MEC_TABLE :constant ushort:=           1;
  67.  SIS_SYS_LOG   :constant ushort:=           2;
  68.  
  69. --   #define DosInsMessage   DosInsertMessage
  70. --   #define DosQSysInfo     DosQuerySysInfo
  71.  
  72. function  DosError(error:ULONG )return apiret;
  73. pragma Import(c,DosError, Link_name=>"_DosError");
  74.  
  75. function  DosGetMessage(pTable   :PCHAR  ;
  76.                         cTable   :ULONG  ;
  77.                         pBuf     :PCHAR  ;
  78.                         cbBuf    :ULONG  ;
  79.                         msgnumber:ULONG  ;
  80.                         pszFile  :PSZ    ;
  81.                         pcbMsg   :PULONG )return apiret;
  82. pragma Import(c,DosGetMessage, Link_name=>"_DosGetMessage");
  83.  
  84. function  DosErrClass(code   :ULONG  ;
  85.                       pClass :PULONG ;
  86.                       pAction:PULONG ;
  87.                       pLocus :PULONG )return apiret;
  88. pragma Import(c,DosErrClass, Link_name=>"_DosErrClass");
  89.  
  90. function DosInsertMessage(pTable:PCHAR  ;
  91.                           cTable:ULONG  ;
  92.                           pszMsg:PSZ    ;
  93.                           cbMsg :ULONG  ;
  94.                           pBuf  :PCHAR  ;
  95.                           cbBuf :ULONG  ;
  96.                           pcbMsg:PULONG ) return apiret;
  97. pragma Import(c,DosInsertMessage, Link_name=>"_DosInsertMessage");
  98.  
  99. function  DosPutMessage(hfl  :HFILE ;
  100.                         cbMsg:ULONG ;
  101.                         pBuf :PCHAR ) return apiret;
  102. pragma Import(c,DosPutMessage, Link_name=>"_DosPutMessage");
  103.  
  104. function DosQuerySysInfo(iStart:ULONG ;
  105.                          iLast :ULONG ;
  106.                          pBuf  :PVOID ;
  107.                          cbBuf :ULONG )return apiret;
  108. pragma Import(c,DosQuerySysInfo, Link_name=>"_DosQuerySysInfo");
  109.  
  110. type PPSZ is access all PSZ;
  111. function  DosScanEnv(pszName  :PSZ  ;
  112.                      ppszValue:PPSZ )return apiret;
  113. pragma Import(c,DosScanEnv, Link_name=>"_DosScanEnv");
  114.  
  115. function DosSearchPath(flag         :ULONG ;
  116.                        pszPathOrName:PSZ   ;
  117.                        pszFilename  :PSZ   ;
  118.                        pBuf         :PBYTE ;
  119.                        cbBuf        :ULONG )return apiret;
  120. pragma Import(c,DosSearchPath, Link_name=>"_DosSearchPath");
  121.  
  122. function DosQueryMessageCP(pb         :PCHAR  ;
  123.                            cb         :ULONG  ;
  124.                            pszFilename:PSZ    ;
  125.                            cbBuf      :PULONG )return apiret;
  126. pragma Import(c,DosQueryMessageCp, Link_name=>"_DosQueryMessageCp");
  127.  
  128. function  DosQueryRASInfo(Index:ULONG ;
  129.                           Addr :PVOID )return apiret;
  130. pragma Import(c,DosQueryRASInfo, Link_name=>"_DosQueryRASInfo");
  131. end Os2.Misc;
  132.