137 lines
2.9 KiB
Plaintext
137 lines
2.9 KiB
Plaintext
Subroutine MFS_SHELL1(CODE, BFS, HANDLE, NAME, FMC, RECORD, STATUS)
|
|
|
|
/*******************************
|
|
|
|
|
|
÷ VERSION : 1.0
|
|
|
|
÷ PURPOSE :
|
|
|
|
÷ AUTHOR :
|
|
|
|
÷ CREATED :
|
|
|
|
÷ PROCEDURES :
|
|
|
|
*÷ WARNINGS :
|
|
|
|
*÷ THEORY OF OPERATION :
|
|
|
|
÷ REVISION HISTORY (Most CURRENT first) :
|
|
|
|
DATE IMPLEMENTOR FUNCTION
|
|
-------- ----------- --------
|
|
MM-DD-YY initials Modification
|
|
|
|
*******************************/
|
|
|
|
*÷ COMMON Variables (Terminate with '%') :
|
|
|
|
*÷ LABELED COMMON Variables (Terminate with '@') :
|
|
|
|
*÷ EQUATE Variables (Terminate with '$') :
|
|
|
|
EQU RTI$ TO 'Copyright (C) 1990-2023, Revelation Technologies, Inc.'
|
|
EQU TRUE$ TO 1
|
|
EQU FALSE$ TO 0
|
|
EQU YES$ TO 1
|
|
EQU NO$ TO 0
|
|
EQU OTHERWISE$ TO 1
|
|
EQU NULL$ TO ""
|
|
EQU SPACE$ TO \20\
|
|
|
|
$INSERT FILE.SYSTEM.EQUATES
|
|
$INSERT FSERRORS_HDR
|
|
|
|
*÷ MESSAGES called (Terminate with '$') :
|
|
|
|
*÷ DECLARED - FUNCTIONS called :
|
|
|
|
*÷ DECLARED - SUBROUTINES called :
|
|
|
|
/*******************************
|
|
÷ INDIRECT - FUNCTIONS/SUBROUTINES called if known (Make COMMENTS) :
|
|
*******************************/
|
|
|
|
*÷÷ PROGRAM TOP
|
|
|
|
FS = DELETE(BFS,1,1,1)
|
|
NEXTFS = FS<1,1,1>
|
|
@FILE.ERROR = ""
|
|
|
|
$INSERT FILE.SYSTEM.ONGOSUB
|
|
|
|
RETURN
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Put all the operations to capture in this section.*/
|
|
*----------------------------------------------------------------------------
|
|
|
|
RETURN
|
|
*----------------------------------------------------------------------------
|
|
/* Media operations */
|
|
CREATE.MEDIA:
|
|
OPEN.MEDIA:
|
|
READ.MEDIA:
|
|
WRITE.MEDIA:
|
|
CLOSE.MEDIA:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* File oriented operations */
|
|
CLEARFILE:
|
|
CREATE.FILE:
|
|
DELETE.FILE:
|
|
MOVE.FILE:
|
|
OPEN.FILE:
|
|
REMAKE.FILE:
|
|
RENAME.FILE:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Select operations */
|
|
SELECT:
|
|
READNEXT:
|
|
CLEARSELECT:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Record oriented operations */
|
|
READ.RECORD:
|
|
READO.RECORD:
|
|
WRITE.RECORD:
|
|
DELETE.RECORD:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Lock operations */
|
|
LOCK.RECORD:
|
|
UNLOCK.RECORD:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Index operations */
|
|
CREATE.INDEX:
|
|
UPDATE.INDEX:
|
|
DELETE.INDEX:
|
|
SELECT.INDEX:
|
|
READNEXT.INDEX:
|
|
RESERVED:
|
|
|
|
*----------------------------------------------------------------------------
|
|
/* Misc calls */
|
|
OMNI.SCRIPT:
|
|
RECORD.COUNT:
|
|
|
|
NEXT_FS:
|
|
|
|
CALL @NEXTFS(CODE, FS, HANDLE, NAME, FMC, RECORD, STATUS)
|
|
|
|
RETURN
|
|
|
|
*----------------------------------------------------------------------------
|
|
/*
|
|
Install, unlock all and flush are called directly, no need to call next FS.
|
|
*/
|
|
INSTALL:
|
|
FLUSH:
|
|
UNLOCK.ALL:
|
|
|
|
STATUS = TRUE$
|
|
RETURN
|