--- a/FileSystem.MRI.mi
+++ b/FileSystem.MRI.mi
@@ -38,7 +38,7 @@
close,read,write,unlink,Stat,fstat,chmod,sync,
LockExclusive,LockUnlock,LockNoblock,flock;
IMPORT UnixLib; (* SIGNED *)
- IMPORT fslength;
+ IMPORT UnixCalls;
FROM Storage IMPORT ALLOCATE,DEALLOCATE;
IMPORT StringsLib;
FROM Errors IMPORT Fehler,Fehlerflag,ErrOut,FatalError;
@@ -247,7 +247,7 @@
IF (f = -1) THEN (* Datei nicht zu l"oschen ! *)
Fehler:=TRUE;
Fehlerflag:="Zugriff verweigert (FileSystem.Lookup) !";
- fslength.SetErrFlag(Fehlerflag);
+ UnixCalls.SetErrFlag(Fehlerflag);
IF CheckIO THEN ErrOut(Fehlerflag); END;
RETURN;
END;
@@ -487,7 +487,7 @@
END;
IF NOT UseStat THEN (* Viel zu kompliziert, fstat ist einfacher *)
GetFileName(f,DName); (* Dateiname von f ermitteln, dann *)
- fslength.FileLength(Len,error,DName);
+ UnixCalls.FileLength(Len,error,DName);
ELSE
(* error := stat(ADR(DName),StatPuf); *)
error := fstat(f,StatPuf);
@@ -575,7 +575,7 @@
BEGIN
nbyte := read(f,ADR(Ziel),n);
IF (nbyte = -1) THEN
- fslength.SetErrFlag(Fehlerflag);
+ UnixCalls.SetErrFlag(Fehlerflag);
IF CheckIO THEN ErrOut(Fehlerflag); END;
Fehler:=TRUE; m:=0;
RETURN;
@@ -721,7 +721,7 @@
lock := CAST(INTEGER,tmp);
err := flock(f,lock);
IF (err # 0) THEN
- fslength.SetErrFlag(Fehlerflag);
+ UnixCalls.SetErrFlag(Fehlerflag);
ErrOut(Fehlerflag);
END;
END Lock;
@@ -732,7 +732,7 @@
BEGIN
err := flock(f,LockUnlock);
IF (err # 0) THEN
- fslength.SetErrFlag(Fehlerflag);
+ UnixCalls.SetErrFlag(Fehlerflag);
ErrOut(Fehlerflag);
END;
END UnLock;