OberonCore

   PROCEDURE Delete (IN fname, path: FullName; OUT res: INTEGER);
   VAR
      num, n: INTEGER;
      f: File; new: FullName;
      attr: SET;
      fn, nn: ShortName;
      buf: Libc.stat_t;
      isDir: BOOLEAN;
   BEGIN ASSERT(fname # '', 20);
      f := ThisFile(fname); NameToLocal(fname, fn);
      IF f = NIL THEN
         IF Libc.remove(fn) = 0 THEN res := ok
         ELSE
            res := Libc.fflush(0);
            IF Libc.remove(fn) = 0 THEN res := ok ELSE res := Libc_errno() END
         END
      ELSE (* still in use => make it anonymous *)
         (* k8: we can safely delete it; this will not invalidate file handles;
            one gotcha: the file should be opened; for non-opened-yet files, use the old method *)
         IF f.ref # invalid THEN
            IF Libc.remove(fn) = 0 THEN res := ok
            ELSE
               res := Libc.fflush(0);
               IF Libc.remove(fn) = 0 THEN res := ok ELSE res := Libc_errno() END
            END;
            IF res = ok THEN   (* it is hidden, and has no name anymore *)
               f.state := hidden; f.name := ''
            END;
         ELSE   (* old method *)
            CloseFileHandle(f, ^res);
            Stat(f.name, buf, res);
            ModeToAttr(buf.st_mode, attr, isDir);
            IF (res = ok) & ~(Files.readOnly IN attr) THEN
               num := Libc.clock(); n := 200;
               REPEAT
                  GetTempFileName(path, new, num); INC(num); DEC(n);
                  NameToLocal(new, nn);
                  MoveFile(fn, nn, res);
               UNTIL (res # fileExistsErr) OR (n = 0);
               IF res = ok THEN
                  f.state := hidden; f.name := new$
               END
            ELSE
               res := writeProtectedErr
            END
         END
      END
   END Delete;

   PROCEDURE CreateFile (f: File; OUT res: INTEGER);
   VAR num, n: INTEGER;
   BEGIN
      IF f.name = '' THEN
         (* k8: temp files cannot be registered, and need no name *)
         IF f.state = temp THEN
            f.ref := Libc.tmpfile();
            IF f.ref = invalid THEN res := Libc_errno() ELSE res := ok END
         ELSE
            num := Libc.clock(); n := 200;
            REPEAT
               GetTempFileName(f.loc.path, f.name, num); INC(num); DEC(n);
               OpenFile(f, create, f.name, f.ref, res)
            UNTIL (res # fileExistsErr) OR (n = 0)
         END
      ELSE
         OpenFile(f, f.state, f.name, f.ref, res)
      END
   END CreateFile;

   PROCEDURE ExistingFile (IN n: ShortName): BOOLEAN;
   BEGIN RETURN (Libc.access(n, Libc.F_OK) = 0)
   END ExistingFile;

CONST
   F_OK* = 0;
   X_OK* = 1;
   W_OK* = 2;
   R_OK* = 4;

PROCEDURE [ccall] tmpfile* (): PtrFILE;
PROCEDURE [ccall] tmpfile64* (): PtrFILE;
PROCEDURE [ccall] access* (pathname: PtrSTR; mode: int): int;