pmspl.fi
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 647 行 · 第 1/2 页
FI
647 行
c$noreference
c$ifdef INCL_ERRORS
c$define INCL_SPLERRORS
c$endif
character*11 SPL_INI_SPOOLER
parameter (SPL_INI_SPOOLER = 'PM_SPOOLER'//char(0))
character*17 SPL_INI_QUEUE
parameter (SPL_INI_QUEUE = 'PM_SPOOLER_QUEUE'//char(0))
character*19 SPL_INI_PRINTER
parameter (SPL_INI_PRINTER = 'PM_SPOOLER_PRINTER'//char(0))
character*25 SPL_INI_PRINTERDESCR
parameter (SPL_INI_PRINTERDESCR =
+ 'PM_SPOOLER_PRINTER_DESCR'//char(0))
character*23 SPL_INI_QUEUEDESCR
parameter (SPL_INI_QUEUEDESCR =
+ 'PM_SPOOLER_QUEUE_DESCR'//char(0))
character*20 SPL_INI_QUEUEDD
parameter (SPL_INI_QUEUEDD = 'PM_SPOOLER_QUEUE_DD'//char(0))
character*24 SPL_INI_QUEUEDDDATA
parameter (SPL_INI_QUEUEDDDATA =
+ 'PM_SPOOLER_QUEUE_DDDATA'//char(0))
integer SPL_ERROR
parameter (SPL_ERROR = 0)
integer SPL_OK
parameter (SPL_OK = 1)
integer SPLC_ABORT
parameter (SPLC_ABORT = 1)
integer SPLC_PAUSE
parameter (SPLC_PAUSE = 2)
integer SPLC_CONTINUE
parameter (SPLC_CONTINUE = 3)
external SplQpOpen
integer*4 SplQpOpen
external SplQpPrint
integer*4 SplQpPrint
external SplQpClose
integer*4 SplQpClose
external SplQpControl
integer*4 SplQpControl
external SplQpQueryDt
integer*4 SplQpQueryDt
external SplQpInstall
integer*4 SplQpInstall
integer QPDAT_ADDRESS
parameter (QPDAT_ADDRESS = 0)
integer QPDAT_DRIVER_NAME
parameter (QPDAT_DRIVER_NAME = 1)
integer QPDAT_DRIVER_DATA
parameter (QPDAT_DRIVER_DATA = 2)
integer QPDAT_DATA_TYPE
parameter (QPDAT_DATA_TYPE = 3)
integer QPDAT_COMMENT
parameter (QPDAT_COMMENT = 4)
integer QPDAT_PROC_PARAMS
parameter (QPDAT_PROC_PARAMS = 5)
integer QPDAT_SPL_PARAMS
parameter (QPDAT_SPL_PARAMS = 6)
integer QPDAT_NET_PARAMS
parameter (QPDAT_NET_PARAMS = 7)
integer QPDAT_DOC_NAME
parameter (QPDAT_DOC_NAME = 8)
integer QPDAT_QUEUE_NAME
parameter (QPDAT_QUEUE_NAME = 9)
integer QPDAT_TOKEN
parameter (QPDAT_TOKEN = 10)
integer QPDAT_JOBID
parameter (QPDAT_JOBID = 11)
structure /SQPOPENDATA/
integer*4 pszLogAddress
integer*4 pszDriverName
integer*4 pdriv
integer*4 pszDataType
integer*4 pszComment
integer*4 pszProcParams
integer*4 pszSpoolParams
integer*4 pszNetworkParams
integer*4 pszDocName
integer*4 pszQueueName
integer*4 pszToken
integer*2 idJobId
end structure
integer SPLINFO_QPERROR
parameter (SPLINFO_QPERROR = '00000001'x)
integer SPLINFO_DDERROR
parameter (SPLINFO_DDERROR = '00000002'x)
integer SPLINFO_SPLERROR
parameter (SPLINFO_SPLERROR = '00000004'x)
integer SPLINFO_OTHERERROR
parameter (SPLINFO_OTHERERROR = '00000080'x)
integer SPLINFO_INFORMATION
parameter (SPLINFO_INFORMATION = '00000100'x)
integer SPLINFO_WARNING
parameter (SPLINFO_WARNING = '00000200'x)
integer SPLINFO_ERROR
parameter (SPLINFO_ERROR = '00000400'x)
integer SPLINFO_SEVERE
parameter (SPLINFO_SEVERE = '00000800'x)
integer SPLINFO_USERINTREQD
parameter (SPLINFO_USERINTREQD = '00001000'x)
integer SPLDATA_PRINTERJAM
parameter (SPLDATA_PRINTERJAM = '00000001'x)
integer SPLDATA_FORMCHGREQD
parameter (SPLDATA_FORMCHGREQD = '00000002'x)
integer SPLDATA_CARTCHGREQD
parameter (SPLDATA_CARTCHGREQD = '00000004'x)
integer SPLDATA_PENCHGREQD
parameter (SPLDATA_PENCHGREQD = '00000008'x)
integer SPLDATA_DATAERROR
parameter (SPLDATA_DATAERROR = '00000010'x)
integer SPLDATA_UNEXPECTERROR
parameter (SPLDATA_UNEXPECTERROR = '00000020'x)
integer SPLDATA_OTHER
parameter (SPLDATA_OTHER = '00008000'x)
integer SSQL_ERROR
parameter (SSQL_ERROR = -1)
c$ifdef INCL_SPLERRORS
c$include pmsplerr.fi
c$endif
c$ifdef INCL_SPLDOSPRINT
integer CNLEN
parameter (CNLEN = 15)
integer UNLEN
parameter (UNLEN = 20)
integer QNLEN
parameter (QNLEN = 12)
integer PDLEN
parameter (PDLEN = 8)
integer DTLEN
parameter (DTLEN = 9)
integer QP_DATATYPE_SIZE
parameter (QP_DATATYPE_SIZE = 15)
integer DRIV_DEVICENAME_SIZE
parameter (DRIV_DEVICENAME_SIZE = 31)
integer DRIV_NAME_SIZE
parameter (DRIV_NAME_SIZE = 8)
integer PRINTERNAME_SIZE
parameter (PRINTERNAME_SIZE = 32)
integer FORMNAME_SIZE
parameter (FORMNAME_SIZE = 31)
integer MAXCOMMENTSZ
parameter (MAXCOMMENTSZ = 48)
structure /DRIVPROPS/
integer*4 pszKeyName
integer*4 cbBuf
integer*4 pBuf
end structure
structure /PRJINFO/
integer*2 uJobId
integer*1 szUserName(UNLEN+1)
integer*1 pad_1
integer*1 szNotifyName(CNLEN+1)
integer*1 szDataType(DTLEN+1)
integer*4 pszParms
integer*2 uPosition
integer*2 fsStatus
integer*4 pszStatus
integer*4 ulSubmitted
integer*4 ulSize
integer*4 pszComment
end structure
structure /PRJINFO2/
integer*2 uJobId
integer*2 uPriority
integer*4 pszUserName
integer*2 uPosition
integer*2 fsStatus
integer*4 ulSubmitted
integer*4 ulSize
integer*4 pszComment
integer*4 pszDocument
end structure
structure /PRJINFO3/
integer*2 uJobId
integer*2 uPriority
integer*4 pszUserName
integer*2 uPosition
integer*2 fsStatus
integer*4 ulSubmitted
integer*4 ulSize
integer*4 pszComment
integer*4 pszDocument
integer*4 pszNotifyName
integer*4 pszDataType
integer*4 pszParms
integer*4 pszStatus
integer*4 pszQueue
integer*4 pszQProcName
integer*4 pszQProcParms
integer*4 pszDriverName
integer*4 pDriverData
integer*4 pszPrinterName
end structure
structure /PRDINFO/
integer*1 szName(PDLEN+1)
integer*1 szUserName(UNLEN+1)
integer*2 uJobId
integer*2 fsStatus
integer*4 pszStatus
integer*2 time
end structure
structure /PRDINFO3/
integer*4 pszPrinterName
integer*4 pszUserName
integer*4 pszLogAddr
integer*2 uJobId
integer*2 fsStatus
integer*4 pszStatus
integer*4 pszComment
integer*4 pszDrivers
integer*2 time
integer*2 usTimeOut
end structure
structure /PRDINFO4/
integer*4 pszPrinterName
integer*4 pszUserName
integer*4 pszLogAddr
integer*2 uJobId
integer*2 fsStatus
integer*4 pszStatus
integer*4 pszComment
integer*4 pszDrivers
integer*2 time
integer*2 usTimeOut
integer*4 cDriverProps
end structure
structure /PRQINFO/
integer*1 szName(QNLEN+1)
integer*1 pad_1
integer*2 uPriority
integer*2 uStartTime
integer*2 uUntilTime
integer*4 pszSepFile
integer*4 pszPrProc
integer*4 pszDestinations
integer*4 pszParms
integer*4 pszComment
integer*2 fsStatus
integer*2 cJobs
end structure
structure /PRQINFO3/
integer*4 pszName
integer*2 uPriority
integer*2 uStartTime
integer*2 uUntilTime
integer*2 fsType
integer*4 pszSepFile
integer*4 pszPrProc
integer*4 pszParms
integer*4 pszComment
integer*2 fsStatus
integer*2 cJobs
integer*4 pszPrinters
integer*4 pszDriverName
integer*4 pDriverData
end structure
structure /PRQINFO6/
integer*4 pszName
integer*2 uPriority
integer*2 uStartTime
integer*2 uUntilTime
integer*2 fsType
integer*4 pszSepFile
integer*4 pszPrProc
integer*4 pszParms
integer*4 pszComment
integer*2 fsStatus
integer*2 cJobs
integer*4 pszPrinters
integer*4 pszDriverName
integer*4 pDriverData
integer*4 pszRemoteComputerName
integer*4 pszRemoteQueueName
end structure
structure /PRIDINFO/
integer*2 uJobId
integer*1 szComputerName(CNLEN+1)
integer*1 szQueueName(QNLEN+1)
integer*1 pad_1
end structure
structure /PRDRIVINFO/
integer*1 szDrivName(DRIV_NAME_SIZE+1+
+ DRIV_DEVICENAME_SIZE+1)
end structure
structure /PRQPROCINFO/
integer*1 szQProcName(QNLEN+1)
end structure
structure /PRPORTINFO/
integer*1 szPortName(PDLEN+1)
end structure
structure /PRPORTINFO1/
integer*4 pszPortName
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?