home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-VIRT.ADS < prev    next >
Text File  |  1996-08-10  |  2KB  |  59 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.Virt                                       ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║                  Virtual DOS Machine API support                  ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.Virt is
  21. pragma Preelaborate (Virt);
  22.  
  23. -- Virtual DOS Machine API support --
  24.  
  25. subtype HVDD is  LHANDLE   ;     -- hvdd --
  26. type PHVDD     is access all HVDD;    -- phvdd --
  27.  
  28. subtype SGID is USHORT;
  29.  
  30.  function   DosOpenVDD(pszVDD:PSZ   ;
  31.                        phvd  :PHVDD )return apiret;
  32. pragma Import(c,DosOpenVDD, Link_name=>"_DosOpenVDD");
  33.  
  34. function   DosRequestVDD(hvd     :HVDD  ;
  35.                          sgd     :SGID  ;
  36.                          cmd     :ULONG ;
  37.                          cbInput :ULONG ;
  38.                          pInput  :PVOID ;
  39.                          cbOutput:ULONG ;
  40.                          pOutput :PVOID )return apiret;
  41. pragma Import(c,DosRequestVDD, Link_name=>"_DosRequestVDD");
  42.  
  43. function   DosCloseVDD(hvd:HVDD )return apiret;
  44. pragma Import(c,DosCloseVDD, Link_name=>"_DosCloseVDD");
  45.  
  46. function   DosQueryDOSProperty(sgd    :SGID  ;
  47.                                pszName:PSZ   ;
  48.                                cb     :ULONG ;
  49.                                pch    :PSZ   )return apiret;
  50. pragma Import(c,DosQueryDOSProperty, Link_name=>"_DosQueryDOSProperty");
  51.  
  52. function   DosSetDOSProperty(sgd    :SGID  ;
  53.                              pszName:PSZ   ;
  54.                              cb     :ULONG ;
  55.                              pch    :PSZ   )return apiret;
  56. pragma Import(c,DosSetDOSProperty, Link_name=>"_DosSetDOSProperty");
  57.  
  58. end Os2.Virt;
  59.