PEARL IO-Erweiterungen
MKIOD1S4, MKIOD, MAKE_IO_DEMON, GET_CE_DATA, RELEASE_CE, TOQ_CE
- ************************************************* - * - Name: MKIOD1.1 * - * - * - MAKE_IO_DEMON:PROC(para1 FIXED,! queue no. * - para2 CHAR(8)), ! Task-name * - para3 REF PROC(REF STRUCT[]), - para4 FIXED(31) ! extra TWS * - ) - RETURNS(FIXED); ! Returned queue * - (This function is not validated so far) * - ------------------------------------------------* - * - GET_CE_DATA( CE_PTR REF STRUCT[], - CE_DATA PEARL_CE IDENT) - ) - Op: CE_PTR (got from TOQ_CE) -> CE_DATA - - Info: - - TYPE PEARL_CE STRUCT[ - STATIO FIXED, ! Copy of statio - DRIVE FIXED, ! Copy of drive - MODE CHAR(2), ! Copy of Mode - RECLEN FIXED, ! Incoming RECLEN - BUADR REF CHAR(1), ! Pointer to Buffer - FNAME REF CHAR(1), ! Pointer to Filename - USERNO FIXED]; ! User-number 1 ...* - ----------------------------------------------- * - RELEASE_CE(REF STRUCT[]); - Op: Release the CE (No further check!!) - ------------------------------------------------* - TOQ_CE RETURNS(REF STRUCT[]); - Op: Create a CE-PTR or NIL-Ptr (queue empty) - ------------------------------------------------* - - Author and (c) 2000 ... 2003 W. Gerth * - ------------------------------------------------* - History: * - * - 0.1 14.03.2000 Date of birth (Ge) * - 1.0 14.03.2000 1st in use * - 1.1 20.03.2000 Entry TOQ_CE added * - 1.2 29.03.2000 Struct PEARL_CE: new USERNO* - !! signature changed * - 1.3 24.08.2000 17er-Sl. for Sys.-Entry(Wo)*1/3 - 1.4 31.03.2003 New: Module-ID cleared (Ge)*1/4