home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-MDL.ADS < prev    next >
Encoding:
Text File  |  1996-07-18  |  2.6 KB  |  60 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.Mdl                                        ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║          Module manager 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.Mdl  is
  21. pragma Preelaborate (Mdl);
  22.  
  23. --** Module manager --
  24.  
  25. function  DosLoadModule(pszName   :PSZ      ;
  26.                         cbName    :ULONG    ;
  27.                         pszModname:PSZ      ;
  28.                         phmod     :PHMODULE ) return apiret;
  29. pragma Import(c,DosLoadModule, Link_name=>"_DosLoadModule");
  30.  
  31. function DosFreeModule(hmod:HMODULE ) return apiret;
  32. pragma Import(c,DosFreeModule, Link_name=>"_DosFreeModule");
  33.  
  34. subtype PPFN is PVOID;
  35.  
  36. function DosQueryProcAddr(hmod   :HMODULE ;
  37.                           ordinal:ULONG   ;
  38.                           pszName:PSZ     ;
  39.                           ppf    :PPFN    )  return apiret;
  40. pragma Import(c,DosQueryProcAddr, Link_name=>"_DosQueryProcAddr");
  41.  
  42. function  DosQueryModuleHandle(pszModname:PSZ      ;
  43.                                phmod     :PHMODULE ) return apiret;
  44. pragma Import(c,DosQueryModuleHandle, Link_name=>"_DosQueryModuleHandle");
  45.  
  46. function DosQueryModuleName(hmod  :HMODULE ;
  47.                             cbName:ULONG   ;
  48.                             pch   :PCHAR   ) return apiret;
  49. pragma Import(c,DosQueryModuleName, Link_name=>"_DosQueryModuleName");
  50.  
  51.  PT_16BIT :constant ushort:= 0;
  52.  PT_32BIT :constant ushort:= 1 ;
  53.  
  54. function DosQueryProcType(hmod       :HMODULE ;
  55.                           ordinal    :ULONG   ;
  56.                           pszName    :PSZ     ;
  57.                           pulproctype:PULONG  ) return apiret;
  58. pragma Import(c,DosQueryProcType, Link_name=>"_DosQueryProcType");
  59. end Os2.Mdl;
  60.