add osx-ppc support via cpfront

[cpc.git] / src / posix / generic / Host / Mod / Files.cp

diff --git a/src/posix/generic/Host/Mod/Files.cp b/src/posix/generic/Host/Mod/Files.cp
index 7f5b91dd779c396a7ff8da6211525f3f0b6acd1d..76c7a5b8f8b3e096ebedf2748683ef6a4a4b9cbb 100644 (file)
--- a/src/posix/generic/Host/Mod/Files.cp
+++ b/src/posix/generic/Host/Mod/Files.cp
@@ -1,11 +1,12 @@
 MODULE HostFiles;
 
-  IMPORT S := SYSTEM, Kernel, HostLang, Files, Log, stdlib := C99stdlib,
-    unistd := C99unistd, dirent := C99dirent, fcntl := C99fcntl,
-    sysstat := C99sys_stat, stdio := C99stdio, errno := C99errno,
-    macro := C99macro, libgen := C99libgen, time := C99time;
+  IMPORT S := SYSTEM, Kernel, HostLang, Files, Log, stdlib := PosixCstdlib,
+    unistd := PosixCunistd, dirent := PosixCdirent, fcntl := PosixCfcntl,
+    sysstat := PosixCsys_stat, stdio := PosixCstdio, errno := PosixCerrno,
+    macro := PosixCmacro, libgen := PosixClibgen, time := PosixCtime;
 
   (* !!! add buffer cache *)
+  (* !!! HostFiles64 must be base for HostFiles *)
 
   CONST
     closed = 0; new = 1; temp = 2; shared = 3; exclusive = 4;
@@ -22,7 +23,7 @@ MODULE HostFiles;
 
     File = POINTER TO RECORD (Files.File)
       state: INTEGER;
-      len: INTEGER;
+      len: INTEGER; (* !!! must be sysstat.off_t *)
       fd: unistd.int;
       ino: sysstat.ino_t;
       pathname: FullName
@@ -339,7 +340,7 @@ MODULE HostFiles;
     VAR i: INTEGER; sep: BOOLEAN; err: unistd.int; s: sysstat.struct_stat; mode: sysstat.mode_t;
   BEGIN
     i := 0; err := 0;
-    mode := ORD(BITS(511(*a=rwx*)) - BITS(sysstat.umask(0)));
+    mode := S.VAL((*!!!*)sysstat.mode_t, ORD(BITS(511(*a=rwx*)) - BITS(sysstat.umask(0))));
     WHILE (err = 0) & (path[i] # 0X) DO
       WHILE (path[i] # "/") & (path[i] # 0X) DO INC(i) END;
       sep := path[i] = "/";
@@ -428,7 +429,7 @@ MODULE HostFiles;
             IF IsRegFile(s) THEN
               if := GetFileByInode(s.st_ino);
               IF (if = NIL) OR isShared & (if.state = shared) THEN
-                mode := ORD(BITS(rwrwrw) - BITS(sysstat.umask(0)));
+                mode := S.VAL((*!!!*)sysstat.mode_t, ORD(BITS(rwrwrw) - BITS(sysstat.umask(0))));
                 IF isShared THEN flags := fcntl.O_RDONLY
                 ELSE flags := fcntl.O_RDWR
                 END;
@@ -445,7 +446,7 @@ MODULE HostFiles;
                   IF res # -1 THEN
                     NEW(f); HostLang.HostToString(pathname, f.pathname, HostLang.pep383, err);
                     IF err = 0 THEN
-                      f.fd := fd; f.len := s.st_size; f.ino := s.st_ino;
+                      f.fd := fd; f.len := S.VAL((*!!!*)INTEGER, s.st_size); f.ino := s.st_ino;
                       IF isShared THEN f.state := shared
                       ELSE f.state := exclusive
                       END;
@@ -638,7 +639,7 @@ MODULE HostFiles;
                   END;
                   t.name := name$;
                   t.type := ""; (* ??? *)
-                  t.length := s.st_size;
+                  t.length := S.VAL((*!!!*)INTEGER, s.st_size);
                   tm := time.localtime(s.st_mtim.tv_sec);
                   IF tm # NIL THEN
                     t.modified.year := tm.tm_year + 1900;