home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / dosdevic.def < prev    next >
Text File  |  1994-05-03  |  2KB  |  55 lines
  1. DEFINITION MODULE DOSDEVICES;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 Interface for device specific, ring 2 support
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11.  
  12. IMPORT SYSTEM;
  13. FROM   OS2DEF IMPORT APIRET, HFILE;
  14.  
  15. CONST (* for DosDevConfig() DeviceType *)
  16.   DEVINFO_PRINTER       = 0;      (* Number of printers attached *)
  17.   DEVINFO_RS232         = 1;      (* Number of RS232 ports *)
  18.   DEVINFO_FLOPPY        = 2;      (* Number of diskette drives *)
  19.   DEVINFO_COPROCESSOR   = 3;      (* Presence of math coprocessor *)
  20.   DEVINFO_SUBMODEL      = 4;      (* PC Submodel Type *)
  21.   DEVINFO_MODEL         = 5;      (* PC Model Type *)
  22.   DEVINFO_ADAPTER       = 6;      (* Primary display adapter type *)
  23.  
  24. PROCEDURE DosDevConfig
  25. ( VAR DeviceInfo      : SHORTCARD;
  26.   DeviceType          : LONGCARD
  27. )                     : APIRET;
  28.  
  29. PROCEDURE DosDevIOCtl
  30. ( DevHandle           : HFILE;
  31.   Category            : LONGCARD;
  32.   Function            : LONGCARD;
  33.   ParmList            : SYSTEM.ADDRESS;
  34.   ParmLengthMax       : LONGCARD;
  35.   VAR ParmLengthInOut : LONGCARD;
  36.   DataArea            : SYSTEM.ADDRESS;
  37.   DataLengthMax       : LONGCARD;
  38.   VAR DataLengthInOut : LONGCARD
  39. )                     : APIRET;
  40.  
  41. CONST (* for DosPhysicalDisk() Function *)
  42.   INFO_COUNT_PARTITIONABLE_DISKS  = 1;       (* # of partitionable disks *)
  43.   INFO_GETIOCTLHANDLE             = 2;       (* Obtain handle            *)
  44.   INFO_FREEIOCTLHANDLE            = 3;       (* Release handle           *)
  45.  
  46. PROCEDURE DosPhysicalDisk
  47. ( Function            : LONGCARD;
  48.   DataPtr             : SYSTEM.ADDRESS;
  49.   DataLen             : LONGCARD;
  50.   ParmPtr             : SYSTEM.ADDRESS;
  51.   ParmLen             : LONGCARD
  52. )                     : APIRET;
  53.  
  54. END DOSDEVICES.
  55.