home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpspool.def < prev    next >
Text File  |  1994-06-01  |  3KB  |  89 lines
  1. DEFINITION MODULE WPSPOOL;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPSpool;
  5.  
  6.   Copyright (c) 1994 by Juergen Neuhoff
  7. ****************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SOM;
  14. IMPORT WPABS;
  15.  
  16. TYPE PSOMClass              = SOM.PSOMClass;
  17. TYPE INTEGER4               = SOM.INTEGER4;
  18. TYPE somMToken              = SOM.somMToken;
  19. TYPE somDToken              = SOM.somDToken;
  20. TYPE somMethodProc          = SOM.somMethodProc;
  21. TYPE PWPSpool               = POINTER TO WPSpool;
  22. TYPE PM_WPSpool             = POINTER TO M_WPSpool;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPSpool
  26. *************************************************************************)
  27.  
  28.  
  29. (*************************************************************************
  30.   SOM class API for WPSpool, including type-bound procedures
  31. **************************************************************************)
  32.  
  33. CONST
  34.   WPSpool_MajorVersion     = 1;
  35.   WPSpool_MinorVersion     = 1;
  36.  
  37. TYPE
  38.   WPSpoolClassDataStructure   = RECORD
  39.     classObject                 : PSOMClass;
  40.     AddSetPathPage              : somMToken;
  41.     AddSetPriorityPe            : somMToken;
  42.                                 END;
  43.  
  44. VAR
  45.   WPSpoolClassData : WPSpoolClassDataStructure;
  46.  
  47. TYPE
  48.   (*$SOM+ *)
  49.   WPSpool = RECORD( WPABS.WPAbstract ) END;
  50.   (*$SOM- *)
  51.  
  52.  
  53. PROCEDURE WPSpoolNewClass
  54. (
  55.   majorVersion  : INTEGER4;
  56.   minorVersion  : INTEGER4
  57. )               : PSOMClass;
  58.  
  59.  
  60. (*************************************************************************
  61.   SOM class API for M_WPSpool, including type-bound procedures
  62. **************************************************************************)
  63.  
  64. CONST
  65.   M_WPSpool_MajorVersion   = 1;
  66.   M_WPSpool_MinorVersion   = 1;
  67.  
  68. TYPE
  69.   M_WPSpoolClassDataStructure   = RECORD
  70.     classObject                   : PSOMClass;
  71.                                   END;
  72.  
  73. VAR
  74.   M_WPSpoolClassData : M_WPSpoolClassDataStructure;
  75.  
  76. TYPE
  77.   (*$SOM+ *)
  78.   M_WPSpool = RECORD( WPABS.M_WPAbstract ) END;
  79.   (*$SOM- *)
  80.  
  81.  
  82. PROCEDURE M_WPSpoolNewClass
  83. (
  84.   majorVersion : INTEGER4;
  85.   minorVersion : INTEGER4
  86. )              : PSOMClass;
  87.  
  88. END WPSPOOL.
  89.