DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »UTILMOD.SRC«

└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
    └─ ⟦this⟧ »UTILMOD.SRC« 

TextFile

MODULE UTILITIES;

(* USE AS FOLLOWS:
	FUNCTION  RENAME(F,NEWNAME); MUST BE PRECEEDED BY ASSIGN
	PROCEDURE EXTRACT(F,NAME);   RETURNS NAME FROM AN FILE
	FUNCTION  KEYPRESSED : BOOLEAN; TRUE IF KEY PRESSED
*)

(*$I FIBDEF.LIB*)

EXTERNAL FUNCTION @BDOS(FUNC,PARM:INTEGER):INTEGER;

FUNCTION RENAME(VAR F:FIB; VAR NEWNAME:STRING):INTEGER;

(* TO USE:

	ASSIGN(MYFILE,OLDNAME);
	IF RENAME(MYFILE,NEWNAME) = 255 THEN
	  OLDNAME NOT FOUND IN DIRECTORY
	ELSE
	  RENAME WAS SUCCESSFUL

*)
VAR
  TEMPFILE : RECORD
		CASE BOOLEAN OF
		TRUE: (FYLE:FILE);
		FALSE:(FIBB:FIB)
	     END;
  RESULT:INTEGER;
BEGIN
  ASSIGN(TEMPFILE.FYLE,NEWNAME);
  MOVE(TEMPFILE.FIBB.FCB,TEMPFILE.FIBB.FCBÆ16Å,12);
  MOVE(F.FCB,TEMPFILE.FIBB.FCB,12);
  RESULT := @BDOS(23,ADDR(TEMPFILE.FIBB.FCB));
  RENAME := RESULT
END;


PROCEDURE EXTRACT(VAR F:FIB; VAR OUTNAME : STRING);
BEGIN
  OUTNAME := F.FNAME
END;


FUNCTION KEYPRESSED:BOOLEAN;
BEGIN
  KEYPRESSED := (@BDOS(11,0) <> 0)
END;

MODEND.
«eof»