added conversion modes in HostLang

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

diff --git a/src/posix/generic/Host/Mod/Console.cp b/src/posix/generic/Host/Mod/Console.cp
index d29048ebf3612f6ec44dc2172f2ca13eaedcd705..95820c708877ffa96923be53ae54f8d80611bbb3 100644 (file)
--- a/src/posix/generic/Host/Mod/Console.cp
+++ b/src/posix/generic/Host/Mod/Console.cp
@@ -9,7 +9,7 @@ MODULE HostConsole;
     VAR res: INTEGER; s: ARRAY 2 OF CHAR; ss: ARRAY 12 OF SHORTCHAR;
   BEGIN
     s[0] := ch; s[1] := 0X;
     VAR res: INTEGER; s: ARRAY 2 OF CHAR; ss: ARRAY 12 OF SHORTCHAR;
   BEGIN
     s[0] := ch; s[1] := 0X;

-    HostLang.StringToHost(s, ss, TRUE, res);
+    HostLang.StringToHost(s, ss, HostLang.replace, res);

     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)
     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)


@@ -19,7 +19,7 @@ MODULE HostConsole;
     VAR ss: POINTER TO ARRAY OF SHORTCHAR; res: INTEGER;
   BEGIN
     NEW(ss, LEN(s$) * 4 + 1);
     VAR ss: POINTER TO ARRAY OF SHORTCHAR; res: INTEGER;
   BEGIN
     NEW(ss, LEN(s$) * 4 + 1);

-    HostLang.StringToHost(s, ss, TRUE, res);
+    HostLang.StringToHost(s, ss, HostLang.replace, res);

     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)
     ASSERT(res = 0, 100);
     res := unistd.write(1, S.ADR(ss[0]), LEN(ss$));
     res := unistd.fsync(1)