140 lines
2.3 KiB
Plaintext
140 lines
2.3 KiB
Plaintext
COMPILE SUBROUTINE REC_VER_MFS(Code, BFS, Handle, Name, FMC, Record, Status)
|
|
|
|
DECLARE Subroutine Msg, FSMsg, Set_Status, Rec_Ver_Monitor
|
|
DECLARE FUNCTION Set_Status, Get_Status
|
|
|
|
COMMON /FILENAME/ Files_Array, Handles_Array
|
|
|
|
FS = DELETE(BFS,1,1,1)
|
|
NEXTFS = FS<1,1,1>
|
|
@FILE.ERROR = ''
|
|
|
|
$INSERT FILE.SYSTEM.ONGOSUB
|
|
$INSERT FILE.SYSTEM.EQUATES
|
|
$INSERT MSG_EQUATES
|
|
$INSERT DICT_EQUATES
|
|
|
|
EQU ReadRec$ TO 1
|
|
|
|
|
|
RETURN
|
|
|
|
/* Directly called functions - don't pass to next file system */
|
|
|
|
INSTALL:
|
|
FLUSH:
|
|
UNLOCK.ALL:
|
|
FLUSH.CACHE:
|
|
|
|
Status = 1
|
|
RETURN
|
|
|
|
/* Not available to MFS */
|
|
|
|
LOCK.SEMAPHORE:
|
|
UNLOCK.SEMAPHORE:
|
|
SET.USER.SEMAPHORE:
|
|
|
|
RETURN
|
|
|
|
/* Directory level calls */
|
|
|
|
CREATE.MEDIA:
|
|
OPEN.MEDIA:
|
|
CLOSE.MEDIA:
|
|
READ.MEDIA:
|
|
WRITE.MEDIA:
|
|
GROUP.NUMBER:
|
|
RECORD.COUNT:
|
|
CREATE.FILE:
|
|
RENAME.FILE:
|
|
MOVE.FILE:
|
|
DELETE.FILE:
|
|
|
|
Goto NEXT.FS
|
|
|
|
OPEN.FILE:
|
|
|
|
* Call BFS in order to get file handle
|
|
|
|
FS = DELETE(BFS,1,1,1)
|
|
NEXTFS = FS<1,1,1>
|
|
CALL @NEXTFS(Code, FS, Handle, Name, FMC, Record, Status)
|
|
|
|
* Load handle and file name into labelled common
|
|
|
|
IF Status THEN
|
|
LOCATE Name IN Files_Array USING @FM SETTING POS THEN
|
|
Handles_Array<POS> = Record
|
|
END ELSE
|
|
Files_Array<-1> = Name
|
|
Handles_Array<-1> = Record
|
|
END
|
|
END
|
|
RETURN
|
|
|
|
CLEARFILE:
|
|
REMAKE.FILE:
|
|
SELECT:
|
|
READNEXT:
|
|
CLEARSELECT:
|
|
|
|
READ.RECORD:
|
|
READO.RECORD:
|
|
|
|
GOTO NEXT.FS
|
|
|
|
|
|
* * * * * * *
|
|
WRITE.RECORD:
|
|
* * * * * * *
|
|
|
|
* Get original record and compare with RECORD being written
|
|
|
|
LOCATE Handle IN Handles_Array USING @FM SETTING POS ELSE
|
|
mesg = "Missing file handle in REC_VER_MFS!|"
|
|
mesg := handle
|
|
MSG('',mesg)
|
|
GOTO NEXT.FS
|
|
END
|
|
|
|
FileName = Files_Array<POS>[1,'*'] ;* Extract corresponding file name
|
|
|
|
Write_Flag = 0
|
|
OrgRecord = ''
|
|
NextFS = BFS<1,1,2>
|
|
|
|
CALL @NextFS(ReadRec$, FS, Handle, Name, FMC, OrgRecord, Status) ;* Read old record
|
|
|
|
IF Record NE OrgRecord THEN
|
|
|
|
RecKey = Name
|
|
|
|
Rec_Ver_Monitor('Write',FileName,RecKey,Record,OrgRecord)
|
|
|
|
|
|
END ;* End of check changed record
|
|
|
|
GOTO NEXT.FS
|
|
|
|
/* Unused calls */
|
|
|
|
DELETE.RECORD:
|
|
LOCK.RECORD:
|
|
UNLOCK.RECORD:
|
|
RESERVED:
|
|
OMNI.SCRIPT:
|
|
|
|
CREATE.INDEX:
|
|
DELETE.INDEX:
|
|
SELECT.INDEX:
|
|
UPDATE.INDEX:
|
|
READNEXT.INDEX:
|
|
|
|
NEXT.FS:
|
|
|
|
FS = DELETE(BFS,1,1,1)
|
|
NEXTFS = FS<1,1,1>
|
|
CALL @NEXTFS(Code, FS, Handle, Name, FMC, Record, Status)
|
|
RETURN
|