Topspeed_JPI/TS-V3/INCLUDE/SPL.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  SPL.DEF - Modula-2 OS/2 PM API Spooler interface                        *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_size => off,
   12           o_a_copy=>off,
   13           result_optional=>on,
   14           reg_saved => (si, di, ds, st1, st2),
   15           reg_param => (),
   16           seg_name => none,
   17           near_call => off,
   18           ds_eq_ss => off) *)
   19  
   20  (*# module(implementation=>off, init_code => off) *)
   21  (*# name(prefix => os2_lib) *)
   22  (*# data(near_ptr => off) *)
   23  
   24  DEFINITION MODULE Spl;
   25  
   26  FROM OS2DEF IMPORT LHANDLE,STR16,HWND,HDC,
   27                     SEVERITY_NOERROR,SEVERITY_WARNING,SEVERITY_SEVERE,SEVERITY_ERROR;
   28  
   29  CONST
   30      SPL_ERROR     = 0;
   31      SPL_OK        = 1;
   32     _ADDRESS =0;  DRIVER_NAME = 1;  DRIVER_DATA = 2;  DATA_TYPE = 3;
   33     _COMMENT = 4;  PROC_NAME = 5;  PROC_PARAMS = 6;  SPL_PARAMS = 7;
   34     NETWORK_PARAMS = 8;
   35  
   36  TYPE
   37    HSPL      = LHANDLE; (* Handle to a spool file *)
   38    HPROC     = LHANDLE; (* Handle to a queue processor *)
   39    HSTD      = LHANDLE;
   40  
   41  TYPE
   42  
   43    DEVOPENDATA = RECORD
   44                     LogAddress      : FarADDRESS;
*****                                       ^ undeclared identifier
   45                     DriverName      : FarADDRESS;
*****                                       ^ undeclared identifier
   46                     Driv            : POINTER TO DRIVDATA;
*****                                                  ^ undeclared identifier
   47                     DataType        : FarADDRESS;
*****                                       ^ undeclared identifier
   48                     Comment         : FarADDRESS;
*****                                       ^ undeclared identifier
   49                     QueueProcName : FarADDRESS;
*****                                     ^ undeclared identifier
   50                     QueueProcParams : FarADDRESS;
*****                                       ^ undeclared identifier
   51                     SpoolerParams   : FarADDRESS;
*****                                       ^ undeclared identifier
   52                     NetworkParams   : FarADDRESS;
*****                                       ^ undeclared identifier
   53                   END;
*****                   ^ not supported yet
   54  
   55  
   56  
   57  
   58  (* Spooler Queue Manager Interface *)
   59  PROCEDURE QmOpen(t:ARRAY OF CHAR;c:CARDINAL;VAR d:DEVOPENDATA) : HSPL;
*****                              ^ not supported yet
   60  PROCEDURE QmStartDoc(h:HSPL; n:ARRAY OF CHAR) : BOOLEAN;
*****                                          ^ not supported yet
   61  PROCEDURE QmWrite(h:HSPL; count:LONGCARD; b:ARRAY OF BYTE) : BOOLEAN;
*****                                  ^ undeclared identifier
*****                                                       ^ undeclared identifier
   62  PROCEDURE QmEndDoc(h:HSPL) : CARDINAL;
   63  PROCEDURE QmClose(h:HSPL) : BOOLEAN;
   64  PROCEDURE QmAbort(h:HSPL) : BOOLEAN;
   65  PROCEDURE QmAbortDoc(h:HSPL) : BOOLEAN;
   66  
   67  CONST
   68      SPLC_ABORT     = 1;
   69      SPLC_PAUSE     = 2;
   70      SPLC_CONTINUE  = 3;
   71  
   72  (* Spool Queue Processor Functions *)
   73  PROCEDURE QpOpen(t:ARRAY OF CHAR;VAR d:DEVOPENDATA) : HPROC;
*****                              ^ not supported yet
   74  PROCEDURE QpPrint(h:HPROC; n:ARRAY OF CHAR) : BOOLEAN;
*****                                        ^ not supported yet
   75  PROCEDURE QpClose(h:HPROC) : BOOLEAN;
   76  PROCEDURE QpControl(h:HPROC; c:LONGINT) : BOOLEAN;
   77  PROCEDURE QpQueryDt(VAR c:LONGINT; VAR s : ARRAY OF STR16 );
*****                                                      ^ not supported yet
   78  PROCEDURE QpInstall(h:HWND) : BOOLEAN;
   79  
   80  (* File System Emulation Functions
   81  * The parameters for all of these, except PrtAbort, are the
   82  ** same as the corresponding DOS function eg PrtWrite has the
   83  ** same parameters as DosWrite.  The parameter to PrtAbort is
   84  ** the file handle returned from PrtOpen and causes any "stuck"
   85  ** spool job to be abandoned and deleted.
   86  *)
   87  (*# save *)
   88  (*# name(prefix => none) *)
   89  PROCEDURE PrtOpen(dev:ARRAY OF CHAR; VAR handle:CARDINAL; VAR action:CARDINAL; size:LONGCARD;
*****                                 ^ not supported yet
*****                                                                                      ^ undeclared identifier
   90                 attrib,flag,mode:CARDINAL; rsrvd:LONGCARD) : CARDINAL;
*****                                                  ^ undeclared identifier
   91  PROCEDURE PrtClose(handle:CARDINAL) : CARDINAL;
   92  PROCEDURE PrtWrite(handle:CARDINAL;buffer:FarADDRESS; bufflng:CARDINAL; VAR write:CARDINAL) : CARDINAL;
*****                                            ^ undeclared identifier
   93  PROCEDURE PrtDevIOCtl(data:FarADDRESS; parms:FarADDRESS; functn,categry:CARDINAL; h:CARDINAL) : CARDINAL;
*****                             ^ undeclared identifier
*****                                               ^ undeclared identifier
   94  PROCEDURE PrtAbort (h:CARDINAL);
   95  
   96  (*# restore *)
   97  
   98  (* Style for SplMessageBox                          *)
   99  (* Same as for WinMsgBox - see WIN.DEF for details  *)
  100  (* Spooler message interface                        *)
  101  PROCEDURE MessageBox(VAR s1:ARRAY OF CHAR; a,b:CARDINAL;
*****                                       ^ not supported yet
  102                       VAR s2,s3:ARRAY OF CHAR; c,d:CARDINAL ):CARDINAL;
*****                                          ^ not supported yet
  103  
  104  (* PM_Q_STD Datatype functions  *)
  105  PROCEDURE StdOpen( h:HDC ): BOOLEAN;
  106  PROCEDURE StdClose( h:HDC ): BOOLEAN;
  107  PROCEDURE StdStart( h:HDC ): BOOLEAN;
  108  PROCEDURE StdStop ( h:HDC ) : HSTD;
  109  PROCEDURE StdDelete ( h:HSTD ): BOOLEAN;
  110  PROCEDURE StdGetBits ( h:HSTD; a,b: LONGINT; VAR c:ARRAY OF CHAR): BOOLEAN;
*****                                                              ^ not supported yet
  111  PROCEDURE StdQueryLength ( h:HSTD):LONGINT;
  112  
  113  (* Error information for SplMessageBox *)
  114  CONST
  115      SPLINFO_QPERROR       = 00001H;
  116      SPLINFO_DDERROR       = 00002H;
  117      SPLINFO_SPLERROR      = 00004H;
  118      SPLINFO_OTHERERROR    = 00080H;
  119      SPLINFO_INFORMATION   = 00100H;
  120      SPLINFO_WARNING       = 00200H;
  121      SPLINFO_ERROR         = 00400H;
  122      SPLINFO_SEVERE        = 00800H;
  123      SPLINFO_USERINTREQD   = 01000H;
  124  
  125  (* Error Data for SplMessageBox *)
  126      SPLDATA_PRINTERJAM    = 1;
  127      SPLDATA_FORMCHGREQD   = 2;
  128      SPLDATA_CARTCHGREQD   = 4;
  129      SPLDATA_PENCHGREQD    = 8;
  130      SPLDATA_DATAERROR     = 16;
  131      SPLDATA_UNEXPECTERROR = 32;
  132      SPLDATA_OTHER         = 32768;
  133  
  134  (* return code for SplStdQueryLength *)
  135      SSQL_ERROR = -1;
  136  
  137  END Spl.
*****      ^ not supported yet

   27 errors