added conversion modes in HostLang

[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 8b0fc0058d30c7ae1f699bcf69d5b42eba55dbbb..7f5b91dd779c396a7ff8da6211525f3f0b6acd1d 100644 (file)
--- a/src/posix/generic/Host/Mod/Files.cp
+++ b/src/posix/generic/Host/Mod/Files.cp
@@ -179,11 +179,11 @@ MODULE HostFiles;
     ASSERT(f.state = new, 20);
     ASSERT(name # "", 21);
     ASSERT(IsName(name), 22);
-    HostLang.StringToHost(f.pathname, p0, FALSE, err);
+    HostLang.StringToHost(f.pathname, p0, HostLang.pep383, err);
     IF err = 0 THEN
       dir := f.pathname$;
       DirName(dir);
-      HostLang.StringToHost(dir + "/" + name, p1, FALSE, err);
+      HostLang.StringToHost(dir + "/" + name, p1, HostLang.pep383, err);
       IF err = 0 THEN
         x := stdio.rename(p0, p1);
         IF x = 0 THEN res := 0 (* no error *)
@@ -205,7 +205,7 @@ MODULE HostFiles;
     IF f.state # closed THEN
       f.Flush;
       IF f.state = new THEN
-        HostLang.StringToHost(f.pathname, path, FALSE, err);
+        HostLang.StringToHost(f.pathname, path, HostLang.pep383, err);
         ASSERT(err = 0, 100);
         res := unistd.unlink(path);
         ASSERT(res = 0, 101);
@@ -363,7 +363,7 @@ MODULE HostFiles;
   BEGIN
     ASSERT(loc # NIL, 20);
     WITH loc: Locator DO
-      HostLang.StringToHost(loc.path, pathname, FALSE, err);
+      HostLang.StringToHost(loc.path, pathname, HostLang.pep383, err);
       IF err = 0 THEN
         MakeDir(pathname, res);
         IF res = 0 THEN
@@ -371,7 +371,7 @@ MODULE HostFiles;
           pathname := pathname + "/" + ".newXXXXXX";
           fd := stdlib.mkstemp(pathname);
           IF fd # -1 THEN
-            NEW(f); HostLang.HostToString(pathname, f.pathname, FALSE, err);
+            NEW(f); HostLang.HostToString(pathname, f.pathname, HostLang.pep383, err);
             IF err = 0 THEN
               (* !!! get valid inode? *)
               f.fd := fd; f.len := 0; f.state := new; f.ino := 0;
@@ -421,7 +421,7 @@ MODULE HostFiles;
     ASSERT(name # "", 21);
     WITH loc: Locator DO
       IF IsName(name) THEN
-        HostLang.StringToHost(loc.path + "/" + name, pathname, FALSE, err);
+        HostLang.StringToHost(loc.path + "/" + name, pathname, HostLang.pep383, err);
         IF err = 0 THEN
           res := macro.stat(pathname, s);
           IF res = 0 THEN
@@ -443,7 +443,7 @@ MODULE HostFiles;
                   lock.l_pid := 0;
                   res := fcntl.fcntl(fd, fcntl.F_SETLK, S.ADR(lock));
                   IF res # -1 THEN
-                    NEW(f); HostLang.HostToString(pathname, f.pathname, FALSE, err);
+                    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;
                       IF isShared THEN f.state := shared
@@ -501,7 +501,7 @@ MODULE HostFiles;
     ASSERT(IsName(name), 21);
     WITH loc: Locator DO
       IF IsName(name) THEN
-        HostLang.StringToHost(loc.path + "/" + name, pathname, FALSE, err);
+        HostLang.StringToHost(loc.path + "/" + name, pathname, HostLang.pep383, err);
         IF err = 0 THEN
           res := unistd.unlink(pathname);
           IF res = 0 THEN loc.res := 0 (* no error *)
@@ -526,9 +526,9 @@ MODULE HostFiles;
     ASSERT(new # "", 22);
     WITH loc: Locator DO
       IF IsName(old) & IsName(new) THEN
-        HostLang.StringToHost(loc.path + "/" + old, p0, FALSE, err);
+        HostLang.StringToHost(loc.path + "/" + old, p0, HostLang.pep383, err);
         IF err = 0 THEN
-          HostLang.StringToHost(loc.path + "/" + new, p1, FALSE, err);
+          HostLang.StringToHost(loc.path + "/" + new, p1, HostLang.pep383, err);
           IF err = 0 THEN
             res := stdio.rename(p0, p1);
             IF res = 0 THEN loc.res := 0 (* no error *)
@@ -559,11 +559,11 @@ MODULE HostFiles;
     WITH loc0: Locator DO
       WITH loc1: Locator DO
         IF IsName(name0) & IsName(name1) THEN
-          HostLang.StringToHost(loc0.path + "/" + name0, a0, FALSE, err);
+          HostLang.StringToHost(loc0.path + "/" + name0, a0, HostLang.pep383, err);
           IF err = 0 THEN
             err := macro.stat(a0, s0);
             IF err = 0 THEN
-              HostLang.StringToHost(loc1.path + "/" + name1, a1, FALSE, err);
+              HostLang.StringToHost(loc1.path + "/" + name1, a1, HostLang.pep383, err);
               IF err = 0 THEN
                 err := macro.stat(a1, s1);
                 IF err = 0 THEN
@@ -621,15 +621,15 @@ MODULE HostFiles;
   BEGIN
     ASSERT(loc # NIL, 20);
     WITH loc: Locator DO
-      HostLang.StringToHost(loc.path, pathname, FALSE, err);
+      HostLang.StringToHost(loc.path, pathname, HostLang.pep383, err);
       IF err = 0 THEN
         p := dirent.opendir(pathname);
         IF p # NIL THEN
           ent := dirent.readdir(p);
           WHILE ent # NIL DO
-            HostLang.HostToString(ent.d_name, name, FALSE, err);
+            HostLang.HostToString(ent.d_name, name, HostLang.pep383, err);
             IF err = 0 THEN
-              HostLang.StringToHost(loc.path + "/" + name, pathname, FALSE, err);
+              HostLang.StringToHost(loc.path + "/" + name, pathname, HostLang.pep383, err);
               IF err = 0 THEN
                 res := macro.stat(pathname, s);
                 IF (res = 0) & ~IsDir(s) THEN
@@ -683,15 +683,15 @@ MODULE HostFiles;
   BEGIN
     ASSERT(loc # NIL, 20);
     WITH loc: Locator DO
-      HostLang.StringToHost(loc.path, pathname, FALSE, err);
+      HostLang.StringToHost(loc.path, pathname, HostLang.pep383, err);
       IF err = 0 THEN
         p := dirent.opendir(pathname);
         IF p # NIL THEN
           ent := dirent.readdir(p);
           WHILE ent # NIL DO
-            HostLang.HostToString(ent.d_name, name, FALSE, err);
+            HostLang.HostToString(ent.d_name, name, HostLang.pep383, err);
             IF err = 0 THEN
-              HostLang.StringToHost(loc.path + "/" + name, pathname, FALSE, err);
+              HostLang.StringToHost(loc.path + "/" + name, pathname, HostLang.pep383, err);
               IF err = 0 THEN
                 res := macro.stat(pathname, s);
                 IF (res = 0) & IsDir(s) & (name # ".") & (name # "..") THEN