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