[screen-devel] [patch] add KOI8-U support

[Valentin Nechayev]

The KOI8-U encoding is widely used for Ukrainian language. It is defined
in RFC2319 and is very similar to KOI8-R except some letters.

The following patch against version 4.0.3 adds corresponding definitions
to code. External encoding file is added.

diff -u -rNu ansi.h ansi.h
--- ansi.h      2003-02-24 18:55:08.000000000 +0200
+++ ansi.h      2011-03-29 11:24:20.212563516 +0300
@@ -127,6 +127,7 @@
 #define BIG5   5
 #define KOI8R  6
 #define CP1251 7
+#define KOI8U  8
 #define GBK    20
 
 #define EUC    EUC_JP
diff -u -rNu doc/screen.1 doc/screen.1
--- doc/screen.1        2003-12-05 15:51:57.000000000 +0200
+++ doc/screen.1        2011-03-29 11:22:55.739089194 +0300
@@ -1688,8 +1688,9 @@
 There is also a way to select a terminal encoding depending on
 the terminal type by using the \*QKJ\*U termcap entry.
 
-Supported encodings are eucJP, SJIS, eucKR, eucCN, Big5, GBK, KOI8-R,
-CP1251, UTF-8, ISO8859-2, ISO8859-3, ISO8859-4, ISO8859-5, ISO8859-6,
+Supported encodings are eucJP, SJIS, eucKR, eucCN, Big5, GBK,
+KOI8-R, KOI8-U, CP1251, UTF-8,
+ISO8859-2, ISO8859-3, ISO8859-4, ISO8859-5, ISO8859-6,
 ISO8859-7, ISO8859-8, ISO8859-9, ISO8859-10, ISO8859-15, jis.
 
 See also \*Qdefencoding\*U, which changes the default setting of a new
diff -u -rNu doc/screen.texinfo doc/screen.texinfo
--- doc/screen.texinfo  2003-12-05 15:51:46.000000000 +0200
+++ doc/screen.texinfo  2011-03-29 11:22:30.536269863 +0300
@@ -2726,7 +2726,8 @@
 
 Supported encodings are
 @code{eucJP}, @code{SJIS}, @code{eucKR},
address@hidden, @code{Big5}, @code{GBK}, @code{KOI8-R}, @code{CP1251},
address@hidden, @code{Big5}, @code{GBK},
address@hidden, @code{KOI8-U}, @code{CP1251},
 @code{UTF-8}, @code{ISO8859-2}, @code{ISO8859-3},
 @code{ISO8859-4}, @code{ISO8859-5}, @code{ISO8859-6},
 @code{ISO8859-7}, @code{ISO8859-8}, @code{ISO8859-9},
diff -u -rNu encoding.c encoding.c
--- encoding.c  2006-10-23 15:58:14.000000000 +0300
+++ encoding.c  2011-03-29 11:23:56.454204244 +0300
@@ -57,6 +57,7 @@
 
 /* big5 font:   ^X */
 /* KOI8-R font: 96 ! */
+/* KOI8-U font: 96 # */
 /* CP1251 font: 96 ? */
 
 struct encoding encodings[] = {
@@ -67,6 +68,7 @@
   { "eucCN",           "B\001BB01",    0,              1, 0, "\001" },
   { "Big5",            "B\030BB01",    0,              1, 0, "\030" },
   { "KOI8-R",          0,              0x80|'!',       0, 1, 0 },
+  { "KOI8-U",          0,              0x80|'#',       0, 1, 0 },
   { "CP1251",          0,              0x80|'?',       0, 1, 0 },
   { "UTF-8",           0,              -1,             0, 0, 0 },
   { "ISO8859-2",       0,              0x80|'B',       0, 0, 0 },

UUE of encoding file:

begin 644 utf8encodings/a3
M4V-R965N23)55$8X`*,address@hidden/address@hidden(`E``"!)0(address@hidden,`(,E$`"$)10`
MA248`(8E'`"')20`B"4L`(DE-`"*)3P`BR6``(PEA`"-)address@hidden,`(\ED`"0
M)9$`D262`)(EDP"3(R``E"address@hidden)4B&0"6(AH`ER)(`)@B9`"9(F4`F@"@`)LC
M(0"<`+``G0"R`)X`MP"?`/<`H"50`*$E40"B)5(`HP11`*0$5`"E)address@hidden
M`*<$5P"H)5<`J258`*HE60"K)5H`K"5;`*T$D0"N)5T`KR5>`+`E7P"Q)6``
MLB5A`+,$`0"T!`,`M25C`+8$!@"W!`<`N"5F`+DE9P"Z)address@hidden:@"]
M!)``OB5L`+\`J0#`!$X`P00P`,($,0##!$8`Q`0T`,4$-0#&!$0`QP0S`,@$
M10#)address@hidden@0Y`,address@hidden,!#L`S00\`,X$/0#/!#X`T`0_`-$$3P#2!$``TP1!
address@hidden,address@hidden<$,@#8!$P`V01+`-H$-P#;address@hidden>!$<`
address@hidden@01`.,$)@#D!!0`Y005`.8$)`#G!!,`Z`0E`.D$&`#J
M!!D`ZP0:`.P$&address@hidden'@#P!!\`\00O`/($(`#S!"$`]`0B`/4$
I(P#V!!8`]P02`/@$+`#Y!"address@hidden/L$*`#\!"T`_00I`/X$)P#_!"H`
`
end


-netch-