home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpjob.def < prev    next >
Text File  |  1994-06-01  |  4KB  |  116 lines
  1. DEFINITION MODULE WPJOB;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPJob
  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 WPTRANS;
  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 PWPJob                 = POINTER TO WPJob;
  22. TYPE PM_WPJob               = POINTER TO M_WPJob;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPJob
  26. *************************************************************************)
  27.  
  28. (*************************************************************************
  29.   SOM class API for WPJob, including type-bound procedures
  30. **************************************************************************)
  31.  
  32. CONST
  33.   WPJob_MajorVersion     = 1;
  34.   WPJob_MinorVersion     = 1;
  35.  
  36. TYPE
  37.   WPJobClassDataStructure     = RECORD
  38.     classObject                 : PSOMClass;
  39.     prtGetJobID                 : somMToken;
  40.     prtSetJobID                 : somMToken;
  41.     prtGetJobInfo2              : somMToken;
  42.     prtSetJobInfo2              : somMToken;
  43.     prtGetJobInfo3              : somMToken;
  44.     prtSetJobInfo3              : somMToken;
  45.     prtFreeJobInfo2             : somMToken;
  46.     prtFreeJobInfo3             : somMToken;
  47.     prtGetPDObject              : somMToken;
  48.     prtSetPDObject              : somMToken;
  49.     prtGetDocument              : somMToken;
  50.     prtSetDocument              : somMToken;
  51.     prtDupJobInfo2              : somMToken;
  52.     prtDupJobInfo3              : somMToken;
  53.     wpDeleteJob                 : somMToken;
  54.     wpHoldJob                   : somMToken;
  55.     wpReleaseJob                : somMToken;
  56.     wpPrintJobNext              : somMToken;
  57.     wpStartJobAgain             : somMToken;
  58.                                 END;
  59.  
  60. VAR
  61.   WPJobClassData : WPJobClassDataStructure;
  62.  
  63. TYPE
  64.   (*$SOM+ *)
  65.   WPJob = RECORD( WPTRANS.WPTransient ) END;
  66.   (*$SOM- *)
  67.  
  68.  
  69. PROCEDURE WPJobNewClass
  70. (
  71.   majorVersion  : INTEGER4;
  72.   minorVersion  : INTEGER4
  73. )               : PSOMClass;
  74.  
  75. PROCEDURE( Self : PWPJob ) wpDeleteJob( ) : BOOLEAN;
  76.  
  77. PROCEDURE( Self : PWPJob ) wpHoldJob( ) : BOOLEAN;
  78.  
  79. PROCEDURE( Self : PWPJob ) wpReleaseJob( ) : BOOLEAN;
  80.  
  81. PROCEDURE( Self : PWPJob ) wpPrintJobNext( ) : BOOLEAN;
  82.  
  83. PROCEDURE( Self : PWPJob ) wpStartJobAgain( ) : BOOLEAN;
  84.  
  85.  
  86. (*************************************************************************
  87.   SOM class API for M_WPJob, including type-bound procedures
  88. **************************************************************************)
  89.  
  90. CONST
  91.   M_WPJob_MajorVersion   = 1;
  92.   M_WPJob_MinorVersion   = 1;
  93.  
  94. TYPE
  95.   M_WPJobClassDataStructure   = RECORD
  96.     classObject                 : PSOMClass;
  97.                                 END;
  98.  
  99. VAR
  100.   M_WPJobClassData : M_WPJobClassDataStructure;
  101.  
  102. TYPE
  103.   (*$SOM+ *)
  104.   M_WPJob = RECORD( WPTRANS.M_WPTransient ) END;
  105.   (*$SOM- *)
  106.  
  107.  
  108. PROCEDURE M_WPJobNewClass
  109. (
  110.   majorVersion : INTEGER4;
  111.   minorVersion : INTEGER4
  112. )              : PSOMClass;
  113.  
  114.  
  115. END WPJOB.
  116.