Kernel.littleEndian

BlackBox/_Linux_/Host/Mod/Console.txt

@@ -3,13 +3,7 @@ MODULE HostConsole;
 	(* THIS IS TEXT COPY OF Console.odc *)
 	(* DO NOT EDIT *)
 
-	(*
-		A. V. Shiryaev, 2012.10
-
-		Console implementation for Linux
-	*)
-
-	IMPORT SYSTEM, Console, Libc := LinLibc, Iconv := LinIconv, HostLang;
+	IMPORT SYSTEM, Console, Libc := LinLibc, Iconv := LinIconv, HostLang, Kernel;
 
 	CONST
 		defCh = '?';
@@ -136,8 +130,13 @@ MODULE HostConsole;
 
 	PROCEDURE Init;
 	BEGIN
-		e := Iconv.iconv_open(HostLang.enc, "UCS-2LE");
-		d := Iconv.iconv_open("UCS-2LE", HostLang.enc);
+		IF Kernel.littleEndian THEN
+			e := Iconv.iconv_open(HostLang.enc, "UCS-2LE");
+			d := Iconv.iconv_open("UCS-2LE", HostLang.enc)
+		ELSE
+			e := Iconv.iconv_open(HostLang.enc, "UCS-2BE");
+			d := Iconv.iconv_open("UCS-2BE", HostLang.enc)
+		END;
 
 		NEW(cons);
 		Console.SetConsole(cons)

BlackBox/_Linux_/Host/Mod/Files.txt

@@ -3,10 +3,6 @@ MODULE HostFiles;
 	(* THIS IS TEXT COPY OF Files.odc *)
 	(* DO NOT EDIT *)
 
-	(*
-		A. V. Shiryaev, 2012.10: filenames encoding translation implemented
-	*)
-
 	IMPORT SYSTEM, Kernel, Files, LinLibc, Iconv := LinIconv;
 
 	CONST
@@ -201,8 +197,13 @@ MODULE HostFiles;
 	BEGIN
 		GetEnc(enc, ok);
 		IF ok THEN
-			e := Iconv.iconv_open(enc, "UCS-2LE");
-			d := Iconv.iconv_open("UCS-2LE", enc)
+			IF Kernel.littleEndian THEN
+				e := Iconv.iconv_open(enc, "UCS-2LE");
+				d := Iconv.iconv_open("UCS-2LE", enc)
+			ELSE
+				e := Iconv.iconv_open(enc, "UCS-2BE");
+				d := Iconv.iconv_open("UCS-2BE", enc)
+			END
 		ELSE e := -1; d := -1
 		END
 	END InitConv;

BlackBox/_OpenBSD_/Host/Mod/Console.txt

@@ -3,13 +3,7 @@ MODULE HostConsole;
 	(* THIS IS TEXT COPY OF Console.odc *)
 	(* DO NOT EDIT *)
 
-	(*
-		A. V. Shiryaev, 2012.10
-
-		Console implementation for OpenBSD
-	*)
-
-	IMPORT SYSTEM, Console, Libc := LinLibc, Iconv := LinIconv, HostLang;
+	IMPORT SYSTEM, Console, Libc := LinLibc, Iconv := LinIconv, HostLang, Kernel;
 
 	CONST
 		defCh = '?';
@@ -136,8 +130,13 @@ MODULE HostConsole;
 
 	PROCEDURE Init;
 	BEGIN
-		e := Iconv.iconv_open(HostLang.enc, "UCS-2LE");
-		d := Iconv.iconv_open("UCS-2LE", HostLang.enc);
+		IF Kernel.littleEndian THEN
+			e := Iconv.iconv_open(HostLang.enc, "UCS-2LE");
+			d := Iconv.iconv_open("UCS-2LE", HostLang.enc)
+		ELSE
+			e := Iconv.iconv_open(HostLang.enc, "UCS-2BE");
+			d := Iconv.iconv_open("UCS-2BE", HostLang.enc)
+		END;
 
 		NEW(cons);
 		Console.SetConsole(cons)

BlackBox/_OpenBSD_/Host/Mod/Files.txt

@@ -3,10 +3,6 @@ MODULE HostFiles;
 	(* THIS IS TEXT COPY OF Files.odc *)
 	(* DO NOT EDIT *)
 
-	(*
-		A. V. Shiryaev, 2012.10: filenames encoding translation implemented
-	*)
-
 	IMPORT SYSTEM, Kernel, Files, LinLibc, Iconv := LinIconv;
 
 	CONST
@@ -201,8 +197,13 @@ MODULE HostFiles;
 	BEGIN
 		GetEnc(enc, ok);
 		IF ok THEN
-			e := Iconv.iconv_open(enc, "UCS-2LE");
-			d := Iconv.iconv_open("UCS-2LE", enc)
+			IF Kernel.littleEndian THEN
+				e := Iconv.iconv_open(enc, "UCS-2LE");
+				d := Iconv.iconv_open("UCS-2LE", enc)
+			ELSE
+				e := Iconv.iconv_open(enc, "UCS-2BE");
+				d := Iconv.iconv_open("UCS-2BE", enc)
+			END
 		ELSE e := -1; d := -1
 		END
 	END InitConv;