CEDIT: new version by akron1

git-svn-id: svn://kolibrios.org@9073 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-07-21 16:13:29 +00:00
parent f195324958
commit f73a566b8b
11 changed files with 696 additions and 520 deletions
--- a/programs/develop/cedit/SRC/Encodings.ob07
+++ b/programs/develop/cedit/SRC/Encodings.ob07
@@ -29,6 +29,7 @@ TYPE

 VAR
    cpW1251*, cp866*: CP;
+    names*: ARRAY 4, 16 OF WCHAR;
    UNI*: ARRAY 65536, 2 OF INTEGER;


@@ -121,6 +122,10 @@ END setUNI;


 BEGIN
+    names[CP866]   := "CP866";
+    names[W1251]   := "Windows-1251";
+    names[UTF8]    := "UTF-8";
+    names[UTF8BOM] := "UTF-8-BOM";
    InitW1251(cpW1251);
    InitCP866(cp866);
    setUNI